VB学生信息管理系统实验报告-.pdf

《VB学生信息管理系统实验报告-.pdf》由会员分享，可在线阅读，更多相关《VB学生信息管理系统实验报告-.pdf（15页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、目录一、实习任务.11.实习任务简介.1 2.学生成绩查询统计系统实现的功能概论1.3.实习目的 1 4.实验的背景和意义.1 5.软件工具和需要掌握的知识.1 二、系统分析2 1.系统功能模块的划分.2 2.初步对此程序的描述.2 三、系统设计.2 1.登陆界面实现的细节.2 2.其他界面实现的细节 3 四、调试、排错、测试、试运行过程.3 1.调试、排错、测试、试运行解析.4 五、完整源程序.6 1.完整源程序代码.6 六、总结体会.13 1.心得体会.13 七、参考文献.14 软件技术认知实验报告计算机与信息工程系09 级软件技术专业Z090555 班闫素阁1 一、实习任务1.习任务简介

2、：在课程进行时听老师介绍软件工程学的基本思想进行软件开发的原则和方法；结构化分析的思路和步骤以及结构化编程的方法和面向对象的思想和程序设计方法给了我编辑此程序的能力。在查阅部分资料和咨询同学后按照软件开发的一般方法和步骤就手动完成了学生信息查询统计系统。2.学生成绩查询统计系统要实现的功能概论 登录界面：密码最多尝试3 次，连续3 次均输入错误系统自动退出。具有录入成绩、添加记录、删除记录、修改记录功能。具有成绩查询功能，可以按照学号、课程号、课程名、分数段进行查询。为便于查询，所有的学号和课程号可考虑以下拉列表的形式给出。具有全部成绩浏览功能，且能与数据库表最新数据同步。具有统计功能，能以直

3、方图、饼图、折线图、散点图直观表示各成绩段的分布情况。具有打印学生成绩报表的功能。具有菜单和工具条的双重操作功能。3.实习目的：在考试来临之际，此次实习给了我们一个全面复习的机会以及自我认知的空间！学生成绩查询统计系统的功能比较强大，全面系统的运用我们以前学习的知识，如 P54 页 shell函数的运用！这次试验的也给了我与同学充分交流的机会，共同研究讨论这次试验，分享思想加深了友谊，我相信对我今后的学习生活定能起到不小的作用！4.实验的背景和意义：此次实验是我们由苗老师带领全面学习了Visual Basic 程序设计教程之后进行的。做完此课程设计就迎来了我们的期末考试，由于时间比较紧迫和考试

4、的压力以及此课程设计涉及的知识点太多，进而我们难免有点急躁，还好一旦进入状态时间就不知不觉的溜走了，此时的我们享受着做题的乐趣，枯燥和反感自然也就烟消云散了。这次课程设计给我的感受真的很深刻，意义非凡呀。Access、DataReport、ImageList、ToolBar 等也是在这一次课程设计中才得以熟练的运用的我的，耐心，细心，恒心进而也得以锻炼。5.软件工具和需要掌握的知识要熟悉 Access、DataReport、ImageList、ToolBar，adodc，Datalist 等控件的运用，要知道控件的添加和窗体的调试和控件的布局以及其对应属性的设置！要熟悉课本以便在编辑时便于记不

5、清的代码的查询。要留意可当上老师讲的书本内外的内容，如DataReport 就是老师补充的内容，但此次课程设计涉及到了它，进而我也更加清楚了其运用。要熟悉在VB 程序内部编辑新建数据库，新建表。此次课程设计耗时量很大，新建的窗体不少，代码也相当的多且有点繁杂。尤其数据库连接时，且要使其与控件同步进行。分数段的划分都需要运用到函数，故需要掌握其对应函数的应用！ToolBar 的应用也应给予充分重视，尤其是其属性中的“值”的设定以及关键字的设定！软件技术认知实验报告计算机与信息工程系09 级软件技术专业Z090555 班闫素阁2 二、系统分析：1.系统功能模块的划分：登陆窗体界面主窗体界面新用户注

6、册界面添加学生界面同一课程学生信息界面查询个人信息界面个人情况展示界面2.初步对此程序的描述：Form2 为我的登陆主界面，用户名和密码连接着我所建的一个“用户和密码”数据库，登录界面内有用户注册功能，其与用户和密码数据库同步。Form1 为主界面，里面包含着强大的功能连接着其他五个窗体。除主界面和注册界面外，其他窗体都连接着我所建的另一个数据库“基本情况”,添加窗口和数据库“基本情况”实现了同步，同时总体成绩界面与数据库里的成绩保持一致，所以总体成绩图示界面实现了动态掩饰的功能。在个人信息查询界面只需在 Msgbox 中输入想要查询的学号，如果“基本情况”中有此学号，那么在此窗体内便会显示此

