【正文】 資進(jìn)行計(jì)算（4） 將職工工資的數(shù)據(jù)進(jìn)行保存，便于查找和核實(shí)（5） 對(duì)保存的數(shù)據(jù)，可以根據(jù)特殊字段進(jìn)行查找開發(fā)這個(gè)系統(tǒng)的目的就是幫助企業(yè)的財(cái)務(wù)主管部門提高工作效率，實(shí)現(xiàn)企業(yè)工資信息管理的系統(tǒng)化、規(guī)范化和自動(dòng)化。 所以就有了工資管理系統(tǒng)，本系統(tǒng)的宗旨及總體任務(wù)就是幫助財(cái)務(wù)部門提高工作效率，實(shí)現(xiàn)公司工資信息管理的自動(dòng)化、規(guī)范化以及系統(tǒng)化。數(shù)據(jù)庫實(shí)訓(xùn)報(bào)告設(shè)計(jì)題目： 工資管理系統(tǒng) 學(xué) 院：計(jì)算機(jī)與信息工程專 業(yè)： 年 級(jí)： 2009級(jí) 班 級(jí)： 二班 姓 名： 指導(dǎo)老師： 學(xué) 號(hào)： 一、需求分析 系統(tǒng)分析 對(duì)于一個(gè)公司來說，擁有一個(gè)正確、及時(shí)而且規(guī)范地經(jīng)行員工工資的管理和發(fā)放是非常重要的。由于工資的計(jì)算涉及的數(shù)據(jù)是多方面的，每位員工的工資又都需要單獨(dú)計(jì)算，在員工數(shù)量越多時(shí)，工資管理的工作量就會(huì)越大，而且在重復(fù)的數(shù)據(jù)輸入和計(jì)算中容易出錯(cuò)。 本系統(tǒng)是通過對(duì)公司基本信息的管理、工資管理等環(huán)節(jié)的數(shù)據(jù)收集而建立的數(shù)據(jù)庫工資管理系統(tǒng)，實(shí)現(xiàn)有用的數(shù)據(jù)的快速查詢，減少操作中可能出現(xiàn)的錯(cuò)誤以及減少數(shù)據(jù)管理的工作量。能夠和認(rèn)識(shí)管理系統(tǒng)、考勤管理系統(tǒng)相結(jié)合，真正實(shí)現(xiàn)企業(yè)高效、科學(xué)、現(xiàn)代化的員工管理。二、開發(fā)平臺(tái)微軟公司的Visual Basic ，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。因此，本系統(tǒng)使用Microsoft Visual Basic 。三、數(shù)據(jù)庫分析設(shè)計(jì) 數(shù)據(jù)庫的建立用SQL建立一個(gè)名為“工資管理系統(tǒng)”的數(shù)據(jù)庫。基本工資信息：包括工資級(jí)別和工資金額。崗位工資信息：包括工資級(jí)別和工資金額。工資信息：包括員工編號(hào)、基本工資、崗位工資、水電費(fèi)、實(shí)發(fā)金額。部門信息：包括部門編號(hào)、部門名稱、部門負(fù)責(zé)人、部門人數(shù)。工資統(tǒng)計(jì)信息：包括員工編號(hào)、姓名、出生年月、所屬部門、文化程度、職稱。用戶信息：包括用戶名、密碼和權(quán)限。 公共模塊一Public power As StringPublic tempuser As StringPublic Mod As New Public UserName As StringPublic UserPwd As StringPublic Function ExecuteSQL(ByVal sql As String, MsgString As String) As Dim n As Dim rst As Dim sTokens() As StringOn Error GoTo ExecuteSQL_ErrorsTokens = Split(sql)Set n = New connectstringIf InStr(INSERT,DELETE,UPDATE, UCase$(sTokens(0))) Then sqlMsgString = sTokens(0) amp。 amp。 Resume ExecuteSQL_ExitEnd FunctionPublic Function connectstring() As Stringconnectstring = Provider=。Persist Security Info=False。Data Source=.End Function 公共模塊二Public Function select_sql(sql As String) As Dim As Dim rst As On Error GoTo sql_err:Set = New Set rst = New PROVIDER=MSDASQL。 amp。DATABASE=工資管理系統(tǒng)。PWD= sql, , 3, 2Set select_sql = rstsql_err:Set = NothingSet rst = NothingEnd FunctionPublic Function execute_sql(sql As String) As Dim As Dim rst As On Error GoTo sql_err:Set = New PROVIDER=MSDASQL。 amp。DATABASE=工資管理系統(tǒng)。PWD= sql sql_err:Set = NothingSet rst = NothingEnd Function “登錄模塊”詳細(xì)設(shè)計(jì) 登錄模塊的詳細(xì)設(shè)計(jì)主要是用戶登錄的一個(gè)界面，判斷登錄的用戶是管理員還是普通用戶，進(jìn)入后將面對(duì)的是主界面，從而進(jìn)行相關(guān)的操作。通過標(biāo)題可以知道此系統(tǒng)的大概內(nèi)容，由此，登錄界面的設(shè)計(jì)完成。 amp。 39。主窗體是進(jìn)行相關(guān)操作的主界面。Private Sub anbumenchaxun_Click()Enabled = FalseEnd SubPrivate Sub anyuangongchaxun_Click()Enabled = FalseEnd SubPrivate Sub Command1_Click()Enabled = FalseEnd SubPrivate Sub Command2_Click()Enabled = FalseEnd SubPrivate Sub Command3_Click()Enabled = FalseEnd SubPrivate Sub Command4_Click()Enabled = FalseEnd SubPrivate Sub Command5_Click()Enabled = FalseEnd SubPrivate Sub Command6_Click()Enabled = False = 添加用戶 = False = False = TrueEnd SubPrivate Sub Command7_Click()Enabled = False = 刪除用戶 = False = False = False = False = TrueEnd SubPrivate Sub Command8_Click()Enabled = False = 修改用戶 = False = False = False = TrueEnd SubPrivate Sub exit_Click()Unload MeEnd SubPrivate Sub fafanggongzi_Click()Enabled = FalseEnd SubPrivate Sub Form_Load()Dim i As Integer Dim sql As String Dim rst As sql = select 權(quán)限 from 用戶表 Set rst = ExecuteSQL(sql, ) For i = 1 To Next iEnd SubPrivate Sub Form_Unload(Cancel As Integer)EndEnd SubPrivate Sub gangweigongzi_Click()Enabled = FalseEnd SubPrivate Sub bumenguanli_Click()Enabled = FalseEnd SubPrivate Sub jibengongzi_Click()Enabled = FalseEnd SubPrivate Sub shanchuyonghu_Click()Enabled = False = 刪除用戶 = False = False = False = False = TrueEnd SubPrivate Sub tianjiayonghu_Click()Enabled = False = 添加用戶 = False = False = TrueEnd SubPrivate Sub xiugaiyonghu_Click()Enabled = False = 修改用戶 = False = False = False = TrueEnd SubPrivate Sub yuangongguanli_Click()Enabled = FalseEnd Sub “添加、刪除、修改模塊”詳細(xì)設(shè)計(jì) 單擊主窗體“系統(tǒng)”菜單下面各項(xiàng)，會(huì)彈出下面窗體。Dim msg_sql As StringDim objrs As Private Sub cmd_adduser_Click()Dim sql As StringDim newrst As sql = insert into 用戶表 values( amp。 amp。 39。 39。 Trim() amp。, amp。 amp。 39。 )Set newrst = execute_sql(sql)sql = select * from 用戶表Set newrst = se