Command2.Enabled = True '添加数据按钮禁用
Command3.Enabled = False '保存数据按钮启用
End If
End Sub
Private Sub Command5_Click()
Unload Form1
End Sub
Private Sub Form_Load()
Command2.Enabled = False '添加数据按钮禁用
Command3.Enabled = True '保存数据按钮启用
End Sub
Private Sub Command3_Click()
If Text1.Text = "" Then
MsgBox ("请输入学号")
ElseIf Text2.Text = "" Then
2.掌握程序设计语言和SQL-Server的连接方法。
3.建立简单的数据库访问界面。掌握数据库应用系统开发的基本方法。
成绩评定表
类别
评分标准
分值
得分
合计
上机表现
积极出勤、遵守纪律
主动完成实验设计任务
30分
程序代码
比较规范、基本正确
功能达到实验要求
30分
实验报告
及时递交、填写规范
内容完整、体现收获
40分
武汉工程大学
计算机科学与工程学院
《数据库原理与应用》实验报告
专业班级
实验地点
计算机大楼423机房
学生学号
指导教师
刘晓华
学生姓名
实验时间
课内6学时
实验项目
实验3数据库设计与应用开发（6学时）
实验类别
操作性（）验证性（）设计性（）综合性（√）其它（）
实验目的及要求
1.依照数据库设计的方法，完成学生管理系统的数据库设计。
Command2.Enabled = False '添加数据按钮禁用
Command3.Enabled = True '保存数据按钮启用
End Sub
Private 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 If
End Sub
Private Sub Command5_Click()
Unload Form1
Unload Form2
Unload Form3
End Sub
Private Sub Form_Load()
End Sub
实验总结
通过本次试验我知道了数据库的完整实验，首先得有几个基础数据库还得有一个相连接的界面程序；在与VB做链接中方法不只有一种要逐一去试试，并且要查阅相关资料，自己才能熟练掌握。
Command2.Enabled = True '添加数据按钮禁用
Command3.Enabled = False '保存数据按钮启用
End If
End Sub
Private Sub Command5_Click()
Unload Form1
Unload Form2
Unload Form3
End SubPriva源自e Sub Form_Load()
End Sub
4、
Private Sub Command1_Click()
Form1.Show
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Adodc1.Refresh
Adodc1.Recordset.AddNew
Form1.Show
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Adodc1.Refresh
Adodc1.Recordset.AddNew
Command2.Enabled = False '添加数据按钮禁用
Command3.Enabled = True '保存数据按钮启用
End Sub
Private Sub Command3_Click()
If Text1.Text = "" Then
MsgBox ("请输入学号")
ElseIf Text2.Text = "" Then
MsgBox ("请输入姓名")
代码：
1、
Private Sub Command1_Click()
Form1.Show
End Sub
Private Sub Command2_Click()
Form2.Show
End Sub
Private Sub Command3_Click()
Form3.Show
End Sub
2、
Private Sub Command1_Click()
ElseIf Text3.Text = "" Then
MsgBox ("请输入性别")
Else
Adodc1.Recordset("Sno") = Text1.Text
Adodc1.Recordset("Sname") = Text2.Text
Adodc1.Recordset("Ssex") = Text3.Text
MsgBox ("请输入姓名")
ElseIf Text3.Text = "" Then
MsgBox ("请输入性别")
Else
Adodc1.Recordset("Cno") = Text1.Text
Adodc1.Recordset("Cname") = Text2.Text
Adodc1.Recordset("Cpon") = Text3.Text
说明：评阅教师：
日期：2013年月日
实验内容
依照学生管理系统的要求，完成如下任务
1.设计适合此应用需求的规范化的数据库。
2.学习如何进行数据库连接。
4.制作一个简单的数据库访问程序。（DELPHI、VB、PB等）
要求能完成下列处理要求：
1.学生信息的增、删、改及查询操作。
2.选课和课程信息的系列操作。
End Sub
3、
Private Sub Command1_Click()
Form1.Show
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Adodc1.Refresh
Adodc1.Recordset.AddNew