sql server综合应用_sqlserver数据库应用

sql server综合应用由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“sqlserver数据库应用”。

（综合应用）实训 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 Sub2、学生课程成绩情况 程序界面：

图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