人事檔案管理系統(tǒng)畢業(yè)設計

1、<p><b>　　畢業(yè)設計（論文）</b></p><p><b>　　人事檔案管理系統(tǒng)</b></p><p>　　學院（系）： </p><p>　　專業(yè)班級： </p><p>　　學生姓名： <

2、;/p><p>　　指導教師： </p><p>　　-------------摘要--------------</p><p>　　人事檔案管理系統(tǒng)是典型的信息管理系統(tǒng),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應用程序功能完備,易使用等特點

3、。 隨著科學技術的不斷提高,計算機科學日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。DELPHI是面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象,首先在短時間內(nèi)建立系統(tǒng)應用原型,然后,不斷修正和改進,直到形成用戶滿意的可行系統(tǒng)。關鍵字：控件、窗體、表。</p><p>　　-------------前言------------

4、--</p><p>　　對于大多數(shù)國企而言，他們有一套比較系統(tǒng)的人力資源管理理念，并建立了一整套比較規(guī)范的人力資源管理方法。在積極建立企業(yè)現(xiàn)代企業(yè)管理機制的今天，僅僅靠原始的手工管理或簡單的單機管理，人力資源部門面對大量的信息，無法有效率地將其中的重要部分提取出來，并做出相應的判斷和處理。集團管理者的決策只能依據(jù)報表數(shù)據(jù)，在浪費大量人力、物力的同時無法做到實時監(jiān)控，難以保證數(shù)據(jù)的準確性和及時性。因此，先進的管

5、理思想在企業(yè)中實現(xiàn)就成為了一個可望而不可及的目標。 作為計算機應用的一部分,使用計算機對人事進行管理,具有著手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高商場人事管理的效率,也是科學化、正規(guī)化管理的重要條件。 因此，開發(fā)這樣一套管理軟件成為很有必要的事情,在下面的各章中我們將以開發(fā)一套人事管理系統(tǒng)為例,談談其開發(fā)過程和所涉及到的問題及解決方法。

6、</p><p><b>　　第一章</b></p><p>　　為什么要開發(fā)一個人事管理系統(tǒng)？計算機已經(jīng)成為我們學習和工作的得力助手：人力資源系統(tǒng)選型時提出了以下要求：     1）．具有先進的人力資源管理理念；    2）．可以滿足多行業(yè)、多公司不同的人力資源管理要求；    3

7、）．實現(xiàn)集團化管理，實時監(jiān)控各個專業(yè)、省市子公司的人力資源情況；    4）．進行多層次數(shù)據(jù)匯總，為各層次管理者的決策分析提供數(shù)據(jù)；    5）．具有完整的系統(tǒng)接口，滿足靈活的數(shù)據(jù)導入與導出。。 </p><p>　　第二章 人事管理系統(tǒng)編程環(huán)境現(xiàn)狀及設計目標簡介</p><p>　　2.1 Delphi和ADO</p>

8、;<p>　　Active Data Objects結合了OLE DB的普遍性質(zhì)—那就是在諸如RDO和DAO模型中可以找到的易于使用的特性.ADO包含了所有可以被OLE DB標準接口描述的數(shù)據(jù)類型.換而言之,ADO是可擴充的,不需要對你的部件做任何工作.數(shù)據(jù)的訪問和操縱是任何實際的應用程序的一個固有部分.對于數(shù)據(jù)來說,無論它是否是關系型的,無論它是否存在一個DBMS,也無論它的存儲平

9、臺是什么,數(shù)據(jù)就是數(shù)據(jù)—一個文件沒有必要一定是給定的二進制格式. 開發(fā)者群體需要具有簡單接口的現(xiàn)代的開發(fā)工具以快速訪問數(shù)據(jù).微軟對此問題的回答是Universal Data Access(UDA通用數(shù)據(jù)訪問)體系結構,對此,Stephen Rauch的文章 “Manage Data from MyriadSources with the&

10、#160;Universal Data Access Interfaces”中有詳細的闡述(MSJ,1997年9月).簡單的說,UDA是一種將OLE DB應用于實際的理論.所有的都被指向一個數(shù)據(jù)源—一個電子表格,一條電子郵件消息,或一份AS/400文檔—由OLE DB接口過濾并以一種通用</p><p>　　在ADO之前的RDO是一種增加DAO的客戶/服務器能力,

