员工培训管理系统 第6页

员工培训管理系统 第6页
表4-4  result_info员工成绩表
属性名 数据类型 大小 允许空 说明
Exam_no Char 10 否 考试编号
Student_id Int 4 是 员工号
Student_name Char 10 是 员工名
Course_no Int 4 是 课程号
Course_name Char 10 是 课程名
Result Float 8 是 成绩

表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]  ... 下一页  >> 

Copyright © 2007-2012 www.chuibin.com 六维论文网 版权所有