7、学号的学生信息，没有查到你所输入的学号的话则提示无此学号。同一课程信息界面则是运用 DataList 和 Adodc 的结合来实现其功能的。三、系统设计：1.登陆界面内用户注册页面实现的细节：Private Sub Command1_Click()If Text1=Or Text2=Or Text3=Then MsgBox 信息不完整，部分注册,敬请注意 ElseIf Text2.Text Text3.Text Then MsgBox 两此输入的密码不一致，请从新输入,警告 Text2.Text=Text3.Text=Text2.SetFocus Else Adodc1.CommandType

8、=adCmdText Adodc1.RecordSource=select*from 用户和密码 Set DataSource=Adodc1 Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用户名)=Text1.Text Adodc1.Recordset.Fields(密码)=Text2.Text Adodc1.Recordset.Update MsgBox 注册成功,温馨提示 软件技术认知实验报告计算机与信息工程系09 级软件技术专业Z090555 班闫素阁3 Form1.Text1.Text=Text1.Text

9、 Unload Form3 End If End Sub 在登陆界面也是运用数据库的连接来查找是否存在其人的。再次就不做过多的解释了，详情见第五项。2.其他界面实现的细：在主界面帮助菜单中有计算机的调用，其主要shell 函数的运用i=Shell(calc.exe,1)，而相应的记事本的调用也是运用此函数j=Shell(notepad +闫素阁VB课设 关于此程序.Txt,1)。在用户注册时运用简单的部件结合，便调试出了此程序。此代码如下：在学号查询窗口是运用Datalist 和 Adodc 的结合来运行的，代码如下：Private Sub DataList1_Click()Adodc1.Co

10、mmandType=adCmdUnknown Adodc1.RecordSource=select*from 基本情况where 学号=+DataList1.Text+Adodc1.Refresh Set DataGrid1.DataSource=Adodc1 End Sub Private Sub Form_Load()Adodc2.CommandType=adCmdUnknown Adodc2.RecordSource=select 学号 from 基本情况group by 学号 Adodc2.Refresh Set DataList1.DataSource=Adodc2 End Sub

11、Toolbar 工具栏按钮用Case语句编辑的几代码如下：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index Case 1 CommonDialog1.ShowOpen Case 2 Adodc1.RecordSource=基本情况 Adodc1.Refresh Case 3 DataReport1.Show Case 4 Dim ask As Integer ask=MsgBox(删除否？,vbYesNo)If ask=6 Then Adodc1.Record

12、set.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End Select End Sub 四、调试、排错、测试、试运行过程软件技术认知实验报告计算机与信息工程系09 级软件技术专业Z090555 班闫素阁4 各控件在保证代码编辑正确无误的情况下一点要注意各属性值的变更，如果在代码正确的前提下，还打不到预期的结果，那么你就要高度注意注意其控件的属性了！（1）调试、排错、测试、试运行解析：（1）如你输入的用户名和密码在“用户和密码”数据库中查找不到，那么

13、系统将弹出提示对话框，其如图1 所示：图 1（2）进入主窗体之后迎接你的便是主界面，一点要注意照片的绑定，以免出现气人不对其号的情况。其窗体演示图2：图 2 软件技术认知实验报告计算机与信息工程系09 级软件技术专业Z090555 班闫素阁5（3）在添删改菜单栏中有同一课程同学信息查询窗口这一设置，其功能能够从“基本情况”数据库中进行根源查找，以确使同一专业的学生信息全盘显示在Form5 中，其图示示范如图 3：图 3（4）在菜单栏中亦有添加同学这一功能，其演示图示如图4：图 4 软件技术认知实验报告计算机与信息工程系09 级软件技术专业Z090555 班闫素阁6（5）为了使总体成绩更加明了，

14、在Form6 中我利用其余数据库“基本情况”连接，确保了其图示与数据库同步，便于更加直接的反映出添加或删除学生的动态及最总体分数段的浏览，其图示如图5：图 5 五、完整源程序由于窗体的不同，故我要按不同的窗体分别来写代码，如下便是完整源程序：1.完整源程序代码：登陆界面Form1：Private Sub Command1_Click()Static count1 As Integer If Text1.Text=Or Text2.Text=Then MsgBox 请把登录信息填写完整！,温馨提示 Else Adodc1.CommandType=adCmdUnknown Adodc1.Recor

