1、PAGE PAGE 62課程設計 題 目 長虹桂林分公司人力資源管理信息系統設計 目錄 TOC o 1-3 h z u HYPERLINK l _Toc278634620 0引言 PAGEREF _Toc278634620 h 1 HYPERLINK l _Toc278634621 1系統概況 PAGEREF _Toc278634621 h 2 HYPERLINK l _Toc278634622 1.1系統應用背景介紹 PAGEREF _Toc278634622 h 2 HYPERLINK l _Toc278634623 1.2系體功能分析 PAGEREF _Toc278634623 h 2

2、HYPERLINK l _Toc278634624 1.3系統模塊設計 PAGEREF _Toc278634624 h 2 HYPERLINK l _Toc278634625 1.3.1人事管理功能模塊 PAGEREF _Toc278634625 h 3 HYPERLINK l _Toc278634626 1.3.2考勤管理功能模塊 PAGEREF _Toc278634626 h 3 HYPERLINK l _Toc278634627 1.3.3招聘管理功能模塊 PAGEREF _Toc278634627 h 3 HYPERLINK l _Toc278634628 1.3.4工資管理功能模塊

3、PAGEREF _Toc278634628 h 3 HYPERLINK l _Toc278634629 1.3.5培訓管理功能模塊 PAGEREF _Toc278634629 h 3 HYPERLINK l _Toc278634630 1.3.6系統維護功能模塊 PAGEREF _Toc278634630 h 3 HYPERLINK l _Toc278634631 2數據庫設計 PAGEREF _Toc278634631 h 7 HYPERLINK l _Toc278634632 2.1定義數據庫 PAGEREF _Toc278634632 h 7 HYPERLINK l _Toc278634

4、633 2.2定義業務規則 PAGEREF _Toc278634633 h 7 HYPERLINK l _Toc278634634 2.3定義域 PAGEREF _Toc278634634 h 8 HYPERLINK l _Toc278634635 2.4創建表格/字段 PAGEREF _Toc278634635 h 8 HYPERLINK l _Toc278634636 2.4.1缺勤類型表 PAGEREF _Toc278634636 h 8 HYPERLINK l _Toc278634637 2.4.2津貼表 PAGEREF _Toc278634637 h 8 HYPERLINK l _T

5、oc278634638 2.4.3考勤表 PAGEREF _Toc278634638 h 9 HYPERLINK l _Toc278634639 2.4.4部門表 PAGEREF _Toc278634639 h 9 HYPERLINK l _Toc278634640 2.4.5崗位表 PAGEREF _Toc278634640 h 10 HYPERLINK l _Toc278634641 2.4.6醫療保險表 PAGEREF _Toc278634641 h 10 HYPERLINK l _Toc278634642 2.4.7月工資表 PAGEREF _Toc278634642 h 11 HYP

6、ERLINK l _Toc278634643 2.4.8培訓表 PAGEREF _Toc278634643 h 11 HYPERLINK l _Toc278634644 2.4.9培訓教師表 PAGEREF _Toc278634644 h 12 HYPERLINK l _Toc278634645 2.4.10課目表 PAGEREF _Toc278634645 h 12 HYPERLINK l _Toc278634646 2.4.11員工表 PAGEREF _Toc278634646 h 12 HYPERLINK l _Toc278634647 2.4.12年終獎表 PAGEREF _Toc27

7、8634647 h 13 HYPERLINK l _Toc278634648 2.4.13用戶權限表 PAGEREF _Toc278634648 h 14 HYPERLINK l _Toc278634649 2.4.14用戶具體權限表 PAGEREF _Toc278634649 h 14 HYPERLINK l _Toc278634650 2.4.15權限細則表 PAGEREF _Toc278634650 h 14 HYPERLINK l _Toc278634651 3程序預覽 PAGEREF _Toc278634651 h 14 HYPERLINK l _Toc278634652 4代碼分析

8、 PAGEREF _Toc278634652 h 26 HYPERLINK l _Toc278634653 5設計總結 PAGEREF _Toc278634653 h 32 HYPERLINK l _Toc278634654 參考文獻 PAGEREF _Toc278634654 h 32長虹桂林分公司人力資源管理信息系統設計摘要：人事管理系統是一套功能強大、操作簡單而又實用的人事管理軟件，包括人事管理、考勤管理、工資管理、招聘管理、培訓管理及系統維護六大管理功能。本系統在功能設計上具有前瞻性，對國際上先進的人事管理思想加以吸收、借鑒，以適應客戶不斷提高的要求，增強人事管理企業的核心競爭力。主要

