【文章內(nèi)容簡(jiǎn)介】 ,使用戶(hù)方便進(jìn)行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除。對(duì)于數(shù)據(jù)的一致性的問(wèn)題也通過(guò)程序進(jìn)行了有效的解決，但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方.致謝：在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師王剛老師身上學(xué)到了很多東西。王老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無(wú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)，使得系統(tǒng)能及時(shí)開(kāi)發(fā)完成，還有同組的同學(xué)同樣給我不少幫助，這里一并感謝。第十章 程序源代碼 一、 password_window:Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click() 39。設(shè)置全局變量為 false 39。不提示失敗的登錄 LoginSucceeded = False End End SubPrivate Sub cmdOK_Click() 39。檢查正確的密碼 If txtPassword = 0322 And txtUserName = admin Then 39。將代碼放在這里傳遞 39。成功到 calling 函數(shù) 39。設(shè)置全局變量時(shí)最容易的 LoginSucceeded = True Else MsgBox 無(wú)效的密碼，請(qǐng)重試!, , 登錄 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。記錄操作標(biāo)記Dim BMark As Variant 39。記錄標(biāo)簽Dim SData(100) As Variant 39。當(dāng)前記錄的字段數(shù)組Dim Cycle_Set As Integer 39。回收站操作標(biāo)記Const MSG2 = （無(wú)）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。打開(kāi)Call Open_DataCase 4 39?；厥照綜all Cycle_DataCase 6 39。更新Call Update_DataCase 7 39?；謴?fù)Call Resume_DataCase 8 39。備份Call Back_DataCase 10 39。關(guān)閉數(shù)據(jù)庫(kù)Call Close_DataCase 12 39。打開(kāi)單位信息表Call Factory_TableCase 13 39。人才信息表Call Person_TableCase 14 39。招聘信息表Call engage_TableCase 15 39。關(guān)閉信息表Call Close_TableCase 17 39。頁(yè)面設(shè)置Call Paper_SetCase 18 39。打印預(yù)覽Call Print_PreviousCase 19 39。打印Call Print_formCase 21 39。用戶(hù)設(shè)置Call User_SetCase 23 39。軟件說(shuō)明書(shū)Call Help_TextCase 24 39。作者Call About_AuthorCase 25 39。關(guān)于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。保存回收站數(shù)據(jù)Call Save_CycleCase 10 39。首記錄Call First_RecorderCase 11 39。上一條記錄Call Previous_RecorderCase 12 39。下一條記錄Call Next_RecorderCase 13 39。尾記錄Call Last_RecorderCase 1