玩具出租課程設(shè)計

16/16玩具出租課程設(shè)計玩具出租管理信息系統(tǒng)

目錄

一、玩具出租管理信息系統(tǒng)……………（3）

1.1開發(fā)背景………………（3）

1.2新系統(tǒng)目標(biāo)……………（3）

1.3系統(tǒng)的可行性分析……（3）

二、玩具出租管理信息系統(tǒng)分析………（4）

2．1業(yè)務(wù)流程分析…………（4）

2.2數(shù)據(jù)流程分析…………（5）

2.3數(shù)據(jù)字典………………（6）

三、玩具出租管理信息系統(tǒng)設(shè)計(10)

3.1系統(tǒng)總體結(jié)構(gòu)分析…………………（10）

3.2數(shù)據(jù)庫設(shè)計…………（10）

3．3功能層次分析………（13）

3.4輸入輸出設(shè)計………（14）

3.5物理配置方案設(shè)計…………………（15）

四、協(xié)會經(jīng)費管理系統(tǒng)實施

4.1系統(tǒng)開發(fā)環(huán)境………（15）4.2模塊功能實現(xiàn)………（15）

4.3代碼設(shè)計……………（20）

五、總結(jié)……………………（27）

1.3.3技術(shù)可行性

本系統(tǒng)采用delphi和SQLSERVER相結(jié)合的方法來實現(xiàn)。要求所有數(shù)據(jù)信息的儲存都由數(shù)據(jù)庫來完成，而這些數(shù)據(jù)信息的調(diào)用由delphi完成。系統(tǒng)采用Client/Server（客戶/服務(wù)器）模式，與傳統(tǒng)主機——終端模式和文件服務(wù)器相比，既能夠降低對服務(wù)器要求過高的要求，又能大大減少網(wǎng)絡(luò)通信量，而且在結(jié)構(gòu)上也具有很大的靈活性，在安全上也可以得到充分地保證。所以本系統(tǒng)在技術(shù)上是完全可行的。

二、玩具出租管理信息系統(tǒng)分析

2．1業(yè)務(wù)流程分析

店長營業(yè)員碟片出租管理信息系統(tǒng)

顧客

登

錄

查詢影碟情況查詢財務(wù)狀況

會員管理員工管理

查詢碟片信息查詢碟片信息

查詢出租日志

查詢碟片信息

碟片出租和歸還

現(xiàn)金收支記錄

會員信息管理

一般顧客

會員

2.1.1玩具出租業(yè)務(wù)流程

玩具出租主要以會員出租為主，流程如下：

1、顧客到店里登記注冊為會員，并繳納會費，即可租借玩具。

2、租借過程：查詢庫存，若沒有，立即告知會員下次再來；若有，則進(jìn)入出

租處理階段。

3、出租處理階段：由計算機自動完成，分為三項工作。先將“玩具資料”表

中此玩具的狀態(tài)由“在庫”改為“借出”，更改其“租借次數(shù)”字段的值增加1；修改“會員資料”表對應(yīng)會員的“已租借數(shù)量”字段增加1；添加一條租借記錄。4、玩具交付給會員。

散客租借的流程與會員租借類似，沒有上面的第1步。

2.1.2玩具歸還業(yè)務(wù)流程

現(xiàn)以會員歸還玩具為例說明，散客歸還情況類似。歸還業(yè)務(wù)流程：

1、會員持玩具到店內(nèi)歸還。

2、店員檢查玩具是否損壞，若是，則告訴會員，需要扣留一部分押金，并作

記錄，進(jìn)入歸還登記階段；若沒損壞，直接進(jìn)入歸還登記階段。3、歸還登記階段：由計算機自動完成，共有兩項工作。修改玩具資料中此玩

具的狀態(tài)為“在庫”，在租借記錄表上相對應(yīng)的條口的“歸還日期”字段填寫上當(dāng)前日期。

2.2數(shù)據(jù)流程分析

圖2.2.1是會員租借玩具的數(shù)據(jù)流程圖，圖2.2.2是歸還玩具數(shù)據(jù)流程圖

