vb大作业报告《信息系统开发工具》课程实验报告.docx

1、vb大作业报告信息系统开发工具课程实验报告信息系统开发工具课程实验报告学生成绩管理系统班 级： 学 号： 姓 名： 成绩评阅教师签字评阅日期2011.6.22目录1、系统功能分析与设计-3（1）功能分析-3（2）系统设计-32、主要功能的实现及代码-3（1）form1(登陆界面)-3（2）form2（教师查询界面）-5（3）form3（学生成绩登录及修改界面-5（4）form4（成绩表界面）-7（5）form5（学生查询界面）-83、主要输入输出界面-9（一） form1(登陆界)-10（二） form2（教师查询界面）-10（三） form3（学生成绩登录及修改界面）-11（四） form4

2、（成绩表界面）-11（五） form5（学生查询界面）-11四、遇到问题及解决方案-12（1）数据库连接-12（2）控件适用-12五、vb学习心得-12一、 系统功能分析与设计（一）功能分析系统名称：学生成绩管理系统功能分析：学生成绩管理系统，有两种身份可以登录，分别是教师还有学生。教师可以对学生的成绩进行增加，修改，删除等操作，还可以对学生的整体成绩进行查询。学生可以通过输入自己的学号，对自己的成绩进行查询，但不能进行增删改操作。通过登陆界面，教师学生通过输入账号密码，将看到不同的界面。（二）系统设计二、主要功能的实现及代码（一）form1(登陆界面)Form1（学生成绩管理系统登陆界面）对

3、应的是用户登录功能。用户通过选择身份，输入账号，密码，进入到自己的界面。本系统用户身份有教师以及学生。账号项内只能输入数字，若输入非数字，系统自动提示，账号清空重新输入。若输入的账号不存在，系统自动提示， 并且重新输入。当输入错误密码，系统提示密码与账号不符。有三次出入账号以及密码的机会，超过三次，系统自动提示，并且退出登录界面。在之后的界面中有注销选项，可以准换身份重新登录。代码：登录：Private Sub Command1_Click()Static i As IntegerIf i = 3 Then MsgBox (错误输入三次！您将不能登陆！) EndElse If Option1.

4、Value = True Then If Text1.Text = 1001 Then If Text2.Text = 12345 Then MsgBox 登陆成功 Text1.text=”Text1.text=”Form1.Hide Form2.Show Else MsgBox 密码与账号不符，请重新输入！ Text2.Text = Text2.SetFocus End If Else MsgBox 该账号不存在，请重新输入！ Text1.Text = Text1.SetFocus End If End If If Option2.Value = True Then If Text1.Tex

5、t = 2001 Then If Text2.Text = 12345 Then MsgBox 登陆成功 Text1.text=”Text1.text=” Form1.Hide Form4.Show Else MsgBox 密码与账号不符，请重新输入！ Text2.Text = Text2.SetFocus End If Else MsgBox 该账号不存在，请重新输入！ Text1.Text = Text1.SetFocus End If End If i = i + 1End IfEnd Sub退出：Private Sub Command2_Click()EndEnd Sub限制账号只能输

6、入数字：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii 57 Then MsgBox 账号内请输入数字 KeyAscii = 0 Text1.SetFocus End IfEnd Sub（二）form2（教师查询界面）Form2（教师管理界面）以教师身份登录将会看到的界面，教师可以通过datagrid控件看到所有的课程信息。之后可以通过两个command按钮选择成绩登录及修改和成绩排名查询。本界面可以通过注销按钮，返回登陆界面。代码：进入成绩录入修改界面：Private Sub Command1_Click()Form2.H

7、ideForm3.ShowEnd Sub进入成绩排名界面：Private Sub Command2_Click()Form2.HideForm4.ShowEnd Sub注销返回登陆界面：Private Sub Command3_Click()Form2.HideForm1.ShowEnd Sub设置绝对路径：Private Sub Form_Load() Dim mpath As String mpath = App.Path If Right(mpath, 1) Then mpath = mpath + Data1.DatabaseName = mpath + 成绩管理数据库.mdb Dat

8、a1.RecordSource = 课程基本信息End Sub（三）form3（学生成绩录入及修改界面）Form3（学生成绩录入及修改界面），为教师登录界面，教师可以通过form2，选择要进入的课程，然后进入form3对该课程成绩进行操作，该界面只显示选修这门课程学生的学号和成绩。对数据进行的操作有新增，删除，修改，查询代码：设置绝对路径：Private Sub Form_Load() Dim mpath As String mpath = App.Path If Right(mpath, 1) Then mpath = mpath + Data1.DatabaseName = mpath +

