【文章內容簡介】 ,使用戶方便進行數據備份和恢復、數據刪除。對于數據的一致性的問題也通過程序進行了有效的解決，但是由于畢業(yè)設計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方.致謝：在本次畢業(yè)設計中，我從指導老師王剛老師身上學到了很多東西。王老師認真負責的工作態(tài)度，嚴謹的治學精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都有一種巨大的幫助，感謝他耐心的輔導，使得系統(tǒng)能及時開發(fā)完成，還有同組的同學同樣給我不少幫助，這里一并感謝。第十章 程序源代碼 一、 password_window:Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click() 39。設置全局變量為 false 39。不提示失敗的登錄 LoginSucceeded = False End End SubPrivate Sub cmdOK_Click() 39。檢查正確的密碼 If txtPassword = 0322 And txtUserName = admin Then 39。將代碼放在這里傳遞 39。成功到 calling 函數 39。設置全局變量時最容易的 LoginSucceeded = True Else MsgBox 無效的密碼，請重試!, , 登錄 SendKeys {Home}+{End} End If End Sub二、face_window: Private Sub Form_Load()Move ( ) \ 2, ( ) \ 2End SubPrivate Sub Picture1_KeyPress(Keyascii As Integer)If Keyascii = 13 Then Unload Me End IfEnd Sub3\speed_window:Private Sub Command1_Click()If = 取消 ThenEndElseUnload MeEnd IfEnd SubPrivate Sub Command2_Click() = False Load Main_Window = 2 = 10 Load person_window = 20 Load factory_window = 30 Load engage_window = 40 Load author_window = 50 Load factory_report = 60 Load Search_Window = 70 Load Need_report = 80 Load Person_report = 90 Load about_system_window = 100 = 完成End SubPrivate Sub Form_Load() Move ( ) \ 2, ( ) \ 2 SetWindowPos , 1, 0, 0, 0, 0, 3 End Sub4\main_window:Option ExplicitDim Reco_Cancel As Integer 39。記錄操作標記Dim BMark As Variant 39。記錄標簽Dim SData(100) As Variant 39。當前記錄的字段數組Dim Cycle_Set As Integer 39?；厥照静僮鳂擞汣onst MSG2 = （無）Private Sub MAbout_Author_Click()Call About_AuthorEnd SubPrivate Sub MAbout_System_Click()Call About_SystemEnd SubPrivate Sub MAll_Search_Click()Call All_SearchEnd SubPrivate Sub MAppend_Recorder_Click()Call Append_RecorderEnd SubPrivate Sub MBack_Data_Click()Call Back_DataEnd SubPrivate Sub MCancle_Recorder_Click()Call Cancle_RecorderEnd SubPrivate Sub MClear_Reco_Click()Call Clear_RecoEnd SubPrivate Sub MClose_Data_Click()Call Close_DataEnd SubPrivate Sub MClose_Table_Click()Call Close_TableEnd SubPrivate Sub MCycle_Data_Click()Call Cycle_DataEnd SubPrivate Sub MDelete_Reco_Click()Call Delete_RecoEnd SubPrivate Sub MDelete_Recorder_Click()Call Delete_RecorderEnd SubPrivate Sub MDIForm_Load()Dim i As Integer(3).Visible = FalseFor i = 10 To 20Toolbar(0).Buttons(i).Enabled = FalseNext i = False = False = False = FalseReco_Cancel = 0Cycle_Set = 0End SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)Dim Key As IntegerKey = MsgBox(你真的退出人才管理系統(tǒng)嗎？, 33, 退出管理系統(tǒng)！)If Key = 1 Then Else Cancel = TrueEnd IfEnd SubPrivate Sub MEngage_Table_Click()Call engage_TableEnd SubPrivate Sub MExit_System_Click()Call Exit_SystemEnd SubPrivate Sub MFactory_Table_Click()Call Factory_TableEnd SubPrivate Sub MFirst_Recorder_Click()Call First_RecorderEnd SubPrivate Sub MHelp_Text_Click()Call Help_TextEnd SubPrivate Sub MLast_Recorder_Click()Call Last_RecorderEnd SubPrivate Sub MModify_Recorder_Click()Call Modify_RecorderEnd SubPrivate Sub MNew_Data_Click()Call New_DataEnd SubPrivate Sub MNext_Recorder_Click()Call Next_RecorderEnd SubPrivate Sub MOpen_Data_Click()Call Open_DataEnd SubPrivate Sub MOther_Search_Click()Call Other_SearchEnd SubPrivate Sub MPaper_Set_Click()Call Paper_SetEnd SubPrivate Sub MPerson_Table_Click()Call Person_TableEnd SubPrivate Sub MPresent_Search_Click()Call Present_SearchEnd SubPrivate Sub MPrevious_Recorder_Click()Call Previous_RecorderEnd SubPrivate Sub MPrint_Form_Click()Call Print_formEnd SubPrivate Sub MPrint_Previous_Click()Call Print_PreviousEnd SubPrivate Sub MResume_Data_Click()Call Resume_DataEnd SubPrivate Sub MRevert_Reco_Click()Call Revert_RecoEnd SubPrivate Sub MSave_Cycle_Click()Call Save_CycleEnd SubPrivate Sub MSave_Recorder_Click()Call Save_RecorderEnd SubPrivate Sub MUpdate_Data_Click()Call Update_DataEnd SubPrivate Sub MUser_Set_Click()Call User_SetEnd SubPrivate Sub Toolbar_ButtonClick(Index As Integer, ByVal Button As )Select Case IndexCase 0Select Case Case 1 39。新建Call New_DataCase 2 39。打開Call Open_DataCase 4 39?；厥照綜all Cycle_DataCase 6 39。更新Call Update_DataCase 7 39?；謴虲all Resume_DataCase 8 39。備份Call Back_DataCase 10 39。關閉數據庫Call Close_DataCase 12 39。打開單位信息表Call Factory_TableCase 13 39。人才信息表Call Person_TableCase 14 39。招聘信息表Call engage_TableCase 15 39。關閉信息表Call Close_TableCase 17 39。頁面設置Call Paper_SetCase 18 39。打印預覽Call Print_PreviousCase 19 39。打印Call Print_formCase 21 39。用戶設置Call User_SetCase 23 39。軟件說明書Call Help_TextCase 24 39。作者Call About_AuthorCase 25 39。關于Call About_SystemCase 27 39。退出Call Exit_SystemEnd SelectCase 1Select Case Case 1 39。添加Call Append_RecorderCase 2 39。修改Call Modify_RecorderCase 3 39。刪除Call Delete_RecorderCase 5 39。清空Call Clear_RecoCase 6 39。刪除Call Delete_RecoCase 7 39。還原Call Revert_RecoCase 8 39。保存回收站數據Call Save_CycleCase 10 39。首記錄Call First_RecorderCase 11 39。上一條記錄Call Previous_RecorderCase 12 39。下一條記錄Call Next_RecorderCase 13 39。尾記錄Call Last_RecorderCase 1