9、幫助實現人員基本信息的數據輸入和規范化管理，合企業高效率地完成勞動人事管理的日常業務。關鍵詞：人事管理 長虹 SQL0引言21世紀的競爭是人才的競爭，擁有優秀的人才是企業成功的基礎，因此人力資源可以說是企業最重要的資源。人力資源的管理也成為關系到企業興衰的戰略性工作。雖然市場上提供了不少人力資源管理的獨立軟件，但都未與企業的ERP系統集成。將人力資源作為ERP系統的一個部分，可以全方位地對企業人力資源進行有效的績效評估，同時可以方便地為產品的成本提供人工費用，提高人力資源管理的信息共享程度，加快信息的提取和統計。下面將詳細地分析一個完整的具有商業競爭力的人事管理系統的實施，并講述該程序實施的整

10、個過程，包括需求分析、系統框架，系統建模、數據庫建模、程序實現和項目實施等。1系統概況1.1系統應用背景介紹本系統是為企業人事管理提供現代化技術支持的管理信息系統，該系統包括了員工管理、部門管理、用戶管理、招聘管理等主要模塊。其圖形用戶界面利用DELPHI進行開發，后臺數據庫使用SQL SERVER 2000，采用ADO數據訪問方式。本文針對具體項目展開研究，首先進行需求分析、模塊劃分，對實施該課題的方案進行論證。然后對整個系統進行了詳細的分析和設計，結合源代碼詳細的描述出整個項目的開發過程，最后對系統進行了功能測試。本課題的實施將會促進企業的無紙化辦公，避免人工管理中出現各種差錯，提高企業管

11、理效率，使得管理者能夠更加方便的了解到企業內部人事狀況。人事管理系統是一套功能強大、操作簡單而又實用的人事管理軟件，包括人事管理、考勤管理、工資管理、招聘管理、培訓管理及系統維護六大管理功能。本系統在功能設計上具有前瞻性，對國際上先進的人事管理思想加以吸收、借鑒，以適應客戶不斷提高的要求，增強人事管理企業的核心競爭力。主要幫助實現人員基本信息的數據輸入和規范化管理，合企業高效率地完成勞動人事管理的日常業務。本系統主要適用于中小型企業的人事管理。本系統集成了各類型人事管理軟件的功能和特點來構建系統框架，因此整個系統具有的靈活性和可擴展性，能夠滿足客戶在人事管理方面更多個性化的需求。1.2系體功能

12、分析人事管理包含的功能較多，其中一些過程如招聘較為復雜，隨著員工數量的增加，人事管理者所需要處理的信息量大幅上升，因此往往很難及時準確地掌握整個企業的員工信息。針對這一情況，提出開發人事管理信息系統的任務。主發是為了實現企業的人事管理系統化、規范化和自動化，為產品的成本減少人工費用，提高人力資源管理的信息共享程度，加快信息的提取的系統。開發意圖：為人事管理提高效率、降低成本；實現人事管理的優化，達到物流和信息流的暢通無阻；進而提供更多增值性服務，提高客戶滿意度。在滿足人事管理的基本功能基礎上注意發揮信息系統的智能化，減輕人事管理人員和操作人員的工作負擔。1.3系統模塊設計本系統是一種功能比較完

13、善的人事管理軟件，對人事管理維護過程中的數據可以隨時輸入、輸出、查找、報表和打印等。需求分析是一個管理系統成功實施的基礎，只有弄清楚客戶的需求，才能真正開發出滿足客戶需求的信息系統，也才能夠讓整個系統發揮其應有的作用。下面就針對人事管理的總體需求做一個分析，可能有些客戶有其特殊的需求，可在實際開發中繼續完善。1.3.1人事管理功能模塊主要實現人員基本信息的數據輸入和規范化管理，使企業高效率地完成勞動人事管理 的日常業務，比如建立人事基本檔案、離退人員檔案、員工生日及合同等提醒、進行人力資源測評與分析、工服領用和文具領用等。1.3.2考勤管理功能模塊主要實現企業的考勤管理系統化、規范化和自動化，

14、收集時間數據，自動地對數據進行分析和處理，如計劃缺使用選區勤時間、加班時間、休假時間等，通知員工以進行核對和修改，并能對員工進行休假管理。1.3.3招聘管理功能模塊主要幫助管理者開展招聘工作，包括在因特網、報紙、雜志上動態地發布招聘廣告，查詢應聘情況，對應聘人員與招聘條件作比較，篩選應聘人員，自動產生錄用通知書，對有關的招聘事務自動生成E-mail、傳真及各種信件。1.3.4工資管理功能模塊主要包括兩方面的內容，一是工資核算，如工資計算，個人所得稅、養老及醫療保險計算，住房公積金和社會福利金等的計算，工資的發放方式；二是工資管理，如制定工資計劃，控制工資預算，分析市場職務價格水平，調整工資結構

