軟件工程課程設(shè)計(jì)企業(yè)工資管理系統(tǒng)

1、第一章 緒論21.1任務(wù)概述21.2開發(fā)工具2第二章 系統(tǒng)設(shè)計(jì)32.1應(yīng)用需求與分析32.2系統(tǒng)模塊劃分32.3系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)3第三章 詳細(xì)設(shè)計(jì)53. 1操作流程圖532 “登錄”模塊詳細(xì)設(shè)計(jì)533 “主窗體”模塊詳細(xì)設(shè)計(jì)934 各項(xiàng)子模塊詳細(xì)設(shè)計(jì)123.4.1 添加用戶與刪除123.4.2 修改用戶133.4.3 退出153.4.4基本工資163.4.5崗位工資173.4.6部門管理193.4.7員工管理213.4.8發(fā)放工資213.4.9 按員工查詢263.4.10 按部門查詢27模塊一：28模塊二：28第四章 結(jié)束語30參考文獻(xiàn)：31第1章 緒論1.1任務(wù)概述企業(yè)的工資管理是公司管理的一

2、個(gè)重要內(nèi)容。隨著企業(yè)人員數(shù)量增加，企業(yè)的工資管理工作也變得越來越復(fù)雜。工資管理既涉及到企業(yè)勞動(dòng)人事的管理，同時(shí)也是企業(yè)財(cái)務(wù)管理的重要組成部分。工資管理需要和人事管理相聯(lián)系，同時(shí)連接工時(shí)考勤和醫(yī)療保險(xiǎn)等等，來生成企業(yè)每個(gè)職工的基本工資、津貼、醫(yī)療保險(xiǎn)、保險(xiǎn)費(fèi)、實(shí)際發(fā)放工資等。早期的工資統(tǒng)計(jì)和發(fā)放都是使用人工方式處理紙質(zhì)材料，不僅花費(fèi)財(cái)務(wù)人員大量的時(shí)間且不易保存，往往由于個(gè)人的因素抄寫不慎或計(jì)算疏忽，出現(xiàn)工資發(fā)放錯(cuò)誤的現(xiàn)象。早期工資管理多采取紙質(zhì)材料和具有較強(qiáng)的時(shí)間限制。基于以上原因，企業(yè)工資管理系統(tǒng)使用電腦安全保存、快速計(jì)算、全面統(tǒng)計(jì)，實(shí)現(xiàn)工資管理的系統(tǒng)化、規(guī)范化、自動(dòng)化。企業(yè)工資管理系統(tǒng)是典型

3、的信息管理系統(tǒng)（mis），前臺(tái)程序開發(fā)工具采用微軟的vb6，后臺(tái)數(shù)據(jù)庫采用sql server2000數(shù)據(jù)庫。vb6是一種面向?qū)ο蟮拈_發(fā)工具，具有組件豐富、語言簡單、功能強(qiáng)大的優(yōu)點(diǎn)。sql server2000數(shù)據(jù)庫具有與vb6無縫連接、操作簡單、易于使用的優(yōu)點(diǎn) 1.2開發(fā)工具微軟公司的visual basic 6.0是windows應(yīng)用程序開發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。visual basic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。因此，本系統(tǒng)前臺(tái)使用ms v

4、isual basic 6.0開發(fā)，后臺(tái)數(shù)據(jù)庫采用sql server2000數(shù)據(jù)庫。第2章 系統(tǒng)設(shè)計(jì)2.1可行性分析（1）技術(shù)上的可行性硬件要求：主要配置為cpu（pii300以上）、內(nèi)存（128mb以上）、顯卡（64mb以上）以及硬盤（10gb以上）等。 軟件要求：系統(tǒng)采用visual basic 6.0和sql server 2000開發(fā)工具：用vb制作系統(tǒng)的用戶界面，sql server 2000制作后臺(tái)數(shù)據(jù)庫，兩者結(jié)合完成系統(tǒng)功能，可運(yùn)行在windows系列操作系統(tǒng)上。（2）經(jīng)濟(jì)上的可行性 由于工資管理系統(tǒng)是一個(gè)比較小型的系統(tǒng)，所以從人力、物力、財(cái)力方面來說都是可行的。（3）社會(huì)可行

