數(shù)據(jù)庫課程設(shè)計(jì)報(bào)告-通用工資管理系統(tǒng)課程設(shè)計(jì)

1、華東交通大學(xué)理工學(xué)院通用工資管理系統(tǒng)課程設(shè)計(jì)報(bào)告存檔資料 成績： 華東交通大學(xué)理工學(xué)院數(shù)據(jù)庫課程設(shè)計(jì)報(bào)告所屬課程: 通用工資管理系統(tǒng)課程設(shè)計(jì) 分 院: 電子與信息工程分院 專速度業(yè): 計(jì)算機(jī)科學(xué)與技術(shù) 學(xué)號: 學(xué)生姓名: 指導(dǎo)教師: 2010年12月31日 華東交通大學(xué)理工學(xué)院課 程 設(shè) 計(jì)（ 論 文 ）任 務(wù) 書專 業(yè) 計(jì)算機(jī)科學(xué)與技術(shù) 班 級 計(jì)科（2）班 姓名 江洋 一、課程設(shè)計(jì)（論文）題目 通用工資管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 二、課程設(shè)計(jì)（論文）工作：自 2010 年 12月 20 日起至 2012年 1 月 6 日止。三、課程設(shè)計(jì)（論文）的內(nèi)容要求：(1) 鑒于嵌入式 SQL語言在軟件開發(fā)

2、應(yīng)用(特別是在數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)中)的重要作用，掌握使用SQL語言嵌入式操作與設(shè)計(jì)的基本方法和步驟。(2) 掌握與一種高級語言結(jié)合的具體程序代碼的編寫方法，上機(jī)運(yùn)行，調(diào)試并能得出正確的結(jié)果。本課程設(shè)計(jì)的題目是一Virtual Basic為開發(fā)環(huán)境，利用嵌入式SQL語言與SQL Server結(jié)合起來，開發(fā)一個(gè)單數(shù)據(jù)庫表的應(yīng)用系統(tǒng)，為今后真正多表數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)打下良好的基礎(chǔ)。(3)要求設(shè)計(jì)一套企業(yè)工資管理系統(tǒng)，其中應(yīng)具有一定的人事檔案管理功能。通過對職工建立人事檔案，根據(jù)其考勤情況以及相應(yīng)的工資級別，算出其相應(yīng)的工資。為了便于企業(yè)領(lǐng)導(dǎo)掌握本企業(yè)的工資信息，在系統(tǒng)中應(yīng)加入各種查詢功能，包括個(gè)人信

3、息、職工工資、本企業(yè)內(nèi)某一個(gè)月或某一部門的工資情況查詢，系統(tǒng)應(yīng)能輸出各類統(tǒng)計(jì)報(bào)表。 學(xué)生簽名(手簽)：_2010 年12月31日摘要 由于計(jì)算機(jī)技術(shù)的飛速發(fā)展,數(shù)據(jù)庫技術(shù)作為數(shù)據(jù)管理的一個(gè)有效的手段,在各行各業(yè)中得到越來越廣泛的應(yīng)用。因此,本文圍繞一個(gè)“通用工資管理系統(tǒng)”程序的設(shè)計(jì)和應(yīng)用系統(tǒng)的開發(fā)課題為背景,詳細(xì)介紹了以VB和SQL SERVER為語言編寫管理信息系統(tǒng)的過程。該程序通過VB的ADO數(shù)據(jù)對象來實(shí)現(xiàn)VB前臺與后臺SQL SERVER數(shù)據(jù)庫的連接,并具有典型的數(shù)據(jù)庫應(yīng)用系統(tǒng)的特征,完成了系統(tǒng)結(jié)構(gòu)與現(xiàn)實(shí)生活的緊密結(jié)合。管理系統(tǒng)的開發(fā)不僅是一個(gè)應(yīng)用程序編寫的過程,更重要的是在系統(tǒng)分析和設(shè)