顧客

入會登記注冊信

息

會員

碟片資料庫

出租處理

添加處理

租借記錄表

修改碟片狀態(tài)

和租借次數(shù)會員資料

修改

碟片交付

查詢

反饋

圖2.2.1會員租借玩具的數(shù)據(jù)流程圖

會員歸還登記

管理員

碟片資料庫

檢查

歸還碟片

租借記錄列表

損壞告知

修改

修改碟片狀態(tài)

圖2.2.2歸還玩具數(shù)據(jù)流程圖

2.4數(shù)據(jù)字典

2.4.1數(shù)據(jù)項卡片

（1）數(shù)據(jù)項名：玩具編號

別名：玩具號碼

簡述：玩具的唯一標(biāo)識號碼類型及寬度：整型，4位（2）數(shù)據(jù)項名：租借者編號別名：租碟者

簡述：租借人員的唯一標(biāo)識類型及寬度：整型，4位（3）數(shù)據(jù)項名：玩具名稱別名：玩具名字

簡述：整個字符串組成玩具名稱類型及寬度：變長字符型，20位（4）數(shù)據(jù)項名：租借者姓名別名：租碟的人都名字

簡述：前面一位或兩位為姓，后面為名類型及寬度：變長字符型，20位（5）數(shù)據(jù)項名：租借日期別名：出租時間簡述：租借的時間

類型及寬度：時間數(shù)據(jù)類型，8位

（6）數(shù)據(jù)項名：押金

別名：擔(dān)保金

簡述：顧客預(yù)存的現(xiàn)金，以防止玩具的人為損壞

類型及寬度：貨幣數(shù)據(jù)類型，8位

（7）數(shù)據(jù)項名：租金

別名：租碟費用

簡述：顧客租碟所付的費用

類型及寬度：貨幣數(shù)據(jù)類型。8位

（8）數(shù)據(jù)項名：剩余數(shù)量

別名：剩余量

簡述：玩具的剩余庫存量

類型及寬度：整型，4位

（9）數(shù)據(jù)項名：會員編號

別名：會員號碼

簡述：會員的唯一標(biāo)識號碼

類型及寬度：整型，4位

（10）數(shù)據(jù)項名：會員姓名

別名：會員名字

簡述：會員的名字

類型及寬度：變長字符型，20位

（11）數(shù)據(jù)項名：玩具類型

別名：玩具樣式

簡述：可根據(jù)此來分辨玩具的類型

類型及寬度：變長字符型，10位

2.4.2數(shù)據(jù)流卡片

（1）數(shù)據(jù)流名：系統(tǒng)設(shè)置

簡述：據(jù)管理員輸入的信息要求修改密碼并將修改后的密碼保存進(jìn)系統(tǒng)數(shù)據(jù)流來源：管理員輸入

數(shù)據(jù)流去向：存入系統(tǒng)

數(shù)據(jù)流組成：組成密碼的字符

（2）數(shù)據(jù)流名：查詢玩具信息

簡述：從系統(tǒng)中查詢出玩具的各種信息，并反饋給顧客

數(shù)據(jù)流來源：查詢得出的結(jié)果

數(shù)據(jù)流去向：反饋給顧客

數(shù)據(jù)流組成：查詢出的符合顧客要求的玩具的信息

（3）數(shù)據(jù)流名：出租玩具給顧客

簡述：記錄出租玩具給顧客的過程

數(shù)據(jù)流來源：玩具查詢子系統(tǒng)查得信息

數(shù)據(jù)流去向：玩具出租總系統(tǒng)

數(shù)據(jù)流組成：玩具出租的租金、押金和租借日期等

（4）數(shù)據(jù)流名：顧客歸還玩具

簡述：消除玩具出租子系統(tǒng)中相關(guān)的租借記錄

數(shù)據(jù)流來源：管理員輸入相關(guān)信息

數(shù)據(jù)流去向：玩具歸還子系統(tǒng)