11、以提高其性能和可擴充性的當然的方法.根本上說來, RDO是一種位于ODBC API的上層的簡便的封裝.它揭示了了DAO數(shù)據(jù)對象模型中的許多東西,但它缺乏進行數(shù)據(jù)訪問的Jet引擎.雖然這將予ADO更快的速度,但它沒法利用該引擎的許多特性,而且它只能訪問關系型的數(shù)據(jù)庫. ADO 2.0的思想就在于:為不同的應用程序訪問相同的數(shù)據(jù)源創(chuàng)建一個更高層的公用層.盡管存在數(shù)據(jù)結構和組織間的物理位置的不同,編程的接口應該是一樣的

12、.為了找出RDO和ADO之間的更多的不同, “ExploringActiveX Data Objects from an RDO Point of View,"你能在MSDN的技術性文章部分中找到它.ADO的出現(xiàn)并不意味著RDO的結束.實際上,微軟承諾在可以預見的將來繼續(xù)支持RDO</p><p>　　ADO 2.

13、0有什么新特點? 對于ADO1.5以前包括1.5的版本來說,從功能的角度來看RDO和ADO不是完全相等的.等同就意味著你可以通過這兩種方法解決同樣的問題;它不是指存在重命名的或者優(yōu)化的功能相同的對象.因此,移植到ADO不是一個簡單的事情.從另一方面來說,一旦你熟練掌握了RDO或DAO技術的話,學習ADO是件相當容易的事情</p><p>　　ADO 2.0的新特性包括事件處理,記錄集的延續(xù),分層

14、目錄結構指針和數(shù)據(jù)成形,分布式事務處理,多維數(shù)據(jù),遠程數(shù)據(jù)服務(RDS),以及對C++和Java的支持的增強.在鉆研一些Visual Basic代碼的時候?qū)姷剿械倪@些特性.</p><p>　　ADO對象模型是由相對數(shù)量較少的對象組成.不象RDO對象模型,每個主要的ADO對象都能被個別的被創(chuàng)建.這就意味著,舉例說吧,你不需要在創(chuàng)建有效的記錄集對象前創(chuàng)建一個連接.Dim cn

15、0;As New ADODB.ConnectionDim rs As New ADODB.Recordsetcn.Open "Biblio"rs.Open "select * from titles where title like '%h

16、9;", cnADO 2.0對象是Connection,Command,Parameter,Recordset,Field,Error和Property.ADO對象模型也包括四個類集:它們分別是一套相關的Error,Parameter,Property和Field對象.讓我們來看看每個對象的主要特性.</p><p>　　Connection對象提供連接,該連接連接的程序中存有它

17、正在訪問的數(shù)據(jù)源.屬性允許你定義:連接串,命令執(zhí)行以及連接啟動的間隔時間,數(shù)據(jù)提供者,(無論臨時表位置是應該在客戶端還是在服務器端),和對于數(shù)據(jù)的訪問權限.方法有關于如下功能的:執(zhí)行命令,打開和關閉一個連接和管理事務.在許多地方你可以指定你想使用的提供者:通過Provider屬性,在連接字符串中,或者甚至通過Open方法.選擇你最喜歡的實現(xiàn)方式,但要保證你沒有為同樣的連接指定多個的提供者.缺省的提供者(當你沒有指定你自己的提供者的情

18、況下)是MSDASQL,針對ODBC的Microsoft OLE DB提供者. Command對象定義了一個SQL聲明,一個存儲過程,或任何其他的你可能想讓提供者執(zhí)行的關于數(shù)據(jù)的操作.Command的屬性有:當前連接,最大允許執(zhí)行時間和參數(shù)集.一個參數(shù)就是你將它作為參數(shù)傳遞給命令的值.在這些屬性中用以區(qū)分一個參數(shù)的屬性有:方向(輸入,輸出,或者兩者都有),類型當然還有它們的值. 記錄集對象也許是最典型

19、的ADO對象,然而它是最復雜的當中的一個.它表示命令執(zhí)行的結果,并且它大多是以數(shù)據(jù)</p><p><b>　　2.2 sql介紹</b></p><p>　　通過SQL命令，程序設計師或數(shù)據(jù)庫管理員（DBA）可以：　　（一）建立數(shù)據(jù)庫的表格。（包括設置表格所可以使用之空間）　?。ǘ└淖償?shù)據(jù)庫系統(tǒng)環(huán)境設置。　?。ㄈ┽槍δ硞€數(shù)據(jù)庫或表格，授予用戶存取權限。　

