楊海斌
江蘇省興化市運輸管理處,江蘇興化 225700
書店調(diào)撥系統(tǒng)和業(yè)務(wù)查詢系統(tǒng)設(shè)計
楊海斌
江蘇省興化市運輸管理處,江蘇興化 225700
新華書店業(yè)務(wù)量越來越大,原有的進(jìn)書管理系統(tǒng)已經(jīng)不能滿足日常業(yè)務(wù)的需要。本文針對業(yè)務(wù)調(diào)撥系統(tǒng)和業(yè)務(wù)查詢系統(tǒng)的設(shè)計進(jìn)行了論述。
書店;業(yè)務(wù);調(diào)撥;查詢;設(shè)計
新華書店的進(jìn)書管理工作是書店各項業(yè)務(wù)的前提,隨著圖書業(yè)務(wù)量越來越大,原有的進(jìn)書管理系統(tǒng)已經(jīng)不能滿足日常業(yè)務(wù)的需要。為此,開發(fā)一套新的進(jìn)書管理系統(tǒng)成為該店迫切的需要。本文針對業(yè)務(wù)調(diào)撥系統(tǒng)和業(yè)務(wù)查詢系統(tǒng)的設(shè)計,做詳細(xì)闡述。
業(yè)務(wù)調(diào)撥系統(tǒng)根據(jù)書店業(yè)務(wù)的需要,將新書調(diào)撥到各門市部,同時生成前臺POS機(jī)銷售數(shù)據(jù),書店門市假定為:長安門市、牌樓門市、九頃門市、建行門市。
新建Form4,在窗體上放置7個TLable組件,分別設(shè)置其Caption屬性為:書名、業(yè)務(wù)科、批銷中心、長安門市、牌樓門市、九頃門市、建行門市。放置一個Ttable組件,設(shè)置TableName=Table1,Table1.DatabaseName=(mw),Table1.TableName=“業(yè)務(wù) 調(diào)撥”,Table1.Active=true。放置兩個按鈕組件,分別設(shè)置其Caption為“業(yè)務(wù)調(diào)撥”、“退出”。
“業(yè)務(wù)調(diào)撥”的響應(yīng)代碼為:
上述程序中,使用Insert方法要在數(shù)據(jù)庫表格中先插入一個空記錄,即調(diào)用Ttable組件的Insert方法,然后,再依次添加該記錄的每一個字段,最后再用Post方法將記錄寫回到數(shù)據(jù)庫中去。
業(yè)務(wù)查詢系統(tǒng)克服了原來的查詢系統(tǒng)中用戶輸入負(fù)擔(dān)過重的缺點。新系統(tǒng)界面友好,用戶操作方便。
新建一個Form,放置一個Combobox組件、一個Edit組件、兩個button組件、一個TDBnavigator組件、一個TDBgrid組件、一個Tquery組件、一個Ttable組件、一個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=查詢。
這個子系統(tǒng)要實現(xiàn)在同一個數(shù)據(jù)庫的三個不同的表中不同字段進(jìn)行動態(tài)查詢。所以各數(shù)據(jù)庫組件的DatabaseName統(tǒng)一設(shè)置為mw,而具體的表名應(yīng)該在程序運行時動態(tài)設(shè)計。子系統(tǒng)設(shè)計思想是:根據(jù)用戶選擇的combobox的內(nèi)容來確定具體的表名。例如:用戶選擇“貨源”、“進(jìn)書方式”、“到貨日期” 、“發(fā)貨依據(jù)”,則表名為“業(yè)務(wù)清單”;選擇“新書名”,則表名為“新書”;選擇“書名”則表名為“業(yè)務(wù)調(diào)撥”。程序設(shè)計時必須先置Table1.Active=False,當(dāng)選擇了具體的表之后,在置Table1.Active=True。查詢按鈕的響應(yīng)代碼編寫思路如下:
本系統(tǒng)的開發(fā)工具是Delphi6.0,這個優(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)運行穩(wěn)定,功能完善,符合要求。
[1]張錦芳.系統(tǒng)分析和設(shè)計[M].北京:北京航空航天大學(xué)出版社,1997.
[2]郭晶.Delphi 6編程指南[M].北京:電子工業(yè)出版社,2002.
TP315
A
1674-6708(2011)48-0066-01