最新基于vb人事管理系統畢業設計含源文件-資料下載頁

　　

【正文】 xt i Mtab(1).Checked = True cutable = leave cuTabCh = TrueEnd SubPublic Sub showsalary() = select * from salary For i = 0 To 2 Mtab(i).Checked = False Next i Mtab(2).Checked = True cutable = salary cuTabCh = TrueEnd SubPrivate Sub Form_Load() Dim fil, tbcount, i As Integer Dim Tbstr(50), Tbnam(50) As String = + \ = + \ = select * from employee Call showemployee If Dir( + \) = Then 定制 定制 Else fil = FreeFile() Open + \ For Input As fil Do While Not EOF(fil) Input fil, Tbnam(i), Tbstr(i) i = i + 1 Loop Close fil tbcount = i For i = 0 To tbcount If Tbnam(i) = lsdegree Then Tbstr(i) ElseIf Tbnam(i) = lsdepart Then Tbstr(i) End If Next i 定制 定制 End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) EndEnd SubPrivate Sub DBGA_ButtonClick(ByVal ColIndex As Integer)Dim Co As Column Set Co = (ColIndex) Select Case ColIndex Case 4 = + + = + () = True 0 Case 7 39。degree = + + = + () = True 0 Case 8 39。department = + + = + () = True 0 End SelectEnd SubPrivate Sub DBGA_HeadClick(ByVal ColIndex As Integer) End SubPrivate Sub DBGA_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Mp End IfEnd SubPrivate Sub DBGA_RowColChange(LastRow As Variant, ByVal LastCol As Integer) cuAp = If cuAp 1 Then 職工編號= + CStr((職工編號)) If Then = 沒有此職員 Else With = 工號： + CStr(.Fields(0)) + 姓名： + CStr(.Fields(1)) + 性別： + CStr(.Fields(4)) + 部門： + CStr(.Fields(8)) + 職位： + CStr(.Fields(9)) + 電話： + CStr(.Fields(11)) End With End If End IfEnd SubPrivate Sub LsDegree_Click() If = 定制 Then Else (7) = (13) = CStr() (14) = CStr(Now) End IfEnd SubPrivate Sub LsDepart_Click() If = 定制 Then Else (8) = (13) = CStr() (14) = CStr(Now) End IfEnd SubPrivate Sub Lssex_Click() (4) = (13) = CStr() (14) = CStr(Now) End Sub39。Private Sub Lssex_LostFocus() = FalseEnd SubPrivate Sub Lsdegree_LostFocus() = FalseEnd SubPrivate Sub Lsdepart_LostFocus() = FalseEnd SubPrivate Sub DBGA_Scroll(Cancel As Integer) = False = False = FalseEnd Sub39。Private Sub MAbout_Click() End SubPrivate Sub Mhelp_Click() End SubPrivate Sub Moption_Click(Index As Integer) If Index = 0 Then If = root Then Else Pwin = Frmmain = False End If Else End End IfEnd SubPrivate Sub Mpop_Click(Index As Integer)Select Case Index Case 1 = False Case 2 If = 1 Then If MsgBox(確定要刪除嗎？, vbOKCancel, 確定) = vbOK Then cuAp = 0 Else MsgBox 請選擇要刪除的條目！ End If Case 3 End SelectEnd SubPrivate Sub Mtab_Click(Index As Integer)Dim i As Integer For i = 0 To 2 Mtab(i).Checked = False Next i Mtab(Index).Checked = True Select Case Index Case 0 Call showemployee Case 1 Call showleave Case 2 Call showsalary End Select End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 39。edit = False Case 2 39。del If = 1 Then If MsgBox(確定要刪除嗎？, vbOKCancel, 確定) = vbOK Then cuAp = 0 Else MsgBox 請選擇要刪除的條目！ End If Case 3 39。seek Case 4 39。setup End SelectEnd SubPrivate Sub Toolbar2_ButtonClick(ByVal Button As ) Select Case Case 1 Call showemployee Case 2 Call showleave Case 3 Call showsalary Case 4 If = root Then Else Pwin = Frmmain = False End If End Select End SubOption ExplicitConst MxUser = 100Dim user(MxUser), pws(MxUser), state(MxUser), Emplo(MxUser) As StringPrivate Sub CmdCancel_Click() If = Frmmain Then = True Else Call End If End SubPrivate Sub cmdOK_Click() Dim fil, i, Usercount As Integer If Then MsgBox two times no yizhi = SendKeys {Home}+{End} Exit Sub ElseIf Then MsgBox old password wrong = = SendKeys {Home}+{End} Exit Sub Else fil = FreeFile() Open + \ 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() = = fil = FreeFile() Open + \ For Output As fil For i = 0 To Usercoun