【正文】 這些都有待于進(jìn)一步的改善。 其缺點(diǎn)為：結(jié)構(gòu)較為簡(jiǎn)單，無(wú)法實(shí)現(xiàn)比較復(fù)雜的人事檔案管理 在整個(gè)畢業(yè)設(shè)計(jì)階段的工作和本論文的寫(xiě)作過(guò)程的經(jīng)歷將會(huì)使我終生受益，并對(duì)我今后的工作和發(fā)展產(chǎn)生深遠(yuǎn)的影響。系統(tǒng)設(shè)計(jì)為整個(gè)程序構(gòu)建了骨架 ,各個(gè)功能模塊實(shí)現(xiàn)各個(gè)細(xì)節(jié)部分。 一個(gè)完整的人事 檔案 管理系統(tǒng)就創(chuàng)建完畢了。 讓組合框 初始選中 姓名 項(xiàng) = 39。 = str Dim SQLStr As String End Sub Private Sub Form_Load() 檔案編號(hào) 39。 Text1 amp。 Where 存入 .檔案編號(hào) = 39。 圖 查詢 代碼實(shí)現(xiàn)如下： 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No 沈陽(yáng)理工大學(xué) 27 Private Sub Command1_Click() Dim str As String str = Select 存入 .檔案編號(hào) , 存入 .* From 存入 Join 轉(zhuǎn)出 str = str amp。 / amp。[取消 ]按鈕無(wú)效 = 記錄： amp。[刪除 ]按鈕有效 = False 39。[末記錄 ]按鈕有效 = True 39。[前移 ]按鈕無(wú)效 = True 39。 End Sub Private Sub Command1_Click() 檔案存入與轉(zhuǎn)出 .Show Unload Me End Sub 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No 沈陽(yáng)理工大學(xué) 26 Private Sub Form_Load() = False 39。 amp。如果記錄指針移到首記錄之前 , 39。 單 擊 [確認(rèn) ]按鈕 = True = True = False = False End Sub Private Sub CmdPre_Click() 39。 / amp。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。記錄指針移到下一條記錄 = True = True If Then 39。 / amp。則記錄指針移到末記錄上 = False = False End If 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No 沈陽(yáng)理工大學(xué) 25 = 記錄： amp。則記錄指針移到首記錄上 = False = False End If If Then 39。 End Sub Private Sub CmdN_Click() Dim n As Integer n = n If Then 39。 amp。 End Sub Private Sub CmdLast_Click() 39。 amp。 讓 [末記錄 ]按鈕有效 39。 讓 [前移 ]按鈕無(wú)效 = True 39。 記錄指針移到首記錄（顯示首記錄） = False 39。顯示 Form2 39。 / amp。 [取消 ]按鈕無(wú)效 = 記錄： amp。[刪除 ]按鈕有效 = False 39。[末記錄 ]按鈕有效 = True 39。[前移 ]按鈕無(wú)效 = True 39。 End Sub Private Sub Command1_Click() Unload Me End Sub 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No 沈陽(yáng)理工大學(xué) 21 Private Sub Command2_Click() 檔案存入與轉(zhuǎn)出 .Show Unload Me End Sub Private Sub Form_Load() = False 39。 amp。如果記錄指針移到首記錄之前 , 39。 End Sub Private Sub CmdOk_Click() = True = True = False = False End Sub Private Sub CmdPre_Click() 39。 amp。 如果記錄指針移到了末記錄之后 39。 End Sub Private Sub CmdNext_Click() 39。 amp。 如果記錄指針移到了末記錄之后 39。 如果記錄指針移到首記錄之前 , 39。 / amp。 移到末記錄 = True = True = False = False = 記錄： amp。 / amp。在 Label6 上顯示當(dāng)前記錄號(hào) /記錄總數(shù)： = 記錄： amp。 讓 [后移 ]按鈕有效 = True 39。 讓 [首記錄 ]按鈕無(wú)效 = False 39。 檔案存入 檔案存入 的編輯 圖 如下： 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No 沈陽(yáng)理工大學(xué) 18 圖 檔案存入編輯 代碼實(shí)現(xiàn)如下： Private Sub CmdAdd_Click() = False = False = True = True End Sub Private Sub CmdDel_Click() x = MsgBox(確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？ , vbYesNo + vbQuestion, 確認(rèn) ) If x = vbYes Then If Then End If Else End If End Sub 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No 沈陽(yáng)理工大學(xué) 19 Private Sub CmdEsc_Click() = True = True = False = False End Sub Private Sub CmdFirst_Click() 39?！?cè) Open + \ For Random As 2 i = 0 G = False While Not EOF(2) i = i + 1 Get 2, i, U If z = Then MsgBox 該用戶名已存在！ 請(qǐng)重新選擇！ G = True 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No 沈陽(yáng)理工大學(xué) 16 End If Wend Close 2 Open + \ For Random As 2 If G = False Then = z = m Put 2, , U MsgBox 注冊(cè)成功 End If Close 2 End If End Sub Private Sub Command2_Click() = = End Sub Private Sub Command3_Click() Unload Me 歡迎使用 .Show End Sub 運(yùn)行結(jié)果：用戶合法是，登錄后進(jìn)入檔案存入與轉(zhuǎn)出窗體。39。39。39。39。 登錄成功 Loop Close 1 If F = False Then 39。 圖 不合法用戶登錄 沈陽(yáng)理工大學(xué)課