20、?。ㄋ模?shù)據(jù)庫表格建立索引值?！　。ㄎ澹┬薷臄?shù)據(jù)庫表格結構。（新建、刪除或是修改表格字段）　?。?shù)據(jù)庫進行數(shù)據(jù)的新建。　?。ㄆ撸?shù)據(jù)庫進行數(shù)據(jù)的刪除?！　。ò耍?shù)據(jù)庫進行數(shù)據(jù)的修改?！　。ň牛?shù)據(jù)庫進行數(shù)據(jù)的查詢?！　∵@幾項便是通過SQL命令可以完成的事情，看起來是不是比起“查詢”兩個字所代表的功能要多的多了呢？ 　　SQL語法的分類　　其實SQL命令并不是非常多，可是要把SQL用到出神入化，卻也只需要短短

21、幾個命令便夠，因為SQL命令是針對關系型數(shù)據(jù)庫所建立出來的語法敘述，所以SQL在這類數(shù)據(jù)庫中所發(fā)揮的功能非常的強，以下將針對在VB中常用的SQL語法基本命令加以分類介紹。在說明SQL的命令以及使用語法之前，以下將SQL做了的分類，在致上SQL語法所使用到的類型，可以說都已包含在這些類別當中。 　　第一類、屬性詞（Predicates）　　在SQ</p><p>　　如前面所述，包括了ALL，DISTINCT,

22、DISTINCTROW,與TOP 我們可以利用這樣的語句去限制查詢后所得的結果。 　　*　　從指定表格中指定所有的字段。 　　table　　針對被選擇出的記錄的字段，所指定表格的名稱。 　field1,field2　　想要讀取數(shù)據(jù)的字段名稱，如果包含了一個以上的字段，會依照列出的順序來讀取數(shù)據(jù)。 　　alias1,alias2　　用來替代在表格實際字段名稱的化名。 　　tableexpression　　表格名稱或包含

23、我們所想要的數(shù)據(jù)的表格。 　　externaldatabase　　若使用到不是目前的數(shù)據(jù)庫則將其名字定義在externaldatabase當中。 　　　ALL,DISTINCT,DISTINCTROW,TOP屬性詞用法　　SELECT [ALL|DISTINCT|DISTINCTROW|[TOP n[PERCENT]]] FROM table 　　ALL　　若是不指定任何的字段數(shù)據(jù)，則Microsoft Jet數(shù)據(jù)庫引擎（d

24、atabase engine）將會選擇所有的字段，并依據(jù)所定的條件查詢出需求</p><p>　　例如下面這兩個例子將會具有相同的效果，都會從職員表格中返回所有字段的數(shù)據(jù)?！　±纾骸　∪羰俏覀円樵兂雎殕T表格中的所有記錄，可以通過下面的語句來完成。</p><p>　　對某個表格所選擇的字段數(shù)據(jù)，略過重復的情況，也就是說，針對某個字段查詢出來的記錄結果是唯一的。例如有許多存放在職

25、員表格的職員　　數(shù)據(jù)，也許會具有相同的姓名，所以若是我們用SQL語句中的SELECT DISTINCT，則查詢出來的結果將會針對不一樣的姓名加以篩選。若是您把　　DISTINCT 加以省略，則這樣的查詢會顯示所有的記錄。 　　DISTINCTROW　　將整條記錄重復的記錄忽略掉，而不是只有針對某一個字段的數(shù)據(jù)。 　　table　　指定查詢記錄所需要的表格。　　例如：　　SELECT DISTINCTROW 公司名稱　　

26、FROM 顧客表格 INNER JOIN 訂單表格　　ON 顧客表格.顧客ID＝訂單表格.顧客ID　　ORDER BY 公司名稱;　　如果您忽略 DISTINCTROW 則會對每個公司產(chǎn)生一行以下的訂單數(shù)據(jù)。此外，若是DISTINCTROW只有用在一個表格當中，則會被省略掉。 　　TOP　　從第一條或最后一條開始（利用ORDER BY條件子句），返回特定條數(shù)的數(shù)據(jù)?！　±纾骸　‘斈胍涝?000年，班上前25名的學生

27、姓名數(shù)據(jù)</p><p>　　ORDER BY條件語句　　此條件子句，通常與SELECT語句合并使用目的是將查詢的結果，依照指定字段加以排序?！　ELECT fieldlist　　FROM table　　WHERE selectcriteria　　ORDER BY field[ASC|DESC][,field2[ASC|DESC][,...]] 　　fieldlist　　欲查詢的字段名稱。其中可以