15、。1.3.5培訓管理功能模塊主要功能是對員工的職務和用途程度進行分析，為員工的升職和加薪提供信息，制定員工的培訓計劃，建立培訓課程表，預算培訓成本。同時，為每位員工建立培訓記錄，輸入數據庫。1.3.6系統維護功能模塊主要使管理員能進行人力資源及其相關功能的管理，設置操作員賬號、密碼與權限，定期進行數據備份、數據清理及整理，以及出現故障時可以將數據恢復。整個系統的功能需求可用圖1-1簡要表示。人事管理系統人事管理系統人事管理考勤管理招聘管理工資管理培訓管理系統維護圖1-1 人事管理系統人事管理功能模塊可以通過圖1-2說明。人事管理人事管理人事檔案管理離退人員檔案管理人力資源測評員工生日等提醒查詢

16、統計報表打印圖1-2 人事管理考勤管理功能模塊可以通過圖1-3說明。考勤管理考勤管理考勤信息維護員工休假管理 查詢統計報表打印圖1-3 考勤管理招聘管理功能模塊可以通過圖1-4說明。招聘管理招聘管理制定招聘計劃查詢應聘情況 篩選應聘人員應聘人信息維護 生成招聘文件圖1-4 招聘管理工資管理功能模塊可以通過圖1-5說明。工資管理工資管理工資核算銀行轉賬 制定工資計劃查詢統計 報表打印圖1-5 工資管理培訓管理功能模塊可以通過圖1-6說明。培訓管理培訓管理制定培訓計劃預算培訓成本 建立培訓記錄制定員工發展計劃圖1-6 培訓管理系統維護功能模塊可以通過圖1-7說明。系統維護系統維護操作員及權限數據備

17、份 數據清理數據恢復 數據整理圖1-7系統維護2數據庫設計根據以上的功能分析，系統中包括員工、崗位、職務、部門四個實體。其中每個職員都專職或兼職擔任某個崗位的工作。而每個崗位又必然是某個部門的某個職務。系統的核心實體是員工，員工包括多方面的屬性，如一些基本資料：工號、姓名、性別、學歷等，同時還包含一些復雜的結構信息，如他的簡歷、所受過的培訓、檔案信息等。以下就是生成數據庫中的各類對象的代碼。2.1定義數據庫/*Database name : 人事數據庫（HRM） */*DBMS name : Microsoft SQL Server 2000 */*Created on : 2010-10-3

18、0 10:23:16 */drop database 人事數據庫gocreate database 人事數據庫gouse 人事數據庫go2.2定義業務規則語句為：create rule月工資規則as(用語言描述的業務規則)月工資表中的津貼是通過津貼表的加班時間*單位酬勞得到的；月工資表的扣除是通過考勤表的缺勤天數*單位金額得到的；醫療保險和保險費是通過醫療保險表的醫療保險費用和保險費得到的。gocreate rule 月工資 as 工資表的月工資必須大于0或一定的數，比如基本工資 2.3定義域/*Domain:名字域（NAME） */execute sp_addtype 名字域， char(1

19、0)go/*Domain: 代號域（UNMBER） */execute sp_addtype 代號域， char(6)go/*Domain: 時間域（TIME） */execute sp_addtype 時間域, datetimego2.4創建表格/字段2.4.1缺勤類型表Create table 缺勤類型表（缺勤類別 char(6) not null,缺勤名稱 NAME null，缺勤描述 char(10) null,Constraint PK_ABSENCE primary key (缺勤類別)）gocreate index INDEX_1 on 缺勤類型表（缺勤類別）go2.4.2津貼表

20、create table 津貼表（員工代號 NUMBER not null,加班時間 NAME not null,加班天數 dec(2) null,加班類別 char(10) null,constraint PK_ALLOWANCE primary key (員工代號，加班時間)gocreate index INDEX_1 on 津貼表（員工代號，加班時間）go2.4.3考勤表create table 考勤表（員工代號 UNMBER not null,員工姓名 varchar(20) null,日期 TIME not null， 上班時間 datetime null， 下班時間 datetim

