学生信息管理系统vb课程设计报告.docVIP

学生信息管理系统 课程设计报告 院系：数学与信息管理系 专业：信息管理与信息系统 学号： 姓名： 时间：20 年12月04日 一、课程设计题目： 设 计 学 生 信 息 管 理 系 统 二、课程设计目的： 1. 了解学生信息管理系统的内容。 2. 掌握学生信息管理系统的基本运行模式。 3. 掌握学生信息管理系统设计的基本源程序。 4. 熟练掌握如何使用“If……Then”语句。 5. 掌握界面之间的链接程序语句。 三、课程设计内容及详细设计及运行结果： （一）登陆界面 1、界面：编写程序，在窗体上实现如图1.2所示的图形 图1.2 “登录界面”的界面 2、代码：（1）确定按钮： Private Sub Command1_Click() Form2.hide Form1.show If Text2.Text = 202130060116 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 If End 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 Select End Sub Private 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 Sub Private Sub Command3_Click() Adodc1.Recordset.Update End Sub Private Sub Command4_Click() Adodc1.Recordset.CancelUpdate End Sub Private Sub Command5_Click() End End Sub Private Sub Command6_Click() Dim mno As