15、dSource=select*from 用户和密码where 用户名=+Text1.Text+and 密码=+Text2.Text+Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then 在数据库里查找如找到则为1 Unload Me Form1.Show Else 软件技术认知实验报告计算机与信息工程系09 级软件技术专业Z090555 班闫素阁7 MsgBox 用户名或密码错误，请重新输入,温馨提示 Text1.Text=Text2.Text=Text1.SetFocus count1=count1+1 If count1 3 Then

16、MsgBox 登陆错误超过3 次，系统自动退出！,温馨提示 End End End If End If End If End Sub Private Sub Command2_Click()If MsgBox(是否退出系统！,vbOKCancel+vbQuestion,系统提示)=vbOK Then End End If End Sub Private Sub Command3_Click()Form3.Show End Sub 新用户注册界面的代码如Form2：Private Sub Command1_Click()If Text1=Or Text2=Or Text3=Then MsgBox

17、 信息不完整，部分注册,敬请注意 ElseIf Text2.Text Text3.Text Then MsgBox 两此输入的密码不一致，请从新输入,警告 Text2.Text=Text3.Text=Text2.SetFocus Else Adodc1.CommandType=adCmdText Adodc1.RecordSource=select*from 用户和密码 Set DataSource=Adodc1 Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用户名)=Text1.Text Adodc1.Recor

18、dset.Fields(密码)=Text2.Text Adodc1.Recordset.Update MsgBox 注册成功,温馨提示 Form1.Text1.Text=Text1.Text Unload Form3 End If End Sub 软件技术认知实验报告计算机与信息工程系09 级软件技术专业Z090555 班闫素阁8 Private Sub Command2_Click()If MsgBox(是否退出系统！,vbOKCancel+vbQuestion,系统提示)=vbOK Then End End If End Sub 主界面 Form2 的代码如下：Private Sub Co

19、mmand1_Click()Dim strb()As Byte CommonDialog1.ShowOpen Open CommonDialog1.FileName For Binary As#1 f1=LOF(1)ReDim strb(f1)Get#1,strb Adodc1.Recordset.Fields(照片).AppendChunk strb Close#1 Image1.Picture=LoadPicture(CommonDialog1.FileName)End Sub Private Sub gerenxinxichaxun_Click()Form7.Show End Sub P

20、rivate Sub guanyucichengxu_Click()闫素阁 VB 课设 关于此程序.Txt,1)End Sub Private Sub jisuanqi_Click()i=Shell(calc.exe,1)End Sub Private Sub kechenghaochaxun_Click()Form5.Show End Sub Private Sub shanchu_Click()Dim ask As Integer ask=MsgBox(删除否？,vbYesNo)If ask=6 Then Adodc1.Recordset.Delete Adodc1.Recordset.M

21、oveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End Sub Private Sub tianjia_Click()Form4.Show End Sub Private Sub tongjitu_Click()Form6.Show End Sub 软件技术认知实验报告计算机与信息工程系09 级软件技术专业Z090555 班闫素阁9 Private Sub tongyikechengxuesheng_Click()Form5.Show End Sub Private Sub Toolbar1_Butto

22、nClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index Case 1 CommonDialog1.ShowOpen Case 2 Adodc1.RecordSource=基本情况 Adodc1.Refresh Case 3 DataReport1.Show Case 4 Dim ask As Integer ask=MsgBox(删除否？,vbYesNo)If ask=6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordse

23、t.EOF Then Adodc1.Recordset.MoveLast End If End Select End Sub Private Sub xingzhuangyanshi_Click()Form6.Show End Sub Private Sub xuehaochaxun_Click()Form8.Show End Sub Private Sub xueshengxinxibiao_Click()DataReport1.Show End Sub Private Sub zhaorenchuangkou_Click()Form7.Show End Sub 添加学生窗口Form4 对应

24、的代码如下：Private Sub Command1_Click()If Text1=Or Text2=Or Text3=Or Text4=Or Text5=Then MsgBox 信息不完整，部分注册,敬请注意 Else Adodc1.CommandType=adCmdText Adodc1.RecordSource=select*from 基本情况 Set DataSource=Adodc1 Adodc1.Refresh Adodc1.Recordset.AddNew 软件技术认知实验报告计算机与信息工程系09 级软件技术专业Z090555 班闫素阁10 Adodc1.Recordset.

