搜索
1）登陆窗体代码设计窗体代码主要实现了连接数据库的功能，这里用于连接用户信息表。其程序如下：PrivateSubForm_Load()DimiAsIntegerIfApp.PrevInstanceThenMsgBox(程序已经运行，不能再次装载。),vbExclamationUnloadMeEndIf'本段代码用于判定本程序是否已经装载于内存中，以避免程序的多重启动i=0OpenApp.Path+\user.iniForInputAs#1DoWhileNotEOF(1)Input#1,user(i),pws(i),state(i),Emplo(i)Ifstate(i)=AThenCombo1.AddItemuser(i)EndIfi=i+1LoopClose#1Combo1.ListIndex=1'在窗口装载阶段读取用户设置文件获取用户信息并装载于用户列表框中EndSub（2）“取消”按钮是退出登录界面，退出系统的。其代码如下：PrivateSubCmdCancel_Click()UnloadMeEndEndSub（3）“确定”按钮代码设计“确定”按钮代码主要实现了用户登陆时，用户名和密码的认证，当用户名或密码错误时，系统提示错误。其程序如下：PrivateSubcmdOK_Click()IftxtPassword=pws(Combo1.ListIndex)ThenCurId=Combo1.ListIndexEmploID=Emplo(CurId)CurUser=user(CurId)CurPsw=pws(CurId)Me.Hide'LoadFrmMainFrmMain.ShowElseMsgBoxInvalidPassword,tryagain!,,LogintxtPassword.SetFocusSendKeys{Home}+{End}EndIfEndSub（1）窗体选择的单击事件代码设计窗体选择的单击事件代码主要实现了进入本系统所有模块的功能，这里有以下几个模块，它们分别是员工信息模块，假条信息模块，工资管理模块，用户设置模块等/其程序如下：PrivateSubToolbar2_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1Callshowemployee‘显示员工信息模块Case2Callshowleave‘显示假条信息模块Case3Callshowsalary‘显示工资信息模块Case4IffrmLogin.CurUser=rootThenFrmSys.ShowElseFrmPsw.ShowPwin=FrmmainFrmMain.Enabled=FalseEndIfEndSelectEndSub（2）命令按钮的单击事件代码设计命令按钮的代码主要实现了进入本系统部分主要模块的功能，这里有以下几个功能，它们分别是编辑，删除，查询，设置。其程序如下：PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1'editFrmEdit.ShowFrmMain.Enabled=FalseCase2'delIfDBGA.SelBookmarks.Count=1ThenIfMsgBox(确定要删除吗？,vbOKCancel,确定)=vbOKThenDataA.Recordset.DeletecuAp=0ElseMsgBox请选择要删除的条目！EndIfCase3'seekFrmSearch.ShowCase4'setupFrmSetup.ShowEndSelectEndSub（3）口令修改的主要代码设计“确定”按钮的代码主要实现了用户密码的修改功能，当旧密码错误或两次新密码输入不一致时，系统会提示错误。其程序如下：PrivateSubcmdOK_Click()Dimfil,i,UsercountAsIntegerIfTxtNew1.TextTxtNew2.TextThenMsgBoxtwotimesnoyizhiTxtNew1.SetFocusTxtNew2.Text=SendKeys{Home}+{End}ExitSubElseIfTxtold.TextfrmLogin.CurPswThenMsgBoxoldpasswordwrongTxtold.SetFocusTxtNew1.Text=TxtNew2.Text=SendKeys{Home}+{End}ExitSubElsefil=FreeFile()OpenApp.Path+\user.iniForInputAs#fili=0DoWhileNotEOF(fil)Input#fil,user(i),pws(i)Input#fil,state(i),Emplo(i)i=i+1LoopUsercount=iClose#filpws(frmLogin.CurId)=TxtNew1.TextfrmLogin.CurPsw=TxtNew1.Textfil=FreeFile()OpenApp.Path+\user.iniForOutputAs#filFori=0ToUsercount-1Print#fil,user(i);,;pws(i);,;state(i);,;Emplo(i)NextiClose#filTxtold.Text=TxtNew1.Text=TxtNew2.Text=Me.HideIfFrmMain.Pwin=FrmmainThenFrmMain.Enabled=TrueFrmMain.SetFocusElseCallFrmSys.ActiveAllFrmSys.SetFocusEndIfEndIfEndSub