數(shù)據(jù)流組成：玩具名稱，歸還日期等

（5）數(shù)據(jù)流名：庫存管理

簡述：存儲商店庫存中玩具的各種詳細(xì)信息

數(shù)據(jù)流來源：管理員輸入相關(guān)信息

數(shù)據(jù)流去向：庫存管理子系統(tǒng)

數(shù)據(jù)流組成：玩具信息，玩具狀態(tài)等

（6）數(shù)據(jù)流名：資金結(jié)算

簡述：用于結(jié)算租金，歸還押金等

數(shù)據(jù)流來源：顧客租借行為

數(shù)據(jù)流去向：資金結(jié)算子系統(tǒng)

數(shù)據(jù)流組成：租金，押金

（7）數(shù)據(jù)流名：會員管理

簡述：管理會員信息，查詢會員租借狀態(tài)等

數(shù)據(jù)流來源：管理員輸入相關(guān)信息

數(shù)據(jù)流去向：會員管理子系統(tǒng)

數(shù)據(jù)流組成：會員信息，租借狀態(tài)等

2.4.3數(shù)據(jù)結(jié)構(gòu)卡片

（1）數(shù)據(jù)結(jié)構(gòu)名：玩具

簡述：玩具查詢系統(tǒng)的主題數(shù)據(jù)結(jié)構(gòu)，解釋了一盤玩具的詳細(xì)信息

組成：玩具編號，玩具名稱，主演，導(dǎo)演，進(jìn)貨時間

（2）數(shù)據(jù)結(jié)構(gòu)名：租借者

簡述：玩具出租系統(tǒng)的數(shù)據(jù)結(jié)構(gòu)，記錄了顧客的詳細(xì)信息

組成：顧客編號，顧客姓名，性別，聯(lián)系電話

（3）數(shù)據(jù)結(jié)構(gòu)名：租借管理

簡述：玩具出租系統(tǒng)的主題數(shù)據(jù)結(jié)構(gòu)，記錄了顧客租碟過程的詳細(xì)信息

組成：DVD編號，租借者編號，租借日期，歸還日期，押金，租金（4）數(shù)據(jù)結(jié)構(gòu)名：玩具庫存

簡述：玩具庫存系統(tǒng)的主題數(shù)據(jù)結(jié)構(gòu)，記錄了商店玩具的庫存信息

組成：玩具編號，玩具名稱

（5）數(shù)據(jù)結(jié)構(gòu)名：會員

簡述：會員管理系統(tǒng)的主題數(shù)據(jù)結(jié)構(gòu)，記錄了會員的詳細(xì)信息

組成：會員編號，會員姓名，會員類型，聯(lián)系電話，性別，聯(lián)系地址

2.4.4數(shù)據(jù)存儲卡片

（1）數(shù)據(jù)存儲名：玩具信息表

簡述：記錄玩具的詳細(xì)信息

組成：DVD標(biāo)號，DVD名稱，主演，導(dǎo)演，進(jìn)貨日期

有關(guān)的數(shù)據(jù)流：管理員輸入信息，查詢后顯示的結(jié)果

數(shù)據(jù)量：每天一份

（2）數(shù)據(jù)存儲名：租借者信息表

簡述：記錄租借者的相關(guān)信息

組成：租借者姓名。性別。聯(lián)系電話

有關(guān)的數(shù)據(jù)流：管理員輸入信息，輸入信息完成后的結(jié)果

數(shù)據(jù)量：每天一份

（3）數(shù)據(jù)存儲名：租借管理表

簡述：記錄租借者的相關(guān)信息

組成：DVD編號，租借日期，歸還日期，租金，押金

數(shù)據(jù)量：每天一份

（4）數(shù)據(jù)存儲名：玩具庫存表

簡述：記錄商店的玩具庫存信息

組成：DVD編號，DVD名稱，數(shù)量

數(shù)據(jù)量：每天一份

（5）數(shù)據(jù)存儲名：會員信息表

簡述：保持會員的各種信息

