表4-5 student_info员工基本信息表
属性名 数据类型 大小 允许空 说明
Student_id Int 4 否 员工号
Student_name Char 10 是 员工名
Student_sex Char 2 是 性别
Birth_date Datetime 8 是 出生日期
Depart Char 10 是 部门
Tele_number Char 10 是 电话号码
In_date Datetime 8 是 就职日期
Address varChar 50 是 家庭地址
Comment varChar 100 是 注释
表4-6 trainresult_info员工培训评价表
属性名 数据类型 大小 允许空 说明
Pro char 10 否 培训项目
Effect Varchar 50 是 培训效果评价
表4-7 user_info 用户密码表
属性名 数据类型 大小 允许空 说明
user_id Char 10 否 用户id
user_pwd Char 10 是 用户密码
user_name Char 10 是 用户名
user_level Int 4 是 权限等级
user_des Char 10 是 用户描述
第五章 系统的具体设计
5.1 欢迎主界面及代码设计
5.1.1欢迎主界面
运行员工培训管理系统 第6页后，首先将出现欢迎主界面，如下图。
图5-1 欢迎主界面
5.1.2 欢迎主界面代码设计
欢迎主界面实现的代码设计如下：
Dim DelayTime As Integer ’定义计时器
Private Sub Form_Load()
DelayTime = 0
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If DelayTime > 3 Then ’延迟三秒载入登录界面
Timer1.Enabled = False
Load FrmLogin
FrmLogin.Show
Unload Me
Else
DelayTime = DelayTime + 1
End If
End Sub
5.2 登录界面及代码设计
5.2.1登录界面
图5-2 登录界面
5.2.2 登录界面代码设计
登录界面实现的代码设计如下：
Dim MyLogin As OpenRs ’定义变量
Dim UseridSQL As String
Dim Level As Integer
Public CurrentUser As String
Private Sub Cmdcancel_Click() ’取消按钮命令
Unload Me ’释放当前表
End Sub
Private Sub cmdOK_Click() ’确定密码命令
If txtUserID.Text = "administrator" And txtPass.Text = "" Then
Unload Me
FrmMain.Show
Exit Sub
End If ’如权限符合,准予登陆
If txtUserID.Text = "" Then
MsgBox "请输入用户编号！", vbOKOnly + vbInformation, "用户登陆"
txtUserID.SetFocus
Exit Sub ’用户为空时提示,聚焦
Else
UseridSQL = "select * from User_Info where user_Id='" & txtUserID.Text & "'"
’用户非空时启用数据库链接
MyLogin.rsDK1 UseridSQL ’把sql语句传给函数
If MyLogin.rs1.EOF = False Then ’列表未到底从数据库中取值
txtUserName.Text = Trim(MyLogin.rs1!user_name)
Level = MyLogin.rs1!user_level
If txtPass.Text = Trim(MyLogin.rs1!user_pwd) Then ’密码符合
CurrentUser = Trim(MyLogin.rs1!user_name)
Call DisplayMenu
Unload Me
FrmMain.Show ’载入主界面
Else
MsgBox "密码错误！" & vbCrLf & vbCrLf & "请重新输入！", vbOKOnly + vbInformation, "用户登陆" ’ 密码错误提示
txtPass.Text = ""
txtPass.SetFocus
Exit Sub
End If
Else
MsgBox "用户编号不存在！" & vbCrLf & vbCrLf & "请重新输入！", vbOKOnly + vbInformation, "用户登陆" ’ 用户不存在提示,清空聚焦
txtUserID.Text = ""
txtUserID.SetFocus
Exit Sub
End If
End If
End Sub
Private Sub Form_Load()
Set MyLogin = New OpenRs ’引用类函数
End Sub
Private Sub txtPass_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then ’输密码时回车确定
Call cmdOK_Click
End If
End Sub
Private Sub txtUserId_Change() ’用户名改变文本框清空
txtPass.Text = ""
txtUserName.Text = ""
End Sub
Private Sub txtUserId_LostFocus() ’焦点从用户id转移时从数据库读入用户名
UseridSQL = "select * from User_Info where user_Id='" & txtUserID.Text & "'"
MyLogin.rsDK1 UseridSQL
If MyLogin.rs1.EOF = False Then
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>