9、 成绩管理数据库.mdb Data1.RecordSource = 成绩End Sub查找：Private Sub Command5_Click()Dim mzy As String mzy = InputBox$(请输入课程号, 查找窗) Data1.RecordSource = Select * From 成绩 Where 成绩.cno = & mzy & Data1.Refresh If Data1.Recordset.EOF Then MsgBox 无此学生, , 提示 Data1.RecordSource = 成绩 Data1.Refresh End IfEnd Sub退出：Priv

10、ate Sub Command6_Click()Form3.HideForm2.ShowEnd Sub新增：Private Sub Command1_Click() On Error Resume Next Command2.Enabled = Not Command2.Enabled Command3.Enabled = Not Command3.Enabled Command4.Enabled = Not Command4.Enabled Command5.Enabled = Not Command5.EnabledIf Command1.Caption = 新增 Then Command

11、1.Caption = 确认 Adodc1.Recordset.AddNew Text1.SetFocus Else Command1.Caption = 新增 Adodc1.Recordset.Update Adodc1.Recordset.MoveLast End IfEnd Sub删除：Private Sub Command2_Click()On Error Resume Next Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast

12、 End IfEnd Sub修改：Private Sub Command3_Click()On Error Resume Next Command1.Enabled = Not Command1.Enabled Command2.Enabled = Not Command2.Enabled Command4.Enabled = Not Command4.Enabled Command5.Enabled = Not Command5.EnabledIf Command3.Caption = 修改 Then Command3.Caption = 确认 Adodc1.Recordset.Edit T

13、ext1.SetFocus Else Command3.Caption = 修改 Adodc1.Recordset.Update End IfEnd Sub放弃该操作Private Sub Command4_Click()On Error Resume Next Command1.Caption = 新增 Command3.Caption = 修改 Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False Command5.Enabled = True Ado

14、dc1.UpdateControls Adodc1.Recordset.MoveNextEnd Sub（四） form4（成绩表界面）成绩表界面，教师可以通览所有学生的成绩代码：Private Sub Command1_Click()Form4.HideForm2.ShowEnd SubPrivate Sub Form_Load() Dim mpath As String mpath = App.Path If Right(mpath, 1) Then mpath = mpath + Data1.DatabaseName = mpath + 成绩管理数据库.mdb Data1.RecordSo

15、urce = Select 成绩.cno,学生基本信息.sno,学生基本信息.sname,成绩.scores From 学生基本信息, 成绩 Where 学生基本信息.sno = 成绩.sno End Sub（五） form5（学生查询界面）学生查询界面，可以按照学号查询想要查询的人的所有成绩，也可以选择要查询的课程，查询选择这门课的人的成绩。代码：Private Sub Command1_Click()Dim y As String y = InputBox$(请输入学号, 查找窗) Data1.RecordSource = Select * From 成绩 Where 成绩.sno = &

16、 y & Data1.Refresh If Data1.Recordset.EOF Then MsgBox 无此学生, , 提示 Data1.RecordSource = 成绩 Data1.Refresh End IfEnd SubPrivate Sub Command2_Click()Form5.HideForm1.ShowEnd SubPrivate Sub Command3_Click()Dim h As String h = InputBox$(请输入课程号, 查找窗) Data1.RecordSource = Select * From 成绩 Where 成绩.cno = & h &

17、 Data1.Refresh If Data1.Recordset.EOF Then MsgBox 无此课程, , 提示 Data1.RecordSource = 成绩 Data1.Refresh End IfEnd SubPrivate Sub Form_Load() Dim mpath As String mpath = App.Path If Right(mpath, 1) Then mpath = mpath + Data1.DatabaseName = mpath + 成绩管理数据库.mdb Data1.RecordSource = 成绩End Sub三、主要输入输出界面（一） fo

18、rm1(登陆界)（二） form2（教师查询界面）（三） form3（学生成绩登录及修改界面）（四） form4（成绩表界面）（五） form5（学生查询界面）四、 遇到问题及解决方案1、问题： 开始时使用adodc控件连接数据库，在recoredsource中用select语句设置路径，where语句后面的格式不会写，并且与adodc绑定的text里面不显示数据解决办法：上网XX，各种说法都试过，后来还是不行就改成用data控件了。2、问题：总显示有至少一个变量未定义，程序无法运行解决办法：没找到，把出问题的部分删除了，所以一开始构思的很多表单被删去了。3、问题：显示正在被占用，程序无法执行

