VB开发SQLServer数据库应用系统实例分析

1、数据库课程设计通过这个课程设计可以加深对这些SQL Server数据库知识的学习、理解并掌握使用应用软件开发工具开发数据库管理系统的基本方法。本课程设计的主要目的是学习和练习SQL Server数据库的实际应用，所以选择SQLServer 2000作为数据库服务器。 一、系统功能设计本课程设计模拟一个小型的教学管理系统。本系统要求实现以下主要功能：1. 安全控制假设我们将系统的用户分为如下几类：Ø 系统管理员：有系统的全部权限。Ø 教务部门：具有对学生基本数据、课程基本数据以及对教师授课数据的维护权。Ø 人事部门：具有对教师基本数据的维护权。Ø 各个系：

2、具有对学生的选课情况的维护权。Ø 普通用户：具有对数据的查询权。在实现时，将每一类用户作为一个角色实现，这样在授权时只需对角色授权，而无需对每个具体的用户授权。2. 数据操作功能数据操作功能包括对这些数据进行录入、删除、修改功能。具体如下：1) 数据录入本系统提供学生、教师、课程以及选课与授课情况的数据录入功能。且只有具有相应权限的用户才能录入相应的数据。可以录入学生的学号、姓名、系、专业、班。可以录入教师的教师号、教师名、系、研究室。可以录入课程的课程号、课程名、讲授学期、学时数。还可以录入学生选课与教师授课的相关信息。2) 数据删除只有具有相应权限的用户才能删除相应的数据。删除数

3、据时要注意表之间的关联关系，比如当某个学生退学时，在删除学生基本信息之前，应先删除此学生的全部选课情况。另外，在实际进行删除之前应该提醒用户确认是否真的要删除此数据。3) 数据修改当某些数据发生变化和某些数据录入不正确时，应该允许用户对数据库中的数据进行修改。修改数据的操作时，一般先根据一定条件查询要修改的记录，然后在对其中的某些记录进行修改，修改完后再写回到数据库中去。同数据的录入与删除一样，只有具有相应权限的用户才能修改相应的数据。4) 数据查询本系统提供以下查询功能：Ø 根据系、专业、班等信息查询学生的基本信息。Ø 根据学期查询课程的基本信息。Ø 根据部门查

4、询教师的基本信息。Ø 根据课程查询学生的选课及考试情况。Ø 根据班查询学生的选课及考试情况。Ø 根据部门、职称查询教师的授课情况。5) 数据统计Ø 统计每个部门的各职称的教师人数。Ø 统计每门课程的选课人数。Ø 按班统计每个学生的总选课分数。二、概念结构设计分析前面的系统功能要求，对于这个教学管理系统，其核心活动是课程，学生与课程之间是通过学生选课发生联系的，教师与课程之间是通过教师授课发生联系的。因此，此系统所包含的实体有：Ø 课程：用于描述一门课程的基本信息，用课程号来标识此实体。Ø 学生：用于描述一个学生的基

5、本信息，用学号来标识。它与课程是多对多的联系。Ø 教师：用于描述一个教师的基本信息，用教师号来标识。它与课程是多对多的联系。1. 实体及其属性课 程课程号课程名讲授学期学分数学 生学 号姓名 名系专 业班教 师教师号教师名系教研室2. 实体及联系课程教师学生选课 授课 m n m n 三、数据库设计1. 数据库与数据表设计1) 课程表Course（Cno，Cname，Semester，Period）课程表的结构定义如下表所示： 列名数据类型大小空值键说明Cnochar10非空主键课程号Cnamechar24非空课程名CcreditTinyint1非空学分数Semestertinyin

6、t1非空讲授学期 其中，讲授学期的取值范围为18（假设共8个学期），学分数的取值范围为110（假设学分最多为10）。2) 学生表Student（Sno，Sname，Sdept，Major，Class）列名数据类型大小空值键说明Snochar8非空主键学号Snamechar10非空姓名Sdeptchar20非空所在系Majorchar20非空专业Classchar5非空班学生表的结构定义如下表所示：3) 教师表Teacher（Tno，Tname，Tdept，Staffroom，Title）教师表的结构定义如下表所示：列名数据类型大小空值键说明Tnochar10非空主键（标识列）教师号Tnamec

