【正文】 到時候安排人來接我們就是了?！? 瑪瑞滿腹狐疑，悻悻地去了，心里喃喃念叨著：“瘋了，教授一定是瘋了。 ?, vbYesNo) Then = CurPos = 0 DELETE FROM 職位 WHERE 職位 = amp。 39。自由文件號 On Error GoTo ErrGoto 39。 txtValue(4).Text amp。 Exit Sub 39。 CurEm = 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。 Exit Sub 39。自由文件號 On Error GoTo ErrGoto 39。Excel 程 序?qū)ο? Public gX As 39。窗體的代碼如下： Private Sub cmdMonthAll_Click() End Sub Private Sub cmdMonthSpecial_Click() End Sub Private Sub cmdThisMonthSalary_Click() End Sub Private Sub cmdYears_Click() End Sub Private Sub Form_Load() End Sub 畢業(yè)設(shè)計（論文） 第 頁 28 5. 結(jié)束語 本系統(tǒng)從開始到完成用了幾個月的時間，其中包括熟悉環(huán)境，設(shè)計編程與程序 調(diào)試，最后撰寫畢業(yè)論文。用戶單擊“修改”按鈕，則生成并執(zhí)行 SQL 語句，實現(xiàn)修改的功能。如圖 所示 : 圖 添加職位窗體 創(chuàng)建修改職位窗體 本窗體 在顯示的時候，保證窗體上面的數(shù)據(jù)與在職位管理窗體上選定的行的數(shù)據(jù)一致，同時保證職位不可改動。單擊“取消”按鈕，退出該窗體。設(shè)置啟動參數(shù) Private Sub MDIForm_Load() gFile = amp。在此基礎(chǔ)上，數(shù)據(jù)建模軟件便可以自動生成圖。管理人員選擇員工、日期，系統(tǒng)生成該員工在該期的工資。主要用來統(tǒng)一管理各個職位的與工資有關(guān)的基本信息。 Access 最重要的特征是不必編寫程序。 Visual Basic 是國內(nèi)外最流行的程序設(shè)計語言之一，它是可視化開發(fā)工具的先驅(qū)與典范，它所具有的可視化、面向?qū)ο?、組件開發(fā)等特性，大大縮短了應(yīng)用軟件的開發(fā)周期，因此，深受廣大軟件開發(fā)人員的厚愛。 2) 性能：能夠支持?jǐn)?shù)據(jù) 存儲，使用方便。這個階段是在企業(yè)中全面的使用計算機把各種管理子系統(tǒng)的功能集中起來，構(gòu)成了計算機化的全方位的信息系統(tǒng)，即現(xiàn)代管理信息系統(tǒng)。 關(guān)鍵詞：管理信息系統(tǒng)；數(shù)據(jù)庫 ； 畢業(yè)設(shè)計（論文） 第 頁 2 Abstract The present paper primary coverage is the small business wages management system management system design and the system carries on the management to the wages information, has merit which the manual administration center is unable to may save all related contents and so on wages, allowance, bonus, safe highly effective。管理信息系統(tǒng)通過對企業(yè)當(dāng)前運行的數(shù)據(jù)進行處理來獲得有關(guān)信息，以控制企業(yè)的行為；利用過去和現(xiàn)在的數(shù)據(jù)及相應(yīng)的模型，對未來的發(fā)展進行預(yù)測；能從全局目標(biāo)出發(fā)，對企業(yè)的管理決策活動予以輔助。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點 ,如 :效率低、保密性差 等。 3) 每月考核員工的成績，包括遲到、早退、曠工等信息。這個特點尤其體現(xiàn)在它所具有的基于部件的編程方法上。 ADO 實際上是一種提供訪問各種數(shù)據(jù)類型的連接機制。 5) 報表功能。 實體關(guān)系圖可以定義為兩個層次，即可以從邏輯數(shù)據(jù)模型轉(zhuǎn)移到實施模型。 創(chuàng)建好所需表后建立數(shù)據(jù)庫表之間的關(guān)系，如圖： 圖 職工工資管理系統(tǒng)數(shù)據(jù)庫表之間的關(guān)系 系統(tǒng)標(biāo)準(zhǔn)模塊 使用 VB 開發(fā)管理信息系統(tǒng)，首先創(chuàng)建標(biāo)準(zhǔn)模塊。用戶單擊“刪除員工”按鈕，則彈出對話框確認(rèn)，無誤之后執(zhí)行 SQL語句，刪除員工。用戶單擊“刪除職位”按鈕，則彈出對話框確認(rèn)，無誤之后執(zhí)行 SQL 語句，刪除職位，然后刷新 ADO 數(shù)據(jù)控件，保 證數(shù)據(jù)一致性。 該窗口實現(xiàn)對特殊項的添加，刪除和修改功能。單擊“發(fā)放工資”按鈕，發(fā)放工資，即將工資月表中的“發(fā)放完畢”字段設(shè)置為 1。對于數(shù)據(jù)的一致性的問題也通過程序進行了有效的解決。Data Source= amp。打開數(shù)據(jù)集 Public Sub OpenRS(SQL As String) 39。調(diào)用 人員管理 窗體 Private Sub HRManage_Click() End Sub 39。 ?, vbYesNo) Then 39。 CurEm = 39。自由文件號 On Error GoTo ErrGoto 39。執(zhí)行 SQL 語句 SQL 39。 txtValue(1).Text amp。 Exit Sub 39。把錯誤信息保存在文件里 intErrFileNo = FreeFile() 畢業(yè)設(shè)計（論文） 第 頁 42 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) + cmdDelete_Click(PosForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub Private Sub cmdRefresh_Click() Exit Sub 39。” 方新教授笑著回復(fù)：“是腳指頭截去了，你老哥??”這時，機場已經(jīng)遙遙在望了。 軍區(qū)某團，團長班覺次仁，是藏區(qū)本地人，長得牛高馬大，方面闊口，兩道濃眉下，一雙厲眼透出煞氣。” “什么 ?”這番輪到卓木強吃驚了，他道，“我??我不知道啊，以前沒包過。 美國，賓夕法尼亞州。保證職工 ID 不會被改變 txtValue(0).Locked = True End Sub 六，創(chuàng)建職位管理窗體 Public CurPos As Integer Private Sub cmdAdd_Click() End Sub Private Sub cmdCancel_Click() End Sub Private Sub cmdDelete_Click() 39。 txtValue(4).Text amp。把錯誤信息保存在文件里 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) + cmdAdd_Click(AddEForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub Private Sub cmdCancel_Click() End Sub 39。 , SQL = SQL amp。Data Source= amp。 Exit Sub 39。調(diào)用 特殊項管理 窗體 Private Sub SpecialManage_Click() End Sub 三、創(chuàng)建人員管理窗體 39。把錯誤信息保存在文件里 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) + OpenRS(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 39。 ErrGoto: 39。s COM+ Programming with Visual Basic】 作者： Scot Hillier，出版社：Sams，出版時間： 1 畢業(yè)設(shè)計過程中查閱的網(wǎng)站： 附錄 源程序清單 一、標(biāo)準(zhǔn)模塊 39。而月表的名稱都會變?yōu)?202106 Public mTableName As String 39。 創(chuàng)建添加特 殊項窗體 本窗體實現(xiàn)添加一條記錄到特殊項表，并刷新人員管理窗體中的 ADO 數(shù)據(jù)控件，保持?jǐn)?shù)據(jù)的一致性。 。首先新建一個窗體，添加員工窗體包含兩個控件數(shù)組， lblField 是一個 Label 控件數(shù)組，用于顯示字段名稱， txtValue 用于輸入這些字段的值；另外還有一個“添加”按鈕和“取消”按鈕，分別實現(xiàn)添加員工和退出窗體的功能。數(shù)據(jù)庫連接對象 Public gCon As New 39。 “關(guān)系 ”的基數(shù)類型有三種：一對一關(guān)系；一對多關(guān)系（即實體 B 的多個實例可以與實體 A 的一個實例存在關(guān)系，反之亦然）；多對多關(guān)系（即實體 B的多個實 例可以與實體 A的多個實例存在關(guān)系，反之亦然）。用戶功能包括增加、修改和查看基本職位的各項工資信息。 目前普遍 使用 ADO 作為數(shù)據(jù)訪問接口。用戶操作、系統(tǒng)信息，以及程序等各種因素都可能觸發(fā)事件。 畢業(yè)設(shè)計（論文） 第 頁 8 圖 工資管理信息系統(tǒng)業(yè)務(wù)流程圖 首先員工將自己的個人檔案提交給系統(tǒng)管理人員（企業(yè)管理人員），管理員將檔案信 息錄入系統(tǒng)；職位信息統(tǒng)一修改由職位確定的基本工資等信息，對系統(tǒng)來說，屬于靜態(tài)工資；績效信息是對一段時間（比如一個月）對員工的考評成績，系統(tǒng)將根據(jù)員工的檔案信息和考評成績自動確定員工的工資數(shù)量，最后生成工資清單。 因此，開發(fā)這樣 一 套 工資 管理軟件成為很有必要的事情 。 第二階段：（ 1965 年至 1970 年）綜合數(shù)據(jù)處理階段，也稱事務(wù)處理系統(tǒng)（ TPS）階段。畢業(yè)設(shè)計（論文） 第 頁 1 工資管理系統(tǒng) 摘 要 本論文的主要內(nèi)容是小型企業(yè)工資管理系統(tǒng)的設(shè)計與開發(fā)。這個階段的處理方式主要是集中式的批處理。這些優(yōu)點能夠極地提高工資管理的效率 ,也是企業(yè)的科學(xué)化、正規(guī)化管理 ,與世界接軌的重要條件。我們所開發(fā)的工資管理信息系統(tǒng)是基于這一業(yè)務(wù)流程的。 ：基于事件驅(qū)動的編程方法體現(xiàn)在程序的執(zhí)行是依靠系統(tǒng)能夠被識別的觸發(fā)事件啟動的。最新的是 ADO，它是比 RDO 和 DAO 更加簡單，然而更加靈活的對象模型。主要用來統(tǒng)一各個職位的與工資有關(guān)的基本信息。 “關(guān)系 ”的基數(shù)類型（ Cardinality）可以改變，而不必刪除這個關(guān)系然后再重新生成一個新關(guān)系。數(shù)據(jù)庫文件的名稱 Public gFile As String 39。當(dāng)前選定行號 Public CurEm As Integer 創(chuàng)建添加員工窗體 本窗體實現(xiàn)添加一條記錄到職工表，并刷新人員管理窗體中的 ADO數(shù)據(jù)控件，保持?jǐn)?shù)據(jù)的一直性。 gFile amp。操作完畢，用戶單擊“取消”按鈕，可以退出本窗體。在 cmbMonth 中用戶可以填入 20216, 202106, 20210601 等格式 39。在此，對于這些給予我?guī)椭娜藗儽磉_(dá)我深深地謝意！并祝他們永遠(yuǎn)快樂！ 畢業(yè)設(shè)計（論文）