学生选课系统实验报告

1、选课系统实验报告、实验目的（1）掌握常用内部控件的主要属性、事件和方法，利用常用控件进行程序设计以及编程；（2）掌握使用Access或者SQL sever建立数据库，实现VB与数据库的链 接；（3）掌握ADO控件的属性，事件，和方法，利用控件进行程序设计。、实验要求（1）设计一个学生选课系统，实现选课、退课及查询的功能；（2）四周时间内完成，第十五周上交。（1）查找资料，在脑中形成基本框架；（2）建立SQL Sever数据库表“学生基本信息表”、“课程信息表”、“已 选课程表”，插入数据并保存脚本文件；备表“学生基本信息表”中的数据,位置是Master中、-（local）上 回区I河 际含 画

2、I出生日期厩系悟亚 邛有 演话E802110201 1伊丽莎白0802110202彼得大帝0802110203奥巴马0802110204满岛光0802110205东方神起0802110206苏打绿0802110207酒井法子0802110200吉田纪子0802110209少女时代0802110210黑纱木子0802110211水木年华0802110212苏毕努尔女男男女男男女女女女男女1958-10-23管理学院登计专业1965-3-8管理学院工商管理1988-11-3通讯学院电子商资1975-12-5人交学院戢视表演1985-6-6艺术学院动漫制作1977-9-7机械学院车辆设计1988-8

3、-8外语学院日语1977-7-8外语学院韩语1984-6-3人文学院对外汉语1983-5-6管理学院电子商荟1994-4-5理学院数学1966-4-1管理学院工程设计一 一 一 一 一 一 一 一 - - - 一 一 一 一 一 一 一 一 一 一 一 - - - 一 一 一 一 一 - -L2.3.4.L2.4.3.L2.2.4.151168816881545612325515369262356152563232651514525215415365265421145612352411985623456513456987783159682345621623542526312356256325鬲

4、表已选课程表”中的熟据，位置是.aster中、-（local）课程代码课程名称学时学分旅游管理12031Q1203WW1203eE1203rR1203tT1203米商表“课程情选表”中的数据，位置是faster中、-（local）1速癌代码一麝名祢单时单分卜VB程序设计3120002JAVA1203003数据库1203004经济学1203005英语1203006微积分1203007军事理论1203008市场营销1203009电子商务概论1102010管理学1203dD1203eE1203fF1203gG1203hH1203020合计学3120021财罟管理1203（3）建立窗体框架，包括登录窗

5、体“登录、父窗体“学生选课管理系统”和其他6个子窗体；学生选课系统- licrosoft Visual Basic 设计1_ap史件 编辑（1）视图世）工程口 格式顶）调试（1）运行 查询QI）图表（X）工具（!）外接程序（A）窗口地）帮助也）地，讶， Or Q 若电电 II 鬼I 曹 Bl 答成国底TJ 120, 240 n 6735 x 2535（4）运用VB常用控件和ADO控件及DataGrid控件设计每个窗体的界面（以下为几个主要界面）；H 4课程信息管理 1所有课程:(5)利用ADO实现与数据库表的链接，编写相应代码(全部代码在工程里，在此仅复制主要窗体的代码)；登录窗体代码：Pri

6、vate Sub Command1_Click()If (Textl.Text = 123 And Text2.Text = 123 And Option1.Value = True) Or (Text1.Text = 321And Text2.Text = 321 And Option2.Vilue = True) Then学生选课管理系统.Show登录.Visible = FalseElseMsgBox ”你的输入的用户名和密码不匹配，或者没有选择用户身份！ , 64, ”提示信息”Text1.Text =Text2.Text =Text1.SetFocusEnd IfEnd SubPri

7、vate Sub Command2_Click()EndEnd SubPrivate Sub Text1_click()MsgBox ”请查看Word文档“操作说明”获得用户名和密码！ ”, 64,”温馨提示”End SubPrivate Sub Timer1_Timer()If Label3.Left 6000 ThenLabel3.Left = 0ElseLabel3.RefreshEnd IfEnd SubPrivate Sub Timer2_Timer()Label3.Left = CInt(Label3.Left) + 10End SubPrivate Sub Timer3_Time

8、r()Label3.Left = -1700End Sub选课系统窗体代码：Private Sub Form_Load()If 登录.Option1.Vilue = True Then学生个人课表.Enabled = False学生选课.Enabled = FalseElself 登录.Option2.Vaiue = True Then 基本信息管理.Enabled = False课程信息管理.Enabled = False所有学生信息.Enabled = FalseEnd IfEnd SubPrivate Sub基本信息管理_Click()Dim newdoc As New基本信息管理new

9、doc.ShowEnd SubPrivate Sub课程信息管理_Click()Dim newdoc As New 课程信息管理newdoc.ShowEnd SubPrivate Sub所有学生信息_Click()Dim newdoc As New 所有学生信息newdoc.ShowEnd SubPrivate Sub 退出 _Click()EndEnd SubPrivate Sub 学生选课Click()Dim newdoc As New 学生选课newdoc.ShowEnd SubPrivate Sub可选课程信息_Click()Dim newdoc As New可选课程信息newdoc.

10、ShowEnd SubPrivate Sub学生个人课表_Click()Dim newdoc As New 学生个人课表newdoc.ShowEnd Sub课程信息管理窗体代码：Private Sub Command1_Click()Adodcl.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Adodcl.Recordset.UpdateEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextEnd SubPrivate Sub

11、Command4_Click()EndEnd SubPrivate Sub课程信息管理_Load()Adodc1.Recordset.MoveFirstEnd Sub学生选课窗体代码：Private Sub Command1_Click()If Text1.Text = And Text2.Text = And Text3.Text = And Text4.Text = ThenMsgBox ”已无课程可选！ ”, 64,提示信息”ElseAdodc2.Recordset.AddNewAdodc2.Recordset.Fields(课程代码).Value = Text1.TextAdodc2.

12、Recordset.Fields(课程名称).Value = Text2.TextAdodc2.Recordset.Fields(学时).Value = Text3.TextAdodc2.Recordset.Fields(学分).Value = Text4.TextAdodc2.Recordset.UpdateAdodc1.Recordset.DeleteAdodc1.RefreshMsgBox ”恭喜你选课成功”,64,提示信息”End IfEnd SubPrivate Sub Command2_Click()If Text5.Text = And Text6.Text = And Text

13、7.Text = And Text8.Text = ThenMsgBox ”已退完！ , 64,提示信息”ElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(课程代码).Value = Text8.TextAdodc1.Recordset.Fields（课程名称）.Value = Text7.TextAdodc1.Recordset.Fields（学分）.Value = Text6.TextAdodc1.Recordset.Fields（学时）.Value = Text5.TextAdodc1.Recordset.UpdateAdodc2.Recordset.DeleteAdodc2.RefreshMsgBox ”退课成功”,64,提示信息”End IfEnd Sub（6）运行测试程序，修改不足的地方，生成exe文件。四、心得体会首先，我有一个问题没有解决，跟同学一起探讨了几天也没有弄出来， 由于快考四级了也没有太多的时间去研究，希望老师帮忙解答一下。用一个 ADO控件实现“基本信息表”和“已选课程表”的对应链接，这样就可以 实现每个同学选课，而不是一个同学选课，界面如