【正文】 開(kāi)發(fā)工具，具有組件豐富、語(yǔ)言簡(jiǎn)單、功能強(qiáng)大的優(yōu)點(diǎn)。運(yùn)行結(jié)果證明，本企業(yè)工資管理系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力，最終滿(mǎn)足企業(yè)財(cái)務(wù)管理、員工工資發(fā)放的需要，同時(shí)也成為現(xiàn)代化企業(yè)管理的標(biāo)志。DBMS是數(shù)據(jù)庫(kù)系統(tǒng)的核心組成部分。DBMS總是基于某種數(shù)據(jù)模型，可以把DBMS看成是某種數(shù)據(jù)模型在計(jì)算機(jī)系統(tǒng)上的具體實(shí)現(xiàn)。MS Access 2000就是一種關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)。關(guān)系模型是由若干個(gè)關(guān)系模式組成的集合。關(guān)系模型和層次、網(wǎng)狀模型的最大判別是用關(guān)鍵碼而不是用指針導(dǎo)航數(shù)據(jù)，表格簡(jiǎn)單用戶(hù)易懂，編程時(shí)并不涉及存儲(chǔ)結(jié)構(gòu)，訪(fǎng)問(wèn)技術(shù)等細(xì)節(jié)。 企業(yè)工資管理系統(tǒng) 企業(yè)工資管理是一項(xiàng)瑣碎、復(fù)雜而又十分細(xì)致的工作，一般不允許發(fā)生差錯(cuò)。同時(shí)工資的發(fā)放具有較強(qiáng)的時(shí)間限制，必須嚴(yán)格按照單位規(guī)定的時(shí)間完成計(jì)算和發(fā)放工作。企業(yè)工資管理系統(tǒng)就是使用電腦代替大量的人工統(tǒng)計(jì)和計(jì)算，完成眾多企業(yè)工資信息的處理，同時(shí)使用電腦還可以安全地、完整地保存大量的企業(yè)工資記錄。理解就是對(duì)現(xiàn)實(shí)問(wèn)題的理解，要弄清楚究竟需要解決什么問(wèn)題。需求分析階段是軟件產(chǎn)品生存命期中的一個(gè)重要階段，其根本任務(wù)是確定用戶(hù)對(duì)軟件系統(tǒng)的需求。通常需求分為兩種類(lèi)型：一種是功能性需求，一種是非功能性需求，這一點(diǎn)也需要有一種清楚的認(rèn)識(shí)。非功能性需求是指實(shí)際使用環(huán)境所要求的需求，往往是一些限制要求，例如：性能要求，可靠性要求，安全保密要求，等等。工資管理需要和人事管理相聯(lián)系，同時(shí)連接工時(shí)考勤和醫(yī)療保險(xiǎn)等等，來(lái)生成企業(yè)每個(gè)職工的基本工資、津貼、醫(yī)療保險(xiǎn)、保險(xiǎn)費(fèi)、實(shí)際發(fā)放工資等。早期的工資統(tǒng)計(jì)和發(fā)放都是使用人工方式處理紙質(zhì)材料，不僅花費(fèi)財(cái)務(wù)人員大量的時(shí)間且不易保存，往往由于個(gè)人的因素抄寫(xiě)不慎或計(jì)算疏忽，出現(xiàn)工資發(fā)放錯(cuò)誤的現(xiàn)象?；谝陨显?，企業(yè)工資管理系統(tǒng)使用電腦安全保存、快速計(jì)算、全面統(tǒng)計(jì)，實(shí)現(xiàn)工資管理的系統(tǒng)化、規(guī)范化、自動(dòng)化。VB6是一種面向?qū)ο蟮拈_(kāi)發(fā)工具，具有組件豐富、語(yǔ)言簡(jiǎn)單、功能強(qiáng)大的優(yōu)點(diǎn)。運(yùn)行結(jié)果證明，本企業(yè)工資管理系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力，最終滿(mǎn)足企業(yè)財(cái)務(wù)管理、員工工資發(fā)放的需要，同時(shí)也成為現(xiàn)代化企業(yè)管理的標(biāo)志 系統(tǒng)功能模塊劃分 根據(jù)該企業(yè)的業(yè)務(wù)情況及實(shí)現(xiàn)目標(biāo)，：企業(yè)工資管理系統(tǒng)系統(tǒng)部分企業(yè)工資信息設(shè)置企業(yè)工資信息管理修改密碼基本工資設(shè)置其他工資設(shè)置工資公式設(shè)置計(jì)算實(shí)發(fā)工資查詢(xún)工資退出系統(tǒng)出勤統(tǒng)計(jì)添加用戶(hù)導(dǎo)出工資表 系統(tǒng)功能模塊在這次系統(tǒng)開(kāi)發(fā)中我主要完成的部分是工資管理和設(shè)置方面。能夠和認(rèn)識(shí)管理系統(tǒng)、考勤管理系統(tǒng)相結(jié)合，真正實(shí)現(xiàn)企業(yè)高效、科學(xué)、現(xiàn)代化的員工管理。企業(yè)工資信息設(shè)置部分：包括設(shè)置員工的基本工資和其他項(xiàng)目的金額，如獎(jiǎng)金等。工資信息設(shè)置工資計(jì)算公式設(shè)置其他工資設(shè)置基本工資設(shè)置 工資信息設(shè)置模塊工資信息管理導(dǎo)出工資表計(jì)算實(shí)發(fā)工資出勤統(tǒng)計(jì)查詢(xún)工資 工資信息管理模塊系統(tǒng)退出系統(tǒng)修改密碼添加用戶(hù) 系統(tǒng)模塊數(shù)據(jù)庫(kù)是信息管理系統(tǒng)的后臺(tái)，存儲(chǔ)著所有的信息，在信息管理系統(tǒng)中有著很重要的地位。良好的數(shù)據(jù)庫(kù)設(shè)計(jì)，可以提高數(shù)據(jù)信息的存儲(chǔ)效率，確保數(shù)據(jù)信息的完整性和一致性。基本工資信息：包括員工編號(hào)和基本工資（元/小時(shí)）。其他項(xiàng)目信息：包括員工編號(hào)、獎(jiǎng)金、津貼、福利、扣發(fā)等。計(jì)算公式信息：包括加班費(fèi)的百分比、出差工資、曠工、遲到早退扣發(fā)等。在使用的時(shí)，要把應(yīng)用程序和這兩個(gè)數(shù)據(jù)庫(kù)保存在同一個(gè)文件夾中。登錄的界面主要由用戶(hù)名和密碼的信息，還有一些標(biāo)題設(shè)置，確定和取消的按鈕組成。 界面： 用戶(hù)登陸界面登陸界面程序流程圖如下:輸入用戶(hù)名密碼開(kāi)始用戶(hù)名密碼是否正確進(jìn)入系統(tǒng)密碼錯(cuò)誤是否 登陸程序流程圖程序說(shuō)明： Option ExplicitDim pwdcount As IntegerPrivate Sub cmdcancel_Click() = = End SubPrivate Sub cmdok_Click() Dim sql As String Dim rs As If Trim( = ) Then MsgBox 沒(méi)有輸入用戶(hù)名稱(chēng), vbOKOnly + vbExclamation, 警告 Else sql = select * from userinfo where userid=39。 amp。 Set rs = getrs(sql, salary) If iflag = 1 Then If = True ThenMsgBox 沒(méi)有這個(gè)用戶(hù)，請(qǐng)重新輸入, vbOKOnly + vbExclamation, 警告 Else If Trim((1)) = Trim() Then strusername = Trim() userpassword = Trim() Unload Me Else MsgBox 密碼不正確，請(qǐng)重新輸入, vbOKOnly + vbExclamation, 警告 = End If End If End If End If pwdcount = pwdcount + 1 If pwdcount = 3 Then Unload Me End IfEnd SubPrivate Sub Form_Load() pwdcount = 0 strusername = userpassword = End Sub3．2 “主窗體”模塊詳細(xì)設(shè)計(jì)1實(shí)現(xiàn)目標(biāo)：在這個(gè)項(xiàng)目中，選擇使用多文檔界面。對(duì)于一個(gè)多任務(wù)的應(yīng)用程序，使用多文檔窗體還可以減少占用的系統(tǒng)資源。主窗體是進(jìn)行相關(guān)操作的主界面。 員工工資管理系統(tǒng)界面程序說(shuō)明：rivate Sub Menu_about_Click() 0End SubPrivate Sub Menu_adduser_Click(Index As Integer) If Trim(strusername) admin Then MsgBox 對(duì)不起，您沒(méi)有這個(gè)權(quán)限！, vbOKOnly + vbExclamation, 警告 ElseIf Trim(strusername) = admin Then 0 End IfEnd SubPrivate Sub Menu_basic_Click(Index As Integer) If Trim(strusername) admin Then MsgBox 對(duì)不起，您沒(méi)有這個(gè)權(quán)限！, vbOKOnly + vbExclamation, 警告 ElseIf Trim(strusername) = admin Then ichangeflag = 1 0 End IfEnd SubPrivate Sub Menu_changepwd_Click(Index As Integer) 0End SubPrivate Sub Menu_check_Click(Index As Integer) 0 = 信息查詢(xún)End SubPrivate Sub Menu_exit_Click(Index As Integer) Unload Me Exit SubEnd SubPrivate Sub Menu_formulasetting_Click(Index As Integer) If Trim(strusername) admin Then MsgBox 對(duì)不起，您沒(méi)有這個(gè)權(quán)限！, vbOKOnly + vbExclamation, 警告 ElseIf Trim(strusername) = admin Then 0 End IfEnd SubPrivate Sub Menu_getsalary_Click(Index As Integer) If Trim(strusername) admin Then MsgBox 對(duì)不起，您沒(méi)有這個(gè)權(quán)限！, vbOKOnly + vbExclamation, 警告 ElseIf Trim(strusername) = admin Then 0 End IfEnd SubPrivate Sub Menu_others_Click(Index As Integer) If Trim(strusername) admin Then MsgBox 對(duì)不起，您沒(méi)有這個(gè)權(quán)限！, vbOKOnly + vbExclamation, 警告 El