【正文】 data2 (sql4)Set rs4 = data1(rs4, sql1)Set rs1 = rs4Set = rs1End IfElseEnd IfExit SubNo2w:MsgBox 職務信息不存在!, vbOKOnly, 錯誤End SubPr。 (0) amp。Set rs3 = data1(rs3, sql3)If Not ThenMsgBox 職務信息使用中，禁止刪除, vbOKOnly, 警告Elsesql4 = delete from ziwu where ziwu=39。 (0) amp。End Ifdata2 (sql2)Set rs2 = data1(rs2, sql1)Set rs1 = rs2Set = rs1Text1 = Text2 = Exit SubNo1w:Select Case Case 2147467259worry = MsgBox(空信息，無法錄入, vbOKOnly, 錯誤)Case 2147217900worry = MsgBox(信息重復！加入失敗！, vbOKOnly, 錯誤)End SelectEnd SubPrivate Sub Command2_Click() = FalseEnd SubPrivate Sub Command3_Click() = True = = = False = FalseEnd SubPrivate Sub Command4_Click() = True = = = True = TrueEnd SubPrivate Sub Command5_Click()Dim rs3 As New Dim sql3 As StringDim rs4 As New Dim sql4 As StringDim delOn Error GoTo No2w:del = MsgBox(刪除信息將不可恢復！是否刪除？, vbOKCancel + vbDefaultButton2 + vbQuestion, 刪除)If del = vbOK Thensql3 = select * from yuangon where ziwu=39。 amp。 where ziwu=39。 amp。)Elsesql2 = update ziwu set ziwu=39。 amp。部門信息添加源代碼：Option ExplicitDim rs1 As New Dim sql1 As StringPrivate Sub Command1_Click()Dim rs2 As New Dim sql2 As StringDim worryOn Error GoTo No1w:If = False Thensql2 = insert into ziwu (ziwu) values (39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。主界面如下圖所示：界面上有基礎信息（里面包括：福利項目添加、部門信息添加、職位信息添加）、基礎數(shù)據(jù)（里面包括：福利管理、部門工資管理、職工信息管理、工資調整）、工資管理（里面包括：工資記錄查詢、工資記錄刪除、工資發(fā)放）、日志查詢四大選項，還有員工信息、工資調整、基本工資、福利調整、工資發(fā)放、日志和退出7個小選項，你可根據(jù)你所要進行的事物來選擇你所需要的功能。Set rs = exesql(txtSQL)If = True Then MsgBox 沒有這個用戶，請重新輸入!, vbCritical, 警告 With Text1(0) .SelStart = 0 .SelLength = Len(Text1(0).Text) Text1(0).SetFocus End WithElseEN = Trim((0))a = Trim((1))PW = Trim((2))P = Trim((3))Unload MeSet login = NothingEnd IfCase 1Text1(0).Text = Text1(1).Text = Command1(0).Enabled = FalseCommand1(1).Enabled = FalseText1(0).SetFocusCase ElseUnload MeSet login = NothingEndEnd SelectEnd SubPrivate Sub Form_Activate()Text1(0).SetFocusEnd SubPrivate Sub Text1_Change(Index As Integer)If Text1(0).Text Or Text1(1).Text ThenCommand1(1).Enabled = TrueEnd IfIf Text1(0).Text And Text1(1).Text ThenCommand1(0).Enabled = TrueElseCommand1(0).Enabled = FalseEnd IfEnd Sub使用方法與功能介紹：用戶名、密碼不得隨意輸入，用戶信息必須是已經(jīng)存在與系統(tǒng)數(shù)據(jù)庫中的，如果輸入了錯誤的用戶名或密碼系統(tǒng)將提示你重新輸入。 amp。 amp。 Text1(0).Text amp。窗體界面、源代碼如下：源代碼：Public EN, a, PW As StringPublic P As IntegerPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0txtSQL = select * from accounts where account = 39。 部分模塊的功能及代碼介紹。6． 工資（不是基本工資）在沒有結算前是可以任意修改的，而且可以隔天操作，但是一旦工資被導出那么，它將只能被查詢。4． 獎金的發(fā)放不能單純的在部門內(nèi)人數(shù)平分，這很可能要和他日常表現(xiàn)要有關聯(lián)，所以每個人在最后工資發(fā)放階段必須要可以單獨修改的可能。由于工資發(fā)放的記錄要保存。比如說年齡和公司對福利的承擔比例。修改：同樣的，不能修改成已經(jīng)存在或者關鍵字相同的數(shù)據(jù)。添加：不能添加已經(jīng)存在或者關鍵字相同的數(shù)據(jù)刪除：由于許多數(shù)據(jù)是互相關聯(lián)的——如：沒有員工的基本信息（一般入公司時記錄）哪來員工的基本工資？所以在刪除此類數(shù)據(jù)的時候一定要注意。但實際上還有幾個細節(jié)需要注意：1． 工資記錄發(fā)放很有可能出現(xiàn)比較大的錯誤，這時候整修刪除重做是比較快的2． 以前的工資記錄只能查不能改3． 因為只有工資記錄可以查看而其它的操作沒有查看功能，所以我提議做一個簡單日志，以供錯誤的恢復各功能細節(jié)的總體分析：1． 整個系統(tǒng)內(nèi)的主要功能是添加，刪除，修改。但在這之前有許多地方是需要注意的，比如：公司部門，公司職位 這兩點應該是和員工的基本工資有很大關系的，因為部門不同工資不同，而同部門不同職位工資也不同；還有就是福利方面，員工的福利包括多個方面，在員工的實際工資里加上減去福利項目時，必須先搞清楚有多少項福利，每項扣除的比例是多少。系統(tǒng)的主要流程如下：1． 新員工：招聘員工—員工基本工資記錄—員工基本福利記錄—員工工資發(fā)放2． 老員工：員工工資記錄—員工工資調整—員工基本福利記錄/調整—員工工資發(fā)放3． 工資發(fā)放記錄整個系統(tǒng)的實際作用就是以上三點。工資管理系統(tǒng)的應用背景為：由本人一人開發(fā)并設計完成，搜集了十多冊有用的工資管理資料，其中有一部分來自網(wǎng)上，為了方便大家使用，需要對系統(tǒng)的每個模塊進行分析。員工信息表字段名稱數(shù)據(jù)類型說明Id文本員工編號Xinming文本姓名Nianling數(shù)字年齡Xingbie文本性別Bumen文本部門Ziwu文本職務系統(tǒng)用戶表字段名稱 數(shù)據(jù)類型 說明Id文本 用戶名稱 Account 文本 Password 文本 用戶密碼Class 數(shù)字 擁護權限部門信息表字段名稱數(shù)據(jù)類型 說明 Bumen 文本 部門名稱部門工資信息表字段名稱 數(shù)據(jù)類型 說明Bh自動編號 自動編號 Bumen 文本 部門Ziwu 文本 職務Jibengonzi 數(shù)字 基本工資福利信息表字段名稱 數(shù)據(jù)類型 說明Xiangmu文本 項目名稱 Gonzizonge 數(shù)字 占工資總額的百分比Gerenfudan 數(shù)字 個人負擔百分比工資發(fā)放信息表字段名稱數(shù)據(jù)類型說明編號自動編號自動編號結算時間日期/時間結算時間姓名文本姓名職工編號文本職工編號基本工資數(shù)字基本工資月獎金數(shù)字月獎金季度獎金數(shù)字季度獎金年度獎金數(shù)字年度獎金水電數(shù)字水電總工資數(shù)字總工資是否結算是/否醫(yī)療保險數(shù)字養(yǎng)老保險數(shù)字基本工資信息表字段名稱數(shù)據(jù)類型說明Id文本職工編號Jibengonzi數(shù)字基本工資日志表字段名稱數(shù)據(jù)類型說明Bh自動編號自動編號Shijian文本事件date1日期/時間日期time1日期/時間時間Xiaogou文本效果職務信息表字段名稱數(shù)據(jù)類型說明Ziwu文本職務 ER模型分析通過對企業(yè)員工管理內(nèi)容、工資管理內(nèi)容和過程的分析，本系統(tǒng)應設計的實體和屬性如下：員工信息（包括員工編號、姓名、年齡、性別、部門、職務）部門信息（自動編號、部門、職務、基本工資）福利（項目名稱、占工資總額的百分比、個人負擔百分比）基本工資（員工編號、基本工資）工資發(fā)放結構（自動編號、結算時間、姓名、職工編號、基本工資、月獎金、季度獎金、年度獎金、水電、總工資、是否結算、醫(yī)療保險、養(yǎng)老保險）日志信息（自動編號、事件、日期、時間、效果）ER圖分成實體及其屬性圖和實體及其聯(lián)系圖。這兩個問題貫穿了整個軟件系統(tǒng)的開發(fā)過程，這也就是數(shù)據(jù)庫的設計問題，軟件設計的一個核心?，F(xiàn)實世界的事物反映到人的頭腦中，人的大腦對它有個認識過程，經(jīng)過分析（選擇、命名、分類等）進入信息世界。在數(shù)據(jù)庫設計中也參照這種劃分，把數(shù)據(jù)庫應用系統(tǒng)的生命周期分為數(shù)據(jù)庫規(guī)劃、需求收集與分析、數(shù)據(jù)庫設計與應用程序設計、實現(xiàn)、測試以及運行維護6個階段。通常把使用數(shù)據(jù)庫的系統(tǒng)統(tǒng)稱為數(shù)據(jù)庫應用系統(tǒng)，把數(shù)據(jù)庫應用系統(tǒng)的設計簡稱為數(shù)據(jù)庫設計。 （2）運行控制 軟件運行時有較友好的界面，基本能夠實現(xiàn)用戶的數(shù)據(jù)處理要求。當刪除記錄時，系統(tǒng)會出現(xiàn)提示框，以避免因不小心而錯誤地刪掉數(shù)據(jù)。只有擁有使用權限的用戶才能進入本信息系統(tǒng)，進行相關操作。所以讓系統(tǒng)管理員按照實際情況動態(tài)的建立數(shù)據(jù)表，但要保證所查詢出的結果完全滿足用戶的需求。（4）數(shù)據(jù)庫分析在系統(tǒng)實現(xiàn)時，可以建立一個數(shù)據(jù)庫，但是建立多個表。（3）員工工資內(nèi)容的查詢和錄入查詢結果可以通過網(wǎng)格輸出，輸出時顯示各個員工信息的漢字意義。（2）用戶登陸用戶登陸時，用戶信息進入存放用戶名和密碼的數(shù)據(jù)庫，打開超級用戶表，可用從中找到用戶名和密碼。 系統(tǒng)設計思路（1）界面設計直接運用Visual Baic 進行設計，設計好一部分界面后再輸入程序完成所需功能。我首先將整個系統(tǒng)化分為幾個小問題，小模塊，進一步細分模塊，添加細節(jié)。將系統(tǒng)劃分為多個模塊是為了降低軟件系統(tǒng)的復雜性，提高可讀性、可維護性，但模塊的劃分不能是任意的，應盡量保持其獨立性。模塊化是指解決一個復雜問題時自項向下逐層把軟件系統(tǒng)劃分成若干個模塊的過程。首先，我們需要描述的是系統(tǒng)的總的體系結構。見下圖：12成本計劃指令性計 劃 2訂貨服務 3預測 4主生產(chǎn)計劃 5庫存管理 6制造活動計劃 7發(fā)出工作命令 8工廠監(jiān)控包裝運出 10采購及進貨 11庫房安排 9工廠維護主計劃細計劃細計劃 1工程技術與生產(chǎn)數(shù)據(jù)管理各子系統(tǒng) 第四章 概要設計登 陸基礎信息基礎數(shù)據(jù)工資管理日志查詢員工信息工資調整基本工資工資發(fā)放日志退出福利項目添加部門信息添加職位信息添加福利管理部門工資管理職工信息管理工資調整工資記錄查詢工資記錄刪除工資發(fā)放在軟件需求分析階段，搞清楚了軟件“做什么的問題，形成了目標