实训 VBSQL Server学生成绩管理系统

（综合应用）实训VB/SQL Server学生成绩管理系统
用Vb实现的简单的学生成绩管理系统，使用可视ADODC控件和ADODB对象来访问后台数据库服务器的，系统功能包含学生信息的查询、学生信息的录入修改删除、学生成绩的录入修改。

下面分别说明各模块的具体实现。

学生成绩管理系统主界面如图1.1所示。

图1.1 学生成绩管理系统主界面
系统主界面主要功能：系统功能的导航作用，单击各按钮后可进入相应的操作窗口。

项目1 VB连接SQL Server数据库
1、用可视ADODC控件连接数据库
(1)在VB选“工程”菜单—“部件”菜单项，系统打开“部件”对话框，如图1.2所示：
图1.2 “部件”对话框
选择2个ADO控件，它们是“Microsoft ADO Data Control 6.0”和“Microsoft DataGrid Control 6.0”。

最后单击“确定”按钮，VB6.0工具栏增加了上述2个控件的图标。

前者用于连接数据库，后者用于以表格形式显示数据库表的内容。

⑵在VB表单中加入“Microsoft ADO Data Control 6.0”控件，命名合适的名称，例如stuado。

⑶设置控件ADODC的ConnectionString属性。

选择该属性，如图1.3所示。

图1.3 设置ConnectionString属性图
单击“…”按钮，系统打开对话框，
如图1.4所示。

图1.4 生成连接字符串单击“Build…”按钮，系统显示“数据链接属性”对话框，如图1.5所示。

选择“连接”选项卡，进行设置，最后单击“确定”按钮。

图1.5“数据链接属性”对话框
(4)设置ADODC的RecordSource属性，打开“属性页”，如图1.6所示。

图1.6 属性页
2、系统主界面
系统主界面表单主要代码：
‘学生信息查询
Private Sub Command1_Click() stusearch.Show
End Sub
‘学生信息修改
Private Sub Command2_Click() addstu.Show
End Sub
‘学生成绩录入
Private Sub Command3_Click() addstuscore.Show
End Sub
项目2 学生信息查询
程序界面：
学生信息查询如图1.7所示：
图1.7 学生信息查询界面
主要功能：
可以满足简单查询的需要，什么条件也不输入，则分页显示所有记录。

可以输入条件进行简单的模糊查询，各条件之间为与的关系。

在查询的结果中选择1行，双击可以查看这个学生的具体选课信息。

创建过程：
（1）在窗体上放入ADODC，起名为stuado；放入DataGrid，起名为studg；同时放入2个文本框（stuxh和stuxm）、1个下拉列表框（stuzy）和1个命令按钮（stusch）（2）设置stuado的RecordSource属性：select * from xs
（3）设置studg的DataSource属性为stuado
实现过程：
开始打开表单时，由于控件属性设置的初值，所以显示所有记录。

当输入查询条件后，单击“查询”按钮，则调用makesqlstr()函数产生查询字符串，然后重新设置控件的属性，控件显示查询结果集。

当专业改变时调用stuzy_Click()来分别显示所选的专业学生记录。

1、学生信息查询
主要代码：
Dim sqlstr As String
Public Sub makesqlstr()
sqlstr = ""
If Trim(stuxh) <> "" Then
sqlstr = " 学号like '%" + Trim(stuxh.Text) + "%'"
End If
If Trim(stuxm) <> "" Then
sqlstr = sqlstr + " 姓名like '%" + Trim(stuxm.Text) + "%'"
End If
If Trim(stuzy) <> "所有专业" Then
sqlstr = sqlstr + "专业名='" + Trim(stuzy.Text) + "'"
End If
End Sub
Private Sub studg_DblClick()
showstukc.stukcado.RecordSource = "select 姓名,课程名,成绩,学分from xs, kc, xs_kc " & " where xs.学号= xs_kc.学号and kc.课程号= xs_kc.课程号" & " and xs.学号= '" + stuado.Recordset("学号") + "'"
showstukc.stukcado.Refresh
showstukc.Show
stusearch.Enabled = False
End Sub
Private Sub stuzy_Click()
makesqlstr
stuado.RecordSource = "select * from xs where " & sqlstr + "and 专业名= '" + Trim(stuzy.Text) + "'"
stuado.Refresh
Private Sub stusch_Click()
makesqlstr
stuado.RecordSource = "select * from xs where " & sqlstr
stuado.Refresh
studg.Refresh
End Sub
2、学生课程成绩情况
程序界面：
图1.8 学生课程成绩情况
创建过程：
（1）在窗体上放入ADODC，起名为stukcado；放入DataGrid，起名为stukcdg
（2）设置stukcado的ConnectionString属性
（3）设置stukcado的RecordSource属性select * from xs
（4）设置stukcdg的DataSource属性为stukcado
主要代码：
Private Sub Form_Unload(Cancel As Integer) stusearch.Enabled = True
End Sub。