SQL数据库实习报告.doc

《SQL数据库实习报告.doc》由会员分享，可在线阅读，更多相关《SQL数据库实习报告.doc（19页珍藏版）》请在三一办公上搜索。

1、一、实习目的 1.了解SQL Server 2000服务器。2.掌握企业管理器的基本使用方法。3.掌握查询分析器的基本使用方法。4.掌握数据库、表对象。5.掌握使用企业管理器创建、查看、修改和删除表。6.掌握学生信息管理系统的创建和使用。二、实习环境 1.Windows xp操作系统。 2.SQL Server 2000数据库。三、实习内容 1.了解SQL Server 2000企业管理器。 2.了解SQL Server 2000 查询分析器。 3. 使用企业管理器创建、查看、修改和删除表。4.使用企业管理器对表中记录进行修改、删除操作。 5.创建学生信息管理系统。 6.对新建数据库完成修改、

2、查看、删除操作。 四、实习步骤 1.选择“开始”“程序”Microsoft Visual Basic 6.0”命令，启动数据库。 2.选择“文件”“新建工程”，在数据库中建立一个工程文件。右键单击“窗体”，选择“添加”“添加窗体”。 3.在添加的窗体中，把caption属性改为“学生信息管理系统”，在窗体中，添加各个控件。如下：事件代码：1. 双击灰色区域，在“Private Sub Form_Load()”中定义变量i1。2. 双击登录按钮。在“Private Sub Command1_Click()”中，写入：If i = 4 ThenMe.HideElsei = i + 1Dim cn

3、As New ADODB.Connectioncn.ConnectionString = driver=sql server;server=pc77;uid=yn;pwd=123;data=mastercn.OpenDim rs As New Recordsetrs.Open select * from gyh where xm= & Trim(Text1.Text) & and mm= & Trim(Text2.Text) & , cn, adOpenStatic, adLockReadOnly, adCmdTextIf Text1.Text = Thenm = MsgBox(用户为空, v

4、bExclamation)Text1.SetFocusElseIf Text2.Text = Thenm = MsgBox(密码为空, vbExclamation)Text2.SetFocusElseIf rs.EOF = True And rs.BOF = True Thenm = MsgBox(用户不存在，或密码有误, vbExclamation)Text1.Text = Text2.Text = Text1.SetFocusElsezjl = Trim(Text1.Text)Form2.ShowMe.HideEnd IfEnd IfEnd IfEnd Ifrs.Closecn.Close

5、4.新建“总菜单”窗体，在窗体中右键单击“菜单编辑器”命令，在菜单编辑器中添加各个菜单，如图： 学生信息管理系统主窗体的菜单结构 系统添加用户修改密码退出系统学籍管理添加学籍信息修改学籍信息查询学籍信息班级管理添加班级信息修改班级信息课程设置添加课程信息修改课程信息设置年级信息成绩管理添加成绩信息修改成绩信息查询成绩信息帮助使用说明有关效果如下： 事件代码：1.单击“系统”“添加用户”，在Private Sub xt2_Click()中，输入“form3.Show”,用于打开“添加用户”窗体。其它窗体依次添加。2.在“退出登录”菜单中，输入“unload me”,用于关闭“学生信息管理系统。”

6、5.新建“修改密码”窗体，如图： 事件代码：1.定义模块，右键单击“窗体”，选择“添加”“添加模块”，在模块中定义变量”zjl” 2.双击“确定”按钮，在“Private Sub Command1_Click()”中输入代码，Dim cn As New ADODB.Connectioncn.ConnectionString = driver=sql server;server= pc77;uid=yn;pwd=123;data=mastercn.OpenDim rs As New Recordsetrs.Open select * from gyh where xm= & zjl & , cn

7、, adOpenKeyset, adLockPessimisticrs.Fields(mm) = Trim(Text1.Text)rs.Updaters.Clonecn.CloseMe.Hide3.在“Private Sub Command2_Click()”中输入代码，“Unload me”用于取消添加。6.打开“企业管理器”，依次展开“Microsoft SQL Servers” “SQL Server 组”“（Local）(Windows NT)” “数据库” “master”,右键单击表，选择“新建表”，写入字段，表命名为gyh，打开表，填入“xm,mm”值。7.新建“学籍表”表， 8

8、.新建“添加学籍表”窗体，如图： 事件代码： 双击“确定添加”按钮，在“Private Sub Command1_Click()”中，写入， Dim cn As New ADODB.Connectioncn.ConnectionString = driver=sql server;server= pc77;uid=yn;pwd=123;data=mastercn.OpenDim rs As New Recordsetrs.Open select * from 学籍表 where 学号= & Trim(Text1.Text) & , cn, adOpenKeyset, adLockPessimi

9、sticIf rs.EOF = False Thenm = MsgBox(学号重复, vbExclamation)Text1.Text = Text1.SetFocusElsers.AddNewrs.Fields(学号) = Trim(Text1.Text)rs.Fields(姓名) = Trim(Text3.Text)rs.Fields(性别) = Combo1.Textrs.Fields(班号) = Combo2.Textrs.Fields(联系电话) = Trim(Text6.Text)rs.Fields(出生日期) = Format(Trim(Text5.Text), yy-mm-dd

10、)rs.Fields(入校时间) = Format(Trim(Text4.Text), yy-mm-dd)rs.Fields(家庭住址) = Trim(Text7.Text)rs.Fields(备注) = Trim(Text2.Text)rs.UpdateText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text1.SetFocusEnd Ifrs.Closecn.Close 9.新建“修改学籍表”窗体， 事件代码： 1.在模块中定义， Public rs1 As

11、 New Recordset 2.在“Private Sub Form_Load()”中输入代码：Combo1.AddItem 男Combo1.AddItem 女Dim cn As New ADODB.Connectioncn.ConnectionString = driver=sql server;server= pc77;uid=yn;pwd=123;data=mastercn.OpenDim rs As New Recordsetrs.Open select * from 班级表 , cn, adOpenStatic, adLockReadOnly, adCmdTextWhile rs.

12、EOF = FalseCombo2.AddItem rs.Fields(班号)rs.MoveNextWendrs1.Open select * from 学籍表 , cn, adOpenKeyset, adLockPessimisticIf rs1.EOF = True Thenm = MsgBox(表为空, vbExclamation)ElseText1.Text = rs1.Fields(学号)Combo1.Text = rs1.Fields(性别)Combo2.Text = rs1.Fields(班号)Text4.Text = rs1.Fields(姓名)Text5.Text = rs1

13、.Fields(出生日期)Text6.Text = rs1.Fields(联系电话)Text7.Text = rs1.Fields(家庭住址)Text3.Text = rs1.Fields(备注)Text2.Text = rs1.Fields(入校时间)End If3. 双击“第一条记录”按钮，输入代码：rs1.MoveFirstText1.Text = rs1.Fields(学号)Combo1.Text = rs1.Fields(性别)Combo2.Text = rs1.Fields(班号)Text4.Text = rs1.Fields(姓名)Text5.Text = rs1.Fields(

14、出生日期)Text6.Text = rs1.Fields(联系电话)Text7.Text = rs1.Fields(家庭住址)Text3.Text = rs1.Fields(备注)Text2.Text = rs1.Fields(入校时间)4. 双击“上一条记录”按钮，输入代码：rs1.MovePreviousIf rs1.BOF = True Thenrs1.MoveLastEnd IfText1.Text = rs1.Fields(学号)Combo1.Text = rs1.Fields(性别)Combo2.Text = rs1.Fields(班号)Text4.Text = rs1.Field

15、s(姓名)Text5.Text = rs1.Fields(出生日期)Text6.Text = rs1.Fields(联系电话)Text7.Text = rs1.Fields(家庭住址)Text3.Text = rs1.Fields(备注)Text2.Text = rs1.Fields(入校时间)5. 双击“下一条记录”按钮，输入代码：rs1.MoveNextIf rs1.EOF = True Thenrs1.MoveFirstEnd IfText1.Text = rs1.Fields(学号)Combo1.Text = rs1.Fields(性别)Combo2.Text = rs1.Fields

16、(班号)Text4.Text = rs1.Fields(姓名)Text5.Text = rs1.Fields(出生日期)Text6.Text = rs1.Fields(联系电话)Text7.Text = rs1.Fields(家庭住址)Text3.Text = rs1.Fields(备注)Text2.Text = rs1.Fields(入校时间)6. 双击“最后一条记录”按钮，输入代码：rs1.MoveLastText1.Text = rs1.Fields(学号)Combo1.Text = rs1.Fields(性别)Combo2.Text = rs1.Fields(班号)Text4.Text

17、 = rs1.Fields(姓名)Text5.Text = rs1.Fields(出生日期)Text6.Text = rs1.Fields(联系电话)Text7.Text = rs1.Fields(家庭住址)Text3.Text = rs1.Fields(备注)Text2.Text = rs1.Fields(入校时间)7. 双击“修改记录”按钮，输入代码：Command1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = False8. 双击“更新记录”按钮，输入代码：rs1.Fi

18、elds(学号) = Trim(Text1.Text)rs1.Fields(性别) = Trim(Combo1.Text)rs1.Fields(班号) = Trim(Combo2.Text)rs1.Fields(入校时间) = Format(Text2.Text, yy-mm-dd)rs1.Fields(备注) = Trim(Text3.Text)rs1.Fields(姓名) = Trim(Text4.Text)rs1.Fields(出生日期) = Format(Text5.Text, yy-mm-dd)rs1.Fields(联系电话) = Trim(Text6.Text)rs1.Fields

