畢業(yè)設計（論文）VB程序人事管理系統(tǒng)設計

1、摘要、關鍵詞引言第一章 系統(tǒng)設計1.1、系統(tǒng)功能的分析1.2、系統(tǒng)功能模塊設計第二章 數(shù)據(jù)庫設計2.1、數(shù)據(jù)庫需求分析2.2、數(shù)據(jù)庫概念結構設計2.3、數(shù)據(jù)庫邏輯結構設計第三章 數(shù)據(jù)庫結構設計第四章 各個功能模塊的設計4.1、人事管理系統(tǒng)主控窗體的設計4.2、系統(tǒng)管理模塊的設計4.3、員工基本信息模塊的設計4.4、員工考勤管理模塊的設計4.5、員工工作評價管理模塊的設計4.6、員工工資信息管理模塊的設計第五章 系統(tǒng)的優(yōu)點第六章 系統(tǒng)的實現(xiàn)和編譯第七章 設計總結第八章 主要參考文獻第九章 致 謝第十章 源程序摘 要本論文著重介紹了利用微軟公司軟件開發(fā)工具visual basic6.0設計的一個人

2、事管理系統(tǒng)。xiongxia_mis人事管理系統(tǒng)是按中小企業(yè)在日常管理工作中對企業(yè)人員組成、考勤情況、工作評估和工資信息等進行綜合管理而設計的。設計思想體現(xiàn)了以人員、計算機和數(shù)據(jù)組成為三個基本要素，遵循以人機交互功能作為界面設計的核心，系統(tǒng)界面始終一致、友好。本文重點介紹該系統(tǒng)設計的目的、系統(tǒng)功數(shù)據(jù)庫和數(shù)據(jù)庫結構設計、系統(tǒng)設計特點和優(yōu)點以及系統(tǒng)的實現(xiàn)和編譯等，使用戶能夠更深入的了解此應用程序，達到設計者的目的。關鍵詞 abstractthis paper emphasize on the introduction of the xiongxia_mis personal administrat

3、ion system designed by the soft developing tool-visual basic6.0. this system designed by the thought of synthesize the manning of enterprise, the record of attendance, the assessment of working, the information of wages and so on into a integrated management in the minor enterprises usual administra

4、tion. the design thought embodies the three basics including staff, computer and data composing; keeps the human-computer interactive function as the interface core design, make the system interface consistent and friendly from begin to end. the most important things introduced in this paper is the

5、design aim of this system, system date-base and its structure design, the characters and advantages of this system design, the realization and the complier of this system and so on. it will make user know this application in-depth, and achieve the aim of designer.keyword引 言本系統(tǒng)采用當前最流行的可視化編程工具vb6.0。它有

6、如下功能特點：具有面向?qū)ο蟮目梢暬O計工具；事件驅(qū)動的編程機制；提供了易學易用的應用程序集成開發(fā)環(huán)境；在vb集成開發(fā)環(huán)境中，用戶可設計界面、編寫代碼、調(diào)試程序，直到把應用程序編譯成可執(zhí)行文件，在windows中運行，使用戶在友好的開發(fā)環(huán)境中工作。vb具有豐富的數(shù)據(jù)類型、眾多的內(nèi)部函數(shù)和結構化程序結構。支持多種數(shù)據(jù)庫系統(tǒng)的訪問；vb的核心就是其對對象的鏈接與嵌入（ole）的支持，利用ole，vb能夠開發(fā)聲音、圖像、動畫、字處理等對象于一體的應用程序。active技術；active技術發(fā)展了原有的ole技術，它使開發(fā)人員擺脫了特定語言的束縛。 前臺應用程序的開發(fā)采用微軟公司的visual basi

