数据库实验报告3.doc

.武 汉 工 程 大 学计算机科学与工程学院数据库原理与应用实验报告专业班级实验地点计算机大楼423机房学生学号指导教师刘晓华学生姓名实验时间课内6学时实验项目实验3 数据库设计与应用开发（6学时）实验类别操作性（） 验证性（） 设计性（ ） 综合性（ ） 其它（ ）实验目的及要求1.依照数据库设计的方法，完成学生管理系统的数据库设计。2.掌握程序设计语言和SQL-Server的连接方法。3.建立简单的数据库访问界面。掌握数据库应用系统开发的基本方法。成 绩 评 定 表类 别评 分 标 准分值得分合 计上机表现积极出勤、遵守纪律主动完成实验设计任务30分程序代码比较规范、基本正确功能达到实验要求30分实验报告及时递交、填写规范内容完整、体现收获40分说明： 评阅教师： 日 期： 2013 年 月 日实 验 内 容实验内容：依照学生管理系统的要求，完成如下任务 1.设计适合此应用需求的规范化的数据库。2.学习如何进行数据库连接。4.制作一个简单的数据库访问程序。（DELPHI、VB、PB等）要求能完成下列处理要求：1.学生信息的增、删、改及查询操作。2.选课和课程信息的系列操作。 代码：1、Private Sub Command1_Click()Form1.ShowEnd SubPrivate Sub Command2_Click()Form2.ShowEnd SubPrivate Sub Command3_Click()Form3.ShowEnd Sub2、Private Sub Command1_Click()Form1.ShowEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Adodc1.RefreshAdodc1.Recordset.AddNewCommand2.Enabled = False 添加数据按钮禁用Command3.Enabled = True 保存数据按钮启用End SubPrivate Sub Command3_Click()If Text1.Text = Then MsgBox (请输入学号)ElseIf Text2.Text = Then MsgBox (请输入姓名)ElseIf Text3.Text = Then MsgBox (请输入性别)Else Adodc1.Recordset(Sno) = Text1.Text Adodc1.Recordset(Sname) = Text2.Text Adodc1.Recordset(Ssex) = Text3.Text Command2.Enabled = True 添加数据按钮禁用Command3.Enabled = False 保存数据按钮启用End IfEnd SubPrivate Sub Command5_Click()Unload Form1End SubPrivate Sub Form_Load()End Sub3、Private Sub Command1_Click()Form1.ShowEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Adodc1.RefreshAdodc1.Recordset.AddNewCommand2.Enabled = False 添加数据按钮禁用Command3.Enabled = True 保存数据按钮启用End SubPrivate Sub Command3_Click()If Text1.Text = Then MsgBox (请输入学号)ElseIf Text2.Text = Then MsgBox (请输入姓名)ElseIf Text3.Text = Then MsgBox (请输入性别)Else Adodc1.Recordset(Cno) = Text1.Text Adodc1.Recordset(Cname) = Text2.Text Adodc1.Recordset(Cpon) = Text3.Text Command2.Enabled = True 添加数据按钮禁用Command3.Enabled = False 保存数据按钮启用End IfEnd SubPrivate Sub Command5_Click()Unload Form1Unload Form2Unload Form3End SubPrivate Sub Form_Load()End Sub4、Private Sub Command1_Click()Form1.ShowEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Adodc1.RefreshAdodc1.Recordset.AddNewCommand2.Enabled = False 添加数据按钮禁用Command3.Enabled = True 保存数据按钮启用End SubPrivate Sub Command3_Click()If Text1.Text = Then MsgBox (请输入学号)ElseIf Text2.Text = Then MsgBox (请输入姓名)Else Adodc1.Recordset(Sno) = Text1.Text Adodc1.Recordset(Cno) = Text2.Text Command2.Enabled = True 添加数据按钮禁用Command3.Enabled = False 保存数据按钮启用End IfEnd SubPrivate Sub Command5_Click()Unload Form1Unload Form2Unload Form3End SubPri