5、性 員工的工資管理工作變得越來越復(fù)雜，工資管理既涉及到勞動(dòng)人事的管理，同時(shí)也是財(cái)務(wù)管理的重要組成部分。早期的工資統(tǒng)計(jì)和發(fā)放都是使用人工方式處理紙質(zhì)檔案，不僅花費(fèi)財(cái)務(wù)人員大量的時(shí)間，且不易于保存，往往由于個(gè)人原因，抄寫不慎或者計(jì)算疏忽等，出現(xiàn)工資發(fā)放錯(cuò)誤的現(xiàn)象。基于以上原因，學(xué)校工資管理系統(tǒng)使用電腦安全保存，快速計(jì)算，全面統(tǒng)計(jì)，實(shí)現(xiàn)工資管理的系統(tǒng)化，規(guī)范化，自動(dòng)化。因此，建立本系統(tǒng)具體有現(xiàn)實(shí)意義。(4)操作可行性 本系統(tǒng)運(yùn)行在通用的windows操作系統(tǒng)上，具有windows相似的操作界面。具有簡單易學(xué)，使用方便等特點(diǎn)，只需在計(jì)算機(jī)上進(jìn)行相關(guān)的簡單的設(shè)置即可，懂得計(jì)算機(jī)基本操作的人員經(jīng)過短期培訓(xùn)

6、培訓(xùn)即可熟練操作，熟悉計(jì)算機(jī)操作的人員不需要再經(jīng)過專門的培訓(xùn)即可熟練操作。2.2需求規(guī)定2.2.1 對(duì)功能的規(guī)定基本信息的添加、修改、刪除和查詢。基本信息包括項(xiàng)目類型信息，項(xiàng)目狀態(tài)信息，模塊狀態(tài)信息和缺陷級(jí)別信息等。 此功能為項(xiàng)目組管理和軟件項(xiàng)目管理模塊提供數(shù)據(jù)。項(xiàng)目組信息的添加、修改、刪除和查詢。項(xiàng)目組信息包括收員工信息和角色信息。軟件項(xiàng)目管理模塊包括項(xiàng)目基本信息管理、軟件模塊管理和軟件缺陷管理等功能2.2.2 對(duì)性能的規(guī)定a .精度 本系統(tǒng)所需要的數(shù)據(jù)比較簡單，基本不存在精度的問題。b. 時(shí)間特性要求 要求本系統(tǒng)對(duì)于事務(wù)的處理有較高的響應(yīng)，如數(shù)據(jù)庫的更新操作等響應(yīng)時(shí)間應(yīng)限定在一定范圍。2.

7、2.3 輸入輸出的要求該系統(tǒng)輸入數(shù)據(jù)由管理員操作，其輸出數(shù)據(jù)用于顯示給用戶查看。2.3運(yùn)行環(huán)境硬件環(huán)境：學(xué)校需配備數(shù)據(jù)庫服務(wù)器，本系統(tǒng)對(duì)個(gè)人計(jì)算機(jī)無特殊硬件要求，普通個(gè)人pc均能運(yùn)行。軟件環(huán)境：本系統(tǒng)是基于windows系統(tǒng)開發(fā)的，因此windows 2000 以上的個(gè)人pc都能較好的運(yùn)行本系統(tǒng)。學(xué)校主機(jī)建議安裝windows 2000 或 windows 2003 server 。2.4人工處理過程本系統(tǒng)在實(shí)際運(yùn)用中，有時(shí)需要人工來調(diào)整，員工工資發(fā)放的時(shí)間等。2.5尚未解決的問題調(diào)試運(yùn)行未出現(xiàn)問題，有待繼續(xù)發(fā)現(xiàn)。2.6概念模型（整個(gè)工資管理系統(tǒng)的e-r圖）2.7接口設(shè)計(jì) (1)用戶接口 用戶