7、har10非空教师名Tdeptchar20非空所在部门Staffroomchar10非空教研室Titlechar10非空职称 其中，职称的取值范围为教授，副教授，讲师，助教。4) 选课表Elective（Sno，Cno，Etype，Pgrade，Jgrade，Tgrade）选课表的结构定义如下表所示：列名数据类型大小空值键说明Snochar7非空主键（标识列）学号Cnochar10非空主键（标识列）课程号Etpyechar4非空选课类别Pgradetinyint1平时成绩Jgradetinyint1卷面成绩Tgrade总评成绩其中，学号是引用学生表的外码，课程号是引用课程表的外码，选课类别的取

8、值范围为必修，选修，重修，默认值为“必修”，平时成绩和卷面成绩的取值范围均为0100，总评成绩由平时成绩乘平时比例加卷面成绩计算得到，公式为：0.3×Pgrade0.7×Jgrade。5) 授课表Teaching（Cno，Tno，Ttype，Tnum）授课表的结构定义如下表所示：列名数据类型大小空值键说明Cnochar10非空主键（标识列）课程号Tnochar10非空主键（标识列）教师号Ttypechar6非空授课类型TnumNumeric（2，1）非空班数 其中，课程号是引用课程表的外码，教师号是引用教师表的外码，授课类别的取值范围为主讲，辅导，带实验，默认值为“主讲”。

9、 6) 用户表 Land（Usertype，password） 用户表的结构定义如下表所示：列名数据类型大小空值键说明Usertypechar10主键用户类型passwordchar10密码2. 数据完整性设计1) 主键约束、非空值约束在以上各表的定义当中已经对各表进行了主键的申明以及非空值约束申明。2) CHECK约束对于Course表，Semester的取值范围为18，Period的取值范围为110。因此在约束表达式中分别输入：(Semester >= 0 and Semester <= 8)和(Ccredit >= 1 and Ccredit <= 10) 。 对

10、于Teacher表，Title的取值范围为教授，副教授，讲师，助教，因此在约束表达式中输入：(Title = '助教' or (Title = '讲师' or (Title = '副教授' or Title = '教授')。(我原本输入为 ：Title in (教授,副教授,讲师,助教)，系统自动改为以上形式) 对于 Elective表，Etype的取值范围为必修，选修，重修，因此在约束表达式中输入：(Etype = '重修' or (Etype = '选修' or Etype = '必修&

11、#39;)。Pgrade、Jgrade和Tgrade的取值范围均为0100，所以在约束表达式中分别输入：(Pgrade >= 0 and Pgrade <= 100)、(Jgrade >= 0 and Jgrade <= 100)和(Tgrade >= 0 and Tgrade <= 100)。 对于Teaching表，Ttype的取值范围为主讲，辅导，带实验，因此在约束表达式中输入：(Ttype = '带实验' or (Ttype = '辅导' or Ttype = '主讲')。3) 使用缺省值Electiv

12、e（选课表）中Etype的默认值设为必修。Teaching（授课表）中Ttype的默认值设为主讲。4) 外键约束Elective（选课表）中学号是引用学生表的外码，课程号是引用课程表的外码。Teaching（授课表）中课程号是引用课程表的外码，教师号是引用教师表的外码。因此分别建立关系。5) 规则假设学生的学号统一为8位，教师的教师号统一为5位，为了检查录入的有效性则分别创建学号Sno和教师号Tno的规则，然后分别绑定到学生表和教师表中的对应列上。规则的定义语句分别为：len(Sno)=8和len(Tno)=5。完成数据完整性设计后录入模拟数据。3. 视图、触发器和存储过程设计1) 按课程查询

13、学生选课信息要求输入课程号和类别（可选）后查出选该课的学生的学号、姓名以及总评成绩，所以建立一个基于Student表和Elective表的视图，命名为SE。2) 按专业班查询学生选课信息要求输入专业和班级（可选）后查出该专业该班级学生的学号、姓名、选课的课程号、课程名以及选课的类别，所以建立一个基于Student表、Elective表和Course表的视图，命名为SEC。3) 按班级统计学生总学分数要求输入专业和班级（可选）后查出该专业该班级学生的学号、姓名以及总学分，所以建立另一个基于Student表、Elective表和Course表的视图，命名为SEC2。4) 按所在部门及职称查询教师授

14、课信息 要求输入所在部门和职称（可选）后查出该部门该职称教师的教师号、姓名、授课的课程号、课程名以及类别，所以建立另一个基于Teacher表、Teaching表和Course表的视图，命名为TTC。四、应用程序结构设计根据系统功能的要求，把程序分为课程管理、学生选课管理、教师授课管理三个模块。教学管理学生选课管理学生信息管理学生信息查询选课信息管理选课信息查询与统计教师授课管理教师信息管理教师信息查询与统计授课信息管理授课信息查询课程管理课程信息管理课程信息查询修改密码1启动窗体设计（frm1.frm） 1）该窗体为进入系统的入口点2）frm1中对象的属性设置对象类型对象名属性名属性值Form

