楊海斌

江蘇省興化市運(yùn)輸管理處，江蘇興化 225700

書店調(diào)撥系統(tǒng)和業(yè)務(wù)查詢系統(tǒng)設(shè)計(jì)

楊海斌

江蘇省興化市運(yùn)輸管理處，江蘇興化 225700

新華書店業(yè)務(wù)量越來越大，原有的進(jìn)書管理系統(tǒng)已經(jīng)不能滿足日常業(yè)務(wù)的需要。本文針對(duì)業(yè)務(wù)調(diào)撥系統(tǒng)和業(yè)務(wù)查詢系統(tǒng)的設(shè)計(jì)進(jìn)行了論述。

書店；業(yè)務(wù)；調(diào)撥；查詢；設(shè)計(jì)

新華書店的進(jìn)書管理工作是書店各項(xiàng)業(yè)務(wù)的前提，隨著圖書業(yè)務(wù)量越來越大，原有的進(jìn)書管理系統(tǒng)已經(jīng)不能滿足日常業(yè)務(wù)的需要。為此，開發(fā)一套新的進(jìn)書管理系統(tǒng)成為該店迫切的需要。本文針對(duì)業(yè)務(wù)調(diào)撥系統(tǒng)和業(yè)務(wù)查詢系統(tǒng)的設(shè)計(jì)，做詳細(xì)闡述。

1 業(yè)務(wù)調(diào)撥系統(tǒng)

業(yè)務(wù)調(diào)撥系統(tǒng)根據(jù)書店業(yè)務(wù)的需要，將新書調(diào)撥到各門市部，同時(shí)生成前臺(tái)POS機(jī)銷售數(shù)據(jù)，書店門市假定為：長安門市、牌樓門市、九頃門市、建行門市。

新建Form4，在窗體上放置7個(gè)TLable組件，分別設(shè)置其Caption屬性為：書名、業(yè)務(wù)科、批銷中心、長安門市、牌樓門市、九頃門市、建行門市。放置一個(gè)Ttable組件，設(shè)置TableName=Table1，Table1.DatabaseName=（mw），Table1.TableName=“業(yè)務(wù) 調(diào)撥”，Table1.Active=true。放置兩個(gè)按鈕組件，分別設(shè)置其Caption為“業(yè)務(wù)調(diào)撥”、“退出”。

“業(yè)務(wù)調(diào)撥”的響應(yīng)代碼為：

上述程序中，使用Insert方法要在數(shù)據(jù)庫表格中先插入一個(gè)空記錄，即調(diào)用Ttable組件的Insert方法，然后，再依次添加該記錄的每一個(gè)字段，最后再用Post方法將記錄寫回到數(shù)據(jù)庫中去。

2 業(yè)務(wù)查詢系統(tǒng)

業(yè)務(wù)查詢系統(tǒng)克服了原來的查詢系統(tǒng)中用戶輸入負(fù)擔(dān)過重的缺點(diǎn)。新系統(tǒng)界面友好，用戶操作方便。

新建一個(gè)Form，放置一個(gè)Combobox組件、一個(gè)Edit組件、兩個(gè)button組件、一個(gè)TDBnavigator組件、一個(gè)TDBgrid組件、一個(gè)Tquery組件、一個(gè)Ttable組件、一個(gè)TDatasource組件。設(shè)置Combobox的屬性Caption為“請選擇你要查詢的內(nèi)容”，Items屬性的值為“貨源”、“進(jìn)書方式”、“到貨日期”、“發(fā)貨依據(jù)”、“新書名”、“書名”。設(shè)置Edit組件的Caption為“請輸入你要查詢的具體內(nèi)容”。設(shè)置TDBnavigator組件和TDBgrid連接的數(shù)據(jù)庫名為mw，Datasource的Dataset屬性為Query1。設(shè)置Button.Caption=查詢。

這個(gè)子系統(tǒng)要實(shí)現(xiàn)在同一個(gè)數(shù)據(jù)庫的三個(gè)不同的表中不同字段進(jìn)行動(dòng)態(tài)查詢。所以各數(shù)據(jù)庫組件的DatabaseName統(tǒng)一設(shè)置為mw，而具體的表名應(yīng)該在程序運(yùn)行時(shí)動(dòng)態(tài)設(shè)計(jì)。子系統(tǒng)設(shè)計(jì)思想是：根據(jù)用戶選擇的combobox的內(nèi)容來確定具體的表名。例如：用戶選擇“貨源”、“進(jìn)書方式”、“到貨日期” 、“發(fā)貨依據(jù)”，則表名為“業(yè)務(wù)清單”；選擇“新書名”，則表名為“新書”；選擇“書名”則表名為“業(yè)務(wù)調(diào)撥”。程序設(shè)計(jì)時(shí)必須先置Table1.Active=False，當(dāng)選擇了具體的表之后，在置Table1.Active=True。查詢按鈕的響應(yīng)代碼編寫思路如下：

3 結(jié)論

本系統(tǒng)的開發(fā)工具是Delphi6.0，這個(gè)優(yōu)秀的面向?qū)ο箝_發(fā)工具提供了豐富的可視化組件庫（VCL）和強(qiáng)大的數(shù)據(jù)庫引擎Borland Data Engineer（BDE）通過BDE很容易鏈接本地（Access，F(xiàn)oxPro）或遠(yuǎn)程數(shù)據(jù)庫服務(wù)器上的數(shù)據(jù)庫（SQL Server，Oracle等等）。經(jīng)過測試，系統(tǒng)運(yùn)行穩(wěn)定，功能完善，符合要求。

[1]張錦芳.系統(tǒng)分析和設(shè)計(jì)[M].北京：北京航空航天大學(xué)出版社，1997.

[2]郭晶.Delphi 6編程指南[M].北京：電子工業(yè)出版社，2002.

TP315

A

1674-6708（2011）48-0066-01