数据库设计与应用开发

1、武汉工程大学计算机科学与工程学院数据库系统概论实验报告专业班级11网工1-2实验地点计算机大楼423机房学生学号指导教师学生姓名实验时间实验项目实验3数据库设计与应用开发（6学时）实验类别操作性（）验证性（）设计性（）综合性（“）其它（）1.依照数据库设计的方法，完成学生管理系统的数据库设计。实验2.掌握程序设计语言和 SQL-Server的连接方法。目的3.建立简单的数据库访问界面。掌握数据库应用系统开发的基本方法。及要 求成绩评定表类另S评分标准分值得分合计上机表现积极出勤、遵守纪律主动完成实验设计任务30分程序代码比较规范、基本正确功能达到实验要求30分实验报告及时递交、填写规范内容完整

2、、体现收获40分说明：评阅教师：日期： 2013 年月日实验内容实验内容：依照学生管理系统的要求，完成如下任务1. 设计适合此应用需求的规范化的数据库。2. 学习如何进行数据库连接。4.制作一个简单的数据库访问程序。（DELPHI、VB、PB 等）要求能完成下列处理要求：1.学生信息的增、删、改及查询操作。2选课和课程信息的系列操作。实验步骤：一、VB连接SQL Server数据库方法一：1）打开VB，新建一个“标准EXE”。2) 在“工程”里面选择“部件”，添加 “Microsoft ADO Data Control 6.0(SP6)和“ Microsoft DataGrid Control

3、 6.0(SP6)”，点击“确定”。部件控件论匚十塞I可临入对琼IMlA-£= C A -E. E. E AL尸匚孕 0 ACoirh.lL9 131 M m D&t Central B CPBJiPrJcr Ij-E. Oi Ft 亡 F |j£ 0! E t El f LJ £. !Li f t Z Ci-E. £fe f t. 匚Fa*Ea Ct -£ -s： £b ft £Z It" O -E £b f -t c: h a = a £"宅 EtCb-EO CtAg：-&

4、#187;ri. t C an.ir ol 2 . C fiJL AXkdlfi CAiklLir aZL 日 OChar t CaEktol B O CSF4) (DU _ CafTliTTi iCo FL-tir Cbl IB . C ijfTiirrion T1 i aJ. o g. C Qn. tir al 巳” DTl a.t_-A. Bcuxud. Gtr i N CaxklLir oZL 5_ O D*.t_a BoujxdL I_± E.t. CaiklLir ol- = Br. CE *. 1laGkr 1 d Corkli ol Ef. (2PB51H a.t_