25、Fields(学号)=Text1.Text Adodc1.Recordset.Fields(姓名)=Text2.Text Adodc1.Recordset.Fields(课程号)=Text3.Text Adodc1.Recordset.Fields(课程名)=Text3.Text Adodc1.Recordset.Fields(分数)=Text4.Text Adodc1.Recordset.Update MsgBox 添加成功,温馨提示 Form1.Text1.Text=Text1.Text End If End Sub Private Sub Command2_Click()Form4.Vi

26、sible=False End Sub 查询同一课程同学的信息的窗体Form5 对应的代码如下：Private Sub DataList1_Click()Adodc1.CommandType=adCmdUnknown Adodc1.RecordSource=select*from 基本情况where 课程号=+DataList1.Text+Adodc1.Refresh Set DataGrid1.DataSource=Adodc1 End Sub Private Sub Form_Load()Adodc2.CommandType=adCmdUnknown Adodc2.RecordSource

27、=select 课程号from 基本情况group by 课程号 Adodc2.Refresh Set DataList1.DataSource=Adodc2 End Sub 总体分数图示窗体Form6 代码如下：Dim a$(5),b%(5),max Public Sub zbx()Cls a(0)=优秀 a(1)=良好 a(2)=中等 a(3)=及格 a(4)=不及格 Do While Not Form1.Adodc1.Recordset.EOF Select Case Form1.Adodc1.Recordset.Fields(分数)Case Is max Then max=b(i)Ne

28、xt i Scale(-1,1.2*max)-(max*5,-max*0.1)Line(0,0)-(6*max,0):Line(0,max*1.2)-(0,0)CurrentX=0 CurrentY=0 Me.Print 统计结果:;For i=0 To 4 Me.Print a(i)&的人数为;b(i);,;Next i End Sub Private Sub Command1_Click()Dim w%zbx w=max/3 X1=w For i=0 To 4 X2=X1+w Y2=b(i)Line(X1,0)-(X2,Y2),QBColor(9),BF CurrentX=X1 Curre

29、ntY=Y2+max*0.1 Print a(i)X1=X2+w Next i End Sub Private Sub Command2_Click()zbx w=2.5*max/2 CurrentX=2.5*max/2:CurrentY=b(1)For i=0 To 2.5 x=x+w:y=b(i)Line-(x,y):DrawWidth=10 PSet(x,y)Print a(i)DrawWidth=1 软件技术认知实验报告计算机与信息工程系09 级软件技术专业Z090555 班闫素阁12 Next i End Sub Private Sub Command3_Click()zbx x=A

30、bs(Me.ScaleHeight/3)+1 r=max/2 Sum=0 For i=0 To 4 Sum=Sum+b(i)Next i Me.FillStyle=0 a1=0 For i=0 To 4 a2=a1+2*3.1415926*b(i)/Sum FillColor=QBColor(15*Rnd)Circle(x,x),r,-a1,-a2 CurrentX=x+r*Cos(a1+a2)/10)CurrentY=x-r*Sin(a1+a2)/8)Print Format(b(i)/Sum*100,0.00);%a1=a2 Next i End Sub Private Sub Comma

31、nd4_Click()zbx For i=1 To 5 w=3*max/5:DrawWidth=4 x=x+w:y=b(i)PSet(x,y)Next i DrawWidth=2 End Sub 查找个人信息窗口Form7 代码如下：Private Sub Command1_Click()Dim m As String m=InputBox(请输入学号,查找窗)Adodc1.Recordset.Find 学号=&m&,1 If Adodc1.Recordset.EOF Then MsgBox 无此学号！,提示 End Sub Private Sub Command2_Click()Visibl

32、e=False End Sub 同一学号窗体Form8 代码如下：Private Sub DataList1_Click()Adodc1.CommandType=adCmdUnknown 软件技术认知实验报告计算机与信息工程系09 级软件技术专业Z090555 班闫素阁13 Adodc1.RecordSource=select*from 基本情况where 学号=+DataList1.Text+Adodc1.Refresh Set DataGrid1.DataSource=Adodc1 End Sub Private Sub Form_Load()Adodc2.CommandType=adCm