4、計(jì)階段所做的工作。該程序在設(shè)計(jì)過程中嚴(yán)格遵循軟件工程學(xué)的方法,用分階段的生命周期計(jì)劃嚴(yán)格管理,并主要講述了程序的總體設(shè)計(jì)、詳細(xì)設(shè)計(jì)階段,對程序進(jìn)行需求迭代,不斷修正和改進(jìn),利用SQL SERVER的強(qiáng)大數(shù)據(jù)庫功能,直到形成一個(gè)完善的可行性系統(tǒng).較好的界面,方便實(shí)用的查詢與維護(hù)功能共同構(gòu)成了“人事工資管理系統(tǒng)”。關(guān)鍵詞：VB，SQL SERVER，數(shù)據(jù)庫，通用工資管理系統(tǒng)目 錄第1章 引言.51.1 設(shè)計(jì)目的.51.2 設(shè)計(jì)要求.51.3 設(shè)計(jì)環(huán)境.51.4 設(shè)計(jì)分工.5第2章 需求分析.62.1 系統(tǒng)性需求分析.62.2 數(shù)據(jù)流圖.62.3數(shù)據(jù)字典.7 2.3.1 數(shù)據(jù)結(jié)構(gòu)描述.7 3.2.2

5、 數(shù)據(jù)流的描述.82.3.3 主要數(shù)據(jù)存儲的定義.8第3章 概要設(shè)計(jì).103.1 E-R圖.10第4章 邏輯設(shè)計(jì).124.1 數(shù)據(jù)庫關(guān)系模式.124.2 關(guān)系模型的優(yōu)化.124.3 建立表格.12第5章 物理設(shè)計(jì)和實(shí)施.14第6章 數(shù)據(jù)庫的實(shí)現(xiàn).146.1 用戶登入模塊.146.2 子模塊的設(shè)計(jì).176.2.1 用戶管理模塊.176.2.2 員工信息管理模塊.216.2.3 部門信息管理.266.2.4 考勤信息管理.306.2.5 工資信息管理.326.2.6 津貼信息管理.36第7章 系統(tǒng)運(yùn)行.42第8章 總結(jié).43第1章 引言1.1 設(shè)計(jì)目的(1) 鑒于嵌入式 SQL語言在軟件開發(fā)應(yīng)用(

6、特別是在數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)中)的重要作用，掌握使用SQL語言嵌入式操作與設(shè)計(jì)的基本方法和步驟。(2) 掌握與一種高級語言結(jié)合的具體程序代碼的編寫方法，上機(jī)運(yùn)行，調(diào)試并能得出正確的結(jié)果。本課程設(shè)計(jì)的題目是一Virtual Basic為開發(fā)環(huán)境，利用嵌入式SQL語言與SQL Server結(jié)合起來，開發(fā)一個(gè)單數(shù)據(jù)庫表的應(yīng)用系統(tǒng)，為今后真正多表數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)打下良好的基礎(chǔ)。1.2 設(shè)計(jì)要求要求設(shè)計(jì)一套企業(yè)工資管理系統(tǒng)，其中應(yīng)具有一定的人事檔案管理功能。通過對職工建立人事檔案，根據(jù)其考勤情況以及相應(yīng)的工資級別，算出其相應(yīng)的工資。為了便于企業(yè)領(lǐng)導(dǎo)掌握本企業(yè)的工資信息，在系統(tǒng)中應(yīng)加入各種查詢功能，包括個(gè)

7、人信息、職工工資、本企業(yè)內(nèi)某一個(gè)月或某一部門的工資情況查詢，系統(tǒng)應(yīng)能輸出各類統(tǒng)計(jì)報(bào)表。1.3 設(shè)計(jì)環(huán)境(1) 中文Windows操作系統(tǒng)。(2) SQL Server 2005.(3) Virtual Basic 6.0中文版。1.4 設(shè)計(jì)分工同組人：1班37號 鄒海榮分工：課程設(shè)計(jì)中各任務(wù)的設(shè)計(jì)和調(diào)試獨(dú)立思考，獨(dú)立完成。第2章 需求分析2.1 系統(tǒng)性需求分析需求分析的第一步描述工資管理系統(tǒng)的功能，即定義用例，以此確定系統(tǒng)的功能需求。經(jīng)過調(diào)研及分析，工資管理信息系統(tǒng)主要完成以下功能：（1） 管理員身份的確認(rèn)：只有用戶名和用戶密碼都相符的管理員方可進(jìn)入本系統(tǒng)，為了防止不合法用戶對數(shù)據(jù)的察看和修改

