sql server综合应用.docVIP

（综合应用）实训 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，起名为stuadostuxh和stuxm）、1个下拉列表框（stuzy）和1个命令按钮（stusch） （2）设置stuado的RecordSource属性：select * from xs （3）设置studg的DataSource属性为stuado 实现过程： 开始打开表单时，由于控件属性设置的初值，所以显示所有记录。当输入查询条件后，单击“查询”按钮，则调用makesqlstr()函数产生查询字符串，然后重新设置控件的属性，控件显示查询结果集。当专业改变时调用stuzy_Click()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 s