15、frm1Caption申明PictureBoxPicture1Picture自选图LabelLabel1Caption教学管理系统LabelLabel2Caption本软件制作者：LabelLabel3Caption金信工11班 学生LabelLabel4Caption时间：2004年6月13日CommandButtenCommand1Caption进入 3）代码设计 Private Sub Command1_Click() 进入按钮单击事件Unload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer) 装载窗体代码frmdl.ShowEn

16、d Sub2登陆窗体（frmdl.frm） 1）登陆界面设计2）frmdl中对象的属性设置对象类型对象名属性名属性值FormfrmdlCaption欢迎登陆LabelLabel1Caption教学管理系统FrameFrame1Caption用户登陆LabelLabel2Caption用户类型：LabelLabel3Caption密 码：ComboBoxCombo1List系统管理员教务部门人事部门各个系普通用户TextBoxText1PasswordChar*LabelLabel4Caption普通用户只有查询权，不需密码。CommandButtenCommand1Caption确认Comma

17、ndButtenCommand2Caption取消AdodcAdodc1连接资源使用ODBC资源名Student 3）frmdl代码设计Public n As IntegerPrivate Sub Combo1_Click() 列表选择单击事件Me.Caption = "欢迎您，" & Trim(Combo1.Text)End SubPrivate Sub Command1_Click() 添加按钮单击事件Adodc1.CommandType = adCmdTextAdodc1.RecordSource = "select * from Land wher

18、e Usertype='" & Trim(Combo1.Text) & "'" & "and Password='" & Trim(Text1.Text) & "'"Adodc1.RefreshIf Adodc1.Recordset.RecordCount = 0 Thenn = n + 1If n < 3 ThenMsgBox "密码错误，请重新登陆", vbOKOnly + vbExclamation, "信息提示

19、"Text1.Text = ""ElseMsgBox "已登陆失败三次，退出系统", vbOKOnly + vbExclamation, "信息提示"Unload MeEnd IfElseSelect Case Combo1.Text Case "系统管理员" frmMain.Show Case "教务部门" frmMain.Show frmMain.xkxxgl.Enabled = False frmMain.jsxxgl.Enabled = False frmMain.mmsz.E

20、nabled = False Case "人事部门" frmMain.Show frmMain.kcxxgl.Enabled = False frmMain.xsxxgl.Enabled = False frmMain.xkxxgl.Enabled = False frmMain.skxxgl.Enabled = False frmMain.mmsz.Enabled = False Case "各个系" frmMain.Show frmMain.kcxxgl.Enabled = False frmMain.jsxxgl.Enabled = False f

21、rmMain.skxxgl.Enabled = False frmMain.mmsz.Enabled = False Case "普通用户" frmMain.Show frmMain.kcxxgl.Enabled = False led = False frmMain.xsxxgl.Enabled = False frmMain.jsxxgl.Enabled = False frmMain.skxxgl.Enabled = False frmMain.mmsz.Enabled = FalseEnd SelectUnload MeEnd IfEnd SubPrivate Su

22、b Command2_Click() 取消按钮单击事件Unload MeEnd SubPrivate Sub Form_Load() 装载窗体代码 n = 0 Adodc1.Visible = FalseEnd Sub3.主窗体设计（frmMain.frm）1）主窗体界面设计菜单结构如下： 课程管理（kcgl） .课程信息管理(kcxxgl) .课程信息查询(kcxxcx) 学生选课管理(xsxkgl) .学生信息管理(xsxxgl) .学生信息查询(xsxxcx).-(sepl).选课信息管理(xkxxgl).选课信息查询与统计(xkxxcxytj).按课程查询与统计(akccxytj).按

23、专业班查询(acybcx).按班级统计(abjtj)教师授课管理(jsskgl).教师信息管理(jsxxgl).教师信息查询与统计(jsxxcxytj).-( xepl).授课信息管理(skxxgl).授课信息查询(skxxcx)密码设置(mmsz)退出系统(tcxt)3） frmMain中对象的属性设置 对象类型对象名属性名属性值MDIFormfrmMainCaption欢迎您使用本教学管理系统！4）frmMain代码设计 Private Sub kcxxgl_Click() 课程信息管理Load frmkcxxgl frmkcxxgl.Show frmMain.Enabled = Fals