8、，管理員可以設(shè)定用戶名、密碼和其權(quán)限，還可以對紀(jì)錄進(jìn)行增加、刪除、修改等操作。（3） 工資信息模塊：員工每個(gè)月度的基本工資、崗位工資、水電費(fèi)、津貼工資、扣除薪酬、實(shí)發(fā)金額。（4） 部門信息模塊：公司各部門編號、名稱、負(fù)責(zé)人、人數(shù)。（5） 考勤模塊：記錄員工遲到、缺席次數(shù)。（6） 津貼模塊：記錄員工加班情況派發(fā)津貼。（7） 員工信息模塊：管理員對所需要的資料的查詢即對員工基本信息的增加、刪除、修改、查詢操作。圖2.1 系統(tǒng)功能模塊2.2 數(shù)據(jù)流圖經(jīng)過需求分析和得到的系統(tǒng)功能模塊圖，可得到相應(yīng)的數(shù)據(jù)流圖，其中0層通用工資管理體統(tǒng)如圖2.2所示。圖2.2 通用工資關(guān)系系統(tǒng)0層數(shù)據(jù)流圖2.3數(shù)據(jù)字典2

9、.3.1 數(shù)據(jù)結(jié)構(gòu)描述名稱：員工(Employee)含義說明：員工信息組成結(jié)構(gòu)：員工編號+姓名+性別+年齡+所屬部門+文化程度+職稱名稱：工資(Salary)含義說明：工資信息組成結(jié)構(gòu)：員工編號+基本工資+實(shí)際工資+津貼工資+扣除工資名稱：部門(branch)含義說明：部門信息組成結(jié)構(gòu)：部門編號+部門名稱+部門負(fù)責(zé)人+部門人數(shù)3.2.2 數(shù)據(jù)流的描述數(shù)據(jù)流名稱：員工信息添加 簡述：新員工信息錄入數(shù)據(jù)流來源：公司管理人員數(shù)據(jù)流去向：員工信息數(shù)據(jù)流組成：員工編號+姓名+性別+年齡+所屬部門+文化程度+職稱數(shù)據(jù)流名稱：員工信息修改 簡述：員工信息錯(cuò)誤或者員工調(diào)動(dòng)數(shù)據(jù)流來源：員工信息數(shù)據(jù)流去向：員工信

10、息數(shù)據(jù)流組成：員工編號+姓名+性別+年齡+所屬部門+文化程度+職稱數(shù)據(jù)流名稱：員工信息刪除 簡述：員工離職數(shù)據(jù)流來源：員工信息數(shù)據(jù)流去向：員工信息數(shù)據(jù)流組成：員工編號+姓名+性別+年齡+所屬部門+文化程度+職稱數(shù)據(jù)流名稱：工資添加 簡述：新員工工資添加數(shù)據(jù)流來源：公司管理者數(shù)據(jù)流去向：工資信息數(shù)據(jù)流組成：員工號+基本工資+實(shí)際工資+津貼工資+扣除薪酬數(shù)據(jù)流名稱：工資修改 簡述：公司對工資修改數(shù)據(jù)流來源：公司管理人員數(shù)據(jù)流去向：工資信息數(shù)據(jù)流組成：員工號+基本工資+崗位工資+津貼工資+扣除薪酬2.3.3 主要數(shù)據(jù)存儲的定義存儲名稱：員工記錄說明：存儲員工信息輸入：員工基本信息輸出：員工所有信息數(shù)

11、據(jù)結(jié)構(gòu)：員工編號+姓名+性別+年齡+所屬部門+文化程度+職稱存儲名稱：部門記錄說明：存儲部門信息輸入：部門基本信息輸出：部門所有信息數(shù)據(jù)結(jié)構(gòu)：部門編號+部門名稱+部門負(fù)責(zé)人+部門人數(shù)存儲名稱：工資記錄說明：存儲工資信息輸入：員工工資信息輸出：員工所有工資信息數(shù)據(jù)結(jié)構(gòu)：員工編號+基本工資+實(shí)際工資+津貼工資+扣除工資存儲名稱：考勤記錄說明：存儲各員工的考勤信息輸入：員工考勤信息輸出：員工所有考勤信息數(shù)據(jù)結(jié)構(gòu)：員工編號+遲到次數(shù)+缺席次數(shù)存儲名稱：津貼記錄輸入：員工津貼信息輸出：員工所有津貼信息數(shù)據(jù)結(jié)構(gòu)：員工編號+加班天數(shù)+津貼工資第3章 概念結(jié)構(gòu)設(shè)計(jì)3.1 E-R圖 根據(jù)需求分析階段得到的數(shù)據(jù)流