8、可以根據(jù)用戶名和密碼進(jìn)行查詢自己的相關(guān)信息。(2)外部接口軟件接口：通過odbc與數(shù)據(jù)庫之間進(jìn)行連接；硬件接口：鼠標(biāo)、鍵盤。(3)內(nèi)部接口模塊間采取數(shù)據(jù)耦合方式，通過參數(shù)表傳遞數(shù)據(jù)，交換信息。2.8運(yùn)行設(shè)計(jì) (1)運(yùn)行控制用戶只需要通過鼠標(biāo)以及鍵盤就可以實(shí)現(xiàn)查詢等本系統(tǒng)所包含的一切操作；(2)運(yùn)行時(shí)間查詢時(shí)間2s;登陸系統(tǒng)時(shí)間30 minutes;2.9應(yīng)用需求與分析基本信息的添加、修改、刪除和查詢。基本信息包括項(xiàng)目類型信息，項(xiàng)目狀態(tài)信息，模塊狀態(tài)信息和缺陷級(jí)別信息等。 此功能為項(xiàng)目組管理和軟件項(xiàng)目管理模塊提供數(shù)據(jù)。項(xiàng)目組信息的添加、修改、刪除和查詢。項(xiàng)目組信息包括收員工信息和角色信息。軟件項(xiàng)

9、目管理模塊包括項(xiàng)目基本信息管理、軟件模塊管理和軟件缺陷管理等功能2.10系統(tǒng)模塊劃分開發(fā)這個(gè)系統(tǒng)的目的就是幫助企業(yè)的財(cái)務(wù)主管部門提高工作效率，實(shí)現(xiàn)企業(yè)工資信息管理的系統(tǒng)化、規(guī)范化和自動(dòng)化。能夠和認(rèn)識(shí)管理系統(tǒng)、考勤管理系統(tǒng)相結(jié)合，真正實(shí)現(xiàn)企業(yè)高效、科學(xué)、現(xiàn)代化的員工管理。系統(tǒng)最終實(shí)現(xiàn)的主要功能如下。企業(yè)工資信息設(shè)置部分：包括設(shè)置員工的基本工資和其他項(xiàng)目的金額，如獎(jiǎng)金等。企業(yè)工資信息管理部分：包括統(tǒng)計(jì)出勤、計(jì)算工資、查詢工資和導(dǎo)出工資表等。系統(tǒng)部分：包括添加用戶和修改密碼。2.11系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫是信息管理系統(tǒng)的后臺(tái)，存儲(chǔ)著所有的信息，在信息管理系統(tǒng)中有著很重要的地位。數(shù)據(jù)庫設(shè)計(jì)的好與壞，直接

10、影響到這個(gè)系統(tǒng)的運(yùn)行效率。良好的數(shù)據(jù)庫設(shè)計(jì)，可以提高數(shù)據(jù)信息的存儲(chǔ)效率，確保數(shù)據(jù)信息的完整性和一致性。針對(duì)企業(yè)工資信息管理系統(tǒng)的需求，通過對(duì)員工工資計(jì)算過程的內(nèi)容分析，為本系統(tǒng)設(shè)計(jì)如下的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：基本工資信息：包括工資級(jí)別和工資金額。崗位工資信息：包括工資級(jí)別和工資金額。工資信息：包括員工編號(hào)、基本工資、崗位工資、水電費(fèi)、津貼工資、扣除薪水、實(shí)發(fā)金額。部門信息：包括部門編號(hào)、部門名稱、部門負(fù)責(zé)人、部門人數(shù)。工資統(tǒng)計(jì)信息：包括員工編號(hào)、姓名、出生年月、所屬部門、文化程度、職稱?？记谛畔ⅲ喊▎T工編號(hào)、姓名、性別、遲到次數(shù)、缺席次數(shù)。津貼信息：包括員工編號(hào)、姓名、性別、加班時(shí)間、加班天數(shù)、

11、加班類型、津貼情況。用戶信息：包括用戶名、密碼和權(quán)限。員工信息表員工編號(hào)char (8)主鍵，不允許重復(fù)姓名char (8)性別char (2)出生年月datetime所屬部門char (4)外鍵文化程度char (4)職稱char (12)部門信息部門編號(hào)char (4)主鍵,不允許重復(fù)部門名稱char (20)部門負(fù)責(zé)人char (8)部門人數(shù)int基本工資工資級(jí)別char (2)主鍵,不允許重復(fù)工資金額numeric (8, 2)崗位工資工資級(jí)別char (2)主鍵,不允許重復(fù)工資金額numeric(8, 2)工資信息員工編號(hào)char (8)主鍵,不允許重復(fù)； 外鍵基本工資numeric

