SQL实训报告1.docx
《SQL实训报告1.docx》由会员分享，可在线阅读，更多相关《SQL实训报告1.docx（16页珍藏版）》请在冰豆网上搜索。
SQL实训报告1
课程设计报告
课程名称SQLserver2000管理
系别：
工程技术系
专业班级：
计网0901
学号：
0911060131
姓名：
江攀
课程题目：
SQL数据库应用
完成日期：
2010年12月16日
指导老师：
师韵
2010年12月16日
课程设计目的
首先熟知SQLServer2000数据库和MicrosoftVisualBasic6.0企业版的注册方法与技能，了解SQLServer2000的体系结构；掌握使用SQLServer企业管理器创建数据库的技能与方法；掌握使用SQLServer企业管理器创建基本表的技能与方法；了解SQLServer2000查询分析器的应用方法；熟悉SQLServer2000和VisualBasic6.0的运行环境。
前后台连接。
课程设计要求
能认真独立完成实训内容；实训前做好上机实训的准备，针对实训内容，认真复习与本次实训有关的知识，完成实训内容的预习准备工作；实训后做好实训总结（包括实训过程中遇到的问题及其解决方法、实训心得体会等），并根据实训情况完成实训报告。
课程设计注意事项
1、Sqlserver数据库对应的物理文件。
2、大小的估算和设置。
3、触发器的类型。
4、触发器的约束。
课程设计内容
1、数据库的概念设计和逻辑设计。
2、数据库和数据表的创建。
3、数据查询。
4、数据库的备份。
5、数据库的导入与导出。
课程设计简要操作步骤
1、安装和配置VB前台和SQL2000后台
2、后台SQLserver2000配置，创建服务器，创建数据表
3、前台VB6.0设计登录信息窗口写入代码
4、前台VB和后台SQL2000关联，然后测试连接是否成功
5、启动前台登录窗口测试并完成所有项目
6、附录前台登录窗口代码
课程设计心得体会
此次实训，虽说时间很短，但其中的每一天都使我收获很大、受益匪浅，它极大地加深了我对一些理论知识的理解，在实践能力上也得到了提高，真正地做到了学以致用，对我来说受益非浅。
这次实训为我提供了与众不同的学习方法和学习体会，从书本中面对现实，为我将来走上社会打下了扎实的基础。
从实践操作中，我总结出一些属于自己的实践经验，社会是不会要一个一无是处的人的。
作为在校网络工程专业的学生，现在我能做的就是吸取知识，提高自身的综合素质，提高自己的职业技能，自己有了能力，到时候才会是“车到山前必有路”。
我相信在不久的未来，会有属于我自己的一片天空
课程设计评语及成绩
评语
成绩
指导教师
（签名）
2010年12月日
附：
一、MicrosoftSQLServer2000企业版和VisualBasic6.0企业版安装：
1、首先熟知SQLServer2000数据库和MicrosoftVisualBasic6.0企业版的注册方法与技能，了解SQLServer2000的体系结构；掌握使用SQLServer企业管理器创建数据库的技能与方法；掌握使用SQLServer企业管理器创建基本表的技能与方法；了解SQLServer2000查询分析器的应用方法；熟悉SQLServer2000和VisualBasic6.0的运行环境。
2、MicrosoftSQLServer2000企业版安装
这是安装成功后：
3、VisualBasic6.0企业版安装：
二、后台数据库配置管理：
【开始】—【程序】—【SQLServer】—【服务器网络实用工具】
——【客户端网络实用工具】
【企业管理器】——【sqlserver组】——【新建数据库】
【新建表】——【xsxxb】
三、前台VB配置管理：
1、设置学生信息详情数据系统
2、然后关联SQLserver2000数据库
【connectionstring】-----【使用连接字符串】---获取SQL地址然后生成…
写入代码并测试连接是否正确，｛代码附后录｝
学生信息系统是记录学生信息的数据库，不能随便每个人都进吧，呵呵，所以我又设置了一个管理登录窗口，然后将管理登录窗口连接指向学生信息系统，所以需要密码才可以进入查询学生信系统额》。
。
3、管理登录系统;
2、管理登录账户：
登录窗口和数据库连接了但还要给予密码账户》。
。
。
我们去数据库创建安全表吧
四、前台VB和后台SQLserver2000测试调配：
测试成功，实训完成！
附：
一、管理登录窗口代码：
PrivateSubCommand1_Click（）
DimsqlAsString
Dimrs_loginAsNewADODB.Recordset
DimconnAsNewADODB.Connection
conn.Open"Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=Stuscore;DataSource=SOLOVE007"
IfTrim（Text1.Text）=""Then
MsgBox"用户名不能为空，请重新输入！
"
Text1.SetFocus
Else
sql="select*fromadminwhereuserl='"&Trim（Text1.Text）&"'"
rs_login.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_login.EOF=TrueThen
MsgBox"没有这个用户,请重输入！
",vbOKOnly+vbExclamation,""
Text1.Text=""
Text1.SetFocus
Else
UserName=Text1.Text
IfTrim（rs_login.Fields
（1））=Trim（Text2.Text）Then
UnloadMe
学生信息详情.Show
Else
MsgBox"密码不正确,请重输入！
",vbOKOnly+vbExclamation,""
Text2.SetFocus
Text2.Text=""
EndIf
EndIf
EndIf
cnt=cnt+1
Ifcnt=3Then
UnloadMe
EndIf
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubForm_Load（）
cnt=0
EndSub
二、学生信息详情系统：
PrivateSubCommand1_Click（）
DimmynumberAsString
mynumber=InputBox$（"请输入学号（4位）","学号搜索"）'输入搜索的学号
Adodc1.Recordset.MoveFirst
'将记录移至第一条
Ifmynumber<>""Then
mynumber="sno='"&mynumber&"'"
'组合搜索字符串
Adodc1.Recordset.Find（mynumber）
'寻找符合学号的记录
IfAdodc1.Recordset.EOFThen
'没找到，输出提示信息
MsgBox"没有该学生！
"
EndIf
EndIf
EndSub
PrivateSubCommand2_Click（）
DimiAsInteger
OnErrorGoToapperr
Adodc1.Recordset.AddNew'添加新纪录
Fori=0To5
Text1（i）.Text=""'清除数据窗口
Next
Text1（0）.SetFocus'将焦点设置在Text1（0）
savecancel
ExitSub
apperr:
MsgBoxErr.Description
EndSub
PrivateSubCommand3_Click（）
DimsAsString
OnErrorGoTodelerr
s=MsgBox（"确定要删除吗?
",vbQuestion+vbOKCancel,"确定删除！
"）'创建删除确认窗口
Ifs=1Then'确定删除一条记录
Adodc1.Recordset.Delete'删除记录
Adodc1.Recordset.MoveNext'移至下一条记录
IfAdodc1.Recordset.RecordCount>0Then
'是否还有记录
IfAdodc1.Recordset.EOFThen
'是否移记录指针到尽头
Adodc1.Recordset.MoveLast'移至最后一条记录
EndIf
EndIf
EndIf
ExitSub
delerr:
MsgBoxErr.Description
EndSub
PrivateSubCommand4_Click（）
DimsAsString
OnErrorGoToupdateerr
Adodc1.Recordset.Update
Adodc1.Refresh
initial_button
ExitSub
updateerr:
MsgBoxErr.Description
EndSub
PrivateSubCommand5_Click（）
OnErrorGoTocancelerr
Adodc1.Recordset.CancelUpdate
initial_button
ExitSub
cancelerr:
MsgBoxErr.Description
EndSub
PrivateSubCommand6_Click（）
End
EndSub
PublicSubsavecancel（）
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=True
Command5.Enabled=True
Command6.Enabled=False
EndSub
PublicSubinitial_button（）
IfAdodc1.Recordset.RecordCount=0Then
Command1.Enabled=False
Command2.Enabled=True
Command3.Enabled=False
Command4.Enabled=False
Command5.Enabled=False
Command6.Enabled=True
Else
Command1.Enabled=True
Command2.Enabled=True
Command3.Enabled=True
Command4.Enabled=False
Command5.Enabled=False
Command6.Enabled=True
EndIf
EndSub
PrivateSubForm_Load（）
initial_button
EndSub
升级会员 