SQL实训报告1.doc

Windows server2003 服务器实训课 程 设 计 报 告课程名称 SQLserver2000管理 系 别： 工程技术系 专业班级： 计网xxxxx 学 号： 姓 名： 课程题目： SQL数据库应用 完成日期： 20 年 月 日 指导老师： 20 年 月 日课 程 设 计 目 的首先熟知SQL Server 2000数据库和Microsoft Visual Basic 6.0 企业版的注册方法与技能，了解SQL Server 2000的体系结构；掌握使用SQL Server企业管理器创建数据库的技能与方法；掌握使用SQL Server企业管理器创建基本表的技能与方法；了解SQL Server 2000查询分析器的应用方法；熟悉SQL Server 2000和Visual Basic 6.0的运行环境。前后台连接。课 程 设 计 要 求能认真独立完成实训内容；实训前做好上机实训的准备，针对实训内容，认真复习与本次实训有关的知识，完成实训内容的预习准备工作；实训后做好实训总结（包括实训过程中遇到的问题及其解决方法、实训心得体会等），并根据实训情况完成实训报告。课 程 设 计 注 意 事 项1、Sql server数据库对应的物理文件。2、大小的估算和设置。3、触发器的类型。4、触发器的约束。课 程 设 计 内 容1、数据库的概念设计和逻辑设计。2、数据库和数据表的创建。3、数据查询。4、数据库的备份。5、数据库的导入与导出。课 程 设 计 简 要 操 作 步 骤1、安装和配置VB前台和SQL2000后台2、后台SQLserver2000配置，创建服务器，创建数据表3、前台VB6.0设计登录信息窗口写入代码4、前台VB和后台SQL2000关联，然后测试连接是否成功5、启动前台登录窗口测试并完成所有项目6、附录前台登录窗口代码课 程 设 计 心 得 体 会此次实训，虽说时间很短，但其中的每一天都使我收获很大、受益匪浅，它极大地加深了我对一些理论知识的理解，在实践能力上也得到了提高，真正地做到了学以致用，对我来说受益非浅。这次实训为我提供了与众不同的学习方法和学习体会，从书本中面对现实，为我将来走上社会打下了扎实的基础。从实践操作中，我总结出一些属于自己的实践经验，社会是不会要一个一无是处的人的。作为在校网络工程专业的学生，现在我能做的就是吸取知识，提高自身的综合素质，提高自己的职业技能，自己有了能力，到时候才会是 “车到山前必有路”。我相信在不久的未来，会有属于我自己的一片天空课 程 设 计 评 语 及 成 绩评 语成 绩指导教师（签 名）2010年12月 日附：一、 Microsoft SQL Server2000企业版和Visual Basic 6.0 企业版安装：1、 首先熟知SQL Server 2000数据库和Microsoft Visual Basic 6.0 企业版的注册方法与技能，了解SQL Server 2000的体系结构；掌握使用SQL Server企业管理器创建数据库的技能与方法；掌握使用SQL Server企业管理器创建基本表的技能与方法；了解SQL Server 2000查询分析器的应用方法；熟悉SQL Server 2000和Visual Basic 6.0的运行环境。2、 Microsoft SQL Server2000企业版安装这是安装成功后：3、 Visual Basic 6.0 企业版安装：二、 后台数据库配置管理： 【开始】【程序】【SQL Server】【服务器网络实用工具】【客户端网络实用工具】【企业管理器】【sql server组】【新建数据库】【新建表】【xsxxb】三、 前台VB配置管理：1、 设置学生信息详情数据系统2、 然后关联SQLserver2000数据库【connectionstring】-【使用连接字符串】-获取SQL地址然后生成写入代码并测试连接是否正确，代码附后录学生信息系统是记录学生信息的数据库，不能随便每个人都进吧，呵呵，所以我又设置了一个管理登录窗口，然后将管理登录窗口连接指向学生信息系统，所以需要密码才可以进入查询学生信系统额。3、 管理登录系统;2、管理登录账户： 登录窗口和数据库连接了但还要给予密码账户。我们去数据库创建安全表吧四、 前台VB和后台SQLserver2000测试调配： 测试成功，实训完成！附：一、管理登录窗口代码：Private Sub Command1_Click()Dim sql As StringDim rs_login As New ADODB.RecordsetDim conn As New ADODB.Connectionconn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Stuscore;Data Source=SOLOVE007If Trim(Text1.Text) = ThenMsgBox 用户名不能为空，请重新输入！Text1.SetFocusElsesql = select * from admin where userl= & Trim(Text1.Text) & rs_login.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_login.EOF = True ThenMsgBox 没有这个用户,请重输入！, vbOKOnly + vbExclamation, Text1.Text = Text1.SetFocusElseUserName = Text1.TextIf Trim(rs_login.Fields(1) = Trim(Text2.Text) ThenUnload Me学生信息详情.ShowElseMsgBox 密码不正确,请重输入！, vbOKOnly + vbExclamation, Text2.SetFocusText2.Text = End IfEnd IfEnd Ifcnt = cnt + 1If cnt = 3 ThenUnload MeEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()cnt = 0End Sub二、学生信息详情系统：Private Sub Command1_Click()Dim mynumber As String mynumber = InputBox$(请输入学号(4位), 学号搜索) 输入搜索的学号Adodc1.Recordset.MoveFirst 将记录移至第一条If mynumber Then mynumber = sno= & mynumber & 组合搜索字符串Adodc1.Recordset.Find (mynumber) 寻找符合学号的记录 If Adodc1.Recordset.EOF Then 没找到，输出提示信息 MsgBox 没有该学生！ End IfEnd IfEnd SubPrivate Sub Command2_Click()Dim i As IntegerOn Error GoTo apperrAdodc1.Recordset.AddNew 添加新纪录For i = 0 To 5Text1(i).Text = 清除数据窗口NextText1(0).SetFocus 将焦点设置在Text1(0)savecancelExit Subapperr: MsgBox Err.DescriptionEnd SubPrivate Sub Command3_Click()Dim s As String On Error GoTo delerrs = MsgBox(确定要删除吗?, vbQuestion + vbOKCancel, 确定删除！) 创建删除确认窗口If s = 1 Then 确定删除一条记录Adodc1.Recordset.Delete 删除记录Adodc1.Recordset.MoveNext 移至下一条记录 If Adodc1.Recordset.RecordCount 0 Then 是否还有记录 If Adodc1.Recordset.EOF Then 是否移记录指针到尽头Adodc1.Recordset.MoveLast 移至最后一条记录 End If End IfEnd IfExit Subdelerr:MsgBox Err.DescriptionEnd SubPrivate Sub Command4_Click()Dim s As StringOn Error GoTo updateerrAdodc1.Recordset.UpdateAdodc1.Refreshinitial_buttonExit Subupdateerr:MsgBox Err.DescriptionEnd SubPrivate Sub Command5_Click()On Error GoTo cancelerrAdodc1.Recordset.CancelUpdateinitial_buttonExit Subcancelerr: MsgBox Err.DescriptionEnd SubPrivate Sub Command6_Click()EndEnd SubPublic Sub savecancel()Command1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = FalseEnd SubPublic Sub initial_button()If Adodc1.Recordset.RecordCount = 0 ThenCommand1.Enabled = FalseCommand2.Enabled = TrueCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = False