管子加工管理系統實現自定義篩選方式提高工作效率

劉勇濤

各階段產生的數據進行全面管理，同時對管理的各項數據采用自定義篩選的方式，通過點擊數據網格的某個標題欄，對數據網格中的標題欄綁定的數據字段進行排序、常規篩選或自定義條件篩選，達到快速、便捷、高效的篩選出想要的數據，生成各類簡明報表和直觀圖表，提高公司管理水平和工作效率。

關鍵詞：管子加工管理系統;自定義篩選; 數據網絡

中圖分類號：TP315? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? 文獻標識碼：A

Improving Work Efficiency of Pipe Processing Management System by Achieving Custom Screening

LIU Yongtao

（CSSC Huangpu Wenchong Shipbuilding Co.， Ltd.， Guangzhou 510725 ）

Abstract： The pipe processing management system is used to comprehensively manage the data generated in each stage of processing， such as processing receipt， contract， incoming goods， inventory， production arrangement， invoice and payment collection of the order. At the same time， the custom screening method is provided for the management of various data， by clicking a title bar of the data grid， the data in the data grid can be sorted， screened by general or user-defined conditions according to the data fields bound to the title bar， so as to achieve fast， convenient and efficient screening of the desired data， generate various concise reports and intuitive charts， improve the management level and work efficiency of the company.

Key words： Pipe processing management system; Custom screening; Data network

1? ? ?前言

我司年加工管子約45萬支，從接單、訂貨、庫存、加工、送貨、收款等階段都會產生了大量的數據，靠手工臺帳或EXCEL電子表格進行管理效率低下，有必要借助管子加工管理系統，對接單的加工小票、合同、來貨、庫存、生產安排、發票及收款等各階段產生的數據進行全面管理，對各項數據進行快速、便捷、高效的篩選，生成各類簡明報表和直觀圖表，提高公司管理水平和生產效率。

本系統的數據庫采用SQL SERVER2008，程序的開發工具是Delphi 6.0。

2? ? ?系統功能

系統主要分為：基礎數據、小票、合同、來貨、庫存、生產安排、查詢、打印、發票及收款九大項。

（1）基礎數據

包括：客戶維護、船舶維護、卡位維護、員工維護和材料牌號維護。

（2）小票

包括：小票導入、小票數據維護（導入）、小票數據維護（自錄）、小票查詢、數據狀態維護和接收外網小票文件。

（3）合同

包括：加工合同導入、加工合同查詢、采購合同導入、采購合同查詢、供貨合同導入和供貨合同查詢。

（4）來貨

包括：加工來貨導入、加工來貨查詢、采購來貨導入、采購來貨查詢、供貨來貨導入、供貨來貨查詢。

（5）庫存

包括：入庫查詢、生產發料、發料查詢、備料發料、發料修改、庫存盤點、盤盈盤虧和庫存出庫。

（6）生產安排

包括：號料表和裝箱清單編制、號料表和裝箱清單完成情況、隨車送貨單生成、過磅重量維護、管材備料送貨單、結算單維護和供貨單。

（7）查詢

包括：合同來貨情況、庫存（年）查詢、裝箱單完工、小票完成情況、小票材料檢查、發票查詢、供貨合同送貨情況、送貨單未開申請、采購合同來貨情況。

（8）打印

包括：成品送貨單打印、成品發料單打印、備料單打印、管材備料送貨打印、結算單打印。

（9）發票及收款

包括：結算單關聯發票、發票收款登記、送貨單付款登記。

3? ? ?自定義篩選功能設計

如何達到對管理的各項數據進行快速、便捷、高效的篩選，必須從篩選功能設計下手。

一般的篩選界面設計方式，其篩選的內容可以直接輸入或從下拉框中選擇，然后點擊篩選按鈕，此時會對數據庫的數據進行篩選，并以固定的排序方式顯示在界面的數據網格中。熟悉EXCEL的用戶都會被EXCEL強大的排序和篩選功能折服，這也是用戶在使用管理軟件時，喜歡將數據導出至EXCEL，再借助EXCEL強大的排序和篩選功能，快速、便捷地得到想要的數據。

下面以小票查詢界面為例，介紹如何設計出強大的自定義篩選功能。