12、 (8, 2)崗位工資numeric (8, 2)水電費(fèi)numeric (8, 2)津貼工資numeric (8, 2)加班工資扣除薪酬numeric (8, 2)遲到、缺席扣薪實(shí)發(fā)金額numeric (8, 2)考勤信息員工編號(hào)char (8)主鍵不允許重復(fù)姓名char(8)性別char(2)遲到次數(shù)numeric(3)缺席次數(shù)numeric(3)津貼信息員工編號(hào)char (8)主鍵不允許重復(fù)姓名char(8)性別char(2)加班時(shí)間numeric (8, 1)加班天數(shù)numeric (2)加班類型char(8)津貼情況numeric (8, 2)用戶表用戶名char (8)主鍵,不允許重

13、復(fù)密碼char (20)權(quán)限char (20)第3章：詳細(xì)設(shè)計(jì)31操作流程圖初始登入用戶:123 密碼為:12332 “登錄模塊”詳細(xì)設(shè)計(jì) 登錄模塊的詳細(xì)設(shè)計(jì)主要是用戶登錄的一個(gè)界面，判斷登錄的用戶是管理員還是普通用戶，進(jìn)入后將面對(duì)的是主界面，從而進(jìn)行相關(guān)的操作。登錄的界面主要由用戶名和密碼的信息，還有一些標(biāo)題設(shè)置，確定和取消的按鈕組成。通過標(biāo)題可以知道此系統(tǒng)的大概內(nèi)容，由此，登錄界面的設(shè)計(jì)完成。窗體及核心代碼如下：private sub cmd_cancel_click() txt_key.text = cmo_user.text = 請(qǐng)選擇 unload meend subprivate