7、c 6.0，它是windows應用程序開發(fā)工具，是目前使用最為廣泛的、也是比較易學易用的面向?qū)ο蟮拈_發(fā)工具。后臺數(shù)據(jù)庫的開發(fā)采用了sql server 2000 數(shù)據(jù)庫，sql server 2000是windows32位操作系統(tǒng)上應用最廣泛的關系型數(shù)據(jù)庫管理系統(tǒng)，其分布式結構和多用戶性完全滿足大中型企、事業(yè)單位的mis數(shù)據(jù)庫。mis的開發(fā)是一項復雜的系統(tǒng)工程，它涉及到計算機處理技術、系統(tǒng)理論、組織管理等多學科的知識，在明確了要解決的人事管理系統(tǒng)的具體問題和進行系統(tǒng)可行性研究后，決定采用目前較流行的mis開發(fā)方法-結構化生命周期開發(fā)方法，基本思想是：用系統(tǒng)的思想和系統(tǒng)工程的方法，按用戶至上的原

8、則，結構化、模塊化的自上而下對生命周期進行分析和設計。第一章 系統(tǒng)設計1.l 系統(tǒng)功能分析 系統(tǒng)開發(fā)的總體任務是實現(xiàn)一個中小企業(yè)人事信息關系的系統(tǒng)化、規(guī)范化和自動化。 系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務的基礎上完成的，系統(tǒng)完成功能主要有： 有關企業(yè)員工各種信息的輸入，包括員工基本信息、所在部門、工作信息和工作簡歷等。 員工各種信息的查詢。 員工各種信息的修改。 考勤信息的輸入等。 考勤信息的查詢。 考勤信息的修改。 員工工作評價信息的輸入。 員工工作評價信息的查詢 員工工作評價信息的修改。 員工工資信息的輸入。 員工工資信息的查詢 員工工資信息修改等。1.2 系統(tǒng)功能模塊設計對上述各項功能進行

9、集中、分塊，按照結構化程序設計的要求，得到如下圖所示的xiongxia_mis人事管理系統(tǒng)功能模塊圖。第二章 數(shù)據(jù)庫設計數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結構設計的好壞將直接對應用系統(tǒng)的效率以及實現(xiàn)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫結構設計可以提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整和一致。另外，合理的數(shù)據(jù)庫結構將非常有利于程序的實現(xiàn)。 設計數(shù)據(jù)庫系統(tǒng)時充分了解企業(yè)在人事管理方面的需求，包括現(xiàn)有的以及將來可能增加的需求。2.1 數(shù)據(jù)庫需求分析用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結構能充分滿足各種信息的輸出和輸入。首先收集基本數(shù)據(jù)、數(shù)據(jù)結構以及數(shù)據(jù)處理的流程

10、，組成一份詳盡的數(shù)據(jù)字典，仔細分析調(diào)查有關人事管理需求的基礎上，得到如下圖所示的xiongxia_mis人事管理系統(tǒng)數(shù)據(jù)流程圖。 針對一般人事管理系統(tǒng)的需求，通過對員工工作過程的內(nèi)容和數(shù)據(jù)流程分析，設計出如下面所示的數(shù)據(jù)項和數(shù)據(jù)結構： 員工基本信息：包括的數(shù)據(jù)項有員工編號、員工姓名、性別、出生日期、所在部門、籍貫、學歷、專業(yè)、參加工作時間、進入公司時間、起薪時間、調(diào)入部門時間、職稱、入黨時間、檔號、原身份、原職務、原工作單位、備注等。 員工考勤信息：包括的數(shù)據(jù)項有員工所在部門、員工姓名、出勤時間、公休時間、曠工時間、請假時間、早退時間、遲到時間、加班時間、出差時間等。 員工工作評價信息：包括的

