【正文】 ation System），是一個(gè)由人、計(jì)算機(jī)等組成的 能進(jìn)行信息的收集、傳送、儲(chǔ)存、維護(hù)和使用的系統(tǒng)，能夠?qū)崪y(cè)企業(yè)的各種運(yùn)行情況，并利用過(guò)去的歷史數(shù)據(jù)預(yù)測(cè)未來(lái)，從企業(yè)全局的角度出發(fā)輔助企業(yè)進(jìn)行決策，利用信息控制企業(yè)的行為，幫助企業(yè)實(shí)現(xiàn)其規(guī)劃目標(biāo) 。該系統(tǒng)對(duì)工資信息進(jìn)行管理 ,具有手工管理所無(wú)法比擬的優(yōu)點(diǎn)。 rapidly needs the information。這一階段，由于當(dāng)時(shí)計(jì)算機(jī)硬、軟件的限制，數(shù)據(jù)處理的性質(zhì)只是使用計(jì)算機(jī)代替人的手工勞動(dòng)，進(jìn)行簡(jiǎn)單的單項(xiàng)數(shù)據(jù)處理工作，如計(jì)算工資、數(shù)據(jù)統(tǒng)計(jì)、報(bào)表登記、編制計(jì)劃等。這個(gè)階段的處理方式是在數(shù)據(jù)庫(kù)和網(wǎng)絡(luò)基礎(chǔ)上組成分布式處理系統(tǒng)。 例如 ： 檢索迅速、查找方便、可靠性高、存儲(chǔ)量畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 6 大、保密性好、壽命長(zhǎng) 、成本低等。 3) 輸入：?jiǎn)T工基本信息、考核詳細(xì)記錄等相關(guān)信息。 歸納起來(lái)，好處大約有以下幾點(diǎn)： (1) 可以存儲(chǔ)職員的檔案，安全、高效； (2) 只需一到二名會(huì)計(jì)人員經(jīng)過(guò)基本培訓(xùn)即可操作系統(tǒng)，節(jié)省大量人力； 在假設(shè)的條件下，用戶的需求可分為如下幾個(gè)方面： 第 1 方面是員工的管理，包括員工的姓名、性別、職位等信息； 第 2 方面是職位的管理，每個(gè)職位對(duì)應(yīng)著相應(yīng)的工資和津貼； 第 3 方面是績(jī)效考評(píng)的管理，包括各種獎(jiǎng)懲措 施，以及項(xiàng)目提成等內(nèi)容； 第 4 方面是工資發(fā)放； 第 5 方面是各種各樣的統(tǒng)計(jì)報(bào)表，方便用戶對(duì)以往數(shù)據(jù)的把握和管理； 業(yè)務(wù)流程 業(yè)務(wù)流程圖圖示說(shuō)明 系 統(tǒng) 中 人 員 系 統(tǒng) 外 實(shí) 體 數(shù) 據(jù) 流 向 文 件 圖 業(yè)務(wù)流程圖圖示說(shuō)明 工資管理信息系統(tǒng)業(yè)務(wù)流程圖 根據(jù)假設(shè)條件，設(shè)工資發(fā)放的業(yè)務(wù)流程如圖 所示。 Visual Basic 的特點(diǎn)： ： Visual Basic 是可視化開(kāi)發(fā)工具的先驅(qū)與典范，實(shí)際上， Visual Basic 所展現(xiàn)出來(lái)的可視性風(fēng)格，已經(jīng)成為了諸多可視性繼承開(kāi)發(fā)工具的參照 標(biāo)準(zhǔn)。因此，在 Visual Basic 中創(chuàng)建的部件可以自用，也可以在其他開(kāi)發(fā)環(huán)境中使用，同時(shí) Visual Basic 也可以引用由其他開(kāi)發(fā)工具建立的部件。 Access 中數(shù)據(jù)庫(kù)文件不是簡(jiǎn)單的存儲(chǔ)數(shù)據(jù)的表，其數(shù)據(jù)庫(kù)文件還包括操作或控制數(shù)據(jù)的其他對(duì)象（如查詢，窗體和報(bào)表等）。 Visual Basic 中 的 三種數(shù)據(jù)訪問(wèn)接口分別代 表了該技術(shù)的不同發(fā)展階段。 3) 績(jī)效考核。 2) 職位信息管理。 5) 報(bào)表功能。一個(gè) “關(guān)系 ”可加兩個(gè)標(biāo)識(shí)（ labels），指出各自的關(guān)系指向。通過(guò)含有實(shí)體和相互間關(guān)系的瀏覽器，可以看到哪些關(guān)系是強(qiáng)制的，哪些是任意的 。變量要求聲明 Option Explicit 39。 \職工工資管理系統(tǒng) .mdb Set gX = CreateObject() End Sub 調(diào)用主界面中的各個(gè)窗體，如調(diào)用“人員管理”窗體： Private Sub HRManage_Click() 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 19 End Sub 其他窗體同上方法。 編寫窗體代碼：首先定義窗體的成員變量，為了讓其他窗體使用這個(gè)變量，設(shè)置其屬性為 Public: 39。如圖４ .7 所示： 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 21 圖 修改員工窗體 職位管理模塊的設(shè)計(jì)與實(shí)現(xiàn) 點(diǎn)擊主窗口“職位”菜單后，顯示職位信息管理窗口。Data Source= amp。窗體初始化時(shí)，會(huì)把“職位管理”窗體中選中的數(shù)據(jù)顯示到 TxtValue 控件數(shù)組中。用戶單擊“修改特殊項(xiàng)”按鈕，則顯示修改特殊項(xiàng)窗體，并將相關(guān)的用戶選定信息傳遞給修畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 24 改特殊項(xiàng)窗體。用戶單擊“取消”按鈕，退出該窗體。動(dòng)態(tài)生成 39。通過(guò)這次畢業(yè)設(shè)計(jì)的實(shí)際“練兵”，使我對(duì)管理信息系統(tǒng)和數(shù)據(jù)庫(kù)有了更深刻更直觀的認(rèn)識(shí)。其次，我還要感謝我的同事，當(dāng)我遇到難題時(shí)他們幫助我一起解決，使我能在最短的時(shí)間里解決這些難題。打開(kāi)數(shù)據(jù)庫(kù)文件 Public Sub OpenDBFile() 39。Persist Security Info=False 39。 39。 Exit Sub 39。 ErrGoto: 39。調(diào)用 工資發(fā)放 窗體 Private Sub PayoffTable_Click() End Sub 39。自由文件號(hào) On Error GoTo ErrGoto 39。關(guān)閉數(shù)據(jù)庫(kù)連接 CloseDBFile 39。End Sub 39。自由文件號(hào) On Error GoTo ErrGoto 39。 ErrGoto: 39。 , SQL = SQL amp。 , SQL = SQL amp。 Exit Sub 39。 39。 txtValue(3).Text amp。打開(kāi)連接 OpenDBFile 39。當(dāng)前行 = 39。 amp。s shoulder and looked at him cheekily. You may be a pain in the neck sometimes, but I39。s like a fashion store, Susan muttered, shoving the hangers aside to make space for her own clothes. In the bathroom she opened the mirrorfronted cabi on the wall. It was crammed with bottles and jars. Perfume, shampoo, creams ... Susan slammed the cabi shut and pulled a face in the glass. Meanwhile Gary was trying to make friends with Norman. Hard wor k. Norman proved to be a very serious young man, much given to using long words. Must39。把錯(cuò)誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + cmdGenerate_Click(ThisMonthSalaryForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub Private Sub cmdPrint_Click() End Sub Private Sub Form_Load() mMonth = Format(Date 30, YYYYMM) End Sub Private Sub OLE1_Updated(Code As Integer) End Sub 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 43 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 44 They both knew it. And if she hadn39。 CurPos amp。把錯(cuò)誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + Command1_Click(AddEForm) + Chr(34), Chr(34) + + Chr(34) MsgBox Close intErrFileNo End Sub 39。 txtValue(0).Text amp。 txtValue(2).Text amp。打開(kāi)錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。刷新數(shù)據(jù) 39。 , SQL = SQL amp。生成 SQL 語(yǔ)句 SQL = INSERT INTO 職工 (職工 ID,職位 ,姓名 ,性別 ,出生年月 ,工作年月 ) VALUES( SQL = SQL amp。Persist Security Info=False = SQL 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 37 Set = Adodc1 39。初始化 Private Sub Form_Load() 39。Private Sub DataGrid1_Click() 39。 amp。刪除員工 Private Sub cmdDeleteEmployee_Click() 39。 \職工工資管理系統(tǒng) .mdb 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 34 Set gX = CreateObject() End Sub 39。 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 33 CloseDBFile 39。自由文件號(hào) On Error GoTo ErrGoto 39。打開(kāi)錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。 。數(shù)據(jù)庫(kù)集合對(duì)象 Public gRst As New 39。這些都有待在以后的版本中進(jìn)一步改善。本窗體的工作流程就是在用戶單擊需要的按鈕，顯示相應(yīng)的窗體。分別是月表的名稱和員工的工資總額： Option Explicit 39。保證姓名與 ID 一致 Private Sub cmbName_Click() = () End Sub 如圖 所示： 圖 添加特殊項(xiàng)窗體 創(chuàng)建修改特殊項(xiàng)窗體 窗體初始化時(shí)，會(huì)把“特殊項(xiàng)管理”窗體中選種的數(shù)據(jù)顯示到 TxtValue 控件數(shù)組中。用戶單擊“添加特殊項(xiàng)”按鈕，則顯示添加特殊項(xiàng)窗體。用戶對(duì) txtValue 控件數(shù)組的屬性進(jìn)行修改，當(dāng)用戶單擊“添加”時(shí)，生成 SQL 語(yǔ)句并執(zhí)行，同時(shí)刷 新職位管理窗體的數(shù)據(jù)。操作完畢，用戶單擊“取消”按 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 22 鈕，可以退出本窗體。單擊“修改”按鈕，則生成并執(zhí)行ＳＱＬ語(yǔ)句，實(shí) 現(xiàn)修改功能。用戶單擊“修改員工”按鈕，則顯示 修改員工窗體，并將相關(guān)的用戶選定信息傳遞給修改員工窗體。 設(shè)計(jì)與實(shí)現(xiàn) 相應(yīng) MDIForm 對(duì)象的 Load 事件，對(duì)整體進(jìn)行初始化 39。一個(gè)過(guò)程可能用來(lái)響應(yīng)幾個(gè)不同對(duì)象中的事件，應(yīng)該將這個(gè)過(guò)程放在標(biāo)準(zhǔn)模塊中，而不應(yīng)在每一個(gè)對(duì)象的事件過(guò)程中重復(fù)相同的代碼。要實(shí)現(xiàn)這一點(diǎn)，必須能夠自動(dòng)生成實(shí)體（表示物理意義的表）以及基于表間關(guān)系的實(shí)體間關(guān)系。 實(shí)體關(guān)系圖中的實(shí)體有三種：一般實(shí)體（ normal entity,表示邏輯或物理數(shù)據(jù)集）；聯(lián)系實(shí)體（ associate entity，表示含有多對(duì)多關(guān)系的關(guān)系表）；分解實(shí)體（ depositions,表示一組將在下畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 12 層實(shí)體關(guān)系圖中細(xì)化的數(shù)據(jù)）。 4) 工資發(fā)放。 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 11 系統(tǒng)總體功能圖 概要設(shè)計(jì)階段，我們可以得到系統(tǒng)總體功能圖如圖 所示： 圖 系統(tǒng)總體功能圖 模塊設(shè)計(jì) 根據(jù)上面的分析，工資管理信息系統(tǒng)各個(gè)模塊的名稱和功能概要說(shuō)明如下： 1) 員工檔案信息管理。 2) 職位信息管理。 Visual Basic 中 有三種可用的數(shù)據(jù)訪問(wèn)接口： ActiveX 數(shù)據(jù)對(duì)象 (ADO