人力資源管理系統(tǒng)源代碼

1、精選優(yōu)質(zhì)文檔-傾情為你奉上1）登陸窗體代碼設(shè)計(jì)窗體代碼主要實(shí)現(xiàn)了連接數(shù)據(jù)庫的功能，這里用于連接用戶信息表。其程序如下：Private Sub Form_Load()Dim i As Integer If App.PrevInstance Then MsgBox ("程序已經(jīng)運(yùn)行，不能再次裝載。"), vbExclamation Unload Me End If '本段代碼用于判定本程序是否已經(jīng)裝載于內(nèi)存中，以避免程序的多重啟動(dòng) i = 0 Open App.Path + "user.ini" For Input As #1 Do While No

2、t 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 '在窗口裝載階段讀取用戶設(shè)置文件獲取用戶信息 并裝載于用戶列表框中End Sub（2）“取消”按鈕是退出登錄界面，退出系統(tǒng)的。其代碼如下：Private Sub CmdCancel_Click() Unload Me End End Sub（3）“確定”按鈕代碼設(shè)計(jì)

3、“確定”按鈕代碼主要實(shí)現(xiàn)了用戶登陸時(shí)，用戶名和密碼的認(rèn)證，當(dāng)用戶名或密碼錯(cuò)誤時(shí)，系統(tǒng)提示錯(cuò)誤。其程序如下：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!&q

4、uot;, , "Login" txtPassword.SetFocus SendKeys "Home+End" End If End Sub（1）窗體選擇的單擊事件代碼設(shè)計(jì)窗體選擇的單擊事件代碼主要實(shí)現(xiàn)了進(jìn)入本系統(tǒng)所有模塊的功能，這里有以下幾個(gè)模塊，它們分別是員工信息模塊，假條信息模塊，工資管理模塊，用戶設(shè)置模塊等/其程序如下：Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Call showempl

5、oyee 顯示員工信息模塊 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）命令按鈕的單擊事件代碼設(shè)計(jì)命令按鈕的代碼主要實(shí)現(xiàn)了進(jìn)入本系統(tǒng)部分主要模塊的功能，這里有以下幾個(gè)功能，它們分別是編輯，刪除，查詢，設(shè)

6、置。其程序如下：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 'edit FrmEdit.Show FrmMain.Enabled = False Case 2 'del If DBGA.SelBookmarks.Count = 1 Then If MsgBox("確定要?jiǎng)h除嗎？", vbOKCancel, "確定") = vbOK Then DataA.Recordset.Delet

7、e cuAp = 0 Else MsgBox "請選擇要?jiǎng)h除的條目！" End If Case 3 'seek FrmSearch.Show Case 4 'setup FrmSetup.Show End SelectEnd Sub（3）口令修改的主要代碼設(shè)計(jì)“確定”按鈕的代碼主要實(shí)現(xiàn)了用戶密碼的修改功能，當(dāng)舊密碼錯(cuò)誤或兩次新密碼輸入不一致時(shí)，系統(tǒng)會(huì)提示錯(cuò)誤。其程序如下：Private Sub cmdOK_Click() Dim fil, i, Usercount As Integer If TxtNew1.Text <> TxtNew2.Tex

8、t Then MsgBox "two times no yizhi" TxtNew1.SetFocus TxtNew2.Text = "" SendKeys "Home+End" Exit Sub ElseIf Txtold.Text <> frmLogin.CurPsw Then MsgBox "old password wrong" Txtold.SetFocus TxtNew1.Text = "" TxtNew2.Text = "" SendKeys &qu

9、ot;Home+End" Exit Sub Else fil = FreeFile() Open App.Path + "user.ini" For Input As #fil i = 0 Do While Not EOF(fil) Input #fil, user(i), pws(i) Input #fil, state(i), Emplo(i) i = i + 1 Loop Usercount = i Close #fil pws(frmLogin.CurId) = TxtNew1.Text frmLogin.CurPsw = TxtNew1.Text fil = FreeFile() Open App.Path + "user.ini" For Output As #fil For i = 0 To Usercount - 1 Print #fil, user(i); "," pws(i); "," state(i); "," Emplo(i) Next i Close #fil Txtold.Text = "" TxtNew1.Text = "" TxtNew2.Text = "" Me.Hid