28、與ALL，DISTINCT，DISINCTROW，或TOP一起來使用。 　　table　　欲查詢的表格名稱。 　　selectcriteria　　查詢的標準設置。 　　field1　　指定要依照那個字段作為排序的依據(jù)，若是你沒有加上ORDER BY查詢出的數(shù)據(jù)集將不會作排序的操作。 　　ASC　　遞增順序類別。(默認值) 　　DESC　　遞減順序類別?！　±纾骸　』蚴俏覀円獙⑤敵鰯?shù)據(jù)依據(jù)出生的先后次序排列，

29、可以利用下面的命令。　　SELECT 姓名，生日　　FROM 職員表格　　ORDER BY 生日　　SELECT LastName,FirstName　　FROM</p><p>　　欲插入數(shù)據(jù)的外部表格名稱。 　　tableexpression　　表格名稱或是被讀取數(shù)據(jù)的表格名稱。這個參數(shù)可以是一個單一的表格名稱，或是一段已經(jīng)被存儲的SQL查詢等。 　　path　　包含該表格的完整路徑名稱。

30、 　　type　　數(shù)據(jù)庫的類型名稱， 通常是當數(shù)據(jù)庫部屬于Jet database時才會使用。(例如：dBASE III,dBASE IV,Paradox 3.x,Paradox 4.x,或 Btrieve) 　　例如：下面這兩段的意義相同</p><p>　　例如：Microsoft Jet database</p><p>　　HAVING 條件子句　　指定一特定的分組記

31、錄，并滿足HAVING 所指定的條件或狀態(tài)，但條件是針對分組的條件設置。</p><p>　　GROUP BY 條件子句　　依據(jù)指定的字段，將具有相同數(shù)值的記錄合并成一條。</p><p>　　FROM 條件子句　　指定表格名稱或是查詢，其中包含列在SELECT語句的字段數(shù)據(jù)。</p><p>　　WHERE 條件子句　　指定查詢的條件與限制。<

32、/p><p>　　BETWEEN...AND 運算符　　決定某一人數(shù)值是否介于特定的范圍之內(nèi)，此運算符只可以用在SQL的語句中。</p><p>　　LIKE 操作數(shù)　　用來將一字符串與另一特定字符串樣式(pattern)比較，并將符合該字符串樣式的記錄過濾出來。</p><p>　　SQL數(shù)字函數(shù)　　1、AVG：算數(shù)平均數(shù)　　AVG(expr) 　　ex

33、pr　　字段名稱或表達式?！　±纾骸　∪粢嬎懵殕T身高超過165厘米的職員平均身高，可以利用下面的SQL語句來完成?！　ELECT Avg(身高)　　AS 平均身高　　FROM 職員表格 WHERE 身高>165； 　　2、COUNT：計算記錄條數(shù)　　COUNT(expr) 　　expr　　字段名稱或表達式?！　±纾骸　∪羰且y(tǒng)計出業(yè)務部門的職員人數(shù)，并查詢出職員的姓名，可以利用下面的程序?！　E

34、LECT Count(姓名) AS 職員姓名　　FROM 職員表格　　WHERE 部門名稱='業(yè)務部'； 　　3、FIRST與LAST：返回某字段的第一條數(shù)據(jù)與最后一條數(shù)據(jù)?！　IRST(expr)　　LAST(expr) 　　expr　　字段名稱或表達式?！　±纾骸　∪羰且页鲐浧窋?shù)量字段的第一條數(shù)據(jù)與貨品價格字段的最后一條數(shù)據(jù)時，可以利用下面的查詢方式?！　ELECT FIRST(貨品數(shù)量)

35、，LAST(貨品價格)　　FROM 訂單表格 　　4、MAX</p><p>　　例如：　　我們先從訂單表格當中，查詢出所有的單位，再將產(chǎn)品表格中的單位與的一一對比，查詢出所有高于訂單表格的單位價格的記錄?！　ELECT * FROM 產(chǎn)品表格　　WHERE 單位價格>ANY (SELECT 單位價格 FROM 訂單表格 WHERE 折扣>=.25)；</p><

