SQL实训报告1Word下载.docx
- 文档编号:2942471
- 上传时间:2023-05-01
- 格式:DOCX
- 页数:16
- 大小:1.47MB
SQL实训报告1Word下载.docx
《SQL实训报告1Word下载.docx》由会员分享,可在线阅读,更多相关《SQL实训报告1Word下载.docx(16页珍藏版)》请在冰点文库上搜索。
熟悉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的体系结构;
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
没有这个用户,请重输入!
vbOKOnly+vbExclamation,"
Text1.Text="
UserName=Text1.Text
IfTrim(rs_login.Fields
(1))=Trim(Text2.Text)Then
UnloadMe
学生信息详情.Show
密码不正确,请重输入!
Text2.SetFocus
Text2.Text="
EndIf
cnt=cnt+1
Ifcnt=3Then
EndSub
PrivateSubCommand2_Click()
End
PrivateSubForm_Load()
cnt=0
二、学生信息详情系统:
DimmynumberAsString
mynumber=InputBox$("
请输入学号(4位)"
"
学号搜索"
)'
输入搜索的学号
Adodc1.Recordset.MoveFirst
'
将记录移至第一条
Ifmynumber<
>
mynumber="
sno='
mynumber&
组合搜索字符串
Adodc1.Recordset.Find(mynumber)
寻找符合学号的记录
IfAdodc1.Recordset.EOFThen
没找到,输出提示信息
MsgBox"
没有该学生!
EndIf
DimiAsInteger
OnErrorGoToapperr
Adodc1.Recordset.AddNew'
添加新纪录
Fori=0To5
Text1(i).Text="
清除数据窗口
Next
Text1(0).SetFocus'
将焦点设置在Text1(0)
savecancel
ExitSub
apperr:
MsgBoxErr.Description
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'
移至最后一条记录
delerr:
MsgBoxErr.Description
PrivateSubCommand4_Click()
OnErrorGoToupdateerr
Adodc1.Recordset.Update
Adodc1.Refresh
initial_button
updateerr:
PrivateSubCommand5_Click()
OnErrorGoTocancelerr
Adodc1.Recordset.CancelUpdate
cancelerr:
PrivateSubCommand6_Click()
PublicSubsavecancel()
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=True
Command5.Enabled=True
Command6.Enabled=False
PublicSubinitial_button()
IfAdodc1.Recordset.RecordCount=0Then
Command2.Enabled=True
Command4.Enabled=False
Command5.Enabled=False
Command6.Enabled=True
Command1.Enabled=True
Command3.Enabled=True
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- SQL 报告