【正文】 m() Then OK = True 39。 If gintMode = 1 Then 39。 Set db = OpenDatabase( + \) 39。 amp。 and kqdate=39。 txtItem(4) = (1) 39。 39。 Trim(txtId) amp。 39。先刪除已有記錄 39。 39。 1 39。 End If End SubPrivate Sub Combo1_Click() Dim MsgText As String Dim intCount As Integer Dim mrcc As 39。MsgBox KeyCode 39。 本界面為工資管理喜用維護(hù)界面，輸入相應(yīng)的部門(mén)可進(jìn)行維護(hù)，也可添加新的部門(mén)。經(jīng)過(guò)本學(xué)期的不斷實(shí)踐與探索,企業(yè)人事管理統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)己經(jīng)完成,基本上達(dá)到了預(yù)期的設(shè)計(jì)要求和目的。在這次的課程設(shè)計(jì)中，讓我深深地體現(xiàn)到進(jìn)行軟件開(kāi)發(fā)不是一件簡(jiǎn)單的事情，它需要設(shè)計(jì)者具有全面的專(zhuān)業(yè)知識(shí)、縝密的思維、嚴(yán)謹(jǐn)?shù)墓ぷ鲬B(tài)度以及較高的分析問(wèn)題、解決問(wèn)題的能力，而我在很多方面還有欠缺。由于畢業(yè)設(shè)計(jì)時(shí)間比較倉(cāng)促，所以該系統(tǒng)還有許多不盡如意的地方，比如聯(lián)機(jī)文檔比較少，用戶(hù)界面不夠美觀，出錯(cuò)處理不夠等多方面問(wèn)題。在不斷的課程設(shè)計(jì)過(guò)程中,使我受到了一次用專(zhuān)業(yè)知識(shí)、專(zhuān)業(yè)技能分析和解決問(wèn)題的全面系統(tǒng)的鍛煉。Delete鍵 If KeyAscii = 46 Then txtItem(Index).Locked = False End If End IfEnd SubPrivate Sub cmdExit_Click()Unload MeEnd Sub ，設(shè)置有用戶(hù)名和和用戶(hù)登陸密碼，輸入正確的用戶(hù)名和密碼可進(jìn)入系統(tǒng)主界面。EnterToTab KeyCodeEnd SubPrivate Function GetNo() As String GetNo = Format(Now, yymmddhhmmss) Randomize GetNo = GetNo amp。 39。 39。 amp。 39。 Month(Format(txtItem(13), yyyymmdd)) amp。If gintMode = 1 Then txtSQL = select * from gzshuju where 工資號(hào)=39。End If 39。 If Not Then 39。 Format(DateSerial(Year(Now), Month(Now), 1), yyyy/mm/dd) amp。 Format(Now, yymm) txtItem(0) = (2） 39。 39。 *39。 amp。（5） 員工部門(mén)查詢(xún) SELECT 姓名,員工號(hào),基本工資 FROM ygshuju WHERE 部門(mén) like Trim(cboItem(0))。但這些值不一定適合每一種應(yīng)用環(huán)境，在進(jìn)行物理設(shè)計(jì)時(shí)，對(duì)這些變量重新賦值，以改善系統(tǒng)的性能。數(shù)據(jù)庫(kù)表的設(shè)計(jì)及表結(jié)構(gòu)：（1） 員工信息表（2） 基礎(chǔ)工資設(shè)置表 (3)崗位工資設(shè)置表 （4） 工齡工資設(shè)置表（5） 管理員注冊(cè)表 管理員注冊(cè)表5 物理結(jié)構(gòu)設(shè)計(jì)數(shù)據(jù)庫(kù)在物理設(shè)備上的存儲(chǔ)結(jié)構(gòu)與存取方法稱(chēng)為數(shù)據(jù)庫(kù)的物理結(jié)構(gòu)，它依賴(lài)于選定的數(shù)據(jù)庫(kù)管理系統(tǒng)。一個(gè)數(shù)據(jù)結(jié)構(gòu)可以由若干數(shù)據(jù)項(xiàng)組成，也可以由若干個(gè)數(shù)據(jù)結(jié)構(gòu)組成，或由若干個(gè)數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)混合而成。人事變動(dòng)的詳細(xì)記錄,包括崗位和部門(mén)的調(diào)整,便于掌握人員的動(dòng)向,及時(shí)調(diào)整人才的分配。管理員設(shè)置：實(shí)現(xiàn)系統(tǒng)用戶(hù)及密碼的設(shè)置操作，可以增加和刪除系統(tǒng)用戶(hù)（僅系統(tǒng)管理員才有權(quán)限），對(duì)系統(tǒng)當(dāng)前用戶(hù)修改密碼。這些軟件在大型MIS開(kāi)發(fā)中已被大量應(yīng)用，技術(shù)上都比較成熟,可根據(jù)用戶(hù)需要，十分方便的增減模塊，直觀的圖形用戶(hù)界面，簡(jiǎn)潔的操作流程，無(wú)須專(zhuān)業(yè)電腦知識(shí)即可迅速上手。這些優(yōu)點(diǎn)能夠極大地提高人事工資管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理，與世界接軌的重要條件。該設(shè)計(jì)基本合理，功能比較完備，經(jīng)過(guò)測(cè)試運(yùn)行穩(wěn)定，能夠滿足工作中的基本需求。2. 刻制光盤(pán)一張，把完成的所有電子文檔（設(shè)計(jì)說(shuō)明書(shū)文檔、打包后可運(yùn)行程序及源程序）一并交由指導(dǎo)老師處。二、數(shù)據(jù)庫(kù)課程設(shè)計(jì)的任務(wù)查閱文獻(xiàn)資料，一般在10篇以上；以工資管理系統(tǒng)為背景，通過(guò)調(diào)研、分析現(xiàn)有的管理模式和已有的管理軟件，建立系統(tǒng)模型；完成軟件結(jié)構(gòu)設(shè)計(jì)、數(shù)據(jù)庫(kù)設(shè)計(jì)和算法設(shè)計(jì)；完成工資管理系統(tǒng)的軟件開(kāi)發(fā)和測(cè)試工作。能夠查詢(xún)單個(gè)員工的工資情況、每個(gè)部門(mén)的工資情況、按月的工資統(tǒng)計(jì)，并能夠打印。作為工資管理系統(tǒng)的管理者,希望能夠?qū)べY管理系統(tǒng)的整個(gè)流程狀態(tài),信息資料的情況了如指掌,使其可以做出科學(xué)的決策。工資管理作為企業(yè)內(nèi)部的一種財(cái)務(wù)管理也是如此，由于企業(yè)職工人數(shù)較多，每一位職工的具體實(shí)際情況也不盡相同，各項(xiàng)工資條款的發(fā)放，如果沒(méi)有一個(gè)完整的工資管理系統(tǒng)對(duì)員工工資等進(jìn)行系統(tǒng)的管理，很難實(shí)現(xiàn)企業(yè)高效運(yùn)轉(zhuǎn)。需求分析主要解決兩個(gè)問(wèn)題：內(nèi)容要求。在現(xiàn)代社會(huì)中，高效化、系統(tǒng)化、規(guī)范化、自動(dòng)化已成為時(shí)代的代名詞。(3) 實(shí)發(fā)工資的統(tǒng)計(jì)明細(xì)。員工信息 仔細(xì)分析調(diào)查有關(guān)企業(yè)人事信息需求的基礎(chǔ)上,。用ER圖是描述數(shù)據(jù)實(shí)體關(guān)系的一種直觀描述工具，所以本系統(tǒng)采用了ER圖的方法進(jìn)行數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)。(1)確定數(shù)據(jù)庫(kù)的物理結(jié)構(gòu)，在關(guān)系數(shù)據(jù)庫(kù)中主要指存取方法和存儲(chǔ)結(jié)構(gòu)；本系統(tǒng)的查詢(xún)功能由SQL語(yǔ)言編寫(xiě)，以下是主要查詢(xún)功能的SQL語(yǔ)言。 SQL插入語(yǔ)句（1） 員工姓名添加 INSERE INTO ygshuju (ame) VALUES(‘曹操’)。UserName = Trim() Else MsgBox 輸入密碼不正確，請(qǐng)重新輸入！, vbOKOnly + vbExclamation, 警告 = End If End If End IfEnd SubPrivate Sub cboItem_Click(Index As Integer) Dim MsgText As String Dim intCount As Integer 39。初始化員工名稱(chēng)和ID If Index = 0 Then cboItem(1).Clear 39。 Set res = (ygshuju) If Not Then With cboItem(1) Do While Not .AddItem Trim(res!姓名) Loop .ListIndex = 0 End With 39。