11、數(shù)據(jù)項有員工姓名、員工所在部門、工作業(yè)績、工作態(tài)度、業(yè)務水平、備注等。 員工工資信息：包括的數(shù)據(jù)項有員工所在部門、員工姓名、底薪、補貼、獎金、加班、住房補貼、房租、養(yǎng)老金、醫(yī)療保險、住房公積金、所得稅、實發(fā)工資等。有了上面的數(shù)據(jù)結構、數(shù)據(jù)項和數(shù)據(jù)流程，就能進行下面的數(shù)據(jù)庫設計。2.2 數(shù)據(jù)庫概念結構設計 按照上面的數(shù)據(jù)項和數(shù)據(jù)結構，可以再設計出能夠滿足用戶需求的各種實體，以及它們之間的關系，為后面的邏輯結構設計打下基礎。這些實體包含各種具體信息，通過相互之間的作用形成數(shù)據(jù)的流動。根據(jù)上面的設計規(guī)劃出的實體有：員工基本信息實體、員工考勤信息實體、員工工作評價信息實體、員工工資信息實體。各個實體具

12、體的描述er圖如下。xiongxia_mis員工基本信息實體er圖xiongxia_mis員工考勤信息實體er圖xiongxia_mis員工工作評價信息實體er圖xiongxia_mis員工工資信息實體er圖xiongxia_mis實體之間關系er圖2.3 數(shù)據(jù)庫邏輯結構設計 現(xiàn)在將上面的數(shù)據(jù)庫概念結構轉(zhuǎn)化為sql server 2000數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結構。人事管理系統(tǒng)數(shù)據(jù)庫中各個表格的設計結果如下面表格所示。每個表格表示在數(shù)據(jù)庫中的一個表。1、manrecord員工基本信息表：列 名數(shù)據(jù)類型可否為空說 明ygidvarcharnot null編號ygnam

13、evarcharnot null姓名ygdeptvarcharnull部門ygsexvarcharnull性別ygbirthdaydatetimenull生日ygplacevarcharnull籍貫yglevevarcharnull學歷ygspecialvarcharnull專業(yè)ygdate1datetimenull參加工作時間ygdate2datetimenull入黨時間ygbusivarcharnull職稱ygdate3datetimenull職稱時間ygstatusvarcharnull原身份ygofficesvarcharnull原工作單位ygdutyvarcharnull原職務ygd

14、ate4datetimenull進入公司時間ygdate5datetimenull起薪時間ygdate6datetimenull調(diào)入時間ygnovarcharnull檔號ygremark1textnull備注2、checkin員工考勤信息表：列 名數(shù)據(jù)類型可否為空說 明kqidvarcharnot null編號kqnamevarcharnot null姓名kqdatedatetimenot null日期kqdaysnumericnot null本月天數(shù)kqrdaynumericnull公休假天數(shù)kqtdaynumericnot null應出勤天數(shù)kqworknumericnot null出勤k

15、qabsentnumericnull曠工kqrestnumericnull年休kqleavenumericnull請假kqlatenumericnull遲到kqearlynumericnull早退kqforgetnumericnull忘訂卡kqover1numericnull節(jié)假日加班kqover2numericnull其它加班kqfillnumericnull補休天數(shù)kqgonumericnull出差工地天數(shù)kqpaynumericnull加班費kqdeductnumericnull扣考核kqothervarcharnull其它kqremarktextnull備注3、manappraise員

16、工考評信息表：列 名數(shù)據(jù)類型可否為空說 明pjdeptvarcharnot null部門pjnamevarcharnot null姓名pjnocharnot nullidpjidvarcharnot null編號pjdatedatetimenot null時間pjresultvarcharnull工作業(yè)績pjpositionvarcharnull工作態(tài)度pjlevelvarcharnull業(yè)務水平pjremarktextnull備注pjother1varcharnull其它1pjother2varcharnull其它24、pay員工工資信息表：列 名數(shù)據(jù)類型可否為空說 明gzidvarchar

17、not null編號gznamevarcharnot null姓名gzbasenumericnot null低薪gzallnumericnull補貼gzbonusnumericnull獎金gzpaynumericnull加班gzdeductnumericnull扣考核gzagenumericnull代扣養(yǎng)老金gzmedicalnumericnull代扣醫(yī)療保險gzhouse1numericnull代扣住房公積金gztotalnumericnull稅前小計gzdutynumericnull所得稅gzhouse2numericnull房帖gzhouse3numericnull房租gzlaborag

