【文章內(nèi)容簡(jiǎn)介】 集聲音、圖像、動(dòng)畫(huà)、字處理、Web 等對(duì)象于一體的程序。7．網(wǎng)絡(luò)功能 VB 提供了 DHTML 設(shè)計(jì)工具。利用這種技術(shù)可以動(dòng)態(tài)創(chuàng)建和編輯 Web 頁(yè)面，使用戶(hù)在 VB 中開(kāi)發(fā)多功能的網(wǎng)絡(luò)應(yīng)用軟件。 8．多個(gè)應(yīng)用程序向?qū)?VB 提供了多種向?qū)В鐟?yīng)用程序向?qū)?、安裝向?qū)А?shù)據(jù)對(duì)象向?qū)Ш蛿?shù)據(jù)窗體向?qū)?，通過(guò)它們可以快速地創(chuàng)建不同類(lèi)型、不同功能的應(yīng)用程序。 9．支持動(dòng)態(tài)交換、動(dòng)態(tài)鏈接技術(shù)． 通過(guò)動(dòng)態(tài)數(shù)據(jù)交換(DDE) 的編程技術(shù)，VB 開(kāi)發(fā)的應(yīng)用程序能與其他 Windows 應(yīng)用程序之間建立數(shù)據(jù)通信。通過(guò)動(dòng)態(tài)鏈接庫(kù)技術(shù)，在 VB 程序中可方便地調(diào)用 C 語(yǔ)言或匯編語(yǔ)言編寫(xiě)的函數(shù)，也可調(diào)用 Windows 的應(yīng)用程序接口(．API)函數(shù)。 10．聯(lián)機(jī)幫助功能 在 VB 中，利用幫助菜單和 F1 功能鍵，用戶(hù)可隨時(shí)方便地得到所需要的幫助信息。VB 幫助窗口中顯示了有關(guān)的示例代碼，通過(guò)復(fù)制、粘貼操作可獲取大量的示例代碼，為用戶(hù)的學(xué)習(xí)和使用提供方便。 SQL Server2022 介紹微軟的 SQL Server2022 界面友好，易學(xué)易用且功能強(qiáng)大，與 Windows 2022 操作系統(tǒng)完美結(jié)合，可以構(gòu)造網(wǎng)絡(luò)環(huán)境數(shù)據(jù)庫(kù)甚至分布式數(shù)據(jù)庫(kù)，可以滿(mǎn)足企業(yè)及 Inter等大型數(shù)據(jù)庫(kù)應(yīng)用 [3]。 以下簡(jiǎn)單介紹它的功能特性：1．實(shí)現(xiàn)了客戶(hù)機(jī)/服務(wù)器模式 客戶(hù)機(jī)/服務(wù)器(C/S)模式數(shù)據(jù)庫(kù)計(jì)算是一種分布式的數(shù)據(jù)存儲(chǔ)、訪(fǎng)問(wèn)和處理技術(shù)，它已成為大多數(shù)企業(yè)計(jì)算的標(biāo)準(zhǔn)。Microsoft SQL Server 是客戶(hù)/服務(wù)器系統(tǒng)應(yīng)用的完美的例子。 2．與 Inter 集成 SQL Server 2022 數(shù)據(jù)庫(kù)引擎提供完整的 XMI．支持。具備構(gòu)造大型’Web 站點(diǎn)的數(shù)據(jù)存儲(chǔ)組件所需的可伸縮性、可用性和安全性。3．具備很強(qiáng)的可伸縮性和可用性 SQL Server 2022 包含企業(yè)版、標(biāo)準(zhǔn)版、開(kāi)發(fā)版和個(gè)人版等 4 個(gè)版本，使同一個(gè)數(shù)據(jù)庫(kù)引擎可以在不同的操作系統(tǒng)平臺(tái)上使用，從運(yùn)行 Windows 9x 的便攜式電腦，到運(yùn)行 Windows2022 Data Center Server 的大型多處理器的服務(wù)器。增強(qiáng)的圖形用戶(hù)界面管理工具，使管理更加方便。 4．具備企業(yè)級(jí)數(shù)據(jù)庫(kù)功能 SQL Server 2022 關(guān)系型數(shù)據(jù)庫(kù)引擎支持當(dāng)今苛刻的數(shù)據(jù)處理環(huán)境所需的功能，可同時(shí)管理上千個(gè)并發(fā)數(shù)據(jù)庫(kù)用戶(hù)，其分布式查詢(xún)使用戶(hù)可以引用來(lái)自不同數(shù)據(jù)源的數(shù)據(jù)，同時(shí)具備分布式事務(wù)處理系統(tǒng)，保障分布式數(shù)據(jù)更新的完整性。 5．易于安裝、部署和使用 SQL Server 2022 的安裝向?qū)Э蓭椭脩?hù)方便地實(shí)現(xiàn)各種方式的安裝，如網(wǎng)絡(luò)遠(yuǎn)程安裝、多實(shí)例安裝、升級(jí)安裝和無(wú)人職守安裝等。SQL Server 2022 還提供了一些管理開(kāi)發(fā)工具，使用戶(hù)可以快速開(kāi)發(fā)應(yīng)用程序。 6．?dāng)?shù)據(jù)倉(cāng)庫(kù)功能 企業(yè)在正常的業(yè)務(wù)運(yùn)作過(guò)程中需要收集各種數(shù)據(jù)，包含企業(yè)的動(dòng)態(tài)歷史記錄，數(shù)據(jù)倉(cāng)庫(kù)的目的是合并和組織這些數(shù)據(jù)，以便可對(duì)其進(jìn)行分析并用來(lái)支持業(yè)務(wù)決策。數(shù)據(jù)倉(cāng)庫(kù)是一種高級(jí)、復(fù)雜的技術(shù)。Microsoft SQL Server 2022 提供的強(qiáng)大工具，可幫助您完成創(chuàng)建、使用和維護(hù)數(shù)據(jù)倉(cāng)庫(kù)的任務(wù)。第 3 章 系統(tǒng)的設(shè)計(jì) 系統(tǒng)總體結(jié)構(gòu)根據(jù)第二章對(duì)系統(tǒng)的任務(wù)和目標(biāo)的分析，該系統(tǒng)包括系統(tǒng)維護(hù)、基本設(shè)置、信息管理、查詢(xún)統(tǒng)計(jì)等 4 個(gè)主要功能模塊，各個(gè)模塊有相應(yīng)的子模塊。系統(tǒng)的總體結(jié)構(gòu)如圖 所示。 企業(yè)人事管理 系統(tǒng)系統(tǒng)管理基本設(shè)置信息管理查詢(xún)統(tǒng)計(jì)系統(tǒng)幫助考勤查詢(xún)福利查詢(xún)工資查詢(xún)員工查詢(xún)考勤管理福利管理工資管理員工管理考勤類(lèi)型部門(mén)信息職務(wù)文化程度添加用戶(hù)刪除用戶(hù) 密碼管理切換用戶(hù)系統(tǒng)關(guān)于幫助文件圖 系統(tǒng)模塊設(shè)計(jì)圖 數(shù)據(jù)庫(kù)實(shí)體設(shè)計(jì)針對(duì)一般企業(yè)人事信息管理系統(tǒng)的需求，通過(guò)對(duì)員工工作過(guò)程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu) [1]。(1)系統(tǒng)用戶(hù)：包括的數(shù)據(jù)項(xiàng)有用戶(hù)名稱(chēng)、密碼、權(quán)限。(2)員工信息：包括的數(shù)據(jù)項(xiàng)有員工編號(hào)、員工姓名、性別、年齡、所在部門(mén)、文化程度、職務(wù)、參加工作日期、住址、辦公電話(huà)、手機(jī)、備注。(3)工資信息：包括的數(shù)據(jù)項(xiàng)有年月、員工編號(hào)、姓名、基本工資、獎(jiǎng)金、補(bǔ)助、應(yīng)發(fā)金額、保險(xiǎn)、其他扣款、實(shí)發(fā)金額、說(shuō)明。(4)福利信息：包括的數(shù)據(jù)項(xiàng)有員福利名稱(chēng)、員工編號(hào)、姓名、發(fā)放日期、發(fā)放內(nèi)容、福利金額、說(shuō)明。(5)考勤信息：包括的數(shù)據(jù)項(xiàng)有考勤編號(hào)、考勤日期、員工編號(hào)、姓名、考勤類(lèi)型、考勤說(shuō)明、到期日期、備注。(6)部門(mén)信息：包括的數(shù)據(jù)項(xiàng)有部門(mén)名稱(chēng)、負(fù)責(zé)人、辦公電話(huà)、主要職能。得到上面的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計(jì)出能夠滿(mǎn)足用戶(hù)需求的各種實(shí)體，以及他們之間的關(guān)系。這些實(shí)體包含各種具體信息，通過(guò)相互之間的作用形成數(shù)據(jù)的流動(dòng)。 根據(jù)上面的設(shè)計(jì)規(guī)劃出的實(shí)體有：系統(tǒng)用戶(hù)實(shí)體、員工信息實(shí)體、工資信息實(shí)體、福利信息實(shí)體、考勤信息實(shí)體、部門(mén)信息實(shí)體。各個(gè)實(shí)體具體的描述 ER 圖如圖 所示。系統(tǒng)用戶(hù)用戶(hù)名稱(chēng) 密碼 權(quán)限圖 系統(tǒng)用戶(hù)實(shí)體 ER 圖員工信息年齡性別 職務(wù)姓名文化程度參加工作日期員工編號(hào)所在部門(mén)備注圖 員工信息實(shí)體 ER 圖工資信息獎(jiǎng)金年月 補(bǔ)助姓名保險(xiǎn)應(yīng)發(fā)金額員工編號(hào)其他扣款基本工資圖 工資信息實(shí)體 ER 圖福利信息說(shuō)明姓名福利金額發(fā)放日期福利名稱(chēng)發(fā)放內(nèi)容員工編號(hào)圖 福利信息實(shí)體 ER 圖考勤信息備注 考勤說(shuō)明姓名到期日期員工編號(hào)考勤編號(hào)考勤類(lèi)型考勤日期圖 考勤信息實(shí)體 ER 圖部門(mén)信息負(fù)責(zé)人主要職能辦公電話(huà)部門(mén)名稱(chēng) 圖 部門(mén)信息實(shí)體 ER 圖本系統(tǒng)數(shù)據(jù)流程圖如圖 所示。 成功圖 系統(tǒng)流程圖普通用戶(hù) 管理員用戶(hù)讀取用戶(hù)類(lèi)型用戶(hù)登錄開(kāi) 始提示出錯(cuò)系統(tǒng)維護(hù) 查詢(xún)統(tǒng)計(jì)主界面系統(tǒng)幫助系統(tǒng)管理管理員切換用戶(hù)員工查詢(xún)工資查詢(xún)考勤查詢(xún)福利查詢(xún)按文化程度統(tǒng)計(jì)員工工資統(tǒng)計(jì) 數(shù)據(jù)庫(kù)表結(jié)構(gòu)設(shè)計(jì)系統(tǒng)數(shù)據(jù)庫(kù)中的各表設(shè)計(jì)如表 所示。 表 系統(tǒng)用戶(hù)信息數(shù)據(jù)表列名 數(shù)據(jù)類(lèi)型 長(zhǎng)度 允許空用戶(hù)名稱(chēng) char 20 密碼 char 20 √權(quán)限 char 20 √ 表 員工信息數(shù)據(jù)表列名 數(shù)據(jù)類(lèi)型 長(zhǎng)度 允許空員工編號(hào) char 20 姓名 char 20 √性別 char 10 √年齡 int 4 √所在部門(mén) char 50 √文化程度 char 20 √ 職務(wù) char 20 √參加工作日期 char 10 √住址 char 100 √ 辦公電話(huà) char 50 √手機(jī) char 50 √備注 char 100 √ 表 部門(mén)信息數(shù)據(jù)表列名 數(shù)據(jù)類(lèi)型 長(zhǎng)度 允許空部門(mén)名稱(chēng) char 50 負(fù)責(zé)人 char 20 √辦公電話(huà) char 100 √主要職能 char 100 √表 工資信息數(shù)據(jù)表列名 數(shù)據(jù)類(lèi)型 長(zhǎng)度 允許空年月 char 10 員工編號(hào) char 20 姓名 char 20 √基本工資 momey 8 √獎(jiǎng)金 momey 8 √補(bǔ)助 momey 8 √ 應(yīng)發(fā)金額 momey 8 √保險(xiǎn) momey 8 √其他扣款 momey 8 √ 實(shí)發(fā)金額 momey 8 √說(shuō)明 char 100 √表 福利信息數(shù)據(jù)表列名 數(shù)據(jù)類(lèi)型 長(zhǎng)度 允許空福利名稱(chēng) char 20 員工編號(hào) char 20 √姓名 char 20 √發(fā)放日期 char 10 √發(fā)放內(nèi)容 char 100 福利金額 momey 8 √說(shuō)明 char 100 √表 考勤信息數(shù)據(jù)表列名 數(shù)據(jù)類(lèi)型 長(zhǎng)度 允許空考勤編號(hào) char 20 考勤日期 char 10 √員工編號(hào) char 20 √姓名 char 20 √ 考勤類(lèi)型 char 20 √考勤說(shuō)明 char 100 √到期日期 char 10 √備注 char 100 √第 4 章 系統(tǒng)的實(shí)現(xiàn) 系統(tǒng)主窗體的創(chuàng)建這個(gè)項(xiàng)目我們使用多個(gè)文檔界面，單擊工具欄中的“ADD MDI Form”按鈕，產(chǎn)生一個(gè)窗體，在這個(gè)窗體上添加所需的控件，創(chuàng)建好的窗體如圖 所示。圖 系統(tǒng)主窗體 創(chuàng)建公用模塊在 Visual Basic 中可以用公用模塊來(lái)存放整個(gè)工程項(xiàng)目公用的函數(shù)、全局變量等，這樣可以極大的提高代碼的效率。在項(xiàng)目資源管理器中為項(xiàng)目添加一個(gè) Module，保存為 ，在公用模塊中添加代碼如下：Public CN As New Public rs As New Public UserName As String 39。用戶(hù)名稱(chēng)Public IsUserMode As Integer 39。39。判斷權(quán)限Sub Main()’顯示登錄窗口End SubPublic Function DateChange(strDate As String) As StringOn Error GoTo ErrDim Mon As IntegerDateChange = Year(strDate)Mon = Month(strDate)If Mon 10 Then DateChange = DateChange amp。 0 amp。 CStr(Mon)Else DateChange = DateChange amp。 amp。 CStr(Mon)End IfIf Len(strDate) 7 Then Mon = Day(strDate) If Mon 10 Then DateChange = DateChange amp。 0 amp。 CStr(Mon) Else DateChange = DateChange amp。 amp。 CStr(Mon) End IfEnd IfExit FunctionErr:DateChange = End FunctionFunction GetFile(str1 As String) As StringDim i As IntegerIf str1 = ThenExit FunctionEnd Ifi = 1GetFile = Do If Not ( + \data\ + str1 amp。 _ amp。 CStr(i) amp。 .bak) Then GetFile = + \data\ + str1 amp。 _ amp。 CStr(i) amp。 .bak Exit Function End If i = i + 1LoopEnd FunctionPublic Function GetLocalName() 39。get local puter nameDim str1 As Stringstr1 = String(255, Chr(0))GetComputerName str1, 255GetLocalName = Left(str1, InStr(1, str1, Chr(0), vbTextCompare) 1)End FunctionPublic Function GetLocalIp() As String 39。39。get local puter ip 用戶(hù)管理模塊的創(chuàng)建系統(tǒng)用戶(hù)管理模塊主要實(shí)現(xiàn)：? 用戶(hù)登錄? 添加用戶(hù)? 修改用戶(hù)密碼 用戶(hù)登錄窗體系統(tǒng)啟動(dòng)后，出現(xiàn)如圖 所示的用戶(hù)登錄窗體，用戶(hù)輸入用戶(hù)名和密碼。如果用戶(hù) 3 次輸入密碼不正確，將退出程序。 圖 用戶(hù)登錄窗體用戶(hù)輸入用戶(hù)名和密碼后，單擊確認(rèn)按鈕，將觸發(fā)按鈕 cmdOK 的 Click 事件，代碼如下：Private Sub cmdOK_Click() 39。39。進(jìn)入..確定On Error GoTo Err Dim txtSql As String UserName = If Trim() = Then 39。39。判斷用戶(hù)名是否為空 MsgBox 請(qǐng)輸入帳號(hào)！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Trim() = Then 39。判斷密碼是否為空 MsgBox 請(qǐng)輸入密碼！, vbOKOnly + vbExclamation, 警告 Exit Sub End If 39。39。判斷是否有這個(gè)用戶(hù) txtSql = select * from user_info where 用戶(hù)名稱(chēng) = 39。 amp。 amp。 39。 If Then txtSq