【正文】 txtValue(2).Text amp。 gFile amp。 ?, vbYesNo) Then = CurPos = 0 DELETE FROM 職位 WHERE 職位 = amp。 39。自由文件號(hào) On Error GoTo ErrGoto 39。 txtValue(4).Text amp。 Exit Sub 39。 CurEm = 39。打開錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。 Exit Sub 39。自由文件號(hào) 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è)計(jì)（論文） 第 頁(yè) 28 5. 結(jié)束語 本系統(tǒng)從開始到完成用了幾個(gè)月的時(shí)間，其中包括熟悉環(huán)境，設(shè)計(jì)編程與程序 調(diào)試，最后撰寫畢業(yè)論文。用戶單擊“修改”按鈕，則生成并執(zhí)行 SQL 語句，實(shí)現(xiàn)修改的功能。如圖 所示 : 圖 添加職位窗體 創(chuàng)建修改職位窗體 本窗體 在顯示的時(shí)候，保證窗體上面的數(shù)據(jù)與在職位管理窗體上選定的行的數(shù)據(jù)一致，同時(shí)保證職位不可改動(dòng)。單擊“取消”按鈕，退出該窗體。設(shè)置啟動(dòng)參數(shù) Private Sub MDIForm_Load() gFile = amp。在此基礎(chǔ)上，數(shù)據(jù)建模軟件便可以自動(dòng)生成圖。管理人員選擇員工、日期，系統(tǒng)生成該員工在該期的工資。主要用來統(tǒng)一管理各個(gè)職位的與工資有關(guān)的基本信息。 Access 最重要的特征是不必編寫程序。 Visual Basic 是國(guó)內(nèi)外最流行的程序設(shè)計(jì)語言之一，它是可視化開發(fā)工具的先驅(qū)與典范，它所具有的可視化、面向?qū)ο蟆⒔M件開發(fā)等特性，大大縮短了應(yīng)用軟件的開發(fā)周期，因此，深受廣大軟件開發(fā)人員的厚愛。 2) 性能：能夠支持?jǐn)?shù)據(jù) 存儲(chǔ)，使用方便。這個(gè)階段是在企業(yè)中全面的使用計(jì)算機(jī)把各種管理子系統(tǒng)的功能集中起來，構(gòu)成了計(jì)算機(jī)化的全方位的信息系統(tǒng)，即現(xiàn)代管理信息系統(tǒng)。 關(guān)鍵詞：管理信息系統(tǒng)；數(shù)據(jù)庫(kù) ； 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 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)通過對(duì)企業(yè)當(dāng)前運(yùn)行的數(shù)據(jù)進(jìn)行處理來獲得有關(guān)信息，以控制企業(yè)的行為；利用過去和現(xiàn)在的數(shù)據(jù)及相應(yīng)的模型，對(duì)未來的發(fā)展進(jìn)行預(yù)測(cè)；能從全局目標(biāo)出發(fā)，對(duì)企業(yè)的管理決策活動(dòng)予以輔助。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn) ,如 :效率低、保密性差 等。 3) 每月考核員工的成績(jī)，包括遲到、早退、曠工等信息。這個(gè)特點(diǎn)尤其體現(xiàn)在它所具有的基于部件的編程方法上。 ADO 實(shí)際上是一種提供訪問各種數(shù)據(jù)類型的連接機(jī)制。 5) 報(bào)表功能。 實(shí)體關(guān)系圖可以定義為兩個(gè)層次，即可以從邏輯數(shù)據(jù)模型轉(zhuǎn)移到實(shí)施模型。 創(chuàng)建好所需表后建立數(shù)據(jù)庫(kù)表之間的關(guān)系，如圖： 圖 職工工資管理系統(tǒng)數(shù)據(jù)庫(kù)表之間的關(guān)系 系統(tǒng)標(biāo)準(zhǔn)模塊 使用 VB 開發(fā)管理信息系統(tǒng)，首先創(chuàng)建標(biāo)準(zhǔn)模塊。用戶單擊“刪除員工”按鈕，則彈出對(duì)話框確認(rèn)，無誤之后執(zhí)行 SQL語句，刪除員工。用戶單擊“刪除職位”按鈕，則彈出對(duì)話框確認(rèn)，無誤之后執(zhí)行 SQL 語句，刪除職位，然后刷新 ADO 數(shù)據(jù)控件，保 證數(shù)據(jù)一致性。 該窗口實(shí)現(xiàn)對(duì)特殊項(xiàng)的添加，刪除和修改功能。單擊“發(fā)放工資”按鈕，發(fā)放工資，即將工資月表中的“發(fā)放完畢”字段設(shè)置為 1。對(duì)于數(shù)據(jù)的一致性的問題也通過程序進(jìn)行了有效的解決。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。自由文件號(hào) On Error GoTo ErrGoto 39。執(zhí)行 SQL 語句 SQL 39。 txtValue(1).Text amp。 Exit Sub 39。把錯(cuò)誤信息保存在文件里 intErrFileNo = FreeFile() 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 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() 39。 ErrGoto: 39。刷新數(shù)據(jù) 39。生成 SQL 語句 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 44 SQL = INSERT INTO 職位 (職位 ,基本工資 ,津貼 ) VALUES( SQL = SQL 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) + cmdRefresh_Click(PosForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub Private Sub cmdUpate_Click() End Sub Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) CurPos = End Sub Private Sub Form_Load() 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 43 39。保證職工 ID 不會(huì)被改變 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。把錯(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) + 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)用 特殊項(xiàng)管理 窗體 Private Sub SpecialManage_Click() End Sub 三、創(chuàng)建人員管理窗體 39。把錯(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) + OpenRS(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 39。 ErrGoto: 39。s COM+ Programming with Visual Basic】 作者： Scot Hillier，出版社：Sams，出版時(shí)間： 1 畢業(yè)設(shè)計(jì)過程中查閱的網(wǎng)站： 附錄 源程序清單 一、標(biāo)準(zhǔn)模塊 39。而月表的名稱都會(huì)變?yōu)?202106 Public mTableName As String 39。 創(chuàng)建添加特 殊項(xiàng)窗體 本窗體實(shí)現(xiàn)添加一條記錄到特殊項(xiàng)表，并刷新人員管理窗體中的 ADO 數(shù)據(jù)控件，保持?jǐn)?shù)據(jù)的一致性。 。首先新建一個(gè)窗體，添加員工窗體包含兩個(gè)控件數(shù)組， lblField 是一個(gè) Label 控件數(shù)組，用于顯示字段名稱， txtValue 用于輸入這些字段的值；另外還有一個(gè)“添加”按鈕和“取消”按鈕，分別實(shí)現(xiàn)添加員工和退出窗體的功能。數(shù)據(jù)庫(kù)連接對(duì)象 Public gCon As New 39。 “關(guān)系 ”的基數(shù)類型有三種：一對(duì)一關(guān)系；一對(duì)多關(guān)系（即實(shí)體 B 的多個(gè)實(shí)例可以與實(shí)體 A 的一個(gè)實(shí)例存在關(guān)系，反之亦然）；多對(duì)多關(guān)系（即實(shí)體 B的多個(gè)實(shí) 例可以與實(shí)體 A的多個(gè)實(shí)例存在關(guān)系，反之亦然）。用戶功能包括增加、修改和查看基本職位的各項(xiàng)工資信息。 目前普遍 使用 ADO 作為數(shù)據(jù)訪問接口。用戶操作、系統(tǒng)信息，以及程序等各種因素都可能觸發(fā)事件。 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 8 圖 工資管理信息系統(tǒng)業(yè)務(wù)流程圖 首先員工將自己的個(gè)人檔案提交給系統(tǒng)管理人員（企業(yè)管理人員），管理員將檔案信 息錄入系統(tǒng)；職位信息統(tǒng)一修改由職位確定的基本工資等信息，對(duì)系統(tǒng)來說，屬于靜態(tài)工資；績(jī)效信息是對(duì)一段時(shí)間（比如一個(gè)月）對(duì)員工的考評(píng)成績(jī)，系統(tǒng)將根據(jù)員工的檔案信息和考評(píng)成績(jī)自動(dòng)確定員工的工資數(shù)量，最后生成工資清單。 因此，開發(fā)這樣 一 套 工資 管理軟件成為很有必要的事情 。 第二階段：（ 1965 年至 1970 年）綜合數(shù)據(jù)處理階段，也稱事務(wù)處理系統(tǒng)（ TPS）階段。畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 1 工資管理系統(tǒng) 摘 要 本論文的主要內(nèi)容是小型企業(yè)工資管理系統(tǒng)的設(shè)計(jì)與開發(fā)。這個(gè)階段的處理方式主要是集中式的批處理。這些優(yōu)點(diǎn)能夠極地提高工資管