33、dUnknown Adodc2.RecordSource=select 学号from 基本情况group by 学号 Adodc2.Refresh Set DataList1.DataSource=Adodc2 End Sub 六.总结体会这次课程设计在紧张，挑战与快乐中度过，觉得从中获益匪浅1.心得体会期末考试即将来临，这次 VB 实习给了我们一个全面复习VB 的机会以及自我认知的空间！学生成绩查询统计系统的功能比较强大，全面系统的运用我们以前学习的知识，如 P54 页 shell 函数的运用！这次试验的也给了我与同学充分交流的机会，共同研究讨论这次试验，分享思想加深了友谊，我相信对我今后的

34、学习生活定能起到不小的作用！这次实习使我更加熟悉Access、DataReport、ImageList、ToolBar，adodc，Datalist 等控件的操作，熟练掌握了常用控件的添加、窗体的调试、控件的布局以及其对应属性的设置！熟悉了课本便于了我在编辑程序时记不清的代码的查询。由于我上课比较留意课堂上老师讲的课本内外设计的问题，使我较容易的运用了DataReport 报表的制作，因此次课程设计涉及到了它，进而我也更加清楚了其运用。我更加熟悉在VB 程序内部编辑新建数据库，新建表的运用我所做的这次课程设计耗时量很大，新建的窗体比较多，代码也相当的多且有点繁杂。尤其数据库连接时，且要使其与控

35、件同步进行。分数段的划分都需要运用到函数，这次课程设计也是我熟悉了部分函数的应用！ToolBar 的编辑也耗费了我的不少脑力，尤其是其属性中的“值”的设定以及关键字的设定！尤其是我在编辑登陆窗体时遇到了不一般的困难，起初在用户名和密码那里不管你输入任何数据都能进入主系统，再请教老师与同学的情况下，部分内容得以改善，但依旧是任何数据动能进入系统，代码完全正确，而且老师的演示也证实了我的代码无误！在我经过苦思之后终于想到了属性窗口，一个闪念促使我进入了属性窗体检查阶段。最后发现仅因一个属性值在我不知道的情况下改动了。不过因为这一件事也是我和同学老师的关系更加近了，最后问题圆满解决，反而促进我和同学

36、老师的感情，有点一箭双雕的味道，所以浓厚的压力下依旧有快乐的痕迹！此次实验是我们在苗老师带领全面学习了Visual Basic 程序设计教程之后才进行的。做完此课程设计紧接着就是我们的期末考试，由于时间比较紧和考前压力还有就是这次课程设计涉及的知识点太散，进而我们不免在做题过程中有点烦躁，但当我进入状态后时间就不知不觉的溜走了，此时的我们享受着做题的乐趣，枯燥和反感自然也就烟消云散了。这次课程设计给我的感受很深刻，深感意义非凡。Access、DataReport、ImageList、ToolBar 等也是在这一次课程设计中才得以熟练的运用的我的，耐心，细心，恒心进而也得以锻炼。团结合作的精神也

37、得以发挥。由于平时和同学相处的时间不多，彼此不甚了解，但这次课程设计我和软件技术认知实验报告计算机与信息工程系09 级软件技术专业Z090555 班闫素阁14 同学们都聚集在一起，给我们提供了一个学习、个人性情喜好的交流平台。这次课程设计其间我有多结识了几个好友，互助和关心自然也体会深刻由于平时和同学缺少交流学习的机会！这次课程设计给拉一个舞台，让我们加深感情。也掌握了我们以前所学的知识。动手能力也大大增强！我的课程设计的最大特点是比较简练易懂，充分利用书本上所学的知识，就如同一课程同学信息的查询就是参阅课本P245 页的内容，然后自己在组织一下语言，就这样变成了我的程序里的部分代码。而对应个

38、人信息的查询窗体也是引用了P241 页 Case4的编辑代码，用 Find 语句查找指定的课目的全部学生的信息。总之我的这次课程设计全面的结合课本和查阅部分参考资料来完成的。这次课程设计我觉得我的VB水平得到了明显的提高，我也更加了解了Access、DataReport、ImageList、ToolBar，Datagrit、Adodc、Image 的应用和画图的函数的应用。更加明了Case的运用。课设就这样结束了，汇集着汗水与欢笑的课程设计走到了尾声，我内心有种强烈的呐喊：“希望还有这么一次课程设计”，这样我可以更加充分的锻炼我自己，我需要挑战，只有这样我才有前进的动力！七.参考文献：1.Visual Basic 程序设计教程龚沛曾、杨志强、陆慰民编高等教育出版社2007 年 3 月第 3 版2.Visual C+实用教程张荣梅、梁晓林编著中国铁道出版社2008 年 9 月第 1 版成绩评定：