計(jì)算機(jī)應(yīng)用專業(yè)畢業(yè)設(shè)計(jì)5-人事管理系統(tǒng)畢業(yè)設(shè)計(jì)程序清單-文庫(kù)吧資料
2025-06-06 12:40本頁(yè)面
【正文】 End Sub Private Sub Form_Unload(Cancel As Integer) = True Unload Me End Sub Option Explicit Dim Tbnam(50), Tbstr(50) As String 39。 Emplo(i) Next i Close fil = = = If = Frmmain Then = True Else Call 23 End If End If End Sub Private Sub Form_LostFocus() End Sub Private Sub Form_Unload(Cancel As Integer) 39。 state(i)。 pws(i)。setup End Select End Sub Private 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 21 Else Pwin = Frmmain = False End If End Select End Sub Option Explicit Const MxUser = 100 Dim user(MxUser), pws(MxUser), state(MxUser), Emplo(MxUser) As String Private Sub CmdCancel_Click() If = Frmmain Then = True Else Call End If End Sub Private 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 = = 22 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 Usercount 1 Print fil, user(i)。del If = 1 Then If MsgBox( 確定要?jiǎng)h除嗎？ , vbOKCancel, 確定 ) = vbOK Then cuAp = 0 Else MsgBox 請(qǐng)選擇要?jiǎng)h除的條目！ End If Case 3 39。 Private Sub MAbout_Click() End Sub Private Sub Mhelp_Click() End Sub Private Sub Moption_Click(Index As Integer) If Index = 0 Then If = root Then Else Pwin = Frmmain = False End If Else End End If End Sub Private Sub Mpop_Click(Index As Integer) Select Case Index Case 1 19 = False Case 2 If = 1 Then If MsgBox( 確定要?jiǎng)h除嗎？ , vbOKCancel, 確定 ) = vbOK Then cuAp = 0 Else MsgBox 請(qǐng)選擇要?jiǎng)h除的條目！ End If Case 3 End Select End Sub Private 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 Sub 20 Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 39。department = + + = + () = True 0 End Select End Sub Private Sub DBGA_HeadClick(ByVal ColIndex As Integer) 16 End Sub Private Sub DBGA_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Mp End If End Sub Private Sub DBGA_RowColChange(LastRow As Variant, ByVal LastCol As Integer) cuAp = If cuAp 1 Then 職工編號(hào) = + CStr((職工編號(hào) )) If Then = 沒(méi)有此職員 Else With = 工號(hào)： + CStr(.Fields(0)) + 姓名： + CStr(.Fields(1)) + 性別： + CStr(.Fields(4)) + 部門(mén)： + CStr(.Fields(8)) + 職位： + CStr(.Fields(9)) + 電話： + CStr(.Fields(11)) End With End If End If End Sub Private Sub LsDegree_Click() If = 定制 Then Else 17 (7) = (13) = CStr() (14) = CStr(Now) End If End Sub Private Sub LsDepart_Click() If = 定制 Then Else (8) = (13) = CStr() (14) = CStr(Now) End If End Sub Private
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1