【正文】 implementation{$R *.dfm}end.5．2 數(shù)據(jù)庫(kù)的實(shí)現(xiàn)員工信息登記表 該表主要完成員工信息的錄入、刪除 、更新等功能收銀表： 檔案號(hào)姓名年齡性別身高體重職位職稱部門進(jìn)公司時(shí)間家庭住址電話手機(jī)身份證號(hào)11133男經(jīng)理高級(jí)經(jīng)濟(jì)師5222女部門經(jīng)理經(jīng)濟(jì)師5334女職員技工5ddddddd女部門經(jīng)理工程師5fff女職員技工50416tsc男職員技工50416ssss男技術(shù)員技術(shù)員50416ee男技術(shù)員技術(shù)員1041622男技術(shù)員技術(shù)員004118sssss男技術(shù)員技術(shù)員0431考勤管理：。 private { Private declarations } public { Public declarations } end。 Label4: TLabel。 Label3: TLabel。 Label2: TLabel。 Label1: TLabel。 ADOTable4: TADOTable。 ADOTable2: TADOTable。 DataSource3: TDataSource。 DataSource1: TDataSource。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls。var Form5: TForm5。 DBNavigator1: TDBNavigator。 Label1: TLabel。type TForm5 = class(TForm) ADOTable1: TADOTable。unit Unit5。var Form4: TForm4。 Label1: TLabel。 DBGrid1: TDBGrid。type TForm4 = class(TForm) ADOTable1: TADOTable。unit Unit4。var Form3: TForm3。 Label1: TLabel。 DBGrid1: TDBGrid。type TForm3 = class(TForm) ADOTable1: TADOTable。unit Unit3。beginend。beginend。var Form2: TForm2。 procedure Button2Click(Sender: TObject)。 DBEdit14: TDBEdit。 DBEdit13: TDBEdit。 DBEdit12: TDBEdit。 Label12: TLabel。 DBEdit10: TDBEdit。 Label10: TLabel。 Label9: TLabel。 Label8: TLabel。 Label6: TLabel。 Label4: TLabel。 Label2: TLabel。 DBEdit6: TDBEdit。 DBEdit4: TDBEdit。 DBEdit2: TDBEdit。 DBEdit1: TDBEdit。 DBNavigator1: TDBNavigator。type TForm2 = class(TForm) ADOTable1: TADOTable。 unit Unit2。 統(tǒng)計(jì)模塊：對(duì)部門，職位，職級(jí)人數(shù)進(jìn)行統(tǒng)計(jì)。,工資管理模塊：對(duì)人事工資進(jìn)行管理。使用了IF THEN 語句主界面主界面包含 員工檔案輸入：按員工信息進(jìn)行檔案登記。 第五章 系統(tǒng)具體實(shí)現(xiàn)和以前的版本相比，DELPHIP在多數(shù)地方已不需要寫代碼，表單和對(duì)象的屬性提供了控制許多對(duì)象的方法，但是總有些事情是要用程序去實(shí)現(xiàn)的。工資管理模塊：對(duì)人事工資進(jìn)行管理。 員工信息模塊：按員工信息進(jìn)行檔案登記。pwd=。database=db2。這樣自然可以用這個(gè)連接的open方法來打開一個(gè)數(shù)據(jù)庫(kù)了。uid是user ID，即用戶名，而pwd則是這個(gè)用戶的訪問密碼，這只有在我們?yōu)檫@個(gè)數(shù)據(jù)庫(kù)加入了密碼之后才有用，我們暫且不討論它?！　∑渲衐sn就是所定的數(shù)源名。uid=。以我們上一課的設(shè)置為例，,可以使用以下語法： dsn=mydb。它就是mydb。至于道理，我們慢慢會(huì)明白的。首先，objconn這個(gè)變量是我們自已定的，它代表一個(gè)數(shù)據(jù)庫(kù)連接。進(jìn)行這一步的目的是告訴系統(tǒng)我將要使用數(shù)據(jù)庫(kù)了，請(qǐng)為我建立一個(gè)到數(shù)據(jù)庫(kù)的連接?！　∈紫龋瑪?shù)據(jù)源名是mydb，也就是和系統(tǒng)共同認(rèn)可的一個(gè)數(shù)據(jù)源名，下面，就使用這個(gè)數(shù)據(jù)源名，與系統(tǒng)進(jìn)行對(duì)話。因?yàn)闊o論是使用中文Access 2000的數(shù)據(jù)庫(kù)或是項(xiàng)目，都需要一個(gè)能夠有效而且準(zhǔn)確、及時(shí)地完成所需功能的數(shù)據(jù)庫(kù)。初學(xué)者應(yīng)注意，這里的“窗體”是前兩個(gè)軟件中沒有的對(duì)象。此外，通過創(chuàng)建數(shù)據(jù)訪問頁(yè)還能從Internet上查看與更新或分析數(shù)據(jù)。第三章 關(guān)鍵問題:使用關(guān)系型數(shù)據(jù)庫(kù)使用DELPHI 實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫(kù) 數(shù)據(jù)庫(kù)的概念 使用中文Access 2000可以從單一的數(shù)據(jù)庫(kù)文件中組織用戶信息。(6) 將所有學(xué)生按學(xué)號(hào)順序升序排列；SELECT * FROM STUDENT ORDER BY NO DESC。A%39。(3) 查詢年紀(jì)不在12至16歲之間的學(xué)生姓名；SELECT FROM STUDENT WHERE AGE NOT BETWEEN 12 AND 16。 查詢語句 SELECT命令的語法為：SELECT [DISTINCT|ALL] {*|模式名.] {表名|視圖名|快照名] .*…| {表達(dá)式[列別名]…} } [, [模式名. ] {表名|視圖名|} .*…| 表達(dá)式[列別名] ]…FROM [模式名.] {表名|視圖名|快照名} [數(shù)據(jù)庫(kù)鏈名] [表別名][, [模式名.] {表名|視圖名|快照名} [數(shù)據(jù)庫(kù)鏈名][表別名] ]…[WHERE條件][START WITH條件 CONNECT BY 條件][GROUP BY表達(dá)式[，表達(dá)式] …[HAVING條件][UNION|UNION ALL |INTERSECT|MINUS]SELECT命令[ORDER BY{表達(dá)式|位置} [ASC|DESC] [, {表達(dá)式|位置[ASC|DESC]}]…]例如：對(duì)于STUDENT表:NONAMEAGE1001AE121002BT14(1) 查詢年紀(jì)為12的學(xué)生姓名；SELECT FROM STUDENT WHERE AGE=12。 例如： 表的刪除 將已經(jīng)存在的表刪除，語句句法: ALTER TABLE STUDENT MODIFY(NAME VARCHAR2(25))。 ALTER TABLE STUDENT ADD (D