基于vb的工資管理系統(tǒng)-預(yù)覽頁(yè)

　

【正文】 工資公式設(shè)置計(jì)算實(shí)發(fā)工資查詢工資退出系統(tǒng)出勤統(tǒng)計(jì)添加用戶導(dǎo)出工資表 圖一 系統(tǒng)功能模塊圖本人研究的是以下幾個(gè)功能模塊：（1）工資信息設(shè)置這個(gè)模塊的作用是包括設(shè)置員工的基本工資和其他項(xiàng)目的金額，如獎(jiǎng)金等。工作進(jìn)度：第1至3周：收集相關(guān)資料，進(jìn)行系統(tǒng)方案設(shè)計(jì)，寫出開(kāi)題報(bào)告第4至8周：實(shí)現(xiàn)各部分模塊功能。隨著企業(yè)人員數(shù)量增加，企業(yè)的工資管理工作也變得越來(lái)越復(fù)雜。早期的工資統(tǒng)計(jì)和發(fā)放都是使用人工方式處理紙質(zhì)材料，不僅花費(fèi)財(cái)務(wù)人員大量的時(shí)間且不易保存，往往由于個(gè)人的因素抄寫不慎或計(jì)算疏忽，出現(xiàn)工資發(fā)放錯(cuò)誤的現(xiàn)象。VB6是一種面向?qū)ο蟮拈_(kāi)發(fā)工具，具有組件豐富、語(yǔ)言簡(jiǎn)單、功能強(qiáng)大的優(yōu)點(diǎn)。DBMS是數(shù)據(jù)庫(kù)系統(tǒng)的核心組成部分。MS Access 2000就是一種關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)。關(guān)系模型和層次、網(wǎng)狀模型的最大判別是用關(guān)鍵碼而不是用指針導(dǎo)航數(shù)據(jù)，表格簡(jiǎn)單用戶易懂，編程時(shí)并不涉及存儲(chǔ)結(jié)構(gòu)，訪問(wèn)技術(shù)等細(xì)節(jié)。同時(shí)工資的發(fā)放具有較強(qiáng)的時(shí)間限制，必須嚴(yán)格按照單位規(guī)定的時(shí)間完成計(jì)算和發(fā)放工作。理解就是對(duì)現(xiàn)實(shí)問(wèn)題的理解，要弄清楚究竟需要解決什么問(wèn)題。通常需求分為兩種類型：一種是功能性需求，一種是非功能性需求，這一點(diǎn)也需要有一種清楚的認(rèn)識(shí)。工資管理需要和人事管理相聯(lián)系，同時(shí)連接工時(shí)考勤和醫(yī)療保險(xiǎn)等等，來(lái)生成企業(yè)每個(gè)職工的基本工資、津貼、醫(yī)療保險(xiǎn)、保險(xiǎn)費(fèi)、實(shí)際發(fā)放工資等。基于以上原因，企業(yè)工資管理系統(tǒng)使用電腦安全保存、快速計(jì)算、全面統(tǒng)計(jì)，實(shí)現(xiàn)工資管理的系統(tǒng)化、規(guī)范化、自動(dòng)化。運(yùn)行結(jié)果證明，本企業(yè)工資管理系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力，最終滿足企業(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ā)工資查詢工資退出系統(tǒng)出勤統(tǒng)計(jì)添加用戶導(dǎo)出工資表 系統(tǒng)功能模塊在這次系統(tǒng)開(kāi)發(fā)中我主要完成的部分是工資管理和設(shè)置方面。企業(yè)工資信息設(shè)置部分：包括設(shè)置員工的基本工資和其他項(xiàng)目的金額，如獎(jiǎng)金等。工資信息管理導(dǎo)出工資表計(jì)算實(shí)發(fā)工資出勤統(tǒng)計(jì)查詢工資 工資信息管理模塊良好的數(shù)據(jù)庫(kù)設(shè)計(jì)，可以提高數(shù)據(jù)信息的存儲(chǔ)效率，確保數(shù)據(jù)信息的完整性和一致性。其他項(xiàng)目信息：包括員工編號(hào)、獎(jiǎng)金、津貼、福利、扣發(fā)等。在使用的時(shí)，要把應(yīng)用程序和這兩個(gè)數(shù)據(jù)庫(kù)保存在同一個(gè)文件夾中。 界面： 用戶登陸界面登陸界面程序流程圖如下:輸入用戶名密碼開(kāi)始用戶名密碼是否正確進(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)有輸入用戶名稱, vbOKOnly + vbExclamation, 警告 Else sql = select * from userinfo where userid=39。 Set rs = getrs(sql, salary) If iflag = 1 Then If = True ThenMsgBox 沒(méi)有這個(gè)用戶，請(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)目中，選擇使用多文檔界面。主窗體是進(jìn)行相關(guān)操作的主界面。 amp。界面及主要控件列表 其他項(xiàng)目主要控件對(duì) 象屬 性設(shè) 置dtpicker名稱dttimebobox名稱idframe名稱frameinfotexttext空Optionbuttonvaluefalse程序說(shuō)明：sql = select * from salaryother If ichangeflag = 1 Then Call add MsgBox 已經(jīng)添加記錄, vbOKOnly + vbExclamation, 提示 Call Call (sql) Unload Me Else If = True Then itype = 1 ElseIf = True Then itype = 2 ElseIf = True Then itype = 3 ElseIf = True Then itype = 4 ElseIf = True Then itype = 5 resumdate = recordtime sql = delete from salaryother where stuffid=39。 and YearMonth= amp。 itype Call transactsql(sql, Salary) Call add Call (resumdate) sql = select * from salaryother Call Call (sql) Unload Me End If “工資計(jì)算公式設(shè)置”窗體設(shè)計(jì)實(shí)現(xiàn)目標(biāo)：選擇“工資信息設(shè)置”—“工資計(jì)算公式設(shè)置”菜單，在這個(gè)計(jì)算公式窗體中設(shè)置員工實(shí)際發(fā)放工資的計(jì)算公式。界面：程序說(shuō)明：If = 4 Then firstday = Year(Date) amp。 amp。 + 1 amp。 amp。選擇月份和保存位置后，單擊“導(dǎo)出”按鈕，系統(tǒng)會(huì)開(kāi)始導(dǎo)出數(shù)據(jù)。在這個(gè)模塊里普通用戶只有修改自己的密碼的權(quán)利。在這個(gè)模塊里，普通用戶沒(méi)有任何權(quán)利進(jìn)行相關(guān)的操作。在這個(gè)模塊里，普通用戶有統(tǒng)計(jì)出勤信息和查詢工資的權(quán)利，但是都顯示的是自己的信息。在工資統(tǒng)計(jì)列表窗體里：使用了SSTab控件，在每一個(gè)標(biāo)簽上添加一個(gè)MSFlexGrid控件，然后設(shè)置它們的屬性。當(dāng)管理員進(jìn)入的時(shí)候他有所有的權(quán)利，單擊哪個(gè)模塊就會(huì)彈出相對(duì)應(yīng)的窗體。單擊“取消”按鈕就卸載此窗體，添加用戶的過(guò)程到此完成。當(dāng)你沒(méi)輸入員工編號(hào)的時(shí)候，會(huì)出現(xiàn)下圖的對(duì)話框； 沒(méi)輸入員工編號(hào)界面當(dāng)沒(méi)輸入員工的職務(wù)時(shí)會(huì)出現(xiàn)錯(cuò)誤的信息。這里還有一個(gè)DTPicker控件是用來(lái)記錄添加其他項(xiàng)目的時(shí)間，我覺(jué)得這個(gè)控件非常好。在計(jì)算公式設(shè)置的窗體里，單擊“恢復(fù)默認(rèn)值”按鈕系統(tǒng)將會(huì)恢復(fù)公式中的默認(rèn)值。計(jì)算實(shí)發(fā)工資：建立計(jì)算實(shí)發(fā)工資的窗體，這個(gè)窗體的建立和統(tǒng)計(jì)出勤記錄的窗體比較相似，選擇月份后，單擊“開(kāi)始統(tǒng)計(jì)”按鈕，即可統(tǒng)計(jì)員工工資。在建立工資查詢（即工資統(tǒng)計(jì)結(jié)果列表）的窗體時(shí)，我覺(jué)得這是一個(gè)最難的窗體。他沒(méi)有任何權(quán)限，只能看到自己的信息，這是我做這個(gè)窗體的特色。 39。 39。 39。 39。可以在顯示對(duì)話框的同時(shí)捕獲此錯(cuò)誤以檢驗(yàn)是否按下了“取消”按鈕。建立導(dǎo)出工資表的窗體，當(dāng)單擊“保存為”文本框右邊的按鈕，會(huì)提示用戶選擇保存路徑，然后單擊“導(dǎo)出”，會(huì)導(dǎo)到你所要保存的文件夾里。在運(yùn)行過(guò)程當(dāng)中，如果程序有錯(cuò)誤，就會(huì)停止在程序有誤的地方不會(huì)繼續(xù)運(yùn)行，這是必須終止運(yùn)行，對(duì)程序進(jìn)行調(diào)試。在系統(tǒng)運(yùn)行之后，就可以根據(jù)當(dāng)前模塊的功能設(shè)置對(duì)模塊進(jìn)行所需要的操作。程序模塊的編制中，重點(diǎn)把握系統(tǒng)內(nèi)部完整性、功能性、實(shí)用性、便捷性，使其能夠協(xié)調(diào)統(tǒng)一、運(yùn)行無(wú)誤