21、e null， 遲到時間 int null， 是否缺勤 bit null， 缺勤類別 char（6） null，）constraint PK_CHECKIN primary key (員工代號，日期）gocreate index INDEX_1 on考勤表（員工代號，日期）go2.4.4部門表create table 部門表（部門代號 NUMBER not null,部門名稱 NAME null,部門經理代號 NAME null,部門電話 dec(8) null,constraint PK_DEPARTMENT primary key （部門代號）gocreate unique index D

22、EP_NO on 部門表（部門代號）gocreate index DEP_NAME on 部門表（部門名稱）go2.4.5崗位表Create table 崗位表（崗位代號 NUMBER not null,崗位名稱 NAME null,崗位權利 char(20) null,崗位職責 char(20) null,Constraint PK_JOB primary key (崗位代號)）GoCreate unique index INDEX_1 on 崗位表（崗位代號）GoCreate index INDEX_2 on 崗位表（崗位名稱）Go2.4.6醫療保險表Create table 醫療保險表（

23、員工代號 NUMBER not null,醫療報險費用 dec(10) null,保險費 dec(8) null,醫療保險日期 TIME not null,Constraint PK_MEDICARE primary key (員工代號，醫療保險日期)）GoCreate index INDEX_1 on 醫療保險表（員工代號）Go2.4.7月工資表Create table 月工資表（員工代號 NUMBER not null,基本工資 dec(6) null,津貼 dec(6) null,扣除 dec(6) null,醫療保險 dec(6) null,保險費 dec(6) null,月工資 AS

24、 (月工資表.基本工資表+月工資表.津貼+月工資表.醫療保險-月工資表.扣除-月工資表.保險費)，月工資時間 TIME not null，Constraint PK_MONTHSAL primary key (員工代號，月工資時間)）GoCreate index INDEX_1 on 月工資表（員工代號，月工資時間）Go2.4.8培訓表Create table 培訓表（培訓師代號 NUMBER not null,課目代號 NUMBER not null,員工代號 NUMBER not null,成績 dec(4) null,Constraint PK_TEACH primary key (培訓

25、師代號，課目代號，員工代號)）GoCreate index INDEX_1 on 培訓表（培訓師代號，課目代號，員工代號）Go2.4.9培訓教師表Create table 培訓教師表（培訓師代號 NUMBER not null,培訓師名稱 NAME null,培訓師職稱 char(8) null,Constraint PK_TEACHER primary key (培訓師代號)Create index INDEX_1 on 培訓教師表（培訓師代號）GoCreate index INDEX_2 on 培訓教師表（培訓師名稱）Go2.4.10課目表Create table 課目表（課目代號 NUM

26、BER not null,科目名稱 NAME null,教材名稱 NAME null,Constraint PK_TOPIC primary key (課目代號)）GoCreate index INDEX_1 on 課目表（課目代號）GoCreate index INDEX_2 on 課目表（科目名稱）Go2.4.11員工表Create table 員工表（員工代號 NUMBER not null,員工姓名 NAME null,員工性別 char(2) null,崗位代號 NUMBER null,部門代號 NUMBER null,培訓情況 char(2) null,婚姻狀況 char(2) n

27、ull,學歷 char(6) null,入公司時間 TIME not null,Constraint PK_WORKER primary key (員工代號)）GoCreate unique index INDEX_1 on 員工表（員工代號）GoCreate index INDEX_2 on 員工表（員工姓名）GoCreate index INDEX_3 on 員工表（入公司時間）Go2.4.12年終獎表Create table 年終獎表（員工代號 NUMBER not null,年份 TIME not null,獎金總數 dec(8) null,Constraint PK_YEARSAL

28、primary key (員工代號，年份)GoCreate index INDEX_1 on 年終獎表（員工代號，年份）Go2.4.13用戶權限表Create table 用戶權限表（序號 int not null,用戶名 varchar(10) null,密碼 varchar(10) null,工號 varchar(10) null,姓名 varchar(10) null,權限級別 int null,Constraint PK_xuhao1 primary key (序號)）Go2.4.14用戶具體權限表Create table 用戶具體權限表（序號 int not null,用戶名 var

29、char(10) null,權限號 varchar(10) null,Constraint PK_xuhao2 primary key (序號)）Go/*用戶具體權限，用來保存每個員工的具體權限*/2.4.15權限細則表Create table 權限細則表（序號 int not null,權限表 varchar(10) null,權限名稱 varchar(10) null,備注 varchar(10) null,Constraint PK_xuhao3 primary key (序號)Go3程序預覽運行本程序，首先出現如圖3-1所示的主界面。單擊菜單項中系統設置-設置代碼，進入設置代碼窗口，如

30、圖3-2所示，可以在其中對相關的代碼如部門代碼、崗位代碼、婚姻狀況代碼等進行設置。圖3-1 主界面圖3-2 設置代碼單擊人事資料管理-人員信息綜合管理，進入個人資料管理窗口，如圖3-3所示，可以在其中對人員的基本資料以及各項信息如簡歷、培訓、兼職等信息進行瀏覽和編輯。圖3-3 個人資料在窗口中單擊表格顯示按鈕，則會切換到表格顯示的模式，如圖3-4所示，在表格顯示模式單擊輸入模式按鈕，則又可切換到輸入模式。圖3-4 個人資料輸入在個人資料窗口中單擊更換照片按鈕，則可選擇更換員工的照片，如圖3-5所示。圖3-5 更改照片在個人資料窗口中單擊簡歷按鈕，則可進入編輯簡歷窗口，如圖3-6所示。單擊編輯檔

31、案信息則可進入編輯檔案信息窗口，如圖3-7所示。圖3-6 編輯簡歷圖3-7 編輯檔案信息在個人資料窗口中單擊編輯兼職信息按鈕則可輸入員工的兼職情況，如圖3-8所示。單擊編輯培訓信息則可輸入員工的培訓信息，如圖3-9所示。圖3-8 編輯兼職信息圖3-9 編輯培訓信息在個人資料窗口中單擊編輯職稱信息按鈕，則可輸入員工的職稱變化情況，如圖3-10所示。單擊人事資料管理-人員調離，進入人員調離及離退休管理窗口，如圖3-11所示，系統將會列出所有的員工的工號、姓名等資料，可以從中選擇需要輸人員調離或離退休的員工。選中一個員工之后，單擊詳細信息按鈕，可顯示該員工的詳細個人資料。圖3-10 編輯職稱信息圖3

32、-11 人員調離及離退休管理單擊人事資料管理-人員信息綜合查詢，進入人員信息統計分析窗口。在人員信息統計分析窗口，系統按照各種分類對員工資料進行分類統計，并以表格（如圖3-12所示）、柱狀圖（如圖3-13所示）、餅圖（如圖3-14所示）形式顯示，供企業決策人員參考。圖3-12 人員統計表格圖3-13 人員統計柱狀圖圖3-14 人員統計餅圖單擊崗位管理-設置崗位，進入設置崗位編制窗口，如圖3-15所示，其中可以調整企業的崗位設置。在窗口中單擊設置崗位要求按鈕，則可以對該崗位進行多方面的要求設置，如圖3-16所示。圖3-15 設置崗位編制圖3-16 設置崗位要求單擊崗位管理-崗位查詢，進入查詢崗位

33、配置窗口，如圖3-17所示，其中可以查詢各個崗位的人員配置情況。在崗位查詢窗口中，選中一個崗位和人員配置之后，單擊已配置的人員情況按鈕，出現一個窗口顯示該崗位可選擇該崗位配置的所有人員的列表，如圖3-18所示。用戶從中選擇一個員工之后，單擊詳細資料按鈕，則會顯示該員工的詳細個人資料。在查詢崗位配置窗口中，單擊崗位設置情況按鈕，則用戶可查看該崗位設置的詳細資料。圖3-17 查詢崗位配置圖3-18 查詢人員列表4代碼分析unit main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls

34、, Forms, Dialogs, Menus, ComCtrls, ExtCtrls;type TfrmMain = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N4: TMenuItem; N7: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N5: TMenuItem; N6: TMenuItem; N8: TMenuItem; N3: TMenuItem; N9: TMenuItem; N10: TMenuItem; proced

35、ure N2Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N12Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure N10Click(Send

36、er: TObject); private Private declarations public Public declarations end;var frmMain: TfrmMain;implementationuses Szdmb, szgwbz, grzl, ryxxtjfx, cxgwpz, rydl;$R *.dfmprocedure TfrmMain.N2Click(Sender: TObject);begin try frmSzdmb := TfrmSzdmb.Create(nil);/創建設置代碼窗口 frmSzdmb.showModal; /以模式方式顯示設置代碼窗口

37、finally frmSzdmb.Free ; /最后必須釋放窗口 end;end;procedure TfrmMain.N7Click(Sender: TObject);var i,count:integer; exist:boolean;begin exist:=false; i:=0; count := self.MDIChildCount ; while (i count) and not exist do /查找是否存在類名為TfrmGrzl的子窗口 begin if self.MDIChildreni.ClassName = TfrmGrzl then exist := true;

38、 inc(i); end; if not exist then /不存在則創建 begin frmGrzl := TfrmGrzl.Create(self); end; /以下顯示該窗口 frmGrzl.Show ; frmGrzl.WindowState := wsNormal; frmGrzl.SetFocus ;end;procedure TfrmMain.N12Click(Sender: TObject);begin try frmSzgwbz := TfrmSzgwbz.Create(nil); /創建設置崗位窗口 frmSzgwbz.showModal; /以模式方式顯示設置窗口

39、finally frmSzgwbz.Free ; /必須釋放窗口 end;end;procedure TfrmMain.N6Click(Sender: TObject);var i,count:integer; exist:boolean;begin exist:=false; i:=0; count := self.MDIChildCount ; while (i count) and not exist do /查找系統中是否存在為frmRyxxtjfx的子窗口 begin if self.MDIChildreni.ClassName = TfrmRyxxtjfx then exist :

40、= true; inc(i); end; if not exist then /不存在則創建 begin frmRyxxtjfx := TfrmRyxxtjfx.Create(self); end; /以下顯示該窗口 frmRyxxtjfx.Show ; frmRyxxtjfx.WindowState := wsNormal; frmRyxxtjfx.SetFocus ;end;procedure TfrmMain.N8Click(Sender: TObject);var i,count:integer; exist:boolean;begin exist:=false; i:=0; coun

41、t := self.MDIChildCount ; while (i count) and not exist do /查找系統中是否存在為frmCxgwpz的子窗口 begin if self.MDIChildreni.ClassName = TfrmCxgwpz then exist := true; inc(i); end; if not exist then /不存在則創建 begin frmCxgwpz := TfrmCxgwpz.Create(self); end; /以下顯示該窗口 frmCxgwpz.Show ; frmCxgwpz.WindowState := wsNorma

42、l; frmCxgwpz.SetFocus ;end;procedure TfrmMain.N3Click(Sender: TObject);var i,count:integer; exist:boolean;begin exist:=false; i:=0; count := self.MDIChildCount ; while (i count) and not exist do /查找系統中是否存在為frmRydl的子窗口 begin if self.MDIChildreni.ClassName = TfrmRydl then exist := true; inc(i); end; i

43、f not exist then /不存在則創建 begin frmRydl := TfrmRydl.Create(self); end; /以下顯示該窗口 frmRydl.Show ; frmRydl.WindowState := wsNormal; frmRydl.SetFocus ;end;procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin if messageDlg(退出系統嗎？,mtInformation , mbYes,mbNo,MB_YESNO) = mrYes then/

44、用戶確認是否退出系統 canClose := true else canClose := false; end;procedure TfrmMain.N10Click(Sender: TObject);begin close;end;end.5設計總結本系統主要適用于中小型企業的人事管理。本系統集成了各類型人事管理軟件的功能和特點來構建系統框架，因此整個系統具有的靈活性和可擴展性，能夠滿足客戶在人事管理方面更多個性化的需求。主發是為了實現企業的人事管理系統化、規范化和自動化，為產品的成本減少人工費用，提高人力資源管理的信息共享程度，加快信息的提取的系統。參考文獻1楊海東，劉海英Delphi數據

45、庫高級實例導航M科學出版社,20032席一凡Delphi程序設計M中國鐵道出版社,20083王珊，薩師煊數據庫系統概論M高等教育出版社,20064李代平軟件工程M清華大學出版社,20025姜仁武.企業資源管理項目開發實踐.科學出版社，2005附錄資料：不需要的可以自行刪除 C語言-INT10中斷號視頻服務程序00H(設置視頻模式)輸入: AH=00H AL=視頻模式輸出: 無 說明：視頻服務程序00H用來設置視頻配置為表10-l中列出之一。AL寄存器給定所需視頻模式。若設置了新視頻模式，則清除屏幕。 視頻服務程序0lH(設置光標大小)輸入： AH=01H CH=光標開始掃描行 CL=光標結束掃

46、描行輸出： 無說明：該服務程序用于正文模式。在一個字符單元內由一行或幾行組成的光標將在字符顯示位置得閃爍。該服務程序定義光標的顯示行數。對CGA模式，8掃描行(07)用于光標。對EGA模式，使用14行(013)。MCGA和VGA適配器，光標可具有16掃描行(015)高。缺省設置如下： CGA： CH6，CL7 EGA： CHll，CL12 MCGA和VGA： CH量13，CL1 視頻服務程序02H(設置光標位置)輸入： AH=02H BH=光標頁號 DH=光標行號 DL=光標列號輸出： 無說明：該服務器序用于將光標移到指定行和列位置。該服務程序即可用于正文模式也可用于圖形模式；然而，僅在正文模

47、式下才顯示光標。屏幕左上角為坐標系統的原點。對支持多頁的正文和圖形模式，則必須指定頁號，以保證光標位置正確。視頻服務程序03H(讀光標位置)輸入： AH=03H BH=頁號輸出： CH=光標開始行 CL=光標結束行 DH=行號 DL列號說明：該服務程序用于獲取光標大小和位置。BH給定了頁號。CH中存放光標開始掃描行，而CL中為光標結束掃描行。DH中存放行位置，DL中為列位置。視頻服務程序05H(設置活動顯示頁)輸入： AH=05H AL=活動頁號輸出： 無 說明：該服務程序為正文和圖形模式用來設置活動顯示頁號。AL指定所需頁號。對多數正文模式，頁號范圍為0一7。對具有足夠視頻緩沖EGA和VGA

48、適配器，可支持多頁圖形。對所有正文和圖形模式，缺省為0頁。視頻服務程序06H(向上翻滾活動窗口)。輸入：AH=06HAL=翻滾行數BH=空白行屬性CH左上角行號CL=左上角列號 DH右下角行號 Dl右下角列號輸出： 無 說明：該服務程序用來創建和翻滾一正文窗口。CH和CL中給出了正文窗口左上角坐標，DH和DL中給出了正文窗口右下角坐標。AL中定義了翻滾的行數。若AL00H，則正文窗口為空白。當滾動窗口時，底部行是空白行，其屬性由BH中指定。視頻服務程序07H(向下翻滾窗口)輸入:AH=07HAL=翻滾行數BH=空白行屬性CH=左上角行號CL=左上角列號DH=右下角行號DL=右下角列號輸出: 無

49、說明：該服務程序用來創建和翻滾一正文窗口。CH和CL中給出了正文窗口左上角坐標，DH和DL中給出了正文窗口右下角坐標。AL中定義了翻滾的行數。若AL00H，則正文窗口為空白。當滾動窗口時，頂部行為空白，其屬性由BH中指定。視頻服務程序08H(讀字符和屬性)輸入： AH=08H BH=活動頁號輸出： AH=字符屬性 AL=字符碼說明：該服務程序用于讀取正文或視頻模式下，光標所在處字符。在圖形模式下，獲取的字符同圖形模式下使用的字符生成表有關。在正文模式下，將獲得字符的ASCII碼。字符屬性存放在AH中，字符ASCII碼存放在AL中。圖形模式下，AH中內容無意義.視頻服務程序09H(寫字符和屬性)

50、輸入： AH09H AL=寫字符的ASCII碼 BL=寫字符的屬性 BH=活動頁號 CX=重復寫字符和屬性次數輸出： 無 說明：該服務程序寫一個字符到屏幕當前光標處。AL中指定字符碼。正文模式下，BL中指定字符屬性。圖形模式下，BL指定背景顏色。字符可重復寫。CX為寫字符及屬性的次數。視頻服務程序0FH(取當前視頻模式)輸入： AH0FH輸出： AH每行字符數 AL當前顯示模式 BH活動頁號說明：該服務程序用來獲取當前視頻模式，屏幕寬(以字符計)，以及活動顯示頁號；視頻顯示模式存放在AL中。屏幕寬度(以字符計)存放在AH中，活動頁號存放在BH中。文件相關函數函數名: fopen功 能: 打開一

51、個流用 法: FILE *fopen(char *filename, char *type);函數名: fclose功 能: 關閉一個流用 法: int fclose(FILE *stream); fopen()函數提供了幾種打開文件的方式，這是由其字符指針參數type決定的。以下給出打開方式列表：參數作用R只讀W新建、可寫，如果文件存在則覆蓋A存在則在文件后附加，如果不存在則新建后寫r+更新一個存在的文件（讀和寫）w+增加一個新的文件更新（讀和寫），如果文件存在則覆蓋a+存在則在文件后附加（讀和寫），如果不存在則新建后更新（讀和寫）*以文本模式打開一個存在或新建的文件，附加”t”在參數后(r

52、t, w+t, etc.)。*以二進制模式打開一個存在或者新建的文件，附加”b”在參數后(wb, a+b, etc.)。函數名: fseek功 能: 重定位流上的文件指針用 法: int fseek(FILE *stream,long offset,int fromwhere); 讀取文件函數：函數名: fread功 能: 從一個流中讀數據用 法: int fread( void *ptr, int size, int nitems, FILE *stream ); 寫入文件函數：函數名: fwrite功 能: 寫內容到流中用 法: int fwrite( void *ptr, int siz

53、e, int nitems, FILE *stream ); fseek()函數提供了文件指針的三個初始位置，這是由其參數fromwhere決定的,以下給出其列表：常量值文件定位SEEK_SET0從文件頭開始尋找SEEK_CUR1從文件當前位置開始尋找SEEK_END2從文件最后開始尋找函數名: fprintf功 能: 傳送格式化輸出到一個流中用 法: int fprintf( FILE *stream, char *format, argument,. );函數名: fscanf功 能: 從一個流中執行格式化輸入用 法: int fscanf( FILE *stream, char *for

54、mat,argument. );發聲函數函數名: sound功 能: 以指定頻率打開PC揚聲器用 法: void sound(unsigned frequency);函數名: nosound功 能: 關閉PC揚聲器用 法: void nosound(void);常規內存操作函數申請函數：malloc(),farmalloc(),calloc(),farcalloc(),realloc(),farealloc()函數名: malloc功 能: 內存分配函數用 法: void *malloc(unsigned size);函數名: farmalloc功 能: 從遠堆中分配存儲塊用 法: void

55、far *farmalloc(unsigned long size);函數名: calloc功 能: 分配主存儲器用 法: void *calloc(size_t nelem, size_t elsize);函數名: farcalloc功 能: 從遠堆棧中申請空間用 法: void far *farcalloc( unsigned long units, unsigned ling unitsz );函數名: realloc功 能: 重新分配主存用 法: void *realloc(void *ptr, unsigned newsize);函數名: farrealloc功 能: 調整遠堆中的分

56、配塊用 法: void far *farrealloc( void far *block, unsigned long newsize );使用函數：memcpy(),memset(),memmove(),movedata()函數名: memcpy功 能: 從源source中拷貝n個字節到目標destin中用 法: void *memcpy(void *destin,void *source,unsigned n);函數名: memset功 能: 設置s中的所有字節為ch, s數組的大小由n給定用 法: void *memset(void *s, char ch, unsigned n);函數

57、名: memmove功 能: 移動一塊字節用 法: void *memmove(void *destin,void *source,unsigned n);函數名: movedata功 能: 拷貝字節用 法: void movedata(int segsrc, int offsrc, int segdest, int offdest, unsigned numbytes);釋放函數：free(),farfree()函數名: free功 能: 釋放已分配的塊用 法: void free(void *ptr);函數名: farfree功 能: 從遠堆中釋放一塊用 法: void farfree(v

58、oid);指針操作函數：MK_FP(),FP_OFF(),FP_SEG()函數名: MK_FP功 能: 設置一個遠指針用 法: void far *MK_FP(unsigned seg, unsigned off);函數名: FP_OFF功 能: 獲取遠地址偏移量用 法: unsigned FP_OFF(void far *farptr);函數名: FP_SEG功 能: 獲取遠地址段值用 法: unsigned FP_SEG(void far *farptr);如果想知道還剩下多少常規內存，我們可以使用以下函數：函數名: coreleft()功 能: 獲取空閑內存用 法: unsigned c

59、oreleft(void);函數名: farcoreleft()功 能: 獲取遠堆空閑內存用 法: unsigned long farcoreleft(void);XMS功能調用索引表：功能號功能版本功能00H功能01H功能02H功能03H功能04H功能05H功能06H功能07H功能08H功能09H功能0AH功能0BH功能0CH功能0DH功能0EH功能0FH功能10H功能11H取XMS版本號請求高內存區HMA釋放高內存區HMA全程啟用A20全程停用A20局部啟用A20局部停用A20查詢A20狀態查詢自由擴展內存分配擴展內存塊釋放擴展內存塊移動擴展內存塊鎖住擴展內存塊擴展內存塊解鎖取EMB句柄信

60、息重新分配擴展內存塊請求上位存儲塊UMB釋放上位存儲塊UMBXMS規范V2.0XMS規范V2.0XMS規范V2.0XMS規范V2.0XMS規范V2.0XMS規范V2.0XMS規范V2.0XMS規范V2.0XMS規范V2.0XMS規范V2.0XMS規范V2.0XMS規范V2.0XMS規范V2.0XMS規范V2.0XMS規范V2.0XMS規范V2.0XMS規范V2.0XMS規范V2.0XMS功能調用函數1. 測試xms是否存在使用中斷2fH的43H（AH）功能的00H(AL)子功能，可以獲得是否安裝了XMS驅動程序的信息，如果AL返回為80H則說明XMS安裝了。以下給出具體函數：char test