安徽工贸职业技术学院
第五章.系统的功能
5.1系统登陆界面：
本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在USE表中，本系统根据不同的用户而设置了不同的权限，可以用123;123为用户名和密码来登陆本系统。
Private Sub Command1_Click() Dim mrc As ADODB.Recordset
txtsql = \Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then
MsgBox \用户名错误！\警告\ Text1.SetFocus Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text) Exit Sub End If
username = mrc.Fields(0)
txtsql2 = \Set mrc = ExecuteSQL(txtsql2) If mrc.EOF = True Then
MsgBox \密码错误！\警告\
- 12 -
- 12 -
安徽工贸职业技术学院
Text2.SetFocus Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text) Exit Sub End If
txtsql = \password='\Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then
MsgBox \用户名称和密码不匹配！\ Exit Sub End If MDIForm1.Show
frmcpass.Text1.Text = Text1.Text 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
- 13 -
警告\- 13 -
安徽工贸职业技术学院
5.2 进入界面
5.2.1 系统管理
当输入的用户名和密码正确时,系统就会自动进入学生信息管理系统的主界面:
这时就可以进入实际的对学生的操作中了。
在系统管理中分为添加用户，修改密码，复新登陆三方面的内容。 下图为添加用户界面：
5.2.2档案管理
档案的管理主要是档案的添加，浏览和查询，以下主要介绍的是关于档案的查询方面。首先进入档案查询界面，其界面如下：
- 14 - - 14 -
安徽工贸职业技术学院
Private Sub Command1_Click() Dim aa As Integer txtsql = \
If Trim(Text1(0).Text) <> \ aa = 1
If txtsql = \
txtsql = \学号='\ Else
txtsql = txtsql & \学号='\ End If End If
If Trim(Text1(1).Text) <> \aa = 1
If txtsql = \
txtsql = \姓名='\ Else
txtsql = txtsql & \姓名='\ End If End If
If Trim(Text1(2).Text) <> \ aa = 1
If txtsql = \
- 15 - - 15 -
安徽工贸职业技术学院
txtsql = \班级='\ Else
txtsql = txtsql & \班级='\ End If End If
If Trim(Text1(3).Text) <> \ aa = 1 txtsql = \
txtsql = \姓名 like '%\End If If aa = 0 Then
ss = MsgBox(\你至少要输入一个条件以上才能查询！\警告\ Text1(0).SetFocus Exit Sub End If
Dim str As String
str = \Dim mrc As ADODB.Recordset Set mrc = ExecuteSQL(str) If mrc.EOF = True Then
zzz = MsgBox(\对不起，没有此学生的档案记录！\查询\ Form4.ZOrder (0) Form4.Text1(0).SetFocus Exit Sub End If
txtsql = \学号,xj.姓名,xj.性别,class.年级,xj.班级,class.专业,class.年制,xj.出生年月,xj.家庭住址,xj.邮政编码,xj.联系电话,xj.入学时间,xj.备注 from xj inner join class on xj.班级=class.班级 where \年级 desc,class.班级 desc,xj.学号 desc\Form3.printstr = txtsql find = True Form3.Show
- 16 -
- 16 -