組成：會員編號，會員名字，會員類型，聯(lián)系電話，性別，地址

數(shù)據(jù)量：每天一份

2.4.5處理邏輯卡片

（1）處理過程名：系統(tǒng)設(shè)置

輸入數(shù)據(jù)流：輸入信息

輸出數(shù)據(jù)流：修改后的信息

處理過程邏輯：根據(jù)用戶自己想法修改（2）處理過程名：查詢玩具信息

輸入數(shù)據(jù)流：根據(jù)顧客要求輸入查詢關(guān)鍵字輸出數(shù)據(jù)流：得到查詢結(jié)果

處理過程邏輯：根據(jù)顧客要求查詢的玩具查詢（3）處理過程名：出租玩具給顧客輸入數(shù)據(jù)流：查詢玩具信息后的結(jié)果輸出數(shù)據(jù)流：出租玩具

處理過程邏輯：根據(jù)系統(tǒng)數(shù)據(jù)庫要求錄入信息（4）處理過程名：玩具歸還

輸入數(shù)據(jù)流：已出租玩具的信息輸出數(shù)據(jù)流：玩具庫存子系統(tǒng)的信息

處理過程邏輯：根據(jù)顧客歸還的玩具輸入信息

三、玩具出租管理信息系統(tǒng)設(shè)計

3.1系統(tǒng)總體結(jié)構(gòu)分析

玩具出租系統(tǒng)，從總體結(jié)構(gòu)上包括七個部分：登錄、玩具出租歸還、用戶管理、玩具管理、用戶玩具統(tǒng)計、出租玩具統(tǒng)計、幫助如下圖3.1.1所示。

主系統(tǒng)

碟片管理子系統(tǒng)

用戶碟片統(tǒng)計子系統(tǒng)出租碟片統(tǒng)計子系統(tǒng)

幫助子系統(tǒng)

用戶管理子系統(tǒng)

碟片出租歸還子系統(tǒng)

登錄子系統(tǒng)

圖3.1.1系統(tǒng)總體結(jié)構(gòu)圖

3.2數(shù)據(jù)庫設(shè)計

3.2.1概念模型設(shè)計E-R圖：

店長

查詢

員工

會員

ID

密碼

查詢

編號

姓名

密碼

編號

姓名

密碼

性別

工作時間

剩余碟數(shù)經(jīng)辦人經(jīng)辦時間

圖E-R圖

3.2.2數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計

對以上的E-R圖所需的實體的幾個關(guān)鍵表的設(shè)計如下：表名：一般用戶

字段名編號辦理時間經(jīng)辦人類型整型時間字符型長度4810約束主鍵

表名：會員客戶

字段名編號名字證件號密碼辦理時間經(jīng)辦人

剩余碟數(shù)類型整型字符型字符型字符型時間字符型整型長度41010108104約束主鍵

表名：會員資金記錄表

字段名編號收入辦理時間經(jīng)辦人類型整型money時間字符型長度48810約束主鍵

表名：借還過程表字段名類型長度約束自動編號字符型10主鍵玩具號字符型10客戶號字符型10

租借時間時間8

歸還時間時間8

租碟操作員字符型10

還碟操作員字符型10

會員驗證整型40/1

備注字符型20

表名：操作員管理表

字段名編號姓名性別身份密碼工作時間

類型整型字符型字符型字符型字符型時間

長度41024108

約束主鍵

表名：玩具管理表

字段名類型長度約束

編號整型4

名稱字符型10

類別字符型10

國家字符型10

主演字符型10

表名資金記錄表

字段名類型長度約束

編號字符型10主鍵

客戶號字符型10

押金money8

玩具號字符型10

余額money8

操作字符型2

交易時間時間8

操作員號字符型10

收入Money8

支出money8

備注字符型10

3.2.3關(guān)系描述設(shè)計

從理論“E-R模型”到理論“關(guān)系模型”的整理轉(zhuǎn)換。

通過E-R模型到關(guān)系模型的轉(zhuǎn)化，可以得到如下關(guān)系模式：