實現自定義篩選功能的思路是：放置一個用于顯示數據的數據網格，點擊數據網格的某個標題欄，通過該標題欄綁定的數據字段對數據網格中的數據進行排序、常規篩選或自定義條件篩選。如果執行的是數據篩選操作，則將該標題欄作特殊顯示，告知用戶此時數據網格中顯示的數據是通過對該標題欄做了篩選操作的。

3.1? ?界面設計

點擊菜單File、New、Form，添加一個窗體，將該窗體的名稱設為xpcxfrm、Caption設為小票查詢，FormStyle設為fsMDIChild，同時將該窗體保存為xpcx_frm。

從工具欄中點擊EhLib面板，將控件DBGridEh拖放至表單xpcxfrm中，采用系統默認的命名DBGridEh1，設置好其相關的屬性值。

要使DBGridEh1數據網格中能夠顯示數據，必須綁定數據源。

從工具欄中點擊Ado面板，向窗體添加二個AdoQuery，為a1、a2;再點擊Data Access面板，向窗體添加一個DataSource，其名稱設為DataSource1、DataSet設為a1、DataSource設為DataSource1。

雙擊小票查詢表單的OnShow，通過a1從數據庫中篩選數據并顯示于數據網格DBGridEh1中。

3.2? ?設置排序和篩選菜單

點擊數據網格的標題欄，出現可操作的菜單項，包括升序、降序、從XXX中清除篩選、文本/數字篩選、搜索框、多選條件框和搜索、確認、取消按鈕。

（1） 添加排序和篩選面板（菜單）

① 點擊Standard面板，添加一個Sele_Panel;從工具欄中點擊Additional面板，添加7個控件（Sele_Panel_Asc、Sele_Panel_Desc、Sele_Panel_Clear、Sele_Panel_Select、Sele_Panel_Find、Sele_Panel_Confirm、Sele_Panel_Cancel）;點擊Standard面板，添加1個Edit控件（Sele_Panel_Edit），Text設為搜索;

點擊1stClass面板，添加1個控件（Sele_panel_fc）。

以上控件的其余屬性做相應的設置即可;

② 在程序運行時，點擊數據網格的某個標題欄時，假設點擊了數據網格的規格標題欄，系統將彈出排序和篩選面板（菜單）;

點擊升序菜單項，則數據網格中顯示的數據將按規格以升序的方式重新排序;點擊降序菜單項，則數據網格中顯示的數據將按規格以降序的方式重新排序;點擊從‘規格中清除篩選菜單項，數據網格中顯示的將是清除后的數據。

多選框中的規格，是當前數據網格中按規格唯一值篩選出來的，也可通過在搜索文本框中輸入想篩選規格的關鍵字來減少多選框中顯示的規格;

③ 對于文本型數據，常用的篩選方式有：等于、不等于、開頭是、結尾是、包含和不包含;

④ 對于數值型數據，常用的篩選方式有：等于、不等于、大于、大于或等于、小于、小于或等于、介于、N個最大的值、高于平均值、低于平均值。對于本實例中顯示的數據，只有長度和重量是數值型，其它均是文本型。

（2） 添加文本篩選面板（菜單）

點擊Standard面板，向窗體添加一個Exp_Panel;點擊Additional面板，向Exp_Panel面板添加7個SpeedButton控件（Exp_Panel_Bt1、Exp_Panel_Bt2、Exp_Panel_Bt3、Exp_Panel_Bt4、Exp_Panel_Bt5、Exp_Panel_Bt6、Exp_Panel_Bt7）;向Exp_Panel面板添加3個Sharp控件，作為上面7個菜單項的分隔符，依次設置控件的屬性值。

當把鼠標指針移動到文本篩選菜單項時，系統將彈出文本篩選面板（菜單）。

（3） 添加數字篩選面板（菜單）

點擊Standard面板，添加一個Spe_Panel;點擊Additional面板，添加11個SpeedButton控件（Spe_Panel_Bt1～Spe_Panel_Bt11）;向Spe_Panel面板添加3個Sharp控件，作為上面11個菜單項的分隔符。

當把鼠標指針移動到數字篩選菜單項時，系統將彈出數字篩選面板（菜單）。

3.3? ?添加自定義自動篩選窗體

點擊文本篩選菜單項或數字篩選菜單項（除10個最大的值、高于平均值、低于平均值菜單項外），出現對所選字段可由用戶自行輸入或選擇內容且自由組合該字段篩選方式的窗體。