19、(家庭住址) = Trim(Text7.Text)rs1.UpdateCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = True9. 双击“取消修改记录”按钮，输入代码：Text1.Text = rs1.Fields(学号)Combo1.Text = rs1.Fields(性别)Combo2.Text = rs1.Fields(班号)Text4.Text = rs1.Fields(姓名)Text5.Text = rs1.Fields(出生日期)Text6.Text =

20、rs1.Fields(联系电话)Text7.Text = rs1.Fields(家庭住址)Text3.Text = rs1.Fields(备注)Text2.Text = rs1.Fields(入校时间)rs1.Update10.双击“删除记录”按钮，输入代码：If rs1.EOF = False Thenrs1.Deleters1.MoveNextIf rs1.EOF = True Then rs1.MovePreviousrs1.UpdateIf rs1.EOF = True And rs1.BOF = True Thenm = MsgBox(显示提示信息, vbExclamation)El

21、seText1.Text = rs1.Fields(学号)Combo1.Text = rs1.Fields(性别)Combo2.Text = rs1.Fields(班号)Text4.Text = rs1.Fields(姓名)Text5.Text = rs1.Fields(出生日期)Text6.Text = rs1.Fields(联系电话)Text7.Text = rs1.Fields(家庭住址)Text3.Text = rs1.Fields(备注)Text2.Text = rs1.Fields(入校时间)End IfEnd If 10.新建“查询学籍表”窗体，如图： 事件代码：1. 在“Pri

22、vate Sub Form_Load()”中输入代码：MSFlexGrid1.TextMatrix(0, 0) = 学号MSFlexGrid1.TextMatrix(0, 1) = 姓名MSFlexGrid1.TextMatrix(0, 2) = 性别MSFlexGrid1.TextMatrix(0, 3) = 出生日期MSFlexGrid1.TextMatrix(0, 4) = 班号MSFlexGrid1.TextMatrix(0, 5) = 联系电话MSFlexGrid1.TextMatrix(0, 6) = 入校时间MSFlexGrid1.TextMatrix(0, 7) = 家庭住址M

23、SFlexGrid1.TextMatrix(0, 8) = 备注2. 在模块中定义变量j。3. 双击“查询”按钮，输入代码：j = 1Dim cn As New ADODB.ConnectionDim rs As New Recordsetcn.ConnectionString = driver=sql server;server=PC pc77;uid=yn;pwd=123;data=mastercn.OpenIf Check1.Value = vbChecked Thenrs.Open select * from 学籍表 where 学号= & Trim(Text1.Text) & , c

24、n, adOpenStatic, adLockReadOnly, adCmdTextElseIf Check2.Value = vbChecked Thenrs.Open select * from 学籍表 where 姓名= & Trim(Text2.Text) & , cn, adOpenStatic, adLockReadOnly, adCmdTextElseIf Check3.Value = vbChecked Thenrs.Open select * from 学籍表 where 班号= & Trim(Text3.Text) & , cn, adOpenStatic, adLockR

25、eadOnly, adCmdTextElsem = MsgBox(未查找, vbOKCancel)End IfEnd IfEnd IfMSFlexGrid1.Rows = rs.RecordCount + 1If rs.EOF = True And rs.BOF = True Thenm = MsgBox(表记录为空, vbOKCancel)ElseWhile j ”按钮中输入代码：If List1.ListIndex -1 ThenList2.AddItem List1.List(List1.ListIndex)End If3.在“”按钮中输入代码：List2.RemoveItem List

26、2.ListIndex4.在“设置课程”按钮中输入代码：Dim cn As New ADODB.Connectioncn.ConnectionString = driver=sql server;server= pc77;uid=yn;pwd=123;data=mastercn.OpenDim rs As New Recordsetrs.Open select * from 课程设置 where 年级= & Trim(Combo1.Text) & , cn, adOpenKeyset, adLockPessimisticIf rs.EOF = True And rs.BOF = True Th

27、enFor i = 1 To List1.ListCountrs.AddNewrs.Fields(年级) = Trim(Combo1.Text)rs.Fields(课程名称) = Trim(List2.List(i - 1)Next irs.UpdateEnd Ifrs.Closem = MsgBox(设置成功！, vbExclamation)Combo1.Text = 5.在“退出课程设置”按钮中输入代码：Unload me11.新建“使用说明”窗体， 在“总菜单”“使用说明”中，输入代码： Form16.show五总结。 进过本次学习，让我学到了很多知识，从数据库建立，到数据库修改，查询。学会了怎样创建学生信息管理系统。但是还有很多不足的地方，以后还有待提高。在以后的学习中，我会更加努力，艰苦学习，学到更多的知识。