【正文】 程序設(shè)計(jì)，可用于開發(fā) Windows 環(huán)境下的種類應(yīng)用程序。如果對(duì)界面的效果不滿意，還要回到程序中修 改。 Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。在設(shè)計(jì) Visual Basic 程序的過程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件 (.EXE)，脫離 Vi sual Basic 環(huán)境，直接在 Windows 環(huán)境下運(yùn)行。 在用 Visual Basic 設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個(gè)微小的子程序，即過程。 Visual Basic 提供開放式數(shù)據(jù)連接，即 ODBC 功能， 可通過直接訪問或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫，如 SQL Server， Oracle 等。 Visual Basic 提供了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他 Windows 應(yīng)用程序建立動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。 動(dòng)態(tài)鏈接庫 (DLL) Visual Basic 是一種高級(jí)程序設(shè)計(jì)語言，不具備低級(jí)語言的功能，對(duì)訪問機(jī)器硬件的操作不太容易實(shí)現(xiàn)。 第二章 結(jié)合軟件工程方法 ,對(duì)系統(tǒng)進(jìn)行需求分析、功能劃分、數(shù)據(jù)流圖設(shè)計(jì)，并結(jié)合數(shù)據(jù)庫原理和功能劃分進(jìn)行 ER 圖的繪制、數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)， 第 三 章 根據(jù)需求分析的結(jié)果 ， 用戶概念數(shù)據(jù)模型表示數(shù) 據(jù)及其相互間的聯(lián)系 。系統(tǒng)調(diào)研采取的主要方法是到現(xiàn)場(chǎng)去，通過座談、詢問 、觀察甚至直接參與公司經(jīng)營活動(dòng)，自上而下、逐步細(xì)化的進(jìn)行了解。 該公司組織結(jié)構(gòu)圖如下 系統(tǒng)目標(biāo) 采用公司現(xiàn)有的軟硬件軟件及科學(xué)的管理系統(tǒng)開發(fā)方案，建立人事檔案管理系統(tǒng)，實(shí)現(xiàn)人事檔案管理的計(jì)算機(jī)自動(dòng)化。 維護(hù)員工基本信息：人事管理主要負(fù)責(zé)人員基本信息的維護(hù)，包括新進(jìn)和老員工檔案的建立，員工信息的修改。 人事信息的查詢功能 ? 查詢條件的添加： ? 查詢條件的刪 除： ? 查詢條件的清空： ? 單一字段查詢和多字段的組合查詢： 人事信息的統(tǒng)計(jì) ? 對(duì)數(shù)據(jù)庫中的員工的性別，年齡的簡單統(tǒng)計(jì)。 人事信息系統(tǒng)管理 ? 管理員實(shí)現(xiàn)對(duì)系統(tǒng)用戶的添加，刪除。 數(shù)據(jù)詞典 上面中的業(yè)務(wù)數(shù)據(jù)流圖只能給出系統(tǒng)邏輯功能的一個(gè)總框架而缺乏詳細(xì)、具體的內(nèi)容。在系統(tǒng)分析的過程中，產(chǎn)生了大量的數(shù)據(jù)詞典。 修改記錄： 編寫 日期 2020326 審核 日期 數(shù)據(jù)流條目 數(shù)據(jù)流 系統(tǒng)名： 人事檔案管理 條目名： 員工數(shù)據(jù) 編號(hào)： F1 別名：無 圖 22 數(shù)據(jù)結(jié)構(gòu)條目舉例 來源： 檔案處理 去處： 檔案保存 數(shù)據(jù)流結(jié)構(gòu)： 員工數(shù)據(jù) ={員工編號(hào) +姓名 +性別 +年齡 +婚姻狀態(tài) +工作時(shí)間 +技術(shù)職稱 +基本工資 +部門 } 簡要說明： 上面實(shí)際的員工相關(guān)信息可能更多，這里僅列出常用的字段信息。這種數(shù)據(jù)模式能真實(shí)地反應(yīng)用戶要求的實(shí)際情況，是 一種容易被人們理解的直觀的數(shù)據(jù)庫結(jié)構(gòu)模式。 概念設(shè)計(jì)中自頂向下的實(shí)體分析方法，即常用的實(shí)體聯(lián)系模型（簡稱 ER 模型），對(duì)具體數(shù)據(jù)進(jìn)行抽象加工，將實(shí)體集合抽象成實(shí)體類型。其主要內(nèi)容包括兩部分： 1） 根據(jù)數(shù)據(jù)流圖和數(shù)據(jù)字典等進(jìn)行概念 設(shè)計(jì)，畫出實(shí)體關(guān)系圖，即 ER 圖； 2） 根據(jù) ER 圖進(jìn)行邏輯設(shè)計(jì)，建立起數(shù)據(jù)庫邏輯結(jié)構(gòu)，即所有的二維表。 聯(lián)系描述 1. 屬于 ：是實(shí)體集 員工 和 部門 之間的 1:1 聯(lián) 系，有實(shí)體集 用戶 作為這個(gè)聯(lián)系的強(qiáng)制成份，這就是說，每個(gè)用戶必須屬于一個(gè)部門。本系統(tǒng)為了簡化系統(tǒng)的復(fù)雜度，暫時(shí)不研究這種聯(lián)系和相應(yīng)的實(shí)體。對(duì)個(gè)關(guān)系選擇主健， 按照關(guān)系模式的規(guī)范化進(jìn)行規(guī)范，消除數(shù)據(jù)依賴中不合適的部分，使模式中的各關(guān)系模式達(dá)到某種程 度 的 “ 分離 ”。 3. 若實(shí)體集 E2 與實(shí)體集 E1 的聯(lián)系 N:1,而 E2 是 E1 的可選成員類，可以引入另一個(gè)表示聯(lián)系的關(guān)系模式來避免空值問題，外鍵用 表示。 關(guān)系模式的規(guī)范化 經(jīng)分析檢驗(yàn)，上述的各關(guān)系模式事實(shí)上都已屬于 3NF，這是我所需的階段。 user 表 序號(hào) 字段名稱 類型 寬度 1 用戶名 文本 50 2 密碼 數(shù)字（長整型） 3 權(quán)限 數(shù)字（整型） 說明：系統(tǒng)對(duì)不同用戶設(shè)置不同的使用權(quán)限。可靠性是系統(tǒng)為了避免來自系統(tǒng)內(nèi)部的差錯(cuò)、故障而采取的保護(hù)措施；安全性是系統(tǒng)為了防止來自外部的對(duì)系統(tǒng)資源特別是信息的非法使用和訪問 ，有意或無意的破壞而采取的安全和保密手段。特別是近期計(jì)算機(jī)病毒泛濫，使信息系統(tǒng)安全上的脆弱性表現(xiàn)的越來越明顯。 b) 設(shè)備安全 本系統(tǒng)采用的設(shè)備必須本身穩(wěn)定可靠；對(duì)環(huán)境條件的要求盡可能低；設(shè)備能抗震防潮；本身的電磁輻射小，抗電磁輻射干擾和抗靜電能力強(qiáng)；有過壓、欠壓、過流等電沖擊的自動(dòng)防護(hù)能力；有良好的安全接地。 2. 數(shù)據(jù)安全措施 為了使數(shù)據(jù)庫管理系統(tǒng)有效地運(yùn)行同時(shí)保護(hù)數(shù)據(jù)庫的安全，我認(rèn)為本系統(tǒng)需要采用三種安全技術(shù)：口令保護(hù)、數(shù)據(jù)加密、存取控制。 3. 安全管理措施 為了維護(hù)系統(tǒng)的安全，需要依據(jù)系 統(tǒng)的實(shí)踐活動(dòng)建立一套行政管理規(guī)章制度。 系統(tǒng)可靠性方案與措施 信息系統(tǒng)的可靠性是指，在滿足一定條件的應(yīng)用環(huán)境中系統(tǒng)能夠正常工作的能力。 在本系統(tǒng)中采用的可靠性技術(shù)是負(fù)荷分布技術(shù)，將信息系統(tǒng)的信息處理、數(shù)據(jù)存儲(chǔ)以及其它的信息管理功能分布在多個(gè)設(shè)備單元上，這樣可以防止單一設(shè)備的故障致使整個(gè)系統(tǒng)癱瘓，未發(fā)生故障的部分可以照常運(yùn)行，從而把故障影響限制在最小的范圍內(nèi)。 歡迎界面自動(dòng)關(guān)閉是利用在窗體上添加一個(gè)時(shí)鐘控件 Timer1，并設(shè)置它的屬性 interval 值為 2020。系統(tǒng)根據(jù)輸入的用戶名和密碼和數(shù)據(jù)庫中合法用戶的信息進(jìn)行校驗(yàn)后才能進(jìn)入系統(tǒng)。按鈕控件用來觸發(fā)相應(yīng)事件的發(fā)生。 程序流程圖 3：代碼設(shè)計(jì)：按鈕 mand1 的 caption 屬性為 ok， click 代碼如下： Private Sub cmdOK_Click() If Trim( = ) Then MsgBox 用戶名不能為空！ , vbOKOnly + vbExclamation, 警告 Else Set ADORst1 = New select * from user_info where 用戶名 = 39。, DB, adOpenStatic, adLockOptimistic If = True Then MsgBox 沒有這個(gè)用戶，請(qǐng)重新輸入用戶名 !, vbOKOnly + vbExclamation, 警告 Else If Trim((密碼 )) = Trim() Then If (權(quán)限 ) = 管理員 Then qx = 1 End If UserName = Trim() Else 開始 輸入密碼 Pass=text 進(jìn)入系統(tǒng) X=x+1 x=3 結(jié)束 MsgBox 輸入密碼不正確，請(qǐng)重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If End If miCount = miCount + 1 If miCount = 3 Then End If Exit Sub End Sub 4：代碼說明：首先新建一個(gè)記錄集 ADORst1，利用該記錄集打開用戶表。管理員權(quán)限的用戶可以獲得全局變量 qx=1。菜單分為 5個(gè)菜單，分別是數(shù)據(jù)處理，數(shù)據(jù)查詢，數(shù)據(jù)統(tǒng)計(jì)，系統(tǒng)管理。相反等于 1，則表明是系統(tǒng)的管理員，權(quán)限子菜單可用。如果 qx 不等于 1，那么該菜單項(xiàng)為不可用狀態(tài)，從而實(shí)現(xiàn)一般操作員不能添加用戶的目的。該窗體完成對(duì)員工的基本信息的添加，修改，刪除，瀏覽等。從而完成相應(yīng)的功能。 窗體啟動(dòng) 查詢部門表 設(shè)置部門組合框值 查詢員工表 顯示第一條記錄 結(jié)束 3：添加按鈕 click 事件程序設(shè)計(jì)流程如下： 代碼設(shè)計(jì)： Private Sub Command1_Click() Mode = add If = 添加 Then Call CanEdit = 保存 For i = 0 To 7 Text(i).Text = Next i = Else Call NoEdit For i = 0 To 7 If Text(i).Text = Then MsgBox 輸入信息不能為空！ , vbOKOnly + vbExclamation, 警告 Text(i).SetFocus Exit Sub End If Next i If = Then MsgBox 輸入信息不能為空！ , vbOKOnly + vbExclamation, 警告 開始 Caption=添加 Caption=保存 文本框可用值空 Caption=添加 文本框非空 警告結(jié)束 添加記錄集 更新記錄集 結(jié)束 Exit Sub End If If Not IsDate(Text(5).Text) Then MsgBox 工作時(shí)間應(yīng)輸 入日期（ yyyymmdd）！ , vbOKOnly + vbExclamation, 警告 Text(5).SetFocus Exit Sub Else Text(5).Text = Format(Text(5).Text, yyyymmdd) End If = 添加 For i = 0 To 7 (i) = Text(i).Text Next i (i) = End If End Sub 代碼設(shè)計(jì)說明：首先將 mand1 的 caption 屬性值修改為保存，當(dāng)員工信息添加后再點(diǎn)擊保存，將 caption 屬性值修改為添加，這樣增強(qiáng)了系統(tǒng)的交互性。系統(tǒng)利用 update 語句實(shí)現(xiàn)記錄集的更新。查詢添加設(shè)計(jì)成用戶任意添加和刪除查詢條件。一個(gè)文本框控件，用于輸入查詢條件字段值。 2：窗體的 load 事件代碼設(shè)計(jì)： 窗體的 load 設(shè)計(jì)完成當(dāng)窗體載入時(shí)完成的事件，這里設(shè)計(jì)完成的事件包括： 設(shè)置網(wǎng)格控件的 DataSource，使之顯示記錄集中的信息。向組合框 Combl2 中添加比較運(yùn)算符 = = = Like 39。 單擊“添加”按鈕，將設(shè)置的條件寫入列表框中。 amp。 ElseIf = 職工年齡 Or = 基本工資 Then 39。 Trim() Else 39。 39。 End If 39。 Private Sub Command4_Click() 39。 39。 (i) Next i FindStr = LTrim(FindStr) 39。 FindStr Set ADORst = New Recordset Fi