【正文】 ..... 13 數(shù)據(jù)庫(kù)訪問方式： ADO ........................................................................ 12 第三章 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā) ......................................................................... 13 庫(kù)管理系統(tǒng) ......................................................................................... 14 ................................................................................................. 14 ......................................................................... 14 第 二 章 系統(tǒng)設(shè)計(jì)與概要分析 .................................................................................... 15 ..................................................................................... 16 ......................................................................... 17 ..................................................................................................... 18 ................................................................................................. 19 ......................................................................................... 19 第 三 章 系統(tǒng)部分代碼與分析設(shè)計(jì) ............................................................................ 20 ..................................................................................... 21 ..................................................................... 21 ......................................................... 24 第 四 章 參考文獻(xiàn) …………………………………………………………………… 33 工資管理系統(tǒng) 摘 要 企業(yè)的工資管理是公司管理的一個(gè)重要內(nèi)容。企業(yè)工資管 理系統(tǒng)是典型的 信息管理系統(tǒng)（ MIS），前臺(tái)程序開發(fā)工具采用微軟的 VISUAL BASIC，后臺(tái)數(shù)據(jù)庫(kù)采用ACCESS數(shù)據(jù)庫(kù)。使用新的動(dòng)態(tài) HTML 頁(yè)面設(shè)計(jì)器編制高交互性的 Web 頁(yè)面象編制 Visual Basic 表格一樣輕松。盡管如此，通過類來構(gòu)造應(yīng)用系統(tǒng)，則仍是 Visual Basic 最有效的手段，這個(gè)特點(diǎn)尤其體現(xiàn)在它所具有的基于部件的編程方法上。基于事件驅(qū)動(dòng)的編程方法體現(xiàn)在：程序的執(zhí)行是依靠系統(tǒng)能夠被識(shí)別的觸發(fā)事件啟動(dòng)的。 Access 做為一個(gè)數(shù) 據(jù)庫(kù)管理系統(tǒng)，它被集成在 Microsoft Office 中。 “產(chǎn)品 ”表由 10個(gè)記錄組成，一個(gè)記錄占一行，每一個(gè)記錄由產(chǎn)品 ID、產(chǎn)品名稱、庫(kù)存量、訂貨量、單價(jià)和折扣率 6個(gè)字段組成。但是， Visual Basic卻又和傳統(tǒng) BASIC有著本質(zhì)的區(qū)別，主要表現(xiàn)在可視化 、面向?qū)ο?、部件編程、時(shí)間驅(qū)動(dòng)等方面。在安裝過程中系統(tǒng)會(huì)要求用戶輸入姓名和用戶單位。 (2)自定義安裝：按用戶的要求安裝所要求安裝所需要的 Visual Basic 組件。 Access 是一種關(guān)系數(shù)據(jù)庫(kù)工具，關(guān)系數(shù)據(jù)庫(kù)是已開發(fā)的最通用的數(shù)據(jù)庫(kù)之一。 工資管理系統(tǒng) 8 第 二 章 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā) 在數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)之前，對(duì)開發(fā)數(shù)據(jù)庫(kù)的基本概念應(yīng)當(dāng)了解，對(duì)數(shù)據(jù)庫(kù)的結(jié)構(gòu)，開發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序的步驟，開發(fā)體系及方法都應(yīng)當(dāng)有相當(dāng)清晰的了解和認(rèn)識(shí)。對(duì)數(shù)據(jù)庫(kù)的一切操作，包括定義，更新及各種控制，都是通過 DBMS進(jìn)行的。關(guān)系模型和層次，網(wǎng)狀模型的最大判別是用關(guān)鍵碼而不是用指針導(dǎo)航數(shù)據(jù)。數(shù)據(jù)庫(kù)模型是一種設(shè)計(jì)，數(shù)據(jù)庫(kù)和應(yīng)用正是建立在此基礎(chǔ)上的。因此建立一個(gè)良好的數(shù)據(jù)組織結(jié)構(gòu)和數(shù)據(jù)庫(kù)，使整個(gè)系統(tǒng)都可以迅速，方便，準(zhǔn)確地調(diào)用和管理所需的數(shù)據(jù)，是衡量信息系統(tǒng)開發(fā)工作好壞的主要指標(biāo)之一。首先，我們需要描述的是系統(tǒng)的總的體系結(jié)構(gòu)。 一個(gè)基本的工資管理系統(tǒng)有利于對(duì) 工資進(jìn)行方便的錄入、查詢、顯示等，不但可以提高工作效率，還可以提高單位人員的積極性，增強(qiáng)單位的活力。 (2) 查詢功能。 (5) 當(dāng)用戶找到該確定員工時(shí) ,可依照其工號(hào) 、姓名、以及車間或科室號(hào)來進(jìn)行查詢其工資等信息情況。 在信息世界中，信息從客觀事物出發(fā)流經(jīng)數(shù)據(jù)庫(kù)，通過決策機(jī)構(gòu)最后又回到客觀世界，信息的這一循環(huán)經(jīng)歷了三個(gè)領(lǐng)域：信息世界，數(shù)據(jù)世界，現(xiàn)實(shí)世界。 添加：不能添加已經(jīng)存在或者關(guān)鍵字相同的數(shù)據(jù) 刪除：由于許多數(shù)據(jù)是互相關(guān)聯(lián)的 ——如：沒有員工的基本信息，哪來員工的基本工資？所以在刪除此類數(shù)據(jù)的時(shí)候一定要注意。 SQL查詢語(yǔ)句，從管理員表中查詢匹配用戶名和密碼的記錄 sql = select * from [admins] where username=39。 sql, conn, 1, 1 If 0 Then 39。 amp。 39。從通用對(duì)話框返回的圖片文件路徑最右側(cè)開始向左挨個(gè)字符進(jìn)行判斷，如果是 “\”，則獲得 “\”后面的字符串，即為圖片文件名 j = j + 1 Else strimage = Mid(appa, Len(appa) j + 1, j) 39。 FileName 39。 %39。 %39。 /uploadImage/) 39。 [4]莎師煊 王珊著， 2020，《數(shù)據(jù)庫(kù)概論》，高等教育出版社。 [6]陳明， 2020，《 VISUAL BASIC程序設(shè)計(jì)》，中央廣播電視大學(xué)出版社。 uploadImage/ Else = LoadPicture( amp。此句 SQL查詢語(yǔ)句 = sql Set = Adodc1 工資管理系統(tǒng) 26 On Error Resume Next If = Then MsgBox 請(qǐng)選擇要修改的記錄 Exit Sub End If Call con Dim rs As New sql = select * from user_jc where id= amp。% amp。 \uploadImage\ amp。文件名稱 num = InStrRev(strimage, .) str1 = Right(strimage, Len(strimage) num) str2 = Replace(Now, , ) str2 = Repl