学生信息管理系统VB课程设计报告.doc

学生信息管理系统课程设计报告 院系：数学与信息管理系 专业：信息管理与信息系统 学号：201230060116 姓名：张纪华 时间：2013年12月04日一、课程设计题目：设 计 学 生 信 息 管 理 系 统二、课程设计目的： 1. 了解学生信息管理系统的内容。 2. 掌握学生信息管理系统的基本运行模式。 3. 掌握学生信息管理系统设计的基本源程序。 4. 熟练掌握如何使用“IfThen”语句。 5. 掌握界面之间的链接程序语句。三、课程设计内容及详细设计及运行结果： （一）登陆界面 1、界面：编写程序，在窗体上实现如图1.2所示的图形 图1.2 “登录界面”的界面 2、代码：（1）确定按钮： Private Sub Command1_Click() Form2.hide Form1.show If Text2.Text = 201230060116 And Text1.Text = 张纪华 Then MsgBox 欢迎 & Text1.Text & 进入学生信息查询系统！, 64, 学生信息管理系统 Me.Hide Unload 登陆界面 基本信息.Show Else MsgBox 密码或用户名有误！ m = m + 1 Text2 = Text1 = Text1.SetFocus If m 2 Then MsgBox 请核对密码重新登录！ End If End IfEnd Sub （2）清空按钮： Private Sub Command2_Click()Text1.Text = Text2.Text = End Sub （3）退出按钮： Private Sub Command3_Click()Unload 登陆界面End Sub（二）学生基本信息界面 1、界面：编写程序，在窗体上实现如图1.3所示的图形 图1.3 “学生基本信息”的界面 （1）、删除界面 （2）、查找界面 2、代码：Private Sub Command1_Click() Dim ask As Integer Select Case Index Case 0 Adodc1.Recordset.AddNew End SelectEnd SubPrivate Sub Command2_Click() ask = MsgBox(删除否？, vbYesNo) If ask = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End SubPrivate Sub Command3_Click() Adodc1.Recordset.Update End SubPrivate Sub Command4_Click()Adodc1.Recordset.CancelUpdateEnd SubPrivate Sub Command5_Click()EndEnd SubPrivate Sub Command6_Click()Dim mno As Stringmno = InputBox(请输入学号, 查找窗)Adodc1.Recordset.Find 学号= & mno & , , , 1If Adodc1.Recordset.EOF Then MsgBox 无此学号！, , 提示End Sub四、数据库信息五、系统设计小结 通过这次课程设计，我收益颇丰，感受深刻。虽然我这次做的设计可能不够好，但是为我对以后的visualbasic设计打下了很好的基础。在做这次课程设计的过程中，我们很努力，虽然当中我遇到很多难题，但是最终我还是顺利地完成了此次工作。 在这一周的学习中，我终于体会到Microsoft visualbasic功能的功能丰富，表达能力强，使用灵活方便，应用面广。VB语言是一种让我觉得很有挑战性、很有趣的一种语言，在最初接触他的时候会觉得很困难，但在慢慢的实验和学习中，渐渐觉得他并不像想象中那么困难，一步一步的熟悉，发现他的奇妙和实用性，也能一步一步完成一些简单基本的程序设计。在编写程序的过程中，