數(shù)據(jù)庫(kù)課程設(shè)計(jì)學(xué)生考勤系統(tǒng)-資料下載頁(yè)
2025-06-17 16:44本頁(yè)面
【正文】 ck() 請(qǐng)銷(xiāo)假End SubPrivate Sub Command9_Click() 考勤End SubOption Compare DatabasePrivate Sub Command5_Click()On Error GoTo Err_Command5_Click Exit_Command5_Click: Exit SubErr_Command5_Click: MsgBox Resume Exit_Command5_ClickEnd SubPrivate Sub Command6_Click()If Text1 = zt And Text3 = 000 Then dlText1 = Text3 = Else: MsgBox 用戶名或密碼錯(cuò)誤！Text1 = Text3 = End IfEnd SubPrivate Sub Command8_Click()On Error GoTo Err_Command8_Click Exit_Command8_Click: Exit SubErr_Command8_Click: MsgBox Resume Exit_Command8_Click End SubOption Compare DatabaseSub Form_Current()On Error GoTo Form_Current_Err If ChildFormIsOpen() Then FilterChildFormForm_Current_Exit: Exit SubForm_Current_Err: MsgBox Error$ Resume Form_Current_ExitEnd SubSub ToggleLink_Click()On Error GoTo ToggleLink_Click_Err If ChildFormIsOpen() Then CloseChildForm Else OpenChildForm FilterChildForm End IfToggleLink_Click_Exit: Exit SubToggleLink_Click_Err: MsgBox Error$ Resume ToggleLink_Click_ExitEnd SubPrivate Sub FilterChildForm() If Then Forms![考勤1].DataEntry = True Else Forms![考勤1].Filter = [班級(jí)編號(hào)] = amp。 amp。 Me.[班級(jí)編號(hào)] amp。 Forms![考勤1].FilterOn = True End IfEnd SubPrivate Sub OpenChildForm() 考勤1 If Not Me.[ToggleLink] Then Me![ToggleLink] = TrueEnd SubPrivate Sub CloseChildForm() acForm, 考勤1 If Me![ToggleLink] Then Me![ToggleLink] = FalseEnd SubPrivate Function ChildFormIsOpen() ChildFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, 考勤1) And acObjStateOpen) FalseEnd FunctionOption Compare DatabasePrivate Sub Command10_Click()On Error GoTo Err_Command10_Click acFormBar, acRecordsMenu, 5, , acMenuVer70Exit_Command10_Click: Exit SubErr_Command10_Click: MsgBox Resume Exit_Command10_ClickEnd SubPrivate Sub Command11_Click()On Error GoTo Err_Command11_Click , , acNextExit_Command11_Click: Exit SubErr_Command11_Click: MsgBox Resume Exit_Command11_ClickEnd SubPrivate Sub Command12_Click()On Error GoTo Err_Command12_Click , , acPreviousExit_Command12_Click: Exit SubErr_Command12_Click: MsgBox Resume Exit_Command12_ClickEnd SubOption Compare DatabasePrivate Sub Command5_Click()On Error GoTo Err_Command5_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(25353) amp。 ChrW(23398) amp。 ChrW(21495) amp。 ChrW(26597) amp。 ChrW(29726) amp。 ChrW(49) stLinkCriteria = [學(xué)號(hào)]= amp。 考勤![學(xué)號(hào)] stDocName, , , stLinkCriteriaExit_Command5_Click: Exit SubErr_Command5_Click: MsgBox Resume Exit_Command5_ClickEnd SubPrivate Sub Command6_Click()On Error GoTo Err_Command6_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(25353) amp。 ChrW(23398) amp。 ChrW(21495) amp。 ChrW(26597) amp。 ChrW(29726) amp。 ChrW(49) stDocName, , , stLinkCriteriExit_Command6_Click: Exit SubErr_Command6_Click: MsgBox Resume Exit_Command6_ClickEnd Sub
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1