18、enumericnot null實發(fā)工資gzdatedatetimenot null時間第三章 數(shù)據(jù)庫結構的設計經(jīng)過需求分析和概念結構設計以后，得到數(shù)據(jù)庫的邏輯結構。在sql server 2000數(shù)據(jù)庫系統(tǒng)中實現(xiàn)該邏輯結構,可利用 sql server 2000數(shù)據(jù)庫系統(tǒng)中的 sql查詢分析器實現(xiàn)。下面是創(chuàng)建這些表格的部分sql語句。1. 創(chuàng)建系統(tǒng)用戶表格user_info create table dbo.user_info1 ( user_id char (10) collate chinese_prc_ci_as not null , user_pwd char (10) collat

19、e chinese_prc_ci_as null , user_des char (10) collate chinese_prc_ci_as null ) on primary2. 創(chuàng)建員工基本信息表格manrecordcreate table dbo.manrecord (ygid varchar (8) collate chinese_prc_ci_as not null ,ygname varchar (10) collate chinese_prc_ci_as not null ,ygdept varchar (20) collate chinese_prc_ci_as null ,

20、ygsex varchar (2) collate chinese_prc_ci_as null ,ygbirthday datetime null ,ygplace varchar (40) collate chinese_prc_ci_as null ,yglevel varchar (10) collate chinese_prc_ci_as null ,ygspecial varchar (20) collate chinese_prc_ci_as null ,ygdate1 datetime null ,ygdate2 datetime null ,ygbusi varchar (1

21、2) collate chinese_prc_ci_as null ,ygdate3 datetime null ,ygstatus varchar (12) collate chinese_prc_ci_as null ,ygoffice varchar (30) collate chinese_prc_ci_as null ,ygduty varchar (10) collate chinese_prc_ci_as null ,ygdate4 datetime null ,ygdate5 datetime null ,ygdate6 datetime null ,ygno varchar

22、(8) collate chinese_prc_ci_as null ,ygremark1 text collate chinese_prc_ci_as null ) on primary textimage_on primary3. 創(chuàng)建員工考勤信息表格checkincreate table dbo.checkin (kqid varchar (8) collate chinese_prc_ci_as not null ,kqname varchar (10) collate chinese_prc_ci_as not null ,kqdate datetime not null ,kqda

23、ys bigint not null ,kqrday numeric(2, 0) null ,kqtday numeric(2, 0) not null ,kqwork numeric(2, 0) not null ,kqabsent numeric(2, 0) null ,kqrest numeric(2, 0) null ,kqleave numeric(2, 0) null ,kqlate numeric(2, 0) null ,kqearly numeric(2, 0) null ,kqforget numeric(2, 0) null ,kqover1 numeric(2, 0) n

24、ull ,kqvoer2 numeric(2, 0) null ,kqfill numeric(2, 0) null ,kqgo numeric(2, 0) null ,kqpay numeric(8, 2) null ,kqdeduct numeric(8, 2) null ,kqother varchar (20) collate chinese_prc_ci_as null ,kqremark text collate chinese_prc_ci_as null ) on primary textimage_on primary4. 創(chuàng)建員工工作評價信息表格manappraisecre

25、ate table dbo.manappraise (pjdept varchar (10) collate chinese_prc_ci_as not null ,pjname varchar (10) collate chinese_prc_ci_as not null ,pjno char (14) collate chinese_prc_ci_as not null ,pjid varchar (8) collate chinese_prc_ci_as not null ,pjdate datetime not null ,pjresult varchar (40) collate c

26、hinese_prc_ci_as null ,pjposition varchar (40) collate chinese_prc_ci_as null ,pjlevel varchar (50) collate chinese_prc_ci_as null ,pjremark text collate chinese_prc_ci_as null ,pjother1 varchar (50) collate chinese_prc_ci_as null ,pjother2 varchar (50) collate chinese_prc_ci_as null ) on primary te

