【正文】 sgBox 員工信息記錄已經(jīng)到了最后一條！End Ifflag:Exit SubEnd SubPrivate Sub Command20_Click()On Error GoTo flagFor i = 0 To 9Text1(i).Enabled = FalseNext = False = False = False = False = False = False = True = True = True = False = False = True = True = True = False = adCmdUnknown = select *from 員工信息flag:Exit SubEnd SubPrivate Sub Command21_Click()Command20_ClickUnload MeEnd SubPrivate Sub Command3_Click()addflag = 1 = TrueFor i = 0 To 9Text1(i).Enabled = TrueText1(i).Text = Next iText1(0).SetFocus = True = True = True = True = True = Now = True = False = False = False = True = True = False = False = FalseOn Error GoTo flag = LoadPicture( amp。 不存在或無數(shù)據(jù)！, vbInformationElseNumBlocks = filelength \ BlockSizeLeftOver = filelength Mod BlockSize = NullReDim bytedata(BlockSize)For i = 1 To NumBlocksGet SourceFile, , bytedata() bytedata()Next iReDim bytedata(LeftOver)Get SourceFile, , bytedata() bytedata()Close SourceFileEnd Ifflag:Exit SubEnd SubPrivate Sub Picture2_Click()SendKeys {F1}End SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Command11_ClickEnd SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Command14_ClickEnd Sub注：此系統(tǒng)中其他窗體因代碼不能一一顯示，只顯示了一些主要窗體的代碼，若要進(jìn)一步了解這些窗口及其它窗口代碼，請(qǐng)查看工資管理系統(tǒng)。 系統(tǒng)運(yùn)行運(yùn)行環(huán)境： Window XP中文版，SQL Sever 2000，Microsfto Visual Basic 本系統(tǒng)的輸入采用鼠標(biāo)和鍵盤相結(jié)合的輸入方法。系統(tǒng)測試主要分為程序測試、分調(diào)、總調(diào)、特殊測試和用戶測試。*.ico。If = 0 ThenMsgBox (工資管理系統(tǒng)還沒有此職務(wù)員工的信息！) = False = select * from 員工信息Exit SubEnd If = False = TrueEnd SubPrivate Sub Command15_Click() = FalseEnd SubPrivate Sub Command16_Click() = FalseEnd SubPrivate Sub Command17_Click() = adCmdUnknown = select *from 員工信息 where govvis=39。 + Trim() + 39。 應(yīng)用系統(tǒng)實(shí)施 開發(fā)工具的選擇本系統(tǒng)采用Visual Basic Server 2000編寫，為了您能夠輕松使用本系統(tǒng)請(qǐng)您在使用前請(qǐng)看怎樣配置您的系統(tǒng)（包括配置SQL Server 2000服務(wù)器（導(dǎo)入數(shù)據(jù)庫文件）和配置數(shù)據(jù)源（使用數(shù)據(jù)源ODBC方法）） 代碼部分其中系統(tǒng)管理中包含用戶管理、員工信息管理、重新登錄系統(tǒng)功能，工資管理包含員工工資管理、工資批量設(shè)置、工資計(jì)算公式，報(bào)表中由員工信息表、員工工資表、員工工資條，本系統(tǒng)可以讓您輕松地了解本公司員工的基本信息和工資管理。系統(tǒng)管理模塊用戶管理員工信息管理重新登錄退出用戶管理注冊(cè)用戶注銷用戶密碼修改系統(tǒng)管理模塊結(jié)構(gòu)圖 這一模塊主要實(shí)現(xiàn)個(gè)人工資管理、工資批量設(shè)置和工資計(jì)算公式的功能。員工工資信息（empID，name，headship，base_pay，prize，salary，ine_tax，ine）empID此關(guān)系的主鍵。工資管理系統(tǒng)的主要實(shí)體及其屬性有：q 界面設(shè)計(jì)美觀，人機(jī)交互界面友好。如下表所示。下面列出本系統(tǒng)中主要的數(shù)據(jù)字典，包括數(shù)據(jù)項(xiàng)、數(shù)據(jù)流、數(shù)據(jù)存儲(chǔ)、加工處理。(5) 系統(tǒng)還應(yīng)該提供強(qiáng)大的數(shù)據(jù)統(tǒng)計(jì)、查詢功能。早期的工資管理是人工化的，工作量大時(shí)，出現(xiàn)錯(cuò)誤的機(jī)率也會(huì)隨之升高，這會(huì)導(dǎo)致會(huì)計(jì)人員花費(fèi)更多的時(shí)間去改正錯(cuò)誤，延誤工資發(fā)放的時(shí)間，或出現(xiàn)工資發(fā)放錯(cuò)誤的現(xiàn)象。內(nèi)存：128MB，推薦256MB。管理信息系統(tǒng)(MIS)不僅是一個(gè)技術(shù)系統(tǒng)，而且也是一個(gè)社會(huì)系統(tǒng)。 (2) 其他工資的設(shè)置，是對(duì)員工基本工資的補(bǔ)充。為了對(duì)數(shù)據(jù)流程圖中的各個(gè)元素作出詳細(xì)的說明，有必要建立數(shù)據(jù)字典，將數(shù)據(jù)流圖中的全部數(shù)據(jù)流及其組成部分的數(shù)據(jù)元素，數(shù)據(jù)存儲(chǔ)，數(shù)據(jù)加工描述清楚,以便于系統(tǒng)設(shè)計(jì)的進(jìn)行。 數(shù) 據(jù) 流數(shù)據(jù)流編號(hào)：F1 數(shù)據(jù)流名稱：員工基本信息簡述：管理員可以添加、修改、刪除員工基本信息數(shù)據(jù)流來源：管理員的輸入 數(shù)據(jù)流去向：制定員工基本信息數(shù)據(jù)流組成：empID+name+sex+borntime+region+nation+govvis+culture+marr+headship+addr+phone++ID+pic+resume數(shù)據(jù)流編號(hào)：F2 數(shù)據(jù)流名稱：月度實(shí)發(fā)工資簡述：由管理員輸入或修改員工工資，再由數(shù)據(jù)庫自動(dòng)計(jì)算員工的月度工資信息數(shù)據(jù)流來源：管理員或數(shù)據(jù)庫 數(shù)據(jù)流去向：員工工資信息數(shù)據(jù)流組成：empID+name+headship+base_pay+prize+salary+ine_tax+ine 數(shù)據(jù)存儲(chǔ)數(shù)據(jù)存儲(chǔ)是數(shù)據(jù)結(jié)構(gòu)保存的場所，它只描述了數(shù)據(jù)的邏輯存儲(chǔ)結(jié)構(gòu)，而不涉及它的物理組織。q 幫助模塊幫助模塊主要包括關(guān)于1個(gè)部分。q 對(duì)用戶輸入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排除人為的錯(cuò)誤。員工工資信息(yggz)列名描述類型長度允許空備注empID(主鍵)職工編號(hào)varchar12NoName姓名varchar10NoHeadship職務(wù)varchar10Nobase_pay基本工資money8Yes默認(rèn)值（1000）Prize獎(jiǎng)金money8Yes默認(rèn)值（800）Salary應(yīng)發(fā)工資money8Yes公式([base_pay] + [prize])ine_tax個(gè)人所得稅money8YesIne實(shí)發(fā)工資money8Yes公式([base_pay] + [prize] [ine_tax])實(shí)現(xiàn)員工工資信息（職工編號(hào)、姓名、職務(wù)）隨著員工信息的更新、刪除、插入而更新、刪除、插入，實(shí)現(xiàn)動(dòng)態(tài)更新，我使用了三個(gè)觸發(fā)器，分別如下：CREATE TRIGGER [Delete_Reminder] ON FOR deleteASdeclare emp varchar(12)select emp =empID from deleteddelete from 員工工資信息where empID=empCREATE TRIGGER [Insert_Reminder] ON FOR INSERTASinsert into [員工工資信息](empID,name,headship)select empID,name,headshipfrom insertedCREATE TRIGGER [Update_name] ON FOR UPDATEASdeclare emp varchar(12)declare na varchar(10)declare hs varchar(10)select emp =empID from insertedselect na =name from insertedselect hs =headship from insertedif update(name) or update(headship)beginupdate[員工工資信息]set name=na,head