24、eEnd SubPrivate Sub kcxxcx_Click() 课程信息查询Load frmkcxxcx frmkcxxcx.Show frmMain.Enabled = FalseEnd SubPrivate Sub xsxxgl_Click() 学生信息管理Load frmxsxxgl frmxsxxgl.Show frmMain.Enabled = FalseEnd SubPrivate Sub xsxxcx_Click() 学生信息查询Load frmxsxxcx frmxsxxcx.Show frmMain.Enabled = FalseEnd SubPrivate Sub x

25、kxxgl_Click() 选课信息管理Load frmxkxxgl frmxkxxgl.Show frmMain.Enabled = FalseEnd SubPrivate Sub akccxytj_Click() 按课程查询与统计Load frmakccxytj frmakccxytj.Show frmMain.Enabled = FalseEnd SubPrivate Sub azybcx_Click() 按专业班查询Load frmazybcx frmazybcx.Show frmMain.Enabled = FalseEnd SubPrivate Sub abjtj_Click()

26、按班级统计Load frmabjtj frmabjtj.Show frmMain.Enabled = FalseEnd SubPrivate Sub jsxxgl_Click() 教师信息管理Load frmjsxxgl frmjsxxgl.Show frmMain.Enabled = FalseEnd SubPrivate Sub jsxxcxytj_Click() 教师信息查询与统计Load frmjsxxcxytj frmjsxxcxytj.Show frmMain.Enabled = FalseEnd SubPrivate Sub skxxgl_Click() 授课信息管理Load f

27、rmskxxgl frmskxxgl.Show frmMain.Enabled = FalseEnd SubPrivate Sub skxxcx_Click() 授课信息查询 frmskxxcx.Show frmMain.Enabled = FalseEnd SubPrivate Sub mmsz_Click() 密码设置 frmmmsz.Show frmMain.Enabled = FalseEnd SubPrivate Sub tcxt_Click() 退出系统If MsgBox("真的要退出系统？", vbOKCancel, "确认") = vbO

28、K ThenEndEnd IfEnd Sub4.课程信息管理窗体设计（frmkcxxgl.frm） 1）课程信息管理界面设计2）frmkcxxgl中对象的属性设置对象类型对象名属性名属性值FormfrmkcxxglCaption课程信息管理FrameFrame1Caption课程信息LabelLabel1Caption课程编号：TextBoxText1LabelLabel2Caption课程名称：TextBoxText2LabelLabel3Caption学 分 数：TextBoxText3LabelLabel4Caption学 期：TextBoxText4LabelLabel5Caption

29、（110）LabelLabel6Caption（18）CommandButtenCommand1Caption添加CommandButtenCommand5Caption取消AdodcAdodc1连接资源使用ODBC资源名Student CommandTypeadCmdTableRecordSourceCourseAdodcAdodc2连接资源使用ODBC资源名Student DataGridDataGrid1DataSourceAdodc1FrameFrame2Caption说明LabelLabel7Caption更新、删除前均请先选定要操作的行。CommandButtenCommand2C

30、aption更新CommandButtenCommand3Caption删除CommandButtenCommand4Caption返回3）frmkcxxgl代码设计Private Sub Command1_Click() 添加按钮单击事件If (MsgBox("请确定都已填好？", vbOKCancel, "确认") = vbOK) ThenAdodc2.CommandType = adCmdTextAdodc2.RecordSource = "select * from Course where Cno='" &

31、Trim(Text1.Text) & "'"Adodc2.RefreshIf Adodc2.Recordset.RecordCount = 1 Then MsgBox ("课程号冲突！")ElseIf Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then MsgBox ("请填好所有项目！")Else With Adodc1 .Record

32、set.AddNew .Recordset.Fields("Cno").Value = Text1.Text .Recordset.Fields("Cname").Value = Text2.Text .Recordset.Fields("Ccredit").Value = Text3.Text .Recordset.Fields("Semester").Value = Text4.Text .Recordset.Update End With DataGrid1.RefreshText1.Text = "

33、;"Text2.Text = ""Text3.Text = ""Text4.Text = ""End IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click() 更新按钮单击事件DataGrid1.AllowUpdate = TrueDataGrid1.RefreshEnd SubPrivate Sub Command3_Click() 删除按钮单击事件Dim res As Integerres = MsgBox("确实要删除此记录吗？", vbExclamatio

