【正文】 管理數(shù)據(jù)備份/恢復(fù)結(jié)束當(dāng)月工資3．2 “登錄模塊”詳細(xì)設(shè)計 登錄模塊的詳細(xì)設(shè)計主要是用戶登錄的一個界面，判斷登錄的用戶是管理員還是普通用戶，進(jìn)入后將面對的是主界面，從而進(jìn)行相關(guān)的操作。針對企業(yè)工資信息管理系統(tǒng)的需求，通過對員工工資計算過程的內(nèi)容分析，為本系統(tǒng)設(shè)計如下的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)：數(shù)據(jù)庫設(shè)計的好與壞，直接影響到這個系統(tǒng)的運(yùn)行效率。系統(tǒng)部分：包括添加用戶和修改密碼。企業(yè)工資信息管理部分：包括統(tǒng)計出勤、計算工資、查詢工資和導(dǎo)出工資表。企業(yè)工資信息設(shè)置部分：包括設(shè)置員工的基本工資和其他項目的金額，如獎金等。系統(tǒng)最終實現(xiàn)的主要功能如下。軟件項目管理模塊包括項目基本信息管理、軟件模塊管理和軟件缺陷管理等功能開發(fā)這個系統(tǒng)的目的就是幫助企業(yè)的財務(wù)主管部門提高工作效率，實現(xiàn)企業(yè)工資信息管理的系統(tǒng)化、規(guī)范化和自動化。項目組信息的添加、修改、刪除和查詢?；拘畔椖款愋托畔?，項目狀態(tài)信息，模塊狀態(tài)信息和缺陷級別信息等。因此，本系統(tǒng)使用MS Visual Basic 。微軟公司的Visual Basic ，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。正是企業(yè)工資管理的這種重復(fù)性、規(guī)律性、時間性，使得企業(yè)工資管理計算機(jī)化成為可能。最初的工資統(tǒng)計和發(fā)放都是使用人工方式處理，工作量大的時候，出現(xiàn)錯誤的機(jī)率也隨之升高，不僅花費(fèi)財務(wù)人員大量的時間，而且往往由于抄寫不慎，或者由于計算的疏忽，出現(xiàn)工資發(fā)放錯誤的現(xiàn)象。SQL語言是關(guān)系型數(shù)據(jù)庫的標(biāo)準(zhǔn)化語言，已得到了廣泛的應(yīng)用。關(guān)系模式相當(dāng)于前面提到的記錄類型，每個關(guān)系實際上是一張二維表格。關(guān)系模型主要是用二維表格結(jié)構(gòu)表達(dá)實體集，用外鍵表示實體間聯(lián)系。根據(jù)數(shù)據(jù)模型的不同，DBMS可以分成層次型、網(wǎng)狀型、關(guān)系型、面向?qū)ο笮偷?。對?shù)據(jù)庫的一切操作，包括定義、更新及各種控制,都是通過DBMS進(jìn)行的。 第一章 緒論數(shù)據(jù)庫管理系統(tǒng)（DBMS）是指數(shù)據(jù)庫系統(tǒng)中管理數(shù)據(jù)的軟件系統(tǒng)。sqlserve2000數(shù)據(jù)庫具有與VB6無縫連接、操作簡單、易于使用的優(yōu)點(diǎn)。企業(yè)工資管理系統(tǒng)是典型的信息管理系統(tǒng)（MIS），前臺程序開發(fā)工具采用微軟的VB6，后臺數(shù)據(jù)庫采用sqlserve2000數(shù)據(jù)庫。早期工資管理多采取紙質(zhì)材料和具有較強(qiáng)的時間限制。資金是企業(yè)生存的主要元素，資金的流動影響到企業(yè)的整體運(yùn)作，企業(yè)員工的工資是企業(yè)資金管理的一個重要的組成部分。工資管理既涉及到企業(yè)勞動人事的管理，同時也是企業(yè)財務(wù)管理的重要組成部分。VB+SQLserve2000課程設(shè)計報告員工工資管理系統(tǒng)姓 名： _________班 級： ________________學(xué) 號： ____________指導(dǎo)教師： ____成 績：_____________________完成時間：20091228 完成地點(diǎn)：蚌埠學(xué)院 摘 要 1第一章 緒論 2 2 2 3第二章 員工工資管理系統(tǒng)設(shè)計分析 3 3 3 4第三章：企業(yè)工資管理系統(tǒng)應(yīng)用程序設(shè)計 53．1操作流程圖 53．2 “登錄模塊”詳細(xì)設(shè)計 63．3 “主窗體”模塊詳細(xì)設(shè)計 103．4 各項子模塊詳細(xì)設(shè)計 13．1添加用戶與刪除 13．2 修改用戶 15 17 20 20 22 24 26 發(fā)放工資 27 按員工查詢 32 按部門查詢 33模塊一： 35模塊二： 35第五章：結(jié) 束 語 36謝辭 37參考文獻(xiàn)： 37摘 要企業(yè)的工資管理是公司管理的一個重要內(nèi)容。隨著企業(yè)人員數(shù)量增加，企業(yè)的工資管理工作也變得越來越復(fù)雜。工資管理需要和人事管理相聯(lián)系，同時連接工時考勤和醫(yī)療保險等等，來生成企業(yè)每個職工的基本工資、津貼、醫(yī)療保險、保險費(fèi)、實際發(fā)放工資等。早期的工資統(tǒng)計和發(fā)放都是使用人工方式處理紙質(zhì)材料，不僅花費(fèi)財務(wù)人員大量的時間且不易保存，往往由于個人的因素抄寫不慎或計算疏忽，出現(xiàn)工資發(fā)放錯誤的現(xiàn)象。基于以上原因，企業(yè)工資管理系統(tǒng)使用電腦安全保存、快速計算、全面統(tǒng)計，實現(xiàn)工資管理的系統(tǒng)化、規(guī)范化、自動化。VB6是一種面向?qū)ο蟮拈_發(fā)工具，具有組件豐富、語言簡單、功能強(qiáng)大的優(yōu)點(diǎn)。運(yùn)行結(jié)果證明，本企業(yè)工資管理系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力，最終滿足企業(yè)財務(wù)管理、員工工資發(fā)放的需要，同時也成為現(xiàn)代化企業(yè)管理的標(biāo)志。DBMS是數(shù)據(jù)庫系統(tǒng)的核心組成部分。DBMS總是基于某種數(shù)據(jù)模型，可以把DBMS看成是某種數(shù)據(jù)模型在計算機(jī)系統(tǒng)上的具體實現(xiàn)。MSsqlserve2000就是一種關(guān)系型數(shù)據(jù)庫管理系統(tǒng)。關(guān)系模型是由若干個關(guān)系模式組成的集合。關(guān)系模型和層次、網(wǎng)狀模型的最大判別是用關(guān)鍵碼而不是用指針導(dǎo)航數(shù)據(jù)，表格簡單用戶易懂，編程時并不涉及存儲結(jié)構(gòu)，訪問技術(shù)等細(xì)節(jié)。 企業(yè)工資管理是一項瑣碎、復(fù)雜而又十分細(xì)致的工作，一般不允許發(fā)生差錯。同時工資的發(fā)放具有較強(qiáng)的時間限制，必須嚴(yán)格按照單位規(guī)定的時間完成計算和發(fā)放工作。企業(yè)工資管理系統(tǒng)就是使用電腦代替大量的人工統(tǒng)計和計算，完成眾多企業(yè)工資信息的處理，同時使用電腦還可以安全地、完整地保存大量的企業(yè)工資記錄。Visual Basic提供了大量的控件，這些控件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。第二章 員工工資管理系統(tǒng)設(shè)計分析基本信息的添加、修改、刪除和查詢。 此功能為項目組管理和軟件項目管理模塊提供數(shù)據(jù)。項目組信息包括收員工信息和角色信息。能夠和認(rèn)識管理系統(tǒng)、考勤管理系統(tǒng)相結(jié)合，真正實現(xiàn)企業(yè)高效、科學(xué)、現(xiàn)代化的員工管理。數(shù)據(jù)庫是信息管理系統(tǒng)的后臺，存儲著所有的信息，在信息管理系統(tǒng)中有著很重要的地位。良好的數(shù)據(jù)庫設(shè)計，可以提高數(shù)據(jù)信息的存儲效率，確保數(shù)據(jù)信息的完整性和一致性。基本工資信息：包括工資級別和工資金額。崗位工資信息：包括工資級別和工資金額。工資信息：包括員工編號、基本工資、崗位工資、水電費(fèi)、實發(fā)金額。部門信息：包括部門編號、部門名稱、部門負(fù)責(zé)人、部門人數(shù)。工資統(tǒng)計信息：包括員工編號、姓名、出生年月、所屬部門、文化程度、職稱。用戶信息：包括用戶名、密碼和權(quán)限。 登錄的界面主要由用戶名和密碼的信息，還有一些標(biāo)題設(shè)置，確定和取消的按鈕組成。 窗體及核心代碼：Private Sub cmd_cancel_Click() = = 請選擇 Unload MeEnd SubPrivate Sub cmd_ok_Click() Dim try_times As String Dim sql As String Dim rst As try_times = 0If (Trim() = ) Then MsgBox 請輸入密碼, vbOKOnly + vbExclamation, 提示Else sql = select * from 用戶表 where 用戶名=39。 Trim() amp。 Set rst = ExecuteSQL(sql, ) If Trim((1)) = Trim() Then If Trim((2)) 管理員 Then = False 39。在這里若密碼錯了應(yīng)該跳出該過程，否則下面的語句還會執(zhí)行，這不是你想要的 End If 39。個人認(rèn)為密碼輸入錯了才加一，你這樣的話，用戶名錯了也會加一，當(dāng)然你這里用戶名不會錯是吧，改得多余了 If try_times = 3 Then Unload Me End IfEnd IfEnd SubPrivate Sub Form_Load() Dim i As Integer Dim sql As String Dim rst As sql = select 用戶名 from 用戶表 Set rst = ExecuteSQL(sql, ) For i = 1 To ((0)) Next iEnd Sub主窗體：Private Sub bumenxinxi_Click()Dim sql As StringDim rst As New sql = select * from 用戶表 Set rst = ExecuteSQL(sql, )power = (2)If Trim(power) 管理員 ThenMsgBox 您無權(quán)進(jìn)行該操作！, vbOKOnly + vbExclamation, 警告ElseIf Trim(power) = 管理員 ThenUnload MeEnd IfEnd IfEnd SubPrivate Sub gangweigongzi_Click()Dim sql As StringDim rst As New sql = select * from 用戶表 Set rst = ExecuteSQL(sql, )power = (2)If Trim(power) 管理員 ThenMsgBox 您無權(quán)進(jìn)行該操作！, vbOKOnly + vbExclamation, 警告ElseIf Trim(power) = 管理員 ThenUnload MeEnd IfEnd IfEnd SubPrivate Sub jiben_Click()Dim sql As StringDim rst As New sql = select * from 用戶表 Set rst = ExecuteSQL(sql, )power = (2)If Trim(power) 管理員 ThenMsgBox 您無權(quán)進(jìn)行該操作！, vbOKOnly + vbExcla