信息查询

信息科学技术系软件类课程上机实验报告
一、实验目的
1．掌握使用控件显示数据库表数据。

2．掌握查询的基本方法。

二、实验内容与要求
系统主界面：
学生信息查询程序界面：
主要功能：可以满足简单查询的需要，什么条件也不输入，则分页显示所有记录。

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

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

三、实验使用环境
VB 6.0 ，SQL SERVER 2000
四、调试过程(实验步骤)
（一）、设计系统主界面窗体
1、添加3个按钮
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
（二）、设计学生信息查询窗体
1、在窗体上添加控件，连接数据库
步骤：
（1）新建窗体，命名为StuSearch，在窗体上放入ADODC，DataGrid并命名为StuADO，StuDG，同时放入2个文本框（命名为StuXH和StuXM）
和1个下拉列表框（命名为StuZY）。

（2）设置StuADO的ConnectionString属性：
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial
Catalog=xscj;Data Source=d41\SQLDB
（3）设置StuADO的RecordSourse属性：
命令类型：8-adCmdUnknown
命令文本：s
（4）设置StuDG的DataSourse属性为StuADO。

2、学生信息查询窗体主要代码：
//在Form_Load事件中添加专业列表项
Private Sub Form_Load()
StuZY.AddItem "所有专业"
StuZY.AddItem "计算机"
StuZY.AddItem "通信工程"
StuZY.AddItem "信息管理"
End Sub
//双击显示学生课程信息(ShowStuKC是学生课程成绩情况窗体，StuKCADO是该窗体上的控件，参照（三）、设计学生课程成绩情况窗体的相关内容) Private Sub StuDG_DblClick()
ShowStuKC.StuKCADO.RecordSource = "select 姓名,课程名,成绩,学分from s,sc,c where s.学号=sc.学号and c.课程号=sc.课程号and s.学号='" +
Trim(StuADO.Recordset ("学号")) + "'"
ShowStuKC.StuKCADO.Refresh
ShowStuKC.Show
StuSearch.Enabled = False
End Sub
//单击“查询”按钮执行模糊查询（StuSch是“查询”按钮的名字）
Private Sub StuSch_Click()
Dim Sqlstr As String
Sqlstr = ""
If Trim(StuXH) <> "" Then
Sqlstr = " and 学号like '%" + Trim(StuXH.Text) + "%'"
End If
If Trim(StuXM) <> "" Then
Sqlstr = Sqlstr + " and 姓名like '%" + Trim(StuXM.Text) + "%'"
End If
If Trim(StuZY) <> "所有专业" Then
Sqlstr = Sqlstr + " and 专业='" + Trim(StuZY.Text) + "'"
End If
StuADO.RecordSource = "select * from s where 学号<> ''" & Sqlstr
StuADO.Refresh
End Sub
（三）、设计学生课程成绩情况窗体
1、在窗体上添加控件，连接数据库
步骤：
（1）新建窗体，命名为ShowStuKC，在窗体上放入ADODC（设置属性为不可见），DataGrid并分别命名为StuKCADO，StuKCDG。

（2）设置StuKCADO的ConnectionString属性：
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial
Catalog=xscj;Data Source= d41\SQLDB
（3）置StuKCADO的RecordSourse属性：
命令类型：8-adCmdUnknown
命令文本：select 姓名,课程名,成绩,学分from s,sc,c where s.学号=sc.学号and c.课程号=sc.课程号
（4）设置StuKCDG的DataSourse属性为StuKCADO。

2、学生课程成绩窗体主要代码：
Private Sub Form_Unload(Cancel As Integer)
StuSearch.Enabled = True
End Sub
五、总结
（注释：写出个人的心得体会，不能千篇一律。

）
六、附录。