12、圖和數(shù)據(jù)字典，可以得出該工資管理系統(tǒng)的E-R圖，如下圖所示。圖3.1 用戶信息E-R圖圖3.2 員工信息E-R圖圖3.3 部門信息E-R圖圖3.4 津貼信息E-R圖圖3.5 考勤信息E-R圖圖3.6 工資信息E-R圖將以上E-R圖合并可得該系統(tǒng)的總E-R圖，如圖3.7所示。圖3.7 通用工資管理系統(tǒng)總E-R圖第4章 邏輯結(jié)構(gòu)設(shè)計(jì)4.1 數(shù)據(jù)庫關(guān)系模式邏輯結(jié)構(gòu)設(shè)計(jì)的任務(wù)就是把概念結(jié)構(gòu)設(shè)計(jì)階段得到的E-R圖轉(zhuǎn)換為與選用的DBMS產(chǎn)品所支持的數(shù)據(jù)模型相符合的邏輯結(jié)構(gòu)。以下模式就是將E-R圖轉(zhuǎn)換為關(guān)系模式。其中標(biāo)下劃線的為主碼。員工信息（員工編號、姓名、性別、年齡、所屬部門、文化程度、職稱）部門信息（

13、部門編號、部門名稱、部門負(fù)責(zé)人、部門人數(shù)）基本工資（工資級別、基本工資）工資信息（員工編號、基本工資、津貼工資、扣除工資、實(shí)際工資）考勤信息（員工編號、遲到次數(shù)、缺勤次數(shù)）津貼信息（員工編號、加班天數(shù)、津貼工資） 用戶信息（用戶號、密碼）4.2 關(guān)系模型的優(yōu)化經(jīng)分析得出，以上關(guān)系模式由于存在傳遞依賴，如津貼工資函數(shù)依賴于加班天數(shù)，故須對其進(jìn)行優(yōu)化處理。使其至少滿足3NF，優(yōu)化處理結(jié)果如下所示:員工信息（員工編號、姓名、性別、年齡、所屬部門、文化程度、職稱）部門信息（部門編號、部門名稱、部門負(fù)責(zé)人、部門人數(shù)）基本工資（工資級別、基本工資）工資信息（員工編號、基本工資、津貼工資、扣除工資、實(shí)際工資

14、）考勤信息（員工編號、遲到次數(shù)、缺勤次數(shù)）津貼信息（員工編號、加班天數(shù)）津貼情況（加班天數(shù)，津貼工資） 用戶信息（用戶號、密碼）4.3 建立表格工資信息管理系統(tǒng)數(shù)據(jù)庫中各個(gè)表格的設(shè)計(jì)結(jié)果如下面的幾個(gè)表格所示。每個(gè)表格表示在數(shù)據(jù)庫中的一個(gè)表。表4-1 員工信息表字段名稱存儲代碼主鍵數(shù)據(jù)類型允許空值員工編號Eno是Char(8)Not null姓名Ename否Char(8)null性別Esex否Char(2)null年齡Eage否intnull所屬部門Edep否Char(4)null文化程度Ecul否Char(4)null職稱Ejob否Char(12)null表4-2 部門信息表字段名稱存儲代碼主

15、鍵數(shù)據(jù)類型允許空值部門編號Dno是Char(4)Not null部門名稱Dname否Char(20)null部門負(fù)責(zé)人Eno否Char(8)null部門人數(shù)Dnum否intnull表4-3 基本工資表字段名稱存儲代碼主鍵數(shù)據(jù)類型允許空值工資級別Sno是Char(2)Not null基本工資Sbas否intnull表4-4 工資信息表字段名稱存儲代碼主鍵數(shù)據(jù)類型允許空值員工編號Eno是Char(8)Not null基本工資Sbas否intnull津貼工資Ssub否intnull扣除工資Sred否intnull實(shí)際工資Srel否intnull表4-5 考勤信息表字段名稱存儲代碼主鍵數(shù)據(jù)類型允許空值