操作員（操作員編號，姓名，性別，密碼，工作時間）

一般顧客（編號，經(jīng)辦人，經(jīng)辦時間）

會員（會員編號，姓名，證件號，密碼，剩余碟數(shù)，經(jīng)辦人，經(jīng)辦時間）玩具信息表（玩具編號，名稱，類型，國家，主演，單價，庫存，購入時

間，經(jīng)辦人）

資金記錄表（自動編號，客戶編號，玩具編號，交易時間，操作員編號，操作，支出，收入，余額，備注）

會員資金記錄表（會員編號，收入，經(jīng)辦時間，經(jīng)辦人）

借還過程表（自動編號，玩具編號，客戶編號，租借時間，歸還時間，租碟操作員，還碟操作員，會員驗證，備注）

3.3功能層次分析

3.3.1系統(tǒng)的具體功能

本系統(tǒng)實現(xiàn)了以下的功能：

（1）管理者（店長）模塊：查詢玩具的信息；查詢相關(guān)的財務(wù)信息；

會員的管理。

（2）營業(yè)員（操作員）模塊：查詢玩具信息；進(jìn)行玩具的出租；進(jìn)行玩具的歸還；現(xiàn)金的收支記錄；會員的管理。

（3）顧客模塊：一般的顧客只能進(jìn)行玩具信息的查詢，會員可以查詢玩具信息；查詢自己的玩具出租日志。

3.3.2系統(tǒng)功能模塊圖

店長（管理者）所涉及到的相關(guān)活動如下圖所示：

店長

查詢影碟情況查

詢

財

務(wù)

狀

況

會

員

管

理

員

工

管

理

店長在這里參與的活動主要是查詢?nèi)粘５耐婢叱鲎馇闆r和財務(wù)狀況以便了解該店的經(jīng)營狀況，作出相應(yīng)的決策。還有就是對會員的管理，店長對會員的管理主要是了解會員的數(shù)量等查詢工作并有權(quán)注消有問題的會員；而對員工的管理只是了解不同員工的上班時間和他的相關(guān)的業(yè)績。

營業(yè)員的活動圖如下：

營業(yè)員

碟片管理查

詢

碟

片

信

息

碟

片

出

租

碟

片

歸

還

現(xiàn)

金

收

支

由于營業(yè)員是本系統(tǒng)的主要的使用者所以其涉及的活動較多。玩具管理是指對玩具信息的錄入、更新、修改和刪除。查詢玩具信息是在出租玩具時進(jìn)行的，以了解是否有該玩具和庫存等信息。玩具的出租和歸還是指在玩具的出租和歸還時進(jìn)行信息的記錄?，F(xiàn)金收支是指對進(jìn)出帳目的記錄統(tǒng)計等。

顧客的活動圖如下：

顧客

一般顧客會員

查詢碟片信息查

詢

碟

片

信

息

查

詢

碟

片

出

租

日

志

顧客分為一般顧客和會員，他們都能對玩具信息進(jìn)行查詢以便其出租，而會員還可以查詢他自己的出租日志，了解其已租的碟數(shù)、信息和未租碟數(shù)。

3.4輸入輸出設(shè)計

3.4.1輸入設(shè)計

目標(biāo)：提高效率，和減少錯誤

輸入方式：采用鍵盤輸入的方式

輸入格式：根據(jù)內(nèi)容采用規(guī)定好的格式，如年月日等

校對方式：系統(tǒng)中有相應(yīng)的程序設(shè)計，如果有不適當(dāng)?shù)男畔⑤斎?，將會有對?yīng)當(dāng)信息框進(jìn)行提示一阻止不適當(dāng)?shù)男畔⑤斎?/p>

3.4.2輸出設(shè)計

輸出設(shè)方式：采用報表輸出的方式

報表輸出的是查詢結(jié)果、統(tǒng)計信息等可以應(yīng)用TXT格式輸出的內(nèi)容。3.5物理配置方案設(shè)計

開發(fā)環(huán)境：

CPU：IntelPentium42GHz

