MRP計算歷史查詢功能的實現[2]

    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價￥　特價￥　購買>>

    () MRP計算歷史查詢窗體的事件處理程序代碼如下
    //查詢
    procedure TmrphistoryBitBtnClick(Sender: TObject);
    begin
    adoqueryClose;
    adoquerySQLClear;
    adoquerySQLAdd(select a*b物料名稱 from mrp物料需求歷史 a物料主文件 b
    where (a物料編號 like %+editText+%)and);
    adoquerySQLAdd((a年份 like %+editText+%)
    and(a計劃期 like %+editText+%));
    adoquerySQLAdd(and(a物料編號=b物料編號));
    adoqueryOpen;
    editClear;
    editClear;
    editClear;
    end;
     
    procedure TmrphistoryEditKeyPress(Sender: TObject; var Key: Char);
    begin
    if key=# then
     bitbtnClick;
    end;
     
    procedure TmrphistoryEditKeyPress(Sender: TObject; var Key: Char);
    begin
    if key=# then
     bitbtnClick;
    end;
     
    procedure TmrphistoryEditKeyPress(Sender: TObject; var Key: Char);
    begin
    if key=# then
     bitbtnClick;
    end;
     
    //關閉窗體
    procedure TmrphistoryFormClose(Sender: TObject; var Action: TCloseAction);
    begin
    action:=cafree;
    end;
     
    //動態設置列寬度
    procedure TmrphistoryDataSourceDataChange(Sender: TObject;
      Field: TField);
    var
      i:integer;
    begin
    for i:= to dbgridColumnsCount do
     dbgridColumns[i]Width:=;
    end;      

    這樣我們就完成了本實例的最後一個功能其效果圖如圖所示

[]  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24945.html