16、員工編號Eno是Char(8)Not null遲到次數(shù)Elat否intnull缺勤次數(shù)Eabs否intnull表4-6 津貼信息表字段名稱存儲代碼主鍵數(shù)據(jù)類型允許空值員工編號Eno是Char(8)Not null加班天數(shù)Eadd否intnull表4-7 津貼情況表字段名稱存儲代碼主鍵數(shù)據(jù)類型允許空值加班天數(shù)Eadd是intNot null津貼工資Ssub否intnull表4-8 用戶信息表字段名稱存儲代碼主鍵數(shù)據(jù)類型允許空值用戶號Eno否Char(8)Not null密碼pasw否Char(6)null第5章 物理設(shè)計(jì)和實(shí)施數(shù)據(jù)庫的建立如上表所示，存儲路徑等均采用系統(tǒng)默認(rèn)設(shè)置。第6章 數(shù)據(jù)庫的

17、實(shí)現(xiàn)6.1 用戶登入模塊經(jīng)過以上步驟，建立了數(shù)據(jù)庫和表之后，下面將在Vistual Basic 平臺上與嵌入式SQL一起實(shí)現(xiàn)通用工資管理系統(tǒng)的功能。 6.1.1 “登陸模塊”詳細(xì)設(shè)計(jì)“登錄模塊”的設(shè)計(jì)主要是針對用戶登錄界面的設(shè)計(jì)，判斷用戶是否有權(quán)限訪問系統(tǒng)，從而進(jìn)入“主界面”。登陸界面主要由用戶名和密碼的信息，還有確定和取消按鈕的設(shè)置。用戶只有選擇用戶名后填入相應(yīng)的密碼后點(diǎn)擊“確定”才能進(jìn)入主界面，點(diǎn)擊“取消”會退出系統(tǒng)。登陸界面設(shè)計(jì)，如圖6.2所示。v圖6.1 登入界面當(dāng)用戶操作有誤時(shí)，會有如圖6.2所示的錯(cuò)誤信息。圖6.2 登入失敗界面登入界面對話框的代碼如下?！按_定”按鈕的源代碼：Pri

18、vate Sub Command1_Click()Dim r As IntegerDim rr As Integer If Me.txtUserName.Text = Then r = MsgBox(請輸入用戶名！, , 應(yīng)付帳管理) txtUserName.SetFocus Exit Sub End If If Me.txtPassword.Text = Then rr = MsgBox(請輸入密碼！, , 應(yīng)付帳管理) txtPassword.SetFocus Exit Sub End If Dim cn As New ADODB.Connection Dim rs As New ADOD

19、B.Recordset cn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Wage;Data Source=PC2006110122EOA Set rs = New ADODB.Recordset Dim s1_Sql As String s1_Sql = SELECT * FROM 用戶表 WHERE 用戶號= & Trim(txtUserName.Text) & and 密碼= & Trim(Me.txtPassword.Text) & rs.Op

20、en s1_Sql, cn, adOpenStatic, adLockOptimistic On Error Resume Next rs.MoveFirst If Err = 3021 Then r = MsgBox(用戶名或密碼錯(cuò)誤，請重新檢查！, , 應(yīng)付帳管理) Exit Sub End If 系統(tǒng).Show Unload MeEnd Sub“取消”按鈕的源代碼：Private Sub Command2_Click()Unload MeEnd Sub由于“取消”按鈕的源代碼基本上是一樣的，以下的模塊江不再多述。6.1.2 “主界面”的詳細(xì)設(shè)計(jì)主界面的設(shè)計(jì)是由菜單編輯器生成，主要由系統(tǒng)設(shè)

21、置、設(shè)置、信息維護(hù)、工資查詢五個(gè)模塊組成。其作用是使程序更加有條有理，有利于管理。其中普通用戶只可部分操作，管理員可以對所有模塊進(jìn)行操作。6.2 子模塊的設(shè)計(jì)6.2.1用戶管理模塊 選擇“用戶管理”“添加用戶”菜單，在添加用戶的窗體里輸入用戶名、密碼系統(tǒng)自動(dòng)新增用戶名及其用戶信息。如圖6.4所示。為了提高系統(tǒng)的安全性，我在系統(tǒng)中設(shè)置了修改密碼功能，只要輸入修改后的密碼即可，它會有修改后的提示信息，如圖6.5所示。圖6.3 工資管理系統(tǒng)總界面實(shí)現(xiàn)工資管理系統(tǒng)對話框的源代碼如下：Private Sub A1_Click(Index As Integer)添加用戶.ShowEnd SubPrivat