34、n + vbYesNo + vbDefaultButton2)If res = vbYes ThenEnd IfEnd SubPrivate Sub Command4_Click() 返回按钮单击事件Unload MefrmMain.Enabled = TrueEnd SubPrivate Sub Command5_Click() 取消按钮单击事件Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Form_L

35、oad() 装载窗体代码DataGrid1.Columns(0).Caption = "课程号"DataGrid1.Columns(1).Caption = "课程名称"DataGrid1.Columns(2).Caption = "学分数"DataGrid1.Columns(3).Caption = "学期"DataGrid1.RefreshEnd SubPrivate Sub Form_Unload(Cancel As Integer) 卸载窗体代码frmMain.Enabled = TrueEnd Sub5课

36、程信息查询窗体设计（frmkcxxcx.frm） 1）课程信息查询界面设计2）frmkcxxcx中对象的属性设置对象类型对象名属性名属性值FormfrmkcxxcxCaption课程信息查询LabelLabel1Caption请选择查询学期：TextBoxText1Caption用户登陆DataGridDataGrid1列（标题）Column 0课程号Column 1课程名称Column 2学分数Column 3学期CommandButtenCommand1Caption查询CommandButtenCommand2Caption返回AdodcAdodc1连接资源使用ODBC资源名Studen

37、t 3）frmkcxxcx代码设计Private Sub Command1_Click() 查询按钮单击事件If Text1.Text = "" ThenMsgBox ("学期不能为空")ElseIf Text1.Text < 1 Or Text1.Text > 8 ThenMsgBox ("学期号为18，请重新输入！")Text1.Text = ""ElseAdodc1.RecordSource = "select * from Course where Semester='&quo

38、t; & Trim(Text1.Text) & "'"Adodc1.RefreshDataGrid1.ClearFieldsSet DataGrid1.DataSource = Adodc1DataGrid1.Columns(0).Caption = "课程号"DataGrid1.Columns(1).Caption = "课程名称"DataGrid1.Columns(2).Caption = "学分数"DataGrid1.Columns(3).Caption = "学期"

39、;DataGrid1.RefreshEnd IfEnd IfEnd SubPrivate Sub Command2_Click() 返回按钮单击事件Unload MefrmMain.Enabled = TrueEnd SubPrivate Sub Form_Load() 装载窗体代码 Adodc1.Visible = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer) 卸载窗体代码frmMain.Enabled = TrueEnd Sub6学生信息管理窗体设计（frmxsxxgl.frm） 1）界面设计 2）属性设置对象类型对象名属性名

40、属性值FormfrmxsxxglCaption学生信息管理FrameFrame1Caption学生信息LabelLabel1Caption学 号：TextBoxText1LabelLabel2Caption姓 名：TextBoxText2LabelLabel3Caption所 在系：ComboBoxCombo1List银管系金融系LabelLabel4Caption专 业：ComboBoxCombo2List金信工电商金融LabelLabel5Caption班：ComboBoxCombo3List1 2FrameFrame3Caption说明LabelLabel6Caption1.学号必须是八

41、位的。2.所在系、专业、班若可选项中没有可自行填入。CommandButtenCommand1Caption添加CommandButtenCommand5Caption取消AdodcAdodc1连接资源使用ODBC资源名Student CommandTypeadCmdTableRecordSourceStudentAdodcAdodc2连接资源使用ODBC资源名Student DataGridDataGrid1DataSourceAdodc1FrameFrame2Caption说明LabelLabel7Caption点更新键后可在上表对应的地方更改，点删除键前请确定已选定要删除的记录。Comm

42、andButtenCommand2Caption更新CommandButtenCommand3Caption删除CommandButtenCommand4Caption返回 3）代码设计Private Sub Command1_Click() 添加按钮单击事件If (MsgBox("请确定都已填好？", vbOKCancel, "确认") = vbOK) ThenAdodc2.CommandType = adCmdTextAdodc2.RecordSource = "select * from Student where Sno='&q