27、xtimage_on primary5. 創(chuàng)建員工工資信息表格paycreate table dbo.pay (gzid varchar (8) collate chinese_prc_ci_as not null ,gzname varchar (10) collate chinese_prc_ci_as not null ,gzbase numeric(8, 2) not null ,gzall numeric(8, 2) null ,gzbonus numeric(8, 2) null ,gzpay numeric(8, 2) null ,gzdeduct numeric(8, 2) n

28、ull ,gzage numeric(8, 2) null ,gzmedical numeric(8, 2) null ,gzhouse1 numeric(8, 2) null ,gztotal numeric(8, 2) null ,gzduty numeric(8, 2) null ,gzhouse2 numeric(8, 2) null ,gzhouse3 numeric(8, 2) null ,gzlaborage numeric(8, 2) not null ,gzdate datetime not null ) on primary接下來就是配置sql server 2000中的x

29、iongxia_mis數(shù)據(jù)庫使之與應用程序的連接，xiongxia.sql是sql語句，其內(nèi)容在 sql server 2000中的查詢分析器執(zhí)行后，將自動產(chǎn)生需要的所有數(shù)據(jù)庫和數(shù)據(jù)庫表，然后在控制面板中配置sql server 2000的odbc連接，采用“文件dsn”選項卡，選中“sql server”選項，并確認文件數(shù)據(jù)源名為：xiongxia_mis（產(chǎn)生xiongxia_mis.dsn文件）。到這里與數(shù)據(jù)庫相關的所有后臺創(chuàng)建工作已基本完成。第四章 各個功能模塊的設計4.1 人事管理系統(tǒng)主控窗體的設計xiongxia_mis人事管理系統(tǒng)采用當今開發(fā)mis系統(tǒng)廣泛使用的windows32

30、位操作系統(tǒng)環(huán)境 + sql server 2000數(shù)據(jù)庫平臺 + visual basic 6開發(fā)工具的體系結構，xiongxia_mis應用程序采用基于ole-db技術的ado(active data objects)對象來操作sql server數(shù)據(jù)庫，其一般需要下面幾步完成對數(shù)據(jù)庫的操作： 創(chuàng)建一個數(shù)據(jù)源的連接(connection),連接到數(shù)據(jù)庫；或開始一個事物(transction)； 創(chuàng)建一個sql命令行(包括：變量、參數(shù)、可選項等)的對象； 執(zhí)行sql命令行； 產(chǎn)生相應的記錄集對象； 通過記錄集對象對數(shù)據(jù)進行各種操作（添加、修改、刪除等）； 更新數(shù)據(jù)源； 結束連接和事務。由于采用

31、了ado技術所以在vb6中需事先引用”microsoft activex objects 2.6 library”項目，才能使xiongxia_mis運行正常。a創(chuàng)建工程項目打開 visual basic后，單擊 filelnew proect菜單，在工程模板中選擇 standard exe， visual basic將自動產(chǎn)生一個form窗體，屬性都是缺省設置。將這個工程項目命名為xiongxia_mis。b. 創(chuàng)建人事管理系統(tǒng)的主窗體使用多文檔界面，單擊工程欄中的 add mdi form按鈕，產(chǎn)生一個窗體。在這個窗體上添加所需的控件。在主窗體中加入狀態(tài)欄控件，可以實時反映系統(tǒng)中的各個狀態(tài)

32、的變化。c創(chuàng)建主窗體的菜單在主窗體中，單擊鼠標右鍵，選擇彈出式菜單中的 menu editor，創(chuàng)建菜單結構：包括系統(tǒng)、員工基本信息、員工考勤管理、員工工作評價管理、員工工資管理、幫助等等菜單項。d創(chuàng)建公用模塊采用 visual basic中的公用模塊(*.bas)來存放整個工程項目公用的函數(shù)、過程和全局變量等。這樣可以極大的提高代碼的效率。在項目資源管理器中為項目添加一個module，保存為module1bas。由于系統(tǒng)中各個功能模塊都將頻繁使用數(shù)據(jù)庫中的各種數(shù)據(jù)，因此需要一個公共的數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種 sql語句的代碼如下： public function connectstring

