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

1、学生信息管理系统课程设计报告院系：数学与信息管理系专业：信息管理与信息系统学号：201230060116姓名：张纪华时间：2013年12月04日一、课程设计题目：设 计 学 生 信 息 管 理 系 统二、课程设计目的： 1. 了解学生信息管理系统的内容。 2. 掌握学生信息管理系统的基本运行模式。 3. 掌握学生信息管理系统设计的基本源程序。 4. 熟练掌握如何使用“IfThen”语句。 5. 掌握界面之间的链接程序语句。三、课程设计内容及详细设计及运行结果：（一）登陆界面 1、界面：编写程序，在窗体上实现如图1.2所示的图形图1.2 “登录界面”的界面2、代码：（1）确定按钮：Private

2、 Sub Command1_Click() Form2.hide Form1.showIf Text2.Text = "201230060116" And Text1.Text = "张纪华" ThenMsgBox "欢迎" & Text1.Text & "进入学生信息查询系统！", 64, "学生信息管理系统"Me.Hide Unload 登陆界面 基本信息.ShowElse MsgBox "密码或用户名有误！"m = m + 1Text2 = "

3、"Text1 = ""Text1.SetFocusIf m > 2 Then MsgBox "请核对密码重新登录！"End IfEnd 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 “学生基本

4、信息”的界面（1）、删除界面 （2）、查找界面2、代码：Private Sub Command1_Click() Dim ask As Integer Select Case Index Case 0 End SelectEnd SubPrivate Sub Command2_Click() ask = MsgBox("删除否？", vbYesNo) If ask = 6 Then End If End SubPrivate Sub Command3_Click() Adodc1.Recordset.Update End SubPrivate Sub Command4_Cl

5、ick()End 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四、

6、数据库信息五、系统设计小结通过这次课程设计，我收益颇丰，感受深刻。虽然我这次做的设计可能不够好，但是为我对以后的visualbasic设计打下了很好的基础。在做这次课程设计的过程中，我们很努力，虽然当中我遇到很多难题，但是最终我还是顺利地完成了此次工作。 在这一周的学习中，我终于体会到Microsoft visualbasic功能的功能丰富，表达能力强，使用灵活方便，应用面广。VB语言是一种让我觉得很有挑战性、很有趣的一种语言，在最初接触他的时候会觉得很困难，但在慢慢的实验和学习中，渐渐觉得他并不像想象中那么困难，一步一步的熟悉，发现他的奇妙和实用性，也能一步一步完成一些简单基本的程序设计。在编写程序的