36、p>　　5)表中的每一個列值必須是不可分割的基本數(shù)據(jù)項。</p><p>　　注意：當用戶需要新的數(shù)據(jù)結構或表存放數(shù)據(jù)時，首先要生成一個表。</p><p><b>　　語法：</b></p><p>　　CREATE TABLE 表名 [表約束]</p><p>　　(列名1 數(shù)據(jù)類型 [缺省值1，列約束1]&l

37、t;/p><p>　　(列名2 數(shù)據(jù)類型 [缺省值2，列約束2]</p><p><b>　　…</b></p><p>　　列名n 數(shù)據(jù)類型 [缺省值n，列約束n]</p><p>　　[TABLESPACE 表空間名稱]</p><p>　　[STORAGE (存貯的子句）]</p>

38、<p>　　[ENABLE 約束名]</p><p>　　[DISABLE 約束名]</p><p><b>　　插入數(shù)據(jù) </b></p><p>　　當一個表新建成時，它里面沒有數(shù)據(jù)，通過向表中扦入數(shù)據(jù)，建成表的實例。</p><p><b>　　語句句法：</b></p>

39、;<p>　　INSERT INTO 表名[(列名1,…)]</p><p>　　VALUES(值1，值2，…,值n)</p><p><b>　　[子查詢]；</b></p><p>　　假設有一張表Student如下所示：</p><p>　　將新學生E增加到上表中，并按照表的結構將信息添加完整，需要如

40、下語句：</p><p>　　INSERT INTO STUDENT VALUSE(1003, 'E',12);</p><p><b>　　修改數(shù)據(jù) </b></p><p>　　對表中已有數(shù)據(jù)進行修改，語句句法：</p><p>　　UPDATE 表名SET 列名1＝表達式1，列名2＝表達式2，…&l

41、t;/p><p><b>　　WHERE 條件；</b></p><p>　　例如：對下表Student</p><p>　　將B的年紀改為18；應該執(zhí)行以下語句：</p><p>　　UPDATE STUDENT SET AGE=18 WHERE NAME='B';</p><p>

42、<b>　　刪除數(shù)據(jù) </b></p><p>　　刪除表中已有數(shù)據(jù)，不能刪除不存在的數(shù)據(jù)。</p><p><b>　　語句句法: </b></p><p>　　DELETE FROM 表名 WHERE 條件；</p><p><b>　　例如：</b></p>

43、<p>　　對下面Student表進行刪除，要刪除其中年紀為12的學生；</p><p>　　DELETE FROM STUDENT WHERE AGE＝12；</p><p><b>　　表結構的修改 </b></p><p>　　在已存在的表中增加新列，語句句法：</p><p>　　ALTER TABL

44、E 表名 ADD(新列名 數(shù)據(jù)類型(長度))；</p><p><b>　　例如：</b></p><p>　　ALTER TABLE STUDENT ADD (DEPARTMENT CHAR(8));</p><p>　　b.增加已有列的數(shù)據(jù)類型。</p><p><b>　　例如：</b><

45、;/p><p>　　ALTER TABLE STUDENT MODIFY(NAME VARCHAR2(25));</p><p><b>　　表的刪除 </b></p><p>　　將已經(jīng)存在的表刪除，語句句法:</p><p>　　DROP TABLE表名；</p><p><b>　　例

46、如：</b></p><p>　　DROP TABLE EMP；</p><p><b>　　查詢語句 </b></p><p>　　SELECT命令的語法為：</p><p>　　SELECT [DISTINCT|ALL] {*|模式名.] {表名|視圖名|</p><p>　　快照

47、名] .*…| {表達式[列別名]…} } [, [模式名. ] {表名|</p><p>　　視圖名|} .*…| 表達式[列別名] ]…</p><p>　　FROM [模式名.] {表名|視圖名|快照名} [@數(shù)據(jù)庫鏈名] [表別名]</p><p>　　[, [模式名.] {表名|視圖名|快照名} [@數(shù)據(jù)庫鏈名]</p><p>&

48、lt;b>　　[表別名] ]…</b></p><p><b>　　[WHERE條件]</b></p><p>　　[START WITH條件 CONNECT BY 條件]</p><p>　　[GROUP BY表達式[，表達式] …[HAVING條件]</p><p>　　[UNION|UNION A

49、LL |INTERSECT|MINUS]SELECT命令</p><p>　　[ORDER BY{表達式|位置} [ASC|DESC] [, {表達式|位置[ASC|DESC]}]…]</p><p>　　例如：對于STUDENT表:</p><p>　　(1) 查詢年紀為12的學生姓名；</p><p>　　SELECT STUDENT.N

50、AME FROM STUDENT WHERE AGE=12;</p><p>　　(2) 查詢年紀在12至16歲之間的學生姓名；</p><p>　　SELECT STUDENT.NAME FROM STUDENT WHERE AGE BETWEEN 12 AND 16;</p><p>　　(3) 查詢年紀不在12至16歲之間的學生姓名；</p>&

51、lt;p>　　SELECT STUDENT.NAME FROM STUDENT WHERE AGE NOT BETWEEN 12 AND 16;</p><p>　　(4) 查詢所有姓名以A開頭的學生的姓名；</p><p>　　SELECT STUDENT.NAME FROM STUDENT WHERE NAME LIKE 'A%';</p><

52、p>　　(5) 列出所有學生年紀的和，年紀的平均值，最大值，最小值，最大值與最小值之間的差值；</p><p>　　SELECT AVG(AGE), SUM(AGE), MAX(AGE), MIN(AGE), MAX(AGE)-MIN(AGE);</p><p>　　(6) 將所有學生按學號順序升序排列；</p><p>　　SELECT * FROM STU

53、DENT ORDER BY NO DESC;</p><p>　　(7) 將所有學生按學號順序升序排列；</p><p>　　SELECT * FROM STUDENT ORDER BY NO ASC;</p><p>　　第三章 關鍵問題:使用關系型數(shù)據(jù)庫</p><p>　　使用DELPHI 7.0 實現(xiàn)關系型數(shù)據(jù)庫 數(shù)據(jù)庫的概念

54、 使用中文Access 2000可以從單一的數(shù)據(jù)庫文件中組織用戶信息。在此文件中，可將數(shù)據(jù)分開放在名為“表”,也就是前面所說的“數(shù)據(jù)表”的容器中，然后可使用聯(lián)機窗體讓網(wǎng)絡用戶查看、添加并更新表中的數(shù)據(jù)、“查詢”查找并檢索數(shù)據(jù)、使用“報表”按特定的布局分析或打印的數(shù)據(jù)。此外，通過創(chuàng)建數(shù)據(jù)訪問頁還能從Internet上查看與更新或分析數(shù)據(jù)。與前面所介紹的兩個軟件一樣，為了存儲與使用數(shù)據(jù)，可對每一類信息創(chuàng)建一張表，此后就能在窗體、報表、

55、或數(shù)據(jù)訪問頁中將多個表中的數(shù)據(jù)組織到一起，以及定義表之間的關系，以便于查找和檢索僅滿足指定條件的數(shù)據(jù)。初學者應注意，這里的“窗體”是前兩個軟件中沒有的對象。 　　在使用中文Access 2000建立用于構成數(shù)據(jù)庫的表、窗體和其他對象之前，設計數(shù)據(jù)庫是很重要的。因為無論是使用中文Access 2000的數(shù)據(jù)庫或是項目，都需要一個能夠有效而且準確、及時地完成所需功能的數(shù)據(jù)庫。</p><p>　　來打開一個AC

56、CESS數(shù)據(jù)庫?！　∈紫?，數(shù)據(jù)源名是mydb，也就是和系統(tǒng)共同認可的一個數(shù)據(jù)源名，下面，就使用這個數(shù)據(jù)源名，與系統(tǒng)進行對話。　　第一步，建立ADO對象連接。進行這一步的目的是告訴系統(tǒng)我將要使用數(shù)據(jù)庫了，請為我建立一個到數(shù)據(jù)庫的連接。這一步的語法是：set 變量名=server.createobject("adodb.connection").例：set objconn=server.createobjec

57、t("adodb.connection")　　下面來分析這個語句。首先，objconn這個變量是我們自已定的，它代表一個數(shù)據(jù)庫連接。至于server.createobject("adodb.connection")這個語句，一看就可以大致猜出它們的意義，不就是建立一個ADO對象嗎？對了，什么是ADO對象呢？進行每一個數(shù)據(jù)庫的編程時，都要進行這一步。至于道理，我們慢慢會明白的。　　第二步，利

58、用建立的這個連接，來告訴系統(tǒng)要打開的數(shù)源，這個數(shù)據(jù)源就是設置的數(shù)據(jù)源名。它就是mydb。利用它，可以很方便地打開一個數(shù)據(jù)庫。以我們上一課的設置為例，打開我們的db2.</p><p>　　第四章 系統(tǒng)總體規(guī)劃</p><p>　　系統(tǒng)總體規(guī)劃系統(tǒng)功能 1、 登陸界面：</p><p>　　2、. 功能選擇模塊：，進入主界面后可以進行功能的選擇。<

59、/p><p>　　3、 員工信息模塊：按員工信息進行檔案登記。</p><p>　　4、 合同管理模塊：對購銷合同進行管理。</p><p>　　5、工資管理模塊：對人事工資進行管理。</p><p>　　6、退出系統(tǒng)模塊：退出系統(tǒng)返回WIDNOWS界面。</p><p>　　第五章 系統(tǒng)具體實現(xiàn)</p>&

60、lt;p>　　和以前的版本相比，DELPHIP在多數(shù)地方已不需要寫代碼，表單和對象的屬性提供了控制許多對象的方法，但是總有些事情是要用程序去實現(xiàn)的。</p><p>　　5．1．1系統(tǒng)具體實現(xiàn) 登陸界面</p><p>　　在登陸界面的文本輸入密碼，方可進入系統(tǒng)。使用了IF THEN 語句</p><p><b>　　主界面</b>

61、;</p><p>　　主界面包含 1、員工檔案輸入：按員工信息進行檔案登記。</p><p>　　2、員工檔案修改：以表格的方式對員工檔案進行修改。</p><p>　　3、,工資管理模塊：對人事工資進行管理。</p><p><b>　　4、考勤模塊。</b></p><p>　　5、

62、統(tǒng)計模塊：對部門，職位，職級人數(shù)進行統(tǒng)計。</p><p>　　5．1．3 各個模塊的實現(xiàn)</p><p>　　1、員工信息模塊：按員工信息進行檔案登記。</p><p>　　unit Unit2;</p><p><b>　　interface</b></p><p><b>　　us

63、es</b></p><p>　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,</p><p>　　Dialogs, dbcgrids, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls,</p>&l

64、t;p><b>　　Mask;</b></p><p><b>　　type</b></p><p>　　TForm2 = class(TForm)</p><p>　　ADOTable1: TADOTable;</p><p>　　DataSource1: TDataSource;</

65、p><p>　　DBNavigator1: TDBNavigator;</p><p>　　Label1: TLabel;</p><p>　　DBEdit1: TDBEdit;</p><p>　　Button1: TButton;</p><p>　　DBEdit2: TDBEdit;</p><p

66、>　　DBEdit3: TDBEdit;</p><p>　　DBEdit4: TDBEdit;</p><p>　　DBEdit5: TDBEdit;</p><p>　　DBEdit6: TDBEdit;</p><p>　　DBEdit7: TDBEdit;</p><p>　　Label2: TLabel

67、;</p><p>　　Label3: TLabel;</p><p>　　Label4: TLabel;</p><p>　　Label5: TLabel;</p><p>　　Label6: TLabel;</p><p>　　Label7: TLabel;</p><p>　　Label8

68、: TLabel;</p><p>　　DBEdit8: TDBEdit;</p><p>　　Label9: TLabel;</p><p>　　DBEdit9: TDBEdit;</p><p>　　Label10: TLabel;</p><p>　　Label11: TLabel;</p><

69、;p>　　DBEdit10: TDBEdit;</p><p>　　DBEdit11: TDBEdit;</p><p>　　Label12: TLabel;</p><p>　　Label13: TLabel;</p><p>　　DBEdit12: TDBEdit;</p><p>　　Label14: TL

70、abel;</p><p>　　DBEdit13: TDBEdit;</p><p>　　Label15: TLabel;</p><p>　　DBEdit14: TDBEdit;</p><p>　　procedure Button1Click(Sender: TObject);</p><p>　　procedur

71、e Button2Click(Sender: TObject);</p><p><b>　　private</b></p><p>　　{ Private declarations }</p><p><b>　　public</b></p><p>　　{ Public declarations

72、 }</p><p><b>　　end;</b></p><p><b>　　var</b></p><p>　　Form2: TForm2;</p><p>　　implementation</p><p>　　{$R *.dfm}</p><p>

73、;　　procedure TForm2.Button1Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　ADOTable1.Append</p><p><b>　　end;</b></p><p>　　procedure TForm

74、2.Button2Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　ADOTable1.UpdateRecord</p><p><b>　　end;</b></p><p><b>　　end.</b><

75、/p><p>　　2、員工工資管理模塊。</p><p>　　unit Unit3;</p><p><b>　　interface</b></p><p><b>　　uses</b></p><p>　　Windows, Messages, SysUtils, Variant

76、s, Classes, Graphics, Controls, Forms,</p><p>　　Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;</p><p><b>　　type</b></p><p>　　TForm3 = class(TForm)</

77、p><p>　　ADOTable1: TADOTable;</p><p>　　DataSource1: TDataSource;</p><p>　　DBGrid1: TDBGrid;</p><p>　　DBNavigator1: TDBNavigator;</p><p>　　Label1: TLabel;</

78、p><p><b>　　private</b></p><p>　　{ Private declarations }</p><p><b>　　public</b></p><p>　　{ Public declarations }</p><p><b>　　end

79、;</b></p><p><b>　　var</b></p><p>　　Form3: TForm3;</p><p>　　implementation</p><p>　　{$R *.dfm}</p><p><b>　　end.</b></p>

80、<p>　　3、,員工檔案修改模塊。</p><p>　　unit Unit4;</p><p><b>　　interface</b></p><p><b>　　uses</b></p><p>　　Windows, Messages, SysUtils, Variants, Cla

81、sses, Graphics, Controls, Forms,</p><p>　　Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls;</p><p><b>　　type</b></p><p>　　TForm4 = class(TForm)</p>

82、<p>　　ADOTable1: TADOTable;</p><p>　　DataSource1: TDataSource;</p><p>　　DBGrid1: TDBGrid;</p><p>　　DBNavigator1: TDBNavigator;</p><p>　　Label1: TLabel;</p>

83、<p><b>　　private</b></p><p>　　{ Private declarations }</p><p><b>　　public</b></p><p>　　{ Public declarations }</p><p><b>　　end;</

84、b></p><p><b>　　var</b></p><p>　　Form4: TForm4;</p><p>　　implementation</p><p>　　{$R *.dfm}</p><p><b>　　end. </b></p>&

85、lt;p><b>　　4、考勤模塊：。</b></p><p>　　unit Unit5;</p><p><b>　　interface</b></p><p><b>　　uses</b></p><p>　　Windows, Messages, SysUtils,

86、Variants, Classes, Graphics, Controls, Forms,</p><p>　　Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, ExtCtrls, DBCtrls;</p><p><b>　　type</b></p><p>　　TForm5 = class(TFor

87、m)</p><p>　　ADOTable1: TADOTable;</p><p>　　DataSource1: TDataSource;</p><p>　　Label1: TLabel;</p><p>　　DBGrid1: TDBGrid;</p><p>　　DBNavigator1: TDBNavigato

88、r;</p><p><b>　　private</b></p><p>　　{ Private declarations }</p><p><b>　　public</b></p><p>　　{ Public declarations }</p><p><b&g

89、t;　　end;</b></p><p><b>　　var</b></p><p>　　Form5: TForm5;</p><p>　　implementation</p><p>　　{$R *.dfm}</p><p><b>　　end.</b><

90、/p><p><b>　　5．統(tǒng)計界面</b></p><p>　　unit Unit7;</p><p><b>　　interface</b></p><p><b>　　uses</b></p><p>　　Windows, Messages, Sys

91、Utils, Variants, Classes, Graphics, Controls, Forms,</p><p>　　Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;</p><p><b>　　type</b></p><p>　　TForm7 = class(TForm)</p>

92、<p>　　ADOTable1: TADOTable;</p><p>　　DataSource1: TDataSource;</p><p>　　DataSource2: TDataSource;</p><p>　　DataSource3: TDataSource;</p><p>　　DataSource4: TDataS

93、ource;</p><p>　　ADOTable2: TADOTable;</p><p>　　ADOTable3: TADOTable;</p><p>　　ADOTable4: TADOTable;</p><p>　　DBGrid1: TDBGrid;</p><p>　　Label1: TLabel;<

94、/p><p>　　DBGrid2: TDBGrid;</p><p>　　Label2: TLabel;</p><p>　　DBGrid3: TDBGrid;</p><p>　　Label3: TLabel;</p><p>　　DBGrid4: TDBGrid;</p><p>　　Label

95、4: TLabel;</p><p>　　Label5: TLabel;</p><p><b>　　private</b></p><p>　　{ Private declarations }</p><p><b>　　public</b></p><p>　　{ Pub

96、lic declarations }</p><p><b>　　end;</b></p><p><b>　　var</b></p><p>　　Form7: TForm7;</p><p>　　implementation</p><p>　　{$R *.dfm}<

97、/p><p><b>　　end.</b></p><p>　　5．2 數(shù)據(jù)庫的實現(xiàn)</p><p><b>　　員工信息登記表</b></p><p>　　該表主要完成員工信息的錄入、刪除 、更新等功能收銀表： </p><p><b>　　考勤管理：</b&