內(nèi)存：512MB

操作系統(tǒng)：MicrosoftWindowsServer2000+IIS5

數(shù)據(jù)庫在MicrosoftSQLServer2000中文企業(yè)版

推薦用戶配置：

CPU：IntelPentium31.2GHz或更高

內(nèi)存：256MB或更高

操作系統(tǒng)：Microsoft2000Server或更高

數(shù)據(jù)庫系統(tǒng)：MicrosoftSQLServer2000

四協(xié)會經(jīng)費管理系統(tǒng)實施

4.1系統(tǒng)開發(fā)環(huán)境

系統(tǒng)開發(fā)工具DELPHI7.0

Delphi作為一種可視化的編程環(huán)境，提供了方便、簡介的Windows應(yīng)用程序開發(fā)工具。

Delphi使用了MicrosoftWindows圖形用戶界面的許多先進(jìn)特性和設(shè)計思想，采用了可重復(fù)利用的完整的面向?qū)ο蟮某绦蛘Z言，是當(dāng)今最快的編輯器，擁有領(lǐng)先的數(shù)據(jù)庫技術(shù)。

4.2模塊功能實現(xiàn)

4.2.1創(chuàng)建數(shù)據(jù)庫并建立數(shù)據(jù)庫別名

選擇“開始”|“程序”|BorlandDelphi7|BDEAdministrator,即可打開下圖所示的BDE管理器。

圖4.2.1是協(xié)會經(jīng)費管理信息系統(tǒng)BDEAdminstrator截圖

圖4.2.1：協(xié)會經(jīng)費管理信息系統(tǒng)BDEAdminstrator截圖

4.2.2應(yīng)用SQLServer數(shù)據(jù)庫管理系統(tǒng)創(chuàng)建數(shù)據(jù)庫和表。

在D盤新建一個文件夾，名為“custom”。

打開“企業(yè)管理器”，并將“控制臺根目錄”里面的各級子目錄一一點開→右鍵點“數(shù)據(jù)庫”→給數(shù)據(jù)庫命名為“custom”,點“數(shù)據(jù)文件”頁面，點“位置”，將“custom_Data”文件存入D盤我們剛建的“custom”文件夾；同樣點“事務(wù)日志”，將“custom_Log”存入D盤我們剛建的“custom”文件夾，并點“確定”。如此就建立了一個參數(shù)為缺省值的新數(shù)據(jù)庫→右鍵點”custom”數(shù)據(jù)庫,然后點“新建”選項，然后點“表”，如此可在數(shù)據(jù)庫YGGL中建立了一個表，并設(shè)計表的結(jié)構(gòu)

4.2.3、連接SQLServer數(shù)據(jù)庫中的表。

1．創(chuàng)建一個新項目。

2．設(shè)計窗體。

(1)在ADO組件面板上放置一個TADOConnection和TADOQuery組件；在DataAccess組件面板上放置一個TDataSource組件；在DataControls組件面板上放置一個TDBGrid、TDBNavigator組件。

圖4.2.1數(shù)據(jù)庫、員工管理表的創(chuàng)建截圖

(2)設(shè)置ADOConnection1組件屬性。該組件專門用于連接數(shù)據(jù)庫。

點“ConnectionString”屬性→“Build”→“MicrosoftOLEDBproviderforSQLServer”→“下一步”→選“使用WindowsNT集成安全設(shè)置”→在服務(wù)器上選擇數(shù)據(jù)庫“yggl”→“測試連接”→“確定”→“OK”→點ADOConnection1組件“Connected”屬性，設(shè)置為“true”。

（3）設(shè)置ADOQuery1組件屬性。該組件用于通過數(shù)據(jù)庫連接將數(shù)據(jù)庫中符合需要的數(shù)據(jù)選出，形成一個數(shù)據(jù)集合。

點“connecttion”屬性設(shè)置為“ADOConnection1”；點“SQL”屬性，寫下“select*fromemployees”語句。點“Active”屬性為“true”。