14、sub cmd_ok_click() dim try_times as string dim sql as string dim rst as adodb.recordset try_times = 0if (trim(txt_key.text) = ) then msgbox 請(qǐng)輸入密碼, vbokonly + vbexclamation, 提示else sql = select * from 用戶表 where 用戶名= & trim(cmo_user.text) & set rst = executesql(sql, ) if trim(rst.fields(1) = trim(txt_

15、key.text) then if trim(rst.fields(2) 管理員 then frm_main.xitong.enabled = false 在這里設(shè)計(jì)非管理員用戶的權(quán)限，這里我假設(shè)讓非管理員用戶不能用菜單中的系統(tǒng) frm_main.shezhi.enabled = false frm_main.xinxiweihu.enabled = false end if rst.close username = trim(cmo_user.text) frm_main.show unload me else msgbox 密碼不正確，請(qǐng)重新輸入, vbokonly + vbexclama

16、tion, 警告 txt_key.setfocus txt_key.text = try_times = try_times + 1 exit sub 在這里若密碼錯(cuò)了應(yīng)該跳出該過程，否則下面的語句還會(huì)執(zhí)行，這不是你想要的 end if try_times = try_times + 1 個(gè)人認(rèn)為密碼輸入錯(cuò)了才加一，你這樣的話，用戶名錯(cuò)了也會(huì)加一，當(dāng)然你這里用戶名不會(huì)錯(cuò)是吧，改得多余了 if try_times = 3 then unload me end ifend ifend subprivate sub form_load() dim i as integer dim sql as st

17、ring dim rst as adodb.recordset sql = select 用戶名 from 用戶表 set rst = executesql(sql, ) for i = 1 to rst.recordcount cmo_user.additem (rst.fields(0) rst.movenext next iend sub主窗體：private sub bumenxinxi_click()dim sql as stringdim rst as new adodb.recordsetsql = select * from 用戶表 set rst = executesql(s

18、ql, )power = rst.fields(2)if trim(power) 管理員 thenmsgbox 您無權(quán)進(jìn)行該操作！, vbokonly + vbexclamation, 警告elseif trim(power) = 管理員 thenfrm_bumenxinxi.showunload meend ifend ifend subprivate sub gangweigongzi_click()dim sql as stringdim rst as new adodb.recordsetsql = select * from 用戶表 set rst = executesql(sql,

19、 )power = rst.fields(2)if trim(power) 管理員 thenmsgbox 您無權(quán)進(jìn)行該操作！, vbokonly + vbexclamation, 警告elseif trim(power) = 管理員 thenfrm_gangweigongzi.showunload meend ifend ifend subprivate sub jiben_click()dim sql as stringdim rst as new adodb.recordsetsql = select * from 用戶表 set rst = executesql(sql, )power

20、= rst.fields(2)if trim(power) 管理員 thenmsgbox 您無權(quán)進(jìn)行該操作！, vbokonly + vbexclamation, 警告elseif trim(power) = 管理員 thenfrm_jiben.showunload meend ifend ifend subprivate sub yonghushanchu_click()dim sql as stringdim rst as new adodb.recordsetsql = select * from 用戶表 set rst = executesql(sql, )power = rst.fi

21、elds(2)if trim(power) 管理員 thenmsgbox 您無權(quán)進(jìn)行該操作！, vbokonly + vbexclamation, 警告elseif trim(power) = 管理員 thenfrm_tianjiayushanchu.showunload meend ifend ifend subprivate sub yonghutianjia_click()dim sql as stringdim rst as new adodb.recordsetsql = select * from 用戶表 set rst = executesql(sql, )power = rst

22、.fields(2)if trim(power) 管理員 thenmsgbox 您無權(quán)進(jìn)行該操作！, vbokonly + vbexclamation, 警告elseif trim(power) = 管理員 thenfrm_tianjiayushanchu.showunload meend ifend ifend subprivate sub form_load() dim i as integer dim sql as string dim rst as adodb.recordset sql = select 權(quán)限 from 用戶表 set rst = executesql(sql, )

23、for i = 1 to rst.recordcount rst.movenext next i33 “主窗體”模塊詳細(xì)設(shè)計(jì)在這個(gè)項(xiàng)目中，選擇使用多文檔界面。使用這個(gè)窗體的好處是可以使程序更加有條理。對(duì)于一個(gè)多任務(wù)的應(yīng)用程序，使用多文檔窗體還可以減少占用的系統(tǒng)資源。主窗體設(shè)計(jì)的界面是用菜單編輯器做的，主要由系統(tǒng)、工資信息設(shè)置、工資信息管理和關(guān)于這四個(gè)大模塊組成。主窗體是進(jìn)行相關(guān)操作的主界面。在這幾個(gè)里，管理員有所有的權(quán)利進(jìn)行各種操作。private sub bumenxinxi_click()dim sql as stringdim rst as new adodb.recordsetsql

24、= select * from 用戶表 set rst = executesql(sql, )power = rst.fields(2)if trim(power) 管理員 thenmsgbox 您無權(quán)進(jìn)行該操作！, vbokonly + vbexclamation, 警告elseif trim(power) = 管理員 thenfrm_bumenxinxi.showunload meend ifend ifend subprivate sub gangweigongzi_click()dim sql as stringdim rst as new adodb.recordsetsql = s

25、elect * from 用戶表 set rst = executesql(sql, )power = rst.fields(2)if trim(power) 管理員 thenmsgbox 您無權(quán)進(jìn)行該操作！, vbokonly + vbexclamation, 警告elseif trim(power) = 管理員 thenfrm_gangweigongzi.showunload meend ifend ifend subprivate sub jiben_click()dim sql as stringdim rst as new adodb.recordsetsql = select *

26、from 用戶表 set rst = executesql(sql, )power = rst.fields(2)if trim(power) 管理員 thenmsgbox 您無權(quán)進(jìn)行該操作！, vbokonly + vbexclamation, 警告elseif trim(power) = 管理員 thenfrm_jiben.showunload meend ifend ifend subprivate sub yonghushanchu_click()dim sql as stringdim rst as new adodb.recordsetsql = select * from 用戶表

27、 set rst = executesql(sql, )power = rst.fields(2)if trim(power) 管理員 thenmsgbox 您無權(quán)進(jìn)行該操作！, vbokonly + vbexclamation, 警告elseif trim(power) = 管理員 thenfrm_tianjiayushanchu.showunload meend ifend ifend subprivate sub yonghutianjia_click()dim sql as stringdim rst as new adodb.recordsetsql = select * from

28、用戶表 set rst = executesql(sql, )power = rst.fields(2)if trim(power) 管理員 thenmsgbox 您無權(quán)進(jìn)行該操作！, vbokonly + vbexclamation, 警告elseif trim(power) = 管理員 thenfrm_tianjiayushanchu.showunload meend ifend ifend subprivate sub form_load() dim i as integer dim sql as string dim rst as adodb.recordset sql = selec

29、t 權(quán)限 from 用戶表 set rst = executesql(sql, ) for i = 1 to rst.recordcount rst.movenext next iend sub34 各項(xiàng)子模塊詳細(xì)設(shè)計(jì)3.41添加用戶與刪除選擇“系統(tǒng)”“添加用戶與刪除”菜單，在添加用戶的窗體里,輸入新的用戶名稱和密碼后，單擊“添加”按鈕，系統(tǒng)將會(huì)添加新的用戶。在窗體里輸入用戶名稱和密碼，單擊“刪除”按鈕，系統(tǒng)將會(huì)刪除原來用戶。主窗體及核心代碼如下：private sub cmd_adduser_click()dim newrst as adodb.recordsetdim sql as str

30、ingsql = insert into 用戶表 values( & & trim(txt_username.text) & , _ & & trim(txt_password.text) & , _& & trim(txt_power) & & )set newrst = execute_sql(sql)sql = select * from 用戶表set newrst = select_sql(sql)set datagrid1.datasource = newrstend subprivate sub cmd_cancel_click()unload meend subprivate s

31、ub cmd_delete_click()dim sql as stringsql = select * from 用戶表if txt_username then set objrs = executesql(sql, ) set datagrid1.datasource = objrs 刷新網(wǎng)格，顯示操作后的結(jié)果 end if if objrs.recordcount = 0 then msgbox 庫中沒有記錄! exit sub end if if objrs.recordcount 0 then if msgbox(真的要?jiǎng)h除該級(jí)用戶信息嗎?, vbyesno + vbquestion

32、, 警告) = vbyes then objrs.delete msgbox 刪除成功!, vbinformation, 提示 end if end ifend subprivate sub form_load()dim newrst as adodb.recordsetdim sql as stringsql = select * from 用戶表set newrst = select_sql(sql)set datagrid1.datasource = newrstend sub3.42 修改用戶選擇“系統(tǒng)”-“修改用戶”菜單，在窗體里輸入新的用戶名稱和用戶權(quán)限，單擊“修改”按鈕，系統(tǒng)將會(huì)

33、修改原來用戶信息。private sub cmd_adduser_click()dim newrst as adodb.recordsetdim sql as stringsql = insert into 用戶表 values( & & trim(txt_username.text) & , _ & & trim(txt_password.text) & , _ & & trim(txt_power) & & )set newrst = execute_sql(sql)sql = select * from 用戶表set newrst = select_sql(sql)set datagri

34、d1.datasource = newrstend subprivate sub cmd_cancel_click()unload meend subprivate sub cmd_delete_click()dim sql as stringsql = select * from 用戶表if txt_username then set objrs = executesql(sql, ) set datagrid1.datasource = objrs 刷新網(wǎng)格，顯示操作后的結(jié)果end if if objrs.recordcount = 0 then msgbox 庫中沒有記錄! exit s

35、ub end if if objrs.recordcount 0 then if msgbox(真的要?jiǎng)h除該級(jí)用戶信息嗎?, vbyesno + vbquestion, 警告) = vbyes then objrs.delete msgbox 刪除成功!, vbinformation, 提示 end if end ifend subprivate sub form_load()dim newrst as adodb.recordsetdim sql as stringsql = select * from 用戶表set newrst = select_sql(sql)set datagrid1

36、.datasource = newrstend sub3.4.3退出選擇“系統(tǒng)”-“退出”菜單，單擊則推出主菜單界面。3.4.4基本工資選擇“設(shè)置”-“基本工資”菜單，可以單擊“添加”，“刪除”，“修改”，“取消”按鈕來實(shí)現(xiàn)相應(yīng)功能。主窗體及核心代碼如下：dim objrs as adodb.recordsetdim msg_sql as stringprivate sub cmd_add_click()if combo_level.text then set objrs = executesql(insert into 基本工資 values( + str(combo_level.text)

37、 + , + (text_pay.text) + ), msg_sql) 插入符合條件的工資信息 set objrs = executesql(select * from 基本工資, msg_sql) set datagrid1.datasource = objrs 刷新網(wǎng)格，顯示操作后的結(jié)果 combo_level.setfocus combo_level.text = text_pay.text = end ifend subprivate sub cmd_cancel_click()unload meend subprivate sub cmd_delete_click() if obj

38、rs.recordcount = 0 then msgbox 庫中沒有記錄! exit sub end if if objrs.recordcount 0 then if msgbox(真的要?jiǎng)h除該級(jí)別工資信息嗎?, vbyesno + vbquestion, 警告) = vbyes then objrs.delete msgbox 刪除成功!, vbinformation, 提示 combo_level.setfocus combo_level.text = text_pay.text = end if end ifend subprivate sub form_load()set objr

