【正文】 2 系統(tǒng)結構總圖 圖 系統(tǒng)結構總 第 2 章 數(shù)據(jù)庫設計 需求分析 本系統(tǒng)是用于添加，查找，刪除 人事檔案 。 [文件 ]菜單包含以下子菜單及其功能： [員工 登錄 ]：顯示 員工登錄 窗體 歡迎使用檔案管理系統(tǒng) 員工登錄 管理員登錄 檔案查詢 檔案存入 檔案查詢 檔案轉出 檔案添加 檔案修改 檔案刪除 信息移動 檔案添加 檔案刪除 信息移動 沈陽理工大學課程設計專用紙 No 沈陽理工大學 3 [管理員 登錄 ]：顯示 管理員登錄 窗體 [退出 ]：結束程序 。 管理員登錄成功則進入 [檔案存入與轉出 ]主窗體，子窗體分別為： [檔案存入 ]、 [檔案轉 出 ]、 [查詢 ]、 [退出 ]?？梢詫τ涗涍M行 添加 、刪除、確認、 修改、 取消操作 ； [檔案轉出 ]窗體則沒有修改操作； [查詢 ]窗體可以按各種條件查找，這些條件放在組合列表框Combo 中 ， 供用戶選擇。 檔案存入 信息 ： （檔案編號、職員編號、檔案類型、檔案存放位置、檔案存放日期）其中，“ 檔案編號 ”是 主 碼 ， “ 職員 編號 ”是外碼，參照 員工 信息表主碼“ 職員 編號”。 CREATE TABLE 存入 (檔案編號 CHAR(40) PRIMARY KEY, 職員編 號 CHAR(40), 檔案類型 CHAR(40), 檔案存放位置 CHAR(40), 檔案存放日期 DATETIME, FOREIGN KEY(職員編號 )REFERENCES 員工注冊 (職員編號 ) )。 [文件 ]菜單包含以下子菜單及其功能： [員工 登錄 ]：顯示 員工登錄 窗體 [管理員 登錄 ]：顯示 管理員登錄 窗體 [退出 ]：結束程序 。給出可以輸入字符的空白由TextBox 控件做成，可進行字體大小與顏色的修改。 登錄成功 Loop Close 1 If F = False Then 39。39。39。 圖 不合法用戶登錄 沈陽理工大學課程設計專用紙 No 沈陽理工大學 13 單擊“是”按鈕時，運行結果如圖 示 ： 圖 注冊操作 如果已注冊則出現(xiàn)提示如圖 示： 圖 已注冊提示 重新輸入多次提示如圖 示： 圖 錯誤提示 沈陽理工大學課程設計專用紙 No 沈陽理工大學 14 管理員登錄 管理員登錄窗體如圖 示： 圖 管理員登錄 代碼實現(xiàn)如下： Private Type UserInfo zh As String * 10 mima As String * 10 End Type Dim U As UserInfo Dim counter As Integer Dim G As Boolean Private Sub Command1_Click() Dim z As String * 10, m As String * 10 z = Trim() m = Trim() If = True Then F = False Open + \ For Random As 1 i = 0 Do While Not EOF(1) i = i + 1 Get 1, i, U 沈陽理工大學課程設計專用紙 No 沈陽理工大學 15 If z = And m = Then MsgBox 你是合法用戶 Unload Me 檔案存入與轉出 .Show F = True Exit Do End If 39。39。39。’’’’’注冊 Open + \ For Random As 2 i = 0 G = False While Not EOF(2) i = i + 1 Get 2, i, U If z = Then MsgBox 該用戶名已存在！ 請重新選擇！ G = True 沈陽理工大學課程設計專用紙 No 沈陽理工大學 16 End If Wend Close 2 Open + \ For Random As 2 If G = False Then = z = m Put 2, , U MsgBox 注冊成功 End If Close 2 End If End Sub Private Sub Command2_Click() = = End Sub Private Sub Command3_Click() Unload Me 歡迎使用 .Show End Sub 運行結果：用戶合法是，登錄后進入檔案存入與轉出窗體。 讓 [首記錄 ]按鈕無效 = False 39。在 Label6 上顯示當前記錄號 /記錄總數(shù)： = 記錄： amp。 移到末記錄 = True = True = False = False = 記錄： amp。 如果記錄指針移到首記錄之前 , 39。 amp。 如果記錄指針移到了末記錄之后 39。 End Sub Private Sub CmdOk_Click() = True = True = False = False End Sub Private Sub CmdPre_Click() 39。 amp。[前移 ]按鈕無效 = True 39。[刪除 ]按鈕有效 = False 39。 / amp。 記錄指針移到首記錄（顯示首記錄） = False 39。 讓 [末記錄 ]按鈕有效 39。 End Sub Private Sub CmdLast_Click() 39。 End Sub Private Sub CmdN_Click() Dim n As Integer n = n If Then 39。則記錄指針移到末記錄上 = False = False End If 沈陽理工大學課程設計專用紙 No 沈陽理工大學 25 = 記錄： amp。記錄指針移到下一條記錄 = True = True If Then 39。 / amp。如果記錄指針移到首記錄之前 , 39。 End Sub Private Sub Command1_Click() 檔案存入與轉出 .Show Unload Me End Sub 沈陽理工大學課程設計專用紙 No