5、aL.1 e t. C Aikt-ir =_= B. i口 (SP3 JTl a. t_ wK wp q sl 1l C cmlLir ol 已.O £! "*m=询览CB>.-只显方苛五5工5! CS3Mi croaoft. AUC U圧比县 匚onrol 6. O C5F6>IDiLJEBB?定位:匚:WINBOWS =v= 32MSAJDOBC. OCX应用（AJ3）在左侧工具中双击Adodc控件和DataGrid控件并将其放在合适的位置4）右击Adodc1，在弹出的下拉菜单中选择 “ADODC属性”,出现属性页，选择“使用连接字符串”，点击“生成”，选择

6、“ Microsoft OLE DB Provider for SQL Server ”，点击下一步。P班昭施压庙性I扌是供裡序1至按I丙領 I所育3XAC3P已五A DDTXOO口0MMMMDBrx-J- J a d aT-Fpl'mFFPsu一ss5）在“数据链接属性”中输入如图所示信息，点击确定6）点击“测试连接”7）在Forml空白处双击鼠标左键，弹出代码编辑窗口8）在编辑窗口输入如下代码。Private Sub DataGrid1_Click（）Adodcl.Visible = FalseAdodc1.RecordSource = "select * from St

7、ude nt"AdodcI.RefreshSet DataGridl.DataSource = Adodcl.RecordsetDataGridl.RefreshEnd Sub9）点击“运行”，则连接到JXGL数据库的Student表，出现如图所示的结果10）连接Course表和SC表只需将代码中的表名修改即可，得到如下结果VB和JXGL数据库Course表连接结果：VB和JXGL数据库SC表连接结果:1. FoxtkI二、VB连接SQL Server数据库方法二以及数据库的访问程序:（一） VB连接SQL Server数据库：1）打开控制面板，双击“数据源”图标。 WfJXJlJt

8、&lfxlJu：t+ qZJ Mtll 虫) 豪看 0)收ME (ASXA<WWi QP腳/ ' 3f索 I： 立件夾。方血-,，加Afi-* 17共豪止匕丸昨純耳W便卫血址Ijij|-M VXMon 一话伽硏直屯 I* mi cro«ort »ZT i TTjk Pa- MTi*w-&rh 2 I3S4 "-2 ）在“ ODBC数据源管理器”中选择“系统 DSN ”，点击“添加”按钮，出现“创建新数 据源页面”，选择添加SQL Server。3 ）在创建到SQL Server的新数据源中输入“数据源名称”，选择我们需要的服 务器类型

9、。4）在“创建到SQL Server的新数据源”中选择“使用网络登录ID的WindowsNT验证”5 ）在“更改默认的数据库为（D）”选择我们所需的数据源名称，点击“下一步”，再点击“完成”。6）点击“测试数据源”，出现“测试成功”，则连接成功（二）数据库的访问程序：1、对数据库的查询：1）双击“ Adodc控件”，添加如图所示的控件w i +'S 1b LKih I2）右击“ Adodc控件”设置其属性如下所示3）在右侧属性-Forml 中分别设置 Textl的DataSource 为“ AdodclDataField 为 “Sno ”，Text2 的 DataSource 为“ A

10、dodcl ”，DataField 为“Sname ”，Text3 的 DataSource 为“Adodcl ”，DataField 为“Ssex”。4）点击VB中的“运行”按钮，则可以成功查询Student表中学生的信息。5）点击“ Adodc控件”中向右的图标，则可以查询到所有学生的信息2、对数据库中数据的添加:1 ）在VB中新建一个窗体，如图所示H酵 al Min -jtiVI田加：T« Ila检）ELJiina*3 iii a ；* 位）elr a r 工且 业ig匸1 ZfflHtiQj'i«i“ HE直4修* !川£卞1曲.口NT nuu 岷

11、讦I-JLl”En 3 C_i工!w iy -H 出& JTwl CFgL）Fw< r*r« ifry理血 | flf对HBF IAppaajr *"：Aii* PrF.a-r2）在左侧工具中双击“ Adodc控件”和“ DataGrid控件”并将其放在合适的位置3）对“ Adodc控件”属性的设置和前面相同 4）双击退出按钮，对此按钮进行编程工丹口 dMI >?)齐Hl 申JILDK 师rir <X3 Z* iT I惆徉理ir 平利LiI IIJ-E “0开匸illF VM& r mi rr i rtnfl 9 ibf I窝!ftiV&q

12、uot;rM-p-h Mi* U- =41-3T> *Jk：L j-v. jC ip Vtl ! d n>- ifir fE-. J !"S Nt llnse- PA 亠心 i . _l n4 -flilf srMrF.Tria1.1 E"J49 .-rar.Bf. -ftiir bJ-.fI." 1. b ir nta5）对Forml加入如图所示的按钮J 17+.L )甲Ju匿I- Xfii. -Vi Erifl-n 1Das ivEiftl叵1声1室 幷 址)ihh】 uh3>.e >xn le>招 It IE.J衣Lrt边：！H

13、flQ) 9H1B4P KER H'i> XM q：j 常 砂1何虽)事门 走)站 0L e QSB.杞 1K1 C a»时脅嶋普湄包工1=1 *sa =«*寸I.SI-G 44Kl_ IlLlfXj 144 工土議 HWS缶下斗序I HEWEPF 匚 cw- u>.-14內AppR-W W.C4-:to-1-pr1 1 *J#HHI：:ClP.hifkIZ B-aD*f hhI r*i ,.Du E*t-l-ii-ird aiiar CVk6« 0DovtiT L< tur«-HiC-Trl Dr«|I e-aa.i

14、-M-Trl JU - P1BUV1宁6）双击新添加的各个按钮对其编程:Private Sub Comma nd1_Click()Form.ShowEnd SubPrivate Sub Comma nd2_Click() tex_S no .Text =""tex_S name.Text =""tex_Ssex.Text =""AdodcI.Refreshcmd_add.E nabled = False'添加数据按钮禁用cmd_save.E nabled = True ' 保存数据按钮启用 End SubPrivate

15、 Sub Comma nd3_Click()If tex_S no .Text = "" ThenMsgBox ("请输入学号")ElseIf tex_S name.Text = "" The nMsgBox ("请输入姓名")ElseIf tex_Ssex.Text = "" The nMsgBox ("请输入性别")ElseAdodc1.Recordset("Adodc1.Recordset("Adodc1.Recordset("学号&quo

16、t;)=tex_Sno.T ext 姓名")=tex_S name.Text 性别")=tex_Ssex.Textcmd_add.E nabled = True cmd_save.E nabled = FalseEnd IfEnd SubPrivate Sub Comma nd4_Click()Uni oad Form1Un load Form2End Sub7) 编写好程序后即可实现对该数据库中学生信息的添加实验总结在本次数据库实验中，我将数据库中的理论知识，运用到实践中来。同时我也遇到很多困难，在解决它们的同时我学到了很多，受益匪浅，特别是如何 分析、建立、开发一个系统。在实验中我熟练掌握了常用控件的添加、窗体的调试、控件的布局以及其 对应属性的设置！并且对我们不了解的 VB代码有