39、s = executesql(select * from 基本工資, msg_sql)set datagrid1.datasource = objrsend subprivate sub text_pay_lostfocus()if val(text_pay.text) = 10000 then msgbox 數(shù)據(jù)非法 text_pay.text = text_pay.setfocus end ifend sub3.4.5崗位工資選擇“設(shè)置”-“崗位工資”菜單，可以單擊“添加”，“刪除”，“修改“”取消“按鈕來實(shí)現(xiàn)相應(yīng)功能。dim objrs as adodb.recordsetdim msg

40、_sql as stringprivate sub cmd_add_click()if combo_level.text then set objrs = executesql(insert into 崗位工資 values( + str(combo_level.text) + , + (text_pay.text) + ), msg_sql) 插入符合條件的工資信息 set objrs = executesql(select * from 崗位工資, msg_sql) set datagrid1.datasource = objrs 刷新網(wǎng)格，顯示操作后的結(jié)果 combo_level.set

41、focus combo_level.text = text_pay.text = end ifend subprivate sub cmd_cancel_click()unload meend subprivate sub cmd_delete_click() if objrs.recordcount = 0 then msgbox 庫中沒有記錄! exit sub end if if objrs.recordcount 0 then if msgbox(真的要?jiǎng)h除該級(jí)別工資信息嗎?, vbyesno + vbquestion, 警告) = vbyes then objrs.delete ms

