hrmain.frm

一个vb开发的人事信息管理软件,提供基本的人事信息管理

      Begin VB.Menu Add_User 
         Caption         =   "添加用户"
         Shortcut        =   ^A
      End
      Begin VB.Menu Change_Pwd 
         Caption         =   "修改密码"
         Shortcut        =   ^E
      End
      Begin VB.Menu System_Exit 
         Caption         =   "退出系统"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu Stuff_Info 
      Caption         =   "职工基本信息管理(&I)"
      Begin VB.Menu Add_Stuff 
         Caption         =   "职工基本信息录入"
         Shortcut        =   ^I
      End
      Begin VB.Menu Change_Stuff 
         Caption         =   "职工基本信息修改"
         Shortcut        =   ^G
      End
      Begin VB.Menu Check_Stuff 
         Caption         =   "职工基本信息查询"
         Shortcut        =   ^F
      End
      Begin VB.Menu Del_Stuff 
         Caption         =   "职工基本信息删除"
         Shortcut        =   ^D
      End
   End
   Begin VB.Menu Stuff_CheckIn 
      Caption         =   "职工考勤信息管理(&C)"
      Begin VB.Menu AddAttendance 
         Caption         =   "添加上下班信息"
         Shortcut        =   ^L
      End
      Begin VB.Menu AddOtherKQ 
         Caption         =   "添加其他考勤信息"
         Shortcut        =   ^R
      End
      Begin VB.Menu ChangeAttendance 
         Caption         =   "修改上下班信息"
      End
      Begin VB.Menu ChangeOtherKQ 
         Caption         =   "修改其他考勤信息"
      End
      Begin VB.Menu Check_CheckIn 
         Caption         =   "查询考勤信息"
      End
      Begin VB.Menu DellnOut 
         Caption         =   "删除上下班信息"
      End
      Begin VB.Menu DelOtherKQ 
         Caption         =   "删除其他考勤信息"
      End
   End
   Begin VB.Menu Stuff_Alteration 
      Caption         =   "职工调动信息管理(&A)"
      Begin VB.Menu Add_Alter 
         Caption         =   "职工调动信息录入"
         Shortcut        =   ^U
      End
      Begin VB.Menu Change_Alter 
         Caption         =   "职工调动信息修改"
      End
      Begin VB.Menu Check_Alter 
         Caption         =   "职工调动信息查询"
         Shortcut        =   ^K
      End
      Begin VB.Menu Del_Alter 
         Caption         =   "职工调动信息删除"
         Shortcut        =   ^M
      End
   End
   Begin VB.Menu System_Help 
      Caption         =   "帮助"
   End
   Begin VB.Menu About 
      Caption         =   "关于"
   End
End
Attribute VB_Name = "HRMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As 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

Private Const HWND_TOPMOST& = -1
' 将窗口置于列表顶部，并位于任何最顶部窗口的前面
Private Const SWP_NOSIZE& = &H1
' 保持窗口大小
Private Const SWP_NOMOVE& = &H2
' 保持窗口位置


Private Sub AddUser_Click()
   
End Sub

Private Sub EditPwd_Click()
    
End Sub

Private Sub ExitSys_Click()
   
End Sub

Private Sub InfoInput_Click()
    
End Sub



Private Sub Add_Alter_Click()
   iAFlag = 0
   Frm_AddAlter.Show 1
End Sub

Private Sub Add_Stuff_Click()
   iFlag = 0 '''代表增加记录
   Frm_InfoInput.Show 1
End Sub

Private Sub Add_User_Click()
   Frm_AddUser.Show 1
End Sub

Private Sub AddAttendance_Click()
   iATFlag = 0
   Frm_AddAttendance.Show 1
End Sub

Private Sub AddOtherKQ_Click()
   Frm_AddOtherKQ.Show 1
End Sub

Private Sub Change_Alter_Click()
   Frm_AlterChange.Show 1
End Sub

Private Sub Change_Pwd_Click()
   Frm_EditPassword.Show 1
End Sub

Private Sub Change_Stuff_Click()
   Frm_InfoChange.Show 1
End Sub

Private Sub ChangeAttendance_Click()
   Frm_AttendanceChange.Show 1
End Sub

Private Sub ChangeOtherKQ_Click()
   Frm_OtherKQChange.Show 1
End Sub

Private Sub Check_Alter_Click()
   Frm_AlterFind.Show 1
End Sub

Private Sub Check_CheckIn_Click()
   Frm_KQInfoFind.Show 1
End Sub

Private Sub Check_Stuff_Click()
   Frm_SelectSql.Show 1
End Sub

Private Sub Del_Alter_Click()
   Frm_AlterChange.Show 1
End Sub

Private Sub Del_Stuff_Click()
   iFlag = 2
   Frm_InfoChange.Show 1
End Sub

Private Sub DellnOut_Click()
   Frm_AttendanceChange.Show 1
End Sub

Private Sub DelOtherKQ_Click()
    Frm_OtherKQChange.Show 1
End Sub

Private Sub Form_Load()
    'SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
    Status.Panels(1).Text = "用户名称:" & Trim(sLoginName)
    Status.Panels(2).Text = "登录日期:" & Trim(sLoginDate)
    Status.Panels(3).Text = "设计人:"
End Sub

Private Sub System_Exit_Click()
    If MsgBox("确定是否退出?", vbYesNo + vbQuestion, "系统提示") = vbNo Then
       Exit Sub
    Else
       End
    End If
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
   Select Case Button.key
   Case "ExitSys"
        Call System_Exit_Click
   Case "AddUser"
        Call Add_User_Click
   Case "EditPass"
        Call Change_Pwd_Click
   Case "InfoInput"
        Call Add_Stuff_Click
   Case "Adduser"
        Call Add_User_Click
   Case "InfoFind"
        Call Check_Stuff_Click
   Case "AlterInput"
        Call Add_Alter_Click
   Case "AlterFind"
        Call Check_Alter_Click
   Case "CheckInput"
        Call AddAttendance_Click
   Case "CheckInfoFind"
        Call Check_CheckIn_Click
   End Select
End Sub