22、e Sub A2_Click(Index As Integer)修改密碼.ShowEnd SubPrivate Sub B1_Click(Index As Integer)員工信息設(shè)置.ShowEnd SubPrivate Sub C1_Click(Index As Integer)部門信息設(shè)置.ShowEnd SubPrivate Sub D1_Click(Index As Integer)考勤信息設(shè)置.ShowEnd SubPrivate Sub E1_Click(Index As Integer)基本工資管理.ShowEnd SubPrivate Sub E2_Click(Index A

23、s Integer)工資信息表設(shè)置.ShowEnd SubPrivate Sub F1_Click(Index As Integer)津貼信息表設(shè)置.ShowEnd SubPrivate Sub F2_Click(Index As Integer)津貼情況表設(shè)置.ShowEnd SubPrivate Sub G_Click(Index As Integer)Unload MeEnd SubPrivate Sub wrtdep_Click(Index As Integer)修改部門信息.ShowEnd Sub圖6.4 添加用戶“添加用戶”的源代碼：Private Sub cmbfield_Cli

24、ck()cmbname.ClearAdodc1.RecordSource = select * from 用戶表Adodc1.RefreshDo While Not Adodc1.Recordset.EOFcmbname.AddItem Adodc1.Recordset.Fields(cmbfield.Text)Adodc1.Recordset.MoveNextLoopcmbname.Text = cmbname.List(0)End SubPrivate Sub cmbname_Click()Dim conditioncondition = Trim(cmbfield.Text)If Var

25、Type(condition) = 8 ThenAdodc1.RecordSource = select * from 用戶表 where & condition & = & cmbname.Text & 這里緊接上行，一下其他類是地方也同樣ElseAdodc1.RecordSource = select * from 用戶表 where & condition & = & cmbname.TextEnd IfAdodc1.RefreshAdodc1.Recordset.MoveFirstText1.Text = Adodc1.Recordset.Fields(Eno)Text2.Text =

26、 Adodc1.Recordset.Fields(密碼)End SubPrivate Sub cmdadd_Click()On Error GoTo errorhandlerIf Text1.Text ThenAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(Eno) = Text1.TextAdodc1.Recordset.Fields(密碼) = Text2.TextAdodc1.Recordset.Updatecmbname.ClearAdodc1.RecordSource = select * from 用戶表Adodc1.RefreshDo

27、 While Not Adodc1.Recordset.EOFcmbname.AddItem Adodc1.Recordset.Fields(1)Adodc1.Recordset.MoveNextLoopcmbfield_ClickElseMsgBox 員工號是主索引，不能為空, 錯(cuò)誤提示End IfExit Suberrorhandler:MsgBox 員工號是主索引，不能重復(fù), 錯(cuò)誤提示End SubPrivate Sub Command2_Click()系統(tǒng).ShowEnd SubPrivate Sub Form_Load()Dim i As IntegerAdodc1.RecordSo

28、urce = select * from 用戶表Set DataGrid1.DataSource = Adodc1cmbfield.ClearFor i = 0 To Adodc1.Recordset.Fields.Count - 1cmbfield.AddItem Adodc1.Recordset.Fields(i).NameNext icmbfield.Text = cmbfield.List(0)End Sub圖6.5 修改密碼6.2.2 員工信息管理模塊 選擇“員工信息管理”“員工信息設(shè)置”，然后再在字段名上選Esex,字段值上選“男”，即可查詢所有為男性的員工，如圖6.6所示。同理，

29、也可以進(jìn)行其他一些操作如刪除，修改等。圖6.6 員工信息設(shè)置員工信息管理模塊的源代碼：Private Sub cmbfield_Click()cmbname.ClearAdodc1.RecordSource = select * from 員工信息Adodc1.RefreshDo While Not Adodc1.Recordset.EOFcmbname.AddItem Adodc1.Recordset.Fields(cmbfield.Text)Adodc1.Recordset.MoveNextLoopcmbname.Text = cmbname.List(0)End SubPrivate S

30、ub cmbname_Click()Dim conditioncondition = Trim(cmbfield.Text)If VarType(condition) = 8 ThenAdodc1.RecordSource = select * from 員工信息 where & condition & = & cmbname.Text & ElseAdodc1.RecordSource = select * from 員工信息 where & condition & = & cmbname.TextEnd IfAdodc1.RefreshAdodc1.Recordset.MoveFirstt