33、() as string 用來連接數(shù)據(jù)庫 connectstring = filedsn= xiongxia_mis.dsn;uid=sa;pwd=end functionpublic function executesql(byval sql as string, msgstring as string) as adodb.recordset 執(zhí)行sql語句和返回記錄集 dim cnn as adodb.connection dim rst as adodb.recordset dim stokens() as string on error goto executesql_error 異常

34、處理 stokens = split(sql) 用split函數(shù)產(chǎn)生一個包含各子串的數(shù)組 set cnn = new adodb.connection cnn.open connectstring 打開連接 if instr(insert,delete,update, ucase$(stokens(0) then cnn.execute sql msgstring = stokens(0) & query successful else set rst = new adodb.recordset rst.open trim$(sql), cnn,adopenkeyset, adlockopti

35、mistic rst.movelast 取記錄數(shù) set executesql = rst msgstring = 查詢到 & rst.recordcount & 條記錄 end ifexecutesql_exit: set rst = nothing set cnn = nothing exit functionexecutesql_error: 錯誤信息 msgstring = 查詢錯誤: & err.description resume executesql_exitend function在錄入有關信息時，需要回車來進入下一個文本框，這樣方便軟件的使用。在所有的功能模塊都需要這個函數(shù)，

36、所以將它放在公用模塊中，代碼如下： public sub entertotab（keyasc as integer） 將enter換成tab 判斷是否為回車鍵 if keyasc13 then 轉(zhuǎn)換成tab鍵 sendkeys”tab” end if end subkeyasc用來保存當前按鍵，sendkeys函數(shù)用來指定的按鍵。一旦單擊回車鍵，將返回tab鍵，下一個控件自動獲得輸入焦點。添加兩個全局變量，用來記錄各個狀態(tài)，代碼如下： 定義整形變量，記載讀寫狀態(tài) public gintmode as integer 定義boolean變量，記載信息列表窗體是否打開 public flagedi

37、t as booleangintmode變量用來記錄是添加狀態(tài)還是修改狀態(tài)，賦值1為添加，賦值2為修改。flagedit變量用來標示是否進入修改的窗體。4.2 系統(tǒng)管理模塊的設計系統(tǒng)管理模塊主要實現(xiàn)：l 用戶登錄；（為了便于調(diào)試暫不設密碼）l 退出系統(tǒng)；private sub cmdok_click() if txtpassword.text = then ok = true me.hide else msgbox 非法的口令，請重試！, , 注冊失敗 txtpassword.setfocus end ifend sub4.3 員工基本信息模塊的設計 員工基本信息管理模塊實際上是其他各功能模塊

38、數(shù)據(jù)應用的基礎，實現(xiàn)了“個人信息”、“工作信息”、“工作簡歷”和“其它信息”管理的添加、修改、刪除和查詢等功能。 員工基本信息管理模塊主要實現(xiàn)如下功能：l 添加員工基本信息l 修改員工基本信息l 刪除員工基本信息l 查詢員工基本信息1添加員工信息窗體的設計 在窗體上放置多個文本框和下拉式列表框，用來輸入員工個人基本信息、工作信息、工作簡歷和其他信息；兩個按鈕用來確定是否添加員工信息；多個標簽用來提示文本框中需要輸入的內(nèi)容。在載入窗體時，程序?qū)⒆詣釉谙吕轿谋究蛑刑砑觾?nèi)容，這樣可以規(guī)范化輸入內(nèi)容，通過變量gintmode判斷是添加還是修改。如果是添加狀態(tài)，性別選擇框?qū)⑦x擇第一個；如果是修改狀態(tài)，

