物料主文件維護功能的實現[3]

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

    //顯示物料主文件中的物料類別的名稱
    //該事件在datasource的events屬性中添加
    procedure TmaterialsDataSourceDataChange(Sender: TObject; Field: TField);
    var
    numtemp:string;
    begin
    //showmessage(dbgridFields[]AsString);
    //根據選取的數據記錄查詢出它的詳細數據
    num:=dbgridFields[]AsString;
    adoqueryClose;
    adoquerySQLClear;
    adoquerySQLAdd(select * from 物料主文件 where 物料編號=+num+);
    adoqueryOpen;
     
    //顯示計劃類別的名稱(物料主文件中存儲的是其拼音編碼)
    temp:=adoqueryfieldbyname(計劃類別)AsString;
    adoqueryClose;
    adoquerySQLClear;
    adoquerySQLAdd(select 類別名稱 from 物料計劃類別 where 類別代碼=+temp+);
    adoqueryOpen;
    dbcomboboxText:=adoqueryfieldbyname(類別名稱)AsString;
     
    end;
    //下一條記錄
    procedure TmaterialsBitBtnClick(Sender: TObject);
    begin
    datasourceDataSetNext;
     
    end;
    //上一條記錄
    procedure TmaterialsBitBtnClick(Sender: TObject);
    begin
    datasourceDataSetPrior;
    end;
    //首條記錄
    procedure TmaterialsBitBtnClick(Sender: TObject);
    begin
    datasourceDataSetFirst;
    end;
    //末條記錄
    procedure TmaterialsBitBtnClick(Sender: TObject);
    begin
    datasourceDataSetLast;
    end;
     
    //點擊窗體的X形圖標時關閉窗體而不是最小化
    procedure TmaterialsFormClose(Sender: TObject; var Action: TCloseAction);
    begin
    //當點擊子窗體的關閉按鈕時釋放關閉窗體如果不設置這條代碼將是最小化窗體而不是關閉
    action:=cafree;
    end;

[]  []  []  []  []  []  []  []  

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