理論研究
作者：楊海斌
摘要 新華書店業務量越來越大，原有的進書管理係統已經不能滿足日常業務的需要。本文針對業務調撥係統和業務查詢係統的設計進行了論述。
關鍵詞 書店；業務；調撥；查詢；設計
中圖分類號TP315 文獻標識碼A 文章編號 1674-6708（2011）48-0066-01
新華書店的進書管理工作是書店各項業務的前提，隨著圖書業務量越來越大，原有的進書管理係統已經不能滿足日常業務的需要。為此，開發一套新的進書管理係統成為該店迫切的需要。本文針對業務調撥係統和業務查詢係統的設計，做詳細闡述。
1 業務調撥係統
業務調撥係統根據書店業務的需要，將新書調撥到各門市部，同時生成前台POS機銷售數據，書店門市假定為：長安門市、牌樓門市、九頃門市、建行門市。
新建Form4，在窗體上放置7個TLable組件，分別設置其Caption屬性為：書名、業務科、批銷中心、長安門市、牌樓門市、九頃門市、建行門市。放置一個Ttable組件，設置TableName=Table1，Table1.DatabaseName=（mw），Table1.TableName=“業務調撥”，Table1.Active=true。放置兩個按鈕組件，分別設置其Caption為“業務調撥”、“退出”。
“業務調撥”的響應代碼為：
procedure TForm4.Button1Click（Sender： TObject）；
begin
if MessageDlg（'確定調撥業務'，mtInformation，【mbYes，mbNo】，0）=mrYes then
begin
Table1.Insert；
Table1.FieldValues【'書名'】：=Edit1.Text；
Table1.FieldValues【'業務科'】：=Edit2.Text；
Table1.FieldValues【'批銷中心'】：=Edit3.Text；
Table1.FieldValues【'長安門市'】：=Edit4.Text；
Table1.FieldValues【'牌樓門市'】：=Edit5.Text；
Table1.FieldValues【'九頃門市'】：=Edit6.Text；
Table1.FieldValues【'建行門市'】：=Edit7.Text；
Table1.Post；
end；
end；
上述程序中，使用Insert方法要在數據庫表格中先插入一個空記錄，即調用Ttable組件的Insert方法，然後，再依次添加該記錄的每一個字段，最後再用Post方法將記錄寫回到數據庫中去。
2 業務查詢係統
業務查詢係統克服了原來的查詢係統中用戶輸入負擔過重的缺點。新係統界麵友好，用戶操作方便。
新建一個Form，放置一個Combobox組件、一個Edit組件、兩個button組件、一個TDBnavigator組件、一個TDBgrid組件、一個Tquery組件、一個Ttable組件、一個TDatasource組件。設置Combobox的屬性Caption為“請選擇你要查詢的內容”，Items屬性的值為“貨源”、“進書方式”、“到貨日期”、“發貨依據”、“新書名”、“書名”。設置Edit組件的Caption為“請輸入你要查詢的具體內容”。設置TDBnavigator組件和TDBgrid連接的數據庫名為mw，Datasource的Dataset屬性為Query1。設置Button.Caption=查詢。