19、。解决办法：关掉access文档。五、 vb学习心得从第一次上课开始，就觉得vb是一个很有意思的课，老师很幽默，vb很给力。第一次，在上机课的时候，我根据老师讲的，做了一个登陆界面，但没有做完。于是把东西存在了自己的u盘里面，回到寝室可以在自己的电脑上做。刚开始做程序的时候，就是完全按照老师的要求，老师的步骤去做的，结果却发现，怎么运行不了？明明是 按照老师的步骤去做的，明明是按照老师的要求去做的，但是就是会遇到一些问题使程序运行不了。开始也没有管那么多，仍然是按照课本上的去做。但由于时间问题，做的还是有点粗糙，还是不免存在一定的问题。后来请教了一下同学，结果发现时代码的编写出现了错误，把代码

20、改过来之后，程序终于可以打开运行了。在课程设计过程中，虽然我对程序设计不是很熟悉，但是通过老师详细的讲解，我按照步骤去做，遇到问题的时候先自己想办法解决，解决不了的就去问同学，问老师，通过这种学习，收获很大，学会了自己解决棘手问题，知道了团结的力量。第二次上机课老师让我们完成一个自己感兴趣的小游戏。因为老师在课堂上说打地鼠是一个比较简单的游戏，所以我决定完成打地鼠的小程序。一开始一头雾水，不知道从哪下手，于是就在网上寻找可能要用到的图片。之后开始用控件画出了一个界面，但里面不知道要怎么写代码。上网XX了一下，发现网上的打地鼠代码多种多样啊，有的好长好长，根本看不懂。于是我挑了几个能看懂的，大体

21、了解了一下打地鼠的总体思路，开始了自己的打地鼠之路。我的地鼠从一个一个出来不消失还出现错误，到每隔600ms随机出现并消失是一个质的突破，耗费了一个晚上，增增减减，删删改改，其实也就那么几行代码，竟然让我纠结了那么久。之后又进行了一些其他功能的设计，于是打地鼠游戏成了我那一段时间非常骄傲的一件事情，哇哈哈哈居然会做游戏了呢！之后的上机课上又完成了文本编辑器等程序的设计，就觉得vb是一个很神奇的软件，好像什么鼓捣鼓捣都能弄出来。最后一次上机课就开始做关于大作业的事情了。一不小心坐到了一个非常不给力的电脑，什么都慢，还连不上数据库，我当时就觉得，大作业一定是一个更让人暴躁的工作。事实上也真的让我很

22、暴躁，借了本书，翻翻看看，看不懂。上网XX，有很多XX知道，看了让我更加不知道了。无奈我只好重新回到课件，一遍一遍的翻看，发现其实用上课件上面讲解的知识，也可以完成很多功能的设计。于是我开始了每天捧着电脑往令希奔波的生活，开始不着急，觉得应该不会太难，后来越做越纠结，就因为好多我觉得没有问题的操作，就是运行不出来。比如吧，我做的第三个界面，用adodc连接数据库的时候，用select语言编辑recordsource，想用select进行多个表的连接查询，就是一直都实现不了，总说我有东西没定义，我反复看代码，也没觉得哪有问题。还有明明连接上了数据库，就是text不显示数据，往里面添加数据还能添加

23、上去，让我非常费解，只能一遍一遍的尝试，看看能不能改变这种状况。通过vb的学习，让我知道了很多学习这类课程的道理，首先要保持良好的学习心态，自信，自强，积极主动学习，克服畏难情绪，树立学好程序设计的信心。要了解概念：VB程序设计本身并不复杂，变量，函数，条件语句，循环语句等概念较多.要真正能进行程序设计，就要深入理解这些概念.应该重视概念的学习。还有就是要自己动手编写程序，亲自动手进行程序设计是培养逻辑思维的好方法.因此我们得多动手编写程序，逐渐提高写程序的能力。自己动手，编写一些程序，才会有成就感，进而对课程产生兴趣，做起来才比较从容.等你在编写大量程序之后。上机调试程序应注意多问问同学，多问问老师、，把不懂的地方标出来。养成良好的编程习惯，程序构思要有说明;学会如何调试程序;对运行结果要做正确与否的分析。