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 '在窗口装载阶段读取用户设置文件猎取用户信息 并装载于用户列表框中a3:M31762 7C12 簒 C 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"35419 8A5B 詛 23001 59D9 姙 21300 5334 匴 Q40246 9D36 鴶 n 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。Show39353 99B9 馹 20853 5175 兵 w40330 9D8A 鶊 30954 78EA 磪＊z Pwin = "Frmmain" FrmMain.Enabled = False End If...
