基于vb人事管理系統畢業設計-資料下載頁

　　

【正文】 ivate 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 Usercount 1 Print fil, user(i)。 ,。 pws(i)。 ,。 state(i)。 ,。 Emplo(i) Next i Close fil = = = If = Frmmain Then = True Else Call End If End If End SubPrivate Sub Form_LostFocus() End SubPrivate Sub Form_Unload(Cancel As Integer) 39。 = True 39。 Unload Me End SubOption ExplicitPrivate Sub Cmb1_Click() With Cmb1 If .Text = 職工編號 Or .Text = 交通補助 Or .Text = 加班補助 Or .Text = 工資編號 Or .Text = 假條編號 Or .Text = 身份證號 Or .Text = 出生日期 Or .Text = 中止日期 Or .Text = Edit Or .Text = 年份 Or .Text = 月份 Or .Text = 天數 Or .Text = 基本工資 Or .Text = 總工資 Or .Text = 考勤扣除 Or .Text = 扣稅 Or .Text = 總扣除 Or .Text = 保險扣除 Then = = 0 Else 等于 相似 = 0 End If End WithEnd SubPrivate Sub Cmb3_Click()With Cmb3 If .Text = 職工編號 Or .Text = 工資編號 Or .Text = 假條編號 Or .Text = 身份證號 Or .Text = 出生日期 Or .Text = 中止日期 Or .Text = Edit Or .Text = 年份 Or .Text = 月份 Or .Text = 天數 Or .Text = 基本工資 Or .Text = 總工資 Or .Text = 考勤扣除 Or .Text = 扣稅 Or .Text = 總扣除 Or .Text = 保險扣除 Then = = 0 Else 等于 相似 = 0 End If End WithEnd SubPrivate Sub CmdCancel_Click() = TrueEnd Su