43、uot; & Trim(Text1.Text) & "'"Adodc2.RefreshIf Adodc2.Recordset.RecordCount = 1 Then MsgBox ("学号冲突！")ElseIf Text1.Text = "" Or Text2.Text = "" Or Combo1.Text = "" Or Combo2.Text = "" Or Combo3.Text = "" Then MsgBox (&qu

44、ot;请填好所有项目！")Else With Adodc1.Recordset .AddNew .Fields("Sno").Value = Text1.Text .Fields("Sname").Value = Text2.Text .Fields("Sdept").Value = Combo1.Text .Fields("Major").Value = Combo2.Text .Fields("Class").Value = Combo3.Text .Update End With

45、 DataGrid1.Refresh Text1.Text = ""Text2.Text = ""Combo1.Text = ""Combo2.Text = ""Combo3.Text = ""End IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click() 更新按钮单击事件DataGrid1.AllowUpdate = TrueDataGrid1.RefreshEnd SubPrivate Sub Command3_Click() 删除按钮单击事件Di

46、m res As Integerres = MsgBox("确实要删除此记录吗？", vbExclamation + vbYesNo + vbDefaultButton2)If res = vbYes ThenEnd IfEnd SubPrivate Sub Command4_Click() 返回按钮单击事件Unload MefrmMain.Enabled = TrueEnd SubPrivate Sub Command5_Click() 取消按钮单击事件Text1.Text = ""Text2.Text = ""Combo1.Tex

47、t = ""Combo2.Text = ""Combo3.Text = ""End SubPrivate Sub Form_Load() 装载窗体代码DataGrid1.Columns(0).Caption = "学号"DataGrid1.Columns(1).Caption = "姓名"DataGrid1.Columns(2).Caption = "所在系"DataGrid1.Columns(3).Caption = "专业"DataGrid1.Colu

48、mns(4).Caption = "班级"DataGrid1.RefreshEnd SubPrivate Sub Form_Unload(Cancel As Integer) 卸载窗体代码frmMain.Enabled = TrueEnd Sub7学生信息查询窗体设计(frmxsxxcx.frm) 1）界面设计 2）属性设置对象类型对象名属性名属性值FormfrmxsxxcxCaption学生信息查询LabelLabel1Caption请选择系别：ComboBoxCombo1List银管系金融系LabelLabel2Caption请选择专业：ComboBoxCombo2Li

49、st金信工电商金融LabelLabel3Caption请选择班级：ComboBoxCombo3List1 2FrameFrame1Caption说明LabelLabel6Caption需要查询的系、专业、班可自行填入。AdodcAdodc1连接资源使用ODBC资源名Student DataGridDataGrid1列（标题）Column 0学号Column 1姓名Column 2所在系Column 3专业Column 4班级CommandButtenCommand1Caption查询CommandButtenCommand2Caption返回 3）代码设计Private Sub Command

50、1_Click() 查询按钮单击事件If Combo1.Text = "" ThenMsgBox ("所在系不能为空")ElseIf Combo2.Text = "" And Combo3.Text = "" ThenAdodc1.RecordSource = "select * from Student where Sdept='" & Trim(Combo1.Text) & "'"Adodc1.RefreshElseIf Combo2.Te

51、xt <> "" And Combo3.Text = "" ThenAdodc1.RecordSource = "select * from Student where Sdept='" & Trim(Combo1.Text) & "'and Major='" & Trim(Combo2.Text) & "'"Adodc1.RefreshElseIf Combo2.Text = "" And Comb

52、o3.Text <> "" ThenMsgBox ("请选择专业！")ElseAdodc1.RecordSource = "select * from Student where Sdept='" & Trim(Combo1.Text) & "'And Major='" & Trim(Combo2.Text) & "'And Class='" & Trim(Combo3.Text) & "

53、;'"Adodc1.RefreshEnd IfEnd IfEnd IfDataGrid1.ClearFieldsSet DataGrid1.DataSource = Adodc1DataGrid1.Columns(0).Caption = "学号"DataGrid1.Columns(1).Caption = "姓名"DataGrid1.Columns(2).Caption = "所在系"DataGrid1.Columns(3).Caption = "专业"DataGrid1.Columns(4).

54、Caption = "班级"DataGrid1.RefreshEnd IfEnd SubPrivate Sub Command2_Click() 返回按钮单击事件Unload MefrmMain.Enabled = TrueEnd SubPrivate Sub Form_Unload(Cancel As Integer) 卸载窗体代码frmMain.Enabled = TrueEnd Sub8选课信息管理窗体设计(frmxkxxgl.frm) 1）界面设计 2）属性设置对象类型对象名属性名属性值FormfrmxkxxglCaption选课信息管理FrameFrame1Caption选课信息LabelLabel1Caption学 号：TextBoxText1LabelLabel2Caption课 程 号：TextBoxText2LabelLabel5Caption选课类别：OptionButtenOption1Caption必修ValueTrueOptionButtenOption2Caption选修OptionButtenOption3Caption重修CommandButtenCommand1Caption添加CommandButtenCommand5Caption取消AdodcAd