31、xtid.Text = Adodc1.Recordset.Fields(Eno)txtname.Text = Adodc1.Recordset.Fields(Ename)txtage.Text = Adodc1.Recordset.Fields(Eage)txtdep.Text = Adodc1.Recordset.Fields(Dno)txtsex.Text = Adodc1.Recordset.Fields(Esex)txtcul.Text = Adodc1.Recordset.Fields(Ecul)txtjob.Text = Adodc1.Recordset.Fields(Ejob)E

32、nd SubPrivate Sub cmdadd_Click()On Error GoTo errorhandlerIf txtid.Text ThenAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(Eno) = txtid.TextAdodc1.Recordset.Fields(Ename) = txtname.TextAdodc1.Recordset.Fields(Eage) = txtage.TextAdodc1.Recordset.Fields(Dno) = txtdep.TextAdodc1.Recordset.Fields(Esex)

33、= txtsex.TextAdodc1.Recordset.Fields(Ecul) = txtcul.TextAdodc1.Recordset.Fields(Ejob) = txtjob.TextAdodc1.Recordset.Updatecmbname.ClearAdodc1.RecordSource = select * from 員工信息Adodc1.RefreshDo While Not Adodc1.Recordset.EOFcmbname.AddItem Adodc1.Recordset.Fields(1)Adodc1.Recordset.MoveNextLoopcmbfiel

34、d_Clickcmdclear_ClickElseMsgBox 員工號是主索引，不能為空, 錯(cuò)誤提示End IfExit Suberrorhandler:MsgBox 員工號是主索引，不能重復(fù), 錯(cuò)誤提示End SubPrivate Sub cmdclear_Click()txtid.Text = txtname.Text = txtsex.Text = txtdep.Text = txtcul.Text = txtjob.Text = txtage.Text = End SubPrivate Sub cmddel_Click()If txtid.Text ThenAdodc1.RecordS

35、ource = select * from 員工信息 where Eno= & txtid.Text & Adodc1.RefreshAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextcmbname.Clearcmbfield_Clickcmdclear_ClickEnd IfEnd SubPrivate Sub cmdedit_Click()Dim conn As ADODB.ConnectionDim rs As ADODB.RecordsetDim r As IntegerAdodc1.RecordSource = SELECT * FROM

36、 員工信息 WHERE Eno= & Trim(txtid.Text) & Adodc1.RefreshAdodc1.Recordset.Fields(Eno) = txtid.TextAdodc1.Recordset.Fields(Ename) = txtname.TextAdodc1.Recordset.Fields(Esex) = txtsex.TextAdodc1.Recordset.Fields(Eage) = txtage.TextAdodc1.Recordset.Fields(Dno) = txtdep.TextAdodc1.Recordset.Fields(Ecul) = tx

37、tcul.TextAdodc1.Recordset.Fields(Ejob) = txtjob.TextAdodc1.Recordset.Update r = MsgBox(修改成功！, , 提示)End SubPrivate Sub cmdexit_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim i As IntegerAdodc1.RecordSource = select * from 員工信息Set DataGrid1.DataSource = Adodc1cmbfield.ClearFor i = 0 To Adodc1.Recor

38、dset.Fields.Count - 1cmbfield.AddItem Adodc1.Recordset.Fields(i).NameNext icmbfield.Text = cmbfield.List(0)End Sub6.2.3 部門信息管理 選擇“部門信息管理”“部門信息設(shè)置”菜單，在4個(gè)文本框中分別輸入“0999”，“會計(jì)室”，“0013”，“10”，點(diǎn)擊“添加”后可以看到其已經(jīng)添加進(jìn)來了，如圖6.7所示。圖6.7 部門信息設(shè)置 同樣也可以把它刪了，在“字段值”選“0999”，再點(diǎn)擊“刪除”即可。還可也對數(shù)據(jù)進(jìn)行修改，清空，退出等操作，這里就不一一演示了。部門信息管理模塊源代碼：

39、Private Sub cmbfield_Click()cmbname.ClearAdodc1.RecordSource = select * from 部門信息Adodc1.RefreshDo While Not Adodc1.Recordset.EOFcmbname.AddItem Adodc1.Recordset.Fields(cmbfield.Text)Adodc1.Recordset.MoveNextLoopcmbname.Text = cmbname.List(0)End SubPrivate Sub cmbname_Click()Dim conditioncondition =