點擊菜單File、New、Form，添加一個窗體，改名為zdsxfsfrm，Caption改為自定義自動篩選方式，同時將該窗體保存為zdsxfs_frm。

點擊Standard面板，添加2個Label、4個ComboBox和2個RadioButton;點擊Additional面板，添加2個SpeedButton和1個Sharp。

3.4? ?添加自動篩選前10個窗體

點擊菜單File、New、Form，添加一個窗體，改名為zdsxfs1frm，Caption改為自動篩選前10個，同時將該窗體保存為zdsxfs1_frm。

點擊Standard面板，添加2個ComboBox、1個Label和1個Edit;點擊Additional面板，添加2個SpeedButton和1個Sharp;點擊Win32面板，添加1個UpDown。

4? ? 代碼實現

在xpcxfrm表單中定義8個過程和1個記錄型數據：

（1）8個過程

① procedure showdata（Fir：Boolean）：按設置的條件篩選數據，并顯示于數據網板中;

②procedure showtj（sTitle：string;sZd：String）：根據點擊標題欄篩選網格中的數據，并顯示于多選條件框中;

③procedure showpanel（i：integer）：根據點擊標題欄顯示排序和篩選菜單;

④procedure Decide（Node：TfcTreeNode）：判斷點擊多選條件框項，同時更改多選條件框各項的勾選狀態;

⑤procedure DataSort：對數據網格中顯示的數據，根據點擊標題欄項進行升序或降序顯示;

⑥procedure showcheck（sZd：String）：根據點擊的標題欄和輸入的搜索內容從數據網格中篩選數據并顯示于多選條件框中;

⑦procedure SetExpress：設置并獲得自定義篩選條件;

⑧procedure SetSpecial：設置并獲得特別項數據（如最大的前10項）。

（2）用于記錄各字段已經設置的篩選條件：1個記錄型數據

type

Expr = record

Field：string;

Expr：string;

MaxExpr：string;

Ishl：integer;

Null：String;

Spe：integer;

end;

各項含義說明如下：

Field：用于存放篩選條件的字段名;

Expr：用于存放篩選條件的表達式;

MaxExpr：用于存放最大或最小的值;

Ishl：用于記錄篩選條件中字段已使用的次數;

Null：用于存放篩選條件是否是空值;

Spe：用于記錄篩選條件的方式，0為正常，1為最大項，2為最大百分比，3為最小項，4為最小百分比，5為高于平均值，6為低于平均值，其中1-4時MaxExpr的值為項數或百分比數。

當程序運行時，初始化記錄型數據TJexpr：

procedure Txpcxfrm.FormShow（Sender： TObject）;

var

i：integer;

begin

self.Resize;

Setlength（Tjexpr，DBgrideh1.Columns.Count）;? //初始化記錄型數據TJexpr

for i：=0 to DBgrideh1.Columns.Count-1 do

begin

DBgrideh1.Columns[i].Title.TitleButton：=True;? ? ?//將數據網格的標題設置為按鈕

DBgrideh1.Columns[i].Title.Hint：=DBgrideh1.Columns[i].Title.Caption;

Tjexpr[i].field：=DBgrideh1.Columns[i].FieldName;

Tjexpr[i].expr：='';

TJexpr[i].MaxExpr：='';

Tjexpr[i].null：='';

Tjexpr[i].ishl：=0;

Tjexpr[i].spe：=0;

end;

sField：=DBGrideh1.Columns[0].FieldName;

showdata（True）;? ? ? ?//第一次，顯示所有數據于數據網格中;

End。

5? ? 結論

至此，管子系統中的小票查詢界面的強大的自定義篩選功能設計完成。進入系統后，點擊面板菜單中的小票查詢按鈕，根據所顯示的界面用鼠標點擊數據網格的標題欄，即可體驗到對數據網格中的數據進行排序和自定義篩選功能，從而提高工作效率。

參考文獻

[1] 王晟，萬科. Delphi數據庫開發經典案例解析[M]. 北京：清華大學出

版社， 2005.

[2] 毛新軍. 面向主體的軟件開發[M]. 北京：清華大學出版社， 2005.

[3] 張友生， 李雄. 軟件開發模型研究綜述[J]. 計算機工程與應用， 2006，

42（3）： 109-115.