江西蓝天学院毕业论文
学号 姓名 性别 班级 出生年月 家庭住址 邮政编码 联系电话 入学时间 备注 文本 文本 文本 文本 日期/时间 文本 9 8 2 10 30 数字（长整型） 数字（长整型） 日期/时间 备注 表3.8 xuefei表
字段名称 年级 专业 年制 学期 学费 类型 文本 文本 文本 文本 货币
宽度 16 50 20 40 小数位 自动
18
江西蓝天学院毕业论文
第4章 系统的功能
本部分主要内容为本系统的运行界面以及主要界面的源代码。
4.1系统登陆界面
本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在USE表中，本系统根据不同的用户而设置了不同的权限，可以用909;909为用户名和密码来登陆本系统。
图4.1 系统登录界面
Private Sub Command1_Click() Dim mrc As ADODB.Recordset
txtsql = %username from use where username='\& Trim(Text1.Text) & \Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then
MsgBox \用户名错误！\警告\ Text1.SetFocus
19
江西蓝天学院毕业论文
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text) Exit Sub End If
username = mrc.Fields(0)
txtsql2 = %username from use where password='\& Trim(Text2.Text) & \Set mrc = ExecuteSQL(txtsql2) If mrc.EOF = True Then
MsgBox \密码错误！\警告\ Text2.SetFocus Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text) Exit Sub End If
txtsql = %username from use where username='\& Trim(Text1.Text) & \Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then
MsgBox \用户名称和密码不匹配！\警告\ Exit Sub End If MDIForm1.Show
frmcpass.Text1.Text = Text1.Text
20
江西蓝天学院毕业论文
Unload Me End Sub
Private Sub Command2_Click() Unload Me End Sub
Private Sub Form_Load() End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocus End If End Sub
21
江西蓝天学院毕业论文
4.2系统主界面
本模块是本系统的应用界面，在本界面上集成了本系统的所有功能，共有6个功能菜单和19个子菜单（功能模块），从而实现了本系统从班级管理、档案管理、缴费管理、课程管理、成绩管理等系统的具体功能，同时，在系统管理模块中可以完成对本系统的安全性管理。
图4.2 系统主界面
Private Declare Function SetWindowPos Lib \Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Dim find1 As Integer Dim liulan1 As Integer
Private Sub add_Click() qxstr = Executeqx(2)
22