40、Trim(cmbfield.Text)If VarType(condition) = 8 ThenAdodc1.RecordSource = select * from 部門信息 where & condition & = & cmbname.Text & ElseAdodc1.RecordSource = select * from 部門信息 where & condition & = & cmbname.TextEnd IfAdodc1.RefreshAdodc1.Recordset.MoveFirstText1.Text = Adodc1.Recordset.Fields(Dno)Tex

41、t2.Text = Adodc1.Recordset.Fields(Dname)Text3.Text = Adodc1.Recordset.Fields(Eno)Text4.Text = Adodc1.Recordset.Fields(Dnum)End SubPrivate Sub cmdadd_Click()On Error GoTo errorhandlerIf Text1.Text ThenAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(Dno) = Text1.TextAdodc1.Recordset.Fields(Dname) = Tex

42、t2.TextAdodc1.Recordset.Fields(Eno) = Text3.TextAdodc1.Recordset.Fields(Dnum) = Text4.TextAdodc1.Recordset.Updatecmbname.ClearAdodc1.RecordSource = select * from 部門信息Adodc1.RefreshDo While Not Adodc1.Recordset.EOFcmbname.AddItem Adodc1.Recordset.Fields(1)Adodc1.Recordset.MoveNextLoopcmbfield_Clickcm

43、dclear_ClickElseMsgBox 部門號是主索引，不能為空, 錯(cuò)誤提示End IfExit Suberrorhandler:MsgBox 部門號是主索引，不能重復(fù), 錯(cuò)誤提示End SubPrivate Sub cmdclear_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = End SubPrivate Sub cmddel_Click()If Text1.Text ThenAdodc1.RecordSource = select * from 部門信息 where Dno= & Text1.Text & Ad

44、odc1.RefreshAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextcmbname.Clearcmbfield_Clickcmdclear_ClickEnd IfEnd SubPrivate Sub cmdedit_Click()On Error GoTo errorhandlerIf Text1.Text ThenAdodc1.RecordSource = select * from 部門信息 where Dno= & Text1.Text & Adodc1.RefreshAdodc1.Recordset.Fields(Dno) = Tex

45、t1.TextAdodc1.Recordset.Fields(Dname) = Text2.TextAdodc1.Recordset.Fields(Eno) = Text3.TextAdodc1.Recordset.Fields(Dnum) = Text4.TextAdodc1.Recordset.UpdateElseMsgBox 部門號是主索引，不能為空, 錯(cuò)誤提示End IfExit Suberrorhandler:MsgBox 學(xué)號是主索引，不能重復(fù), 錯(cuò)誤提示End SubPrivate Sub cmdexit_Click()Unload MeEnd SubPrivate Sub Fo

46、rm_Load()Dim i As IntegerAdodc1.RecordSource = select * from 部門信息Set DataGrid1.DataSource = Adodc1cmbfield.ClearFor i = 0 To Adodc1.Recordset.Fields.Count - 1cmbfield.AddItem Adodc1.Recordset.Fields(i).NameNext icmbfield.Text = cmbfield.List(0)End Sub6.2.4 考勤信息管理 選擇“考勤信息管理”“考勤信息設(shè)置”菜單后，彈出考勤信息管理對話框，可以

47、查看和更新考勤信息。先查找，在字段名中選這該表的主鍵，然后在字段值中選相應(yīng)的值，這是文本框中會出現(xiàn)值，然后在文本框中改值，再點(diǎn)擊修改即可。更改情況如圖6.8所示。圖6.8 考勤信息管理考勤信息管理模塊的源代碼：Private Sub cmbfield_Click()cmbname.ClearAdodc1.RecordSource = select * from 考勤信息Adodc1.RefreshDo While Not Adodc1.Recordset.EOFcmbname.AddItem Adodc1.Recordset.Fields(cmbfield.Text)Adodc1.Record

48、set.MoveNextLoopcmbname.Text = cmbname.List(0)End SubPrivate Sub cmbname_Click()Dim conditioncondition = Trim(cmbfield.Text)If VarType(condition) = 8 ThenAdodc1.RecordSource = select * from 考勤信息 where & condition & = & cmbname.Text & ElseAdodc1.RecordSource = select * from 考勤信息 where & condition & = & cmb