42、gbox 刪除成功!, vbinformation, 提示 combo_level.setfocus combo_level.text = text_pay.text = end if end ifend subprivate sub form_load()set objrs = executesql(select * from 崗位工資, msg_sql)set datagrid1.datasource = objrsend subprivate sub text_pay_lostfocus()if val(text_pay.text) = 10000 then msgbox 數(shù)據(jù)非法 te

43、xt_pay.text = text_pay.setfocus end ifend sub3.4.6部門管理選擇“信息維護(hù)”-“部門管理”菜單，可以單擊“添加”，“刪除”， “修改“”取消“按鈕來實(shí)現(xiàn)相應(yīng)功能。 3.4.7員工管理選擇“信息維護(hù)”-“員工管理”菜單，可以單擊“添加”，“刪除”， “修改“”取消“按鈕來實(shí)現(xiàn)相應(yīng)功能。3.4.8 發(fā)放工資選擇“信息維護(hù)”-“發(fā)放工資”單擊“添加”或“修改”按鈕則彈出“添加員工工資”菜單，可以實(shí)現(xiàn)添加員工工資或修改員工工資。dim rst as adodb.recordsetdim sql as stringprivate sub cmd_add_c

44、lick()frm_tianjiagongzi.showend subprivate sub cmd_alter_click()frm_tianjiagongzi.showtxt_no.enabled = false frm_tianjiagongzi.show frm_tianjiagongzi.txt_bianhao.text = datagrid1.columns(0) frm_addsalary.txt_name = datagrid1.columns(1) frm_tianjiagongzi.cmo_jiben = datagrid1.columns(1) frm_tianjiago

45、ngzi.cmo_gangwei = datagrid1.columns(2) frm_tianjiagongzi.txt_shuidian = datagrid1.columns(3)end subprivate sub cmd_delete_click() if rst.recordcount 0 then if msgbox(確定刪除該員工的工資信息嗎？, vbyesno + vbquestion, 警告) = vbyes then rst.delete set rst = executesql(select * from 工資信息, sql) set datagrid1.datasou

46、rce = rst msgbox 刪除成功!, vbokonly + vbexclamation, 提示 end if end ifend subprivate sub cmd_cancel_click()frm_main.showunload meend subprivate sub form_load()set rst = executesql(select * from 工資信息, sql)set datagrid1.datasource = rstend sub3.4.9按員工查詢選擇“工資查詢”-“按員工查詢”，輸入員工編號(hào)和姓名，單擊“查詢”即可查看個(gè)人工資情況。 dim msg_sql as stringdim objrs as adodb.recordsetprivate sub cmd_cancel_click()frm_main.show frm_main.x