（4）設(shè)置DataSource1組件屬性。該組件從數(shù)據(jù)集合中選出需要的數(shù)據(jù)顯示在DBGrid窗口中。

點“DataSet”屬性選“ADOQuery1”。

（5）設(shè)置DBGrid1組件屬性。該組件用于顯示數(shù)據(jù)。

點“DataSource”屬性，設(shè)置為“DataSource1”。

（6）設(shè)置“TDBNavigator1”組件屬性。該組件用于對數(shù)據(jù)集合中的數(shù)據(jù)（DBGrid窗口顯示的數(shù)據(jù)）進(jìn)行瀏覽、修改、增加和刪除等操作。

點“DataSource”屬性，設(shè)置為“DataSource1”。

（7）設(shè)計好的界面如圖4.2.1所示

根據(jù)上圖的做法，依次創(chuàng)建顧客管理表、玩具借還表、玩具管理表，分別如圖4.2.3.圖4.2.4，圖4.2.5

圖4.2.3數(shù)據(jù)庫、顧客管理表的創(chuàng)建截圖

4.2.4數(shù)據(jù)庫、玩具借還的創(chuàng)建截圖

4.2.5數(shù)據(jù)庫、玩具管理表的創(chuàng)建截圖

4.2.2窗體

1.創(chuàng)建工程DBDEMOS.dpr

2.登陸窗體

圖4.2.2登錄窗體

(1)確定

begin

withq_yhgldo

begin

close;//關(guān)閉yhgl數(shù)據(jù)集

sql.Clear;//消除

sql.add('select*fromyhglwhere用戶名=:aand密碼=:b');parambyname('a').asstring:=trim(edit1.text);//在edit1中輸入用戶名parambyname('b').asstring:=trim(edit2.text);//在edit2中輸入密碼open;//打開

end;

ifq_yhgl.RecordCount>0then

mainform.show//如果用戶名和密碼輸入都正確則顯示主窗體else

showmessage('用戶名或密碼錯誤，請再輸入');

//如果用戶名或密碼輸入錯誤誤則出現(xiàn)提示框提醒用戶輸入錯誤end;

（2）取消

Close;//取消操作

圖4.2.3主窗體

圖4.2.4員工管理

圖4.2.5玩具借還記錄查詢

代碼如下：

按歸還時間查詢

withcuzudiepiando

begin

close;//關(guān)閉srgl數(shù)據(jù)集sql.clear;//消除

sql.add('select*fromsrglwhere類型=:a');

parambyname('a').asstring:=combobox1.text;

//在表中顯示combobox1中所顯示類型的全部列的數(shù)據(jù)open;//打開

4.3代碼設(shè)計

1．進(jìn)入EmployeesInfoFrom窗體的“OnCreate”事件代碼：

procedureTEmployeesInfoFopm.FormCreate(Sender:TObject);

begin

button5.Enabled:=false;//將保存按鈕屏蔽

withADOQuery1do//將數(shù)據(jù)庫表中數(shù)據(jù)取出，在內(nèi)存中形成數(shù)據(jù)集合begin

close;

sql.Clear;

sql.Add('Select*FromEmployees');

open;

end;

ifADOQuery1.RecordCount>0then//如果取出了數(shù)據(jù)

begin

Combobox1.Clear;//將ComboBox1組件下拉框清空

whilenotadoquery1.Eofdo//當(dāng)數(shù)據(jù)集合中的數(shù)據(jù)未到最后一條時

begin

combobox1.Items.Add(ADOQuery1.Fields[0].value);//將每條數(shù)據(jù)的

第一

ADOQuery1.Next;//項（員工編號）加入end;//到復(fù)合框中，移到下end;//一條數(shù)據(jù)

end;

2．ComboBox1的“KeyPress”事件代碼：

procedurehttp://./doc/d281722ecfc789eb172dc883.htmlboBox1KeyPress(Sender:TObject;

//保證往復(fù)

varKey:Char;//合框中輸入正確的字符var

l:boolean;

begin

