学生档案管理系统的设计与开发 - 图文(5)

江西蓝天学院毕业论文

学号 姓名 性别 班级 出生年月 家庭住址 邮政编码 联系电话 入学时间 备注 文本 文本 文本 文本 日期/时间 文本 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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库学生档案管理系统的设计与开发 - 图文(5)在线全文阅读。