数据库设计与应用开发

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

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

3、osoft ADO Data Control 6.0(SP6) 和“ Microsoft DataGrid Control 6.0(SP6)”，点击“确定”。 部件 控件论匚十塞I可临入对琼I Ml A-= C A -E. E. E AL尸匚孕 0 ACoirh.lL9 131 M m D&t Central B CPBJi PrJ cr 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 宅 Et Cb-EO Ct Ag：-ri

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

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

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

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

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

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

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

11、工!w iy -H 出 & JTwl CFgL） Fw?)齐Hl 申JILDK 师 rir *Jk：L j-v. jC ip Vtl ! d n- i fir f E-. J !S Nt llnse- P A 亠心 i . _l n 4 -flilf srM rF.Tria 1.1 EJ 49 .-rar.Bf. -ftiir bJ-.f I. 1. b ir nta 5）对Forml加入如图所示的按钮 J 17+.L ) 甲J u匿 I- Xfii. - Vi Erifl-n 1 Das iv Eiftl 叵1声1 室 幷 址)ihh】 uh3.e xn le 招 It IE.J 衣Lrt边

12、：！ HflQ) 9H1B4P KER Hi XM q：j 常 砂1何虽)事门 走) 站 0L e Q SB.杞 1 K1 C a 时脅嶋普湄包工1=1 *sa =* 寸I.SI-G 44K l_ IlLlfX j 144 工土議 HWS 缶下斗序I HEWEPF 匚 cw- u.-14內 AppR-W W.C4 -:to -1-pr 1 1 *J#HHI：:ClP. hifkI Z B-a D*f hhI r*i ,. Du E*t-l-ii-ird aiiar CVk6 0 DovtiT L tur -HiC-Trl Dr|I e-aa. i-M-Trl J U - P1BUV1宁 6）双

13、击新添加的各个按钮对其编程: Private Sub Comma nd1_Click() Form.Show End Sub Private Sub Comma nd2_Click() tex_S no .Text =tex_S name.Text = tex_Ssex.Text = AdodcI.Refresh AdodcI.Recordset.AddNew cmd_add.E nabled = False添加数据按钮禁用 cmd_save.E nabled = True 保存数据按钮启用 End Sub Private Sub Comma nd3_Click() If tex_S no .

14、Text = Then MsgBox (请输入学号) ElseIf tex_S name.Text = The n MsgBox (请输入姓名) ElseIf tex_Ssex.Text = The n MsgBox (请输入性别) Else Adodc1.Recordset( Adodc1.Recordset( Adodc1.Recordset( 学号)=tex_Sno.T ext 姓名)=tex_S name.Text 性别)=tex_Ssex.Text cmd_add.E nabled = True cmd_save.E nabled = False End If End Sub Private Sub Comma nd4_Click() Uni oad Form1 Un load Form2 End Sub 7) 编写好程序后即可实现对该数据库中学生信息的添加 实验总结 在本次数据库实验中，我将数据库中的理论知识，运用到实践中来。同 时我也遇到很多困难，在解决它们的同时我学到了很多，受益匪浅，特别是如何 分析、建立、开发一个系统。 在实验中我熟练掌握了常用控件的添加、窗体的调试、控件的布局以及其 对应属性的设置！并且对我们不了解的 VB代码有了一定的了解。 由于开始对VB和SQL Serve