1）登陆窗体代码设计窗体代码主要实现了连接数据库的功能，这里用于连接用户信息表.其程序如下：Private Sub Form_Load（)Dim i As Integer If App。PrevInstance Then MsgBox （”程序已经运行，不能再次装载。”)， vbExclamation Unload Me End If ’本段代码用于判定本程序是否已经装载于内存中，以避开程序的多重启动 i = 0 Open App.Path + "\user.ini" For Input As ＃1 Do While Not EOF(1） Input ＃1， user（i）， pws（i）， state（i)， Emplo（i） If state（i) = ”A” Then Combo1。AddItem user（i) End If i = i + 1 Loop Close ＃1 Combo1。ListIndex = 1 ’在窗口装载阶段读取用户设置文件猎取用户信息 并装载于用户列表框中End Sub（2）“取消"按钮是退出登录界面，退出系统的.其代码如下：Private Sub CmdCancel_Click（） Unload Me End End Sub(3）“确定"按钮代码设计“确定”按钮代码主要实现了用户登陆时,用户名和密码的认证，当用户名或密码错误时，系统提示错误.其程序如下：Private Sub cmdOK_Click() If txtPassword = pws(Combo1.ListIndex） Then CurId = Combo1.ListIndex EmploID = Emplo（CurId） CurUser = user（CurId) CurPsw = pws(CurId） Me。Hide ’Load FrmMain FrmMain。Show Else MsgBox "Invalid Password， try again！", ， ”Login" txtPassword。SetFocus SendKeys "{Home}+｛End｝” End If End Sub（1）窗体选择的单击事件代码设计窗体选择的单击事件代码主要实现了进入本系统所有模块的功能，这里有以下几个模块，它们分别是员工信息模块，假条信息模块，工资管理模块，用户设置模块等/其程序如下：Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib。Button） Select Case Button.Index Case 1 Call showemployee ‘显示员工信息模块 Case 2 Call showleave ‘显示假条信息模块 Case 3 Call showsalary ‘显示工资信息模块 Case 4 If frmLogin.CurUser = ”root" Then FrmSys.Show Else FrmPsw.Show Pwin = ”Frmmain” FrmMain。Enabled = False End If End SelectEnd Sub（2）命令按钮的单击事件代码设计命令按钮的代码主要实现了进入本系统部分主要模块的功能，这里有以下几个功能，它们分别是编辑，删除,查询，...