l:=(key#8)and(key=#46)and(key#57);

iflthenkey:=#0;

end;

3．“查詢”按鈕代碼：

procedureTEmployeesInfoFopm.Button1Click(Sender:TObject);//查詢按鈕

begin

Button3.Enabled:=true;//將對應(yīng)的按鈕屏蔽

Button4.Enabled:=true;

Button5.Enabled:=false;

withADOQuery1do//將數(shù)據(jù)庫表中數(shù)據(jù)取出，在內(nèi)存中形成數(shù)據(jù)集合

begin

close;

sql.Clear;

sql.Add('select*fromemployeeswhereemployeeid=:a');

//把員工編號為動態(tài)參數(shù)a的數(shù)據(jù)從表中取出

parameters.ParamByName('a').Value:=combobox1.Text;

//給動態(tài)參數(shù)a賦值

open;//執(zhí)行SQL語句

end;

edit1.Text:=adoquery1.fieldbyname('name').AsString;

//將表中一條數(shù)據(jù)的各屬性賦值為各編輯框

edit2.Text:=adoquery1.fieldbyname('sex').AsString;

edit3.Text:=adoquery1.fieldbyname('statue').AsString;

edit4.Text:=adoquery1.fieldbyname('code').AsString;

edit5.Text:=adoquery1.fieldbyname('test').AsString;

end;

4．“添加”按鈕代碼：

procedureTEmployeesInfoFopm.Button2Click(Sender:TObject);//添加按鈕begin

Button3.Enabled:=false;//屏蔽各按鈕

Button4.Enabled:=false;

Button5.Enabled:=true;

Combobox1.Text:='';//將各控件清空

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

end;

5．“保存”按鈕代碼：

procedureTEmployeesInfoFopm.Button5Click(Sender:TObject);//保存按鈕begin

ifmessagedlg('你要保存新添加的員工信息？',mtconfirmation,[mbyes,mbno],0)=mryesthen//對話框

begin

if(combobox1.Text='')or(length(combobox1.Text)6)then

//如果輸入的字符//為空或超過6位則重新輸入

showmessage('請輸入六位編號')

else

begin

try

withadoquery1do

begin

close;

sql.Clear;

sql.Add('Insertintoemployeesvalues(:a,:b,:c,:d,:e,:f,)');

//調(diào)用Insert語句往表中插入數(shù)據(jù)

parameters.ParamByName('a').Value:=trim(combobox1.Text);

//給各動態(tài)參數(shù)賦值

parameters.ParamByName('b').Value:=trim(edit1.Text);parameters.ParamByName('c').Value:=strtodate(trim(edit2.Text));

parameters.ParamByName('d').Value:=trim(edit3.Text);

parameters.ParamByName('e').Value:=trim(edit4.Text);

parameters.ParamByName('f').Value:=trim(edit5.Text);

execsql;//執(zhí)行SQL語句

end;

Button3.Enabled:=true;//使按鈕可用

Button4.Enabled:=true;

application.MessageBox('保存成功!','提示',MB_OK);

//如果上述代碼出現(xiàn)故障則給出提示

Button5.Enabled:=false;

except

application.MessageBox('保存出錯!','提示',MB_OK);

end;

end;

end;

end;

6．“修改”按鈕的代碼：

procedureTEmployeesInfoFopm.Button3Click(Sender:TObject);//修改按鈕

begin

ifapplication.MessageBox('要修改員工信息嗎？','提示',mb_yesno)=id_yesthen

showmessage('請輸入六位編號')

else

begin

try

adoconnection1.BeginTrans;

//開始一個事務(wù)，事務(wù)時數(shù)據(jù)庫技術(shù)的一個概念，表示連續(xù)一段過程

withadoquery1do

begin

close;

sql.Clear;//嵌入Update語句對表中數(shù)據(jù)進(jìn)行修改

sql.Add('updateemployeessetname=:b,birthday=:c,sex=:d,address=:e,zip=:f,');

sql.Add('phonenumber=:g,email=:h,departmentid=:iwhereemployeeid=:a');

parameters