Classkecheng表： 字段名称 年级 专业 年制 学期 课程名称 Jf表： 字段名称 学号 学期 交费 欠费 日期 操作员
Kaosileixing表： 字段名称 类型
类型 文本 宽度 10 小数位 类型 文本 文本 货币 货币 日期/时间 文本 宽度 5 50 10 小数位 自动 自动 类型 文本 文本 文本 文本 文本 宽度 16 12 8 50 20 小数位 17
Use表： 字段名称 username password Admin Readonly Qx1 Qx2 Qx3 Qx4 xj表： 字段名称 学号 姓名 性别 班级 出生年月 家庭住址 邮政编码 联系电话 入学时间 备注
类型 文本 文本 文本 文本 日期/时间 文本 宽度 9 8 2 10 30 小数位 类型 文本 文本 文本 文本 文本 文本 文本 文本 宽度 20 20 2 2 2 2 2 2 小数位 数字（长整型） 数字（长整型） 日期/时间 备注 18
xuefei表： 字段名称 年级 专业 年制 学期 学费 类型 文本 文本 文本 文本 货币
宽度 16 50 20 40 小数位 自动 19
4.系统的功能
本部分主要内容为本系统的运行界面以及主要界面的源代码。 4．1系统登陆界面：
本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在USE表中，本系统根据不同的用户而设置了不同的权限，可以用909;909为用户名和密码来登陆本系统。
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 \用户名错误！\警告\
20
Text1.SetFocus 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
21