39、將選擇顯示當前的記錄。 程序首先對是否輸入內(nèi)容進行判斷，然后進行格式判斷。判斷是否有重復記錄是很重要的，否則數(shù)據(jù)庫將發(fā)生錯誤。最后根據(jù)狀態(tài)來顯示相應的信息：如果是添加狀態(tài)，將提示添加成功，然后重新顯示并清空所有文本框，以便繼續(xù)添加記錄；如果處于修改狀態(tài)，將提示修改成功，然后更新所有記錄的列表。這里用到了窗體的zorder方法，它是用來設置窗體顯示的次序：如果為0，就在最前面顯示；為其他數(shù)字時，就在相應位置。2修改員工基本信息窗體的設計在“員工基本信息|修改員工信息”菜單中，窗體中放置一個表格控件。載入窗體時，觸發(fā)窗體的load事件，顯示當前數(shù)據(jù)庫中所有的記錄，隨時可采用單擊鼠標右鍵的方式來修改

40、相應的員工信息。3. 刪除員工信息設計 在“員工基本信息|刪除員工信息”菜單中，將出現(xiàn)記錄列表。選擇相應記錄，單擊鼠標右鍵，選擇彈出式菜單，將刪除當前記錄，代碼如下：private sub menudelete_click() dim txtsql as string dim msgtext as string dim intcount as integer dim mrc as adodb.recordset if flagedit then if frmmanrecord.msglist.rows 1 then if msgbox(真的要刪除這條文件記錄么？, vbokcancel + v

41、bexclamation, 警告) = vbok then intcount = frmmanrecord.msglist.row txtsql = delete from manrecord where ygid= & trim(frmmanrecord.msglist.textmatrix(frmmanrecord.msglist.row, 1) & set mrc = executesql(txtsql, msgtext) frmmanrecord.txtsql = select * from manrecord flagedit = true frmmanrecord.showtitl

42、e frmmanrecord.showdata end if end if else msgbox 請選擇要刪除的記錄？, vbokonly + vbexclamation, 警告 frmmanrecord.txtsql = select * from manrecord frmmanrecord.show frmmanrecord.zorder 0 end ifend sub4查詢員工信息窗體的設計 在“員工基本信息|查詢員工信息”菜單，在這里可以按照各種方式以及它們的組合進行查詢。查詢事件代碼如下：private sub cmdok_click() dim dbegindate as st

43、ring dim denddatetemp as date dim denddate as string 判斷查詢方式 if chkitem(0).value = vbchecked then sqsql = ygname = & trim(txtitem(0) & ) & 按姓名查詢 end if 判斷查詢方式 if chkitem(1).value = vbchecked then if trim(sqsql & ) = then 判斷查詢語句是否為空 sqsql = ygdept = & trim(txtitem(1) & ) & 按部門查詢 else sqsql = sqsql & a

44、nd ygdept = & trim(txtitem(1) & ) & end if end if if chkitem(2).value = vbchecked then dbegindate = format(cdate(cboyear(0) & - & cbomonth(0) & -1), yyyy-mm-dd) 組合得到開始時間 denddatetemp = dateadd(d, -1, dateadd(m, 1, dateserial(cint(cboyear(1), cint(cbomonth(1), 1) 組合得到結束時間 denddate = format(denddatete

45、mp, yyyy-mm-dd) if trim(sqsql & ) = then 按時間查詢 sqsql = ygdate1 = & dbegindate & and ygdate1 = & dbegindate & and ygdate1 = & denddate & ) end if else end if 如果沒有設置查詢方式，將選擇所有記錄 if trim(sqsql) = then frmmanrecord.txtsql = select * from manrecord flagedit = true frmmanrecord.showtitle frmmanrecord.show

46、data else 選擇顯示滿足查詢條件的記錄 frmmanrecord.txtsql = select * from manrecord where & sqsql flagedit = true frmmanrecord.showtitle frmmanrecord.showdata end if me.hideend sub4.4 員工考勤管理模塊的設計 員工考勤管理模塊主要實現(xiàn)如下功能：l 添加員工考勤信息l 修改員工考勤信息l 刪除員工考勤信息l 查詢員工考勤信息1. 添加員工考勤信息窗體的設計 在“員工考勤管理|添加考勤信息”菜單中。窗體中用到了一個控件sstab（屬性頁控件），可

47、以顯示幾個頁面的內(nèi)容， 將各種文本錄入控件放在屬性頁控件的各個頁面上，組成“基本信息”、“考勤信息”、“其他信息”。（設計思想大致同員工基本信息修改模塊）2修改考勤信息 在“員工考勤管理|修改考勤信息”菜單中。窗體中放置了一個表格控件，所有考勤記錄都顯示在里面。選擇需要修改的記錄，在彈出式菜單中選擇“修改考勤信息”命令，然后進行修改。（設計思想大致同員工基本信息修改模塊）3查詢考勤信息 在“員工考勤管理|查詢考勤信息”菜單中，可以按照各種方式以及他們的組合進行相應查詢。查詢的方法和查詢員工信息的方法相同。（設計思想大致同員工基本信息查詢模塊）4.5 員工工作評價管理模塊的設計員工工作評價管理模

48、塊主要實現(xiàn)如下功能：l 添加員工工作評價信息l 修改員工工作評價信息l 刪除員工工作評價信息l 查詢員工工作評價信息1添加員工工作評價信息窗體的設計在“員工工作評價管理|添加工作評價信息”菜單中。實現(xiàn)向數(shù)據(jù)庫添加記錄的方法和前面添加員工基本信息的方法一樣，可以參考源代碼。（其設計思想大致同員工基本信息添加模塊）2修改工作評價信息在“員工工作評價管理|修改工作評價信息”菜單。選擇需要修改的記錄，單擊鼠標右鍵選擇“修改工作評價信息”菜單，在的窗體中進行修改。選擇彈出式菜單中的“刪除工作評價信息”，就可以刪除當前記錄。（其設計思想大致同員工基本信息修改模塊）3查詢工作評價信息在“員工工作評價管理l查

49、詢工作評價信息”菜單中，可以按照各種方式以及它們的組合進行查詢。滿足查詢要求的記錄都將出現(xiàn)在記錄列表框中。（其設計思想大致同員工基本信息查詢模塊）4.6 員工工資信息管理模塊的設計 員工工資信息管理模塊主要實現(xiàn)如下功能：l 計發(fā)員工工資信息l 修改員工工資信息l 查詢員工工資信息1添加員工工資信息窗體的設計在“員工工資管理|計發(fā)員工工資信息”菜單中。輸入內(nèi)容時將觸發(fā)文本框的change事件，自動計算出當前的工資總額。2. 修改員工工資信息在“員工工資管理|修改員工工資信息”菜單中。列表框中選擇需要修改的記錄，單擊鼠標右鍵選擇相應的菜單。（其設計思想大致同員工基本信息修改模塊）3查詢工資信息窗體

50、的創(chuàng)建在“員工工資管理|員工工資信息查詢”菜單中。滿足查詢要求的記錄都將在記錄列表中顯示出來。（其設計思想大致同員工基本信息查詢模塊）第五章、系統(tǒng)優(yōu)點：1 采用了sql server 2000 數(shù)據(jù)庫，sql server 2000是windows32位操作系統(tǒng)上應用最廣泛的關系型數(shù)據(jù)庫管理系統(tǒng)，其分布式結構和多用戶性完全滿足大中型企、事業(yè)單位的mis數(shù)據(jù)庫。2 采用了odbc使數(shù)據(jù)庫與應用程序接口得到了規(guī)范和統(tǒng)一。3 采用了存放在工程項目公用模塊中的ado對象來操作數(shù)據(jù)庫，極大的提高代碼的效率，增強了代碼的可讀性、擴充性。4 采用了sql語句來創(chuàng)建xiongxia_mis數(shù)據(jù)庫，使數(shù)據(jù)庫邏輯結構清晰明了便于管理。5 大量采用vb的表格控件和數(shù)據(jù)記錄集結