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

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

    //查詢表中的數據並顯示
    procedure TmaterialsBitBtnClick(Sender: TObject);
    begin
    //查詢數據
    adoqueryClose;
    adoquerySQLClear;
    adoquerySQLAdd(select * from 物料主文件 where (物料編號 like %+editText+%)and);
    adoquerySQLAdd((物料名稱 like %+editText+%)and(拼音編碼 like %+editText+%));
    adoqueryOpen;
    //將查詢得到的數據通過clone命令復制到adotable中去
    adotableClone(adoqueryltUnspecified);
    end;
     
    //在任何一個文本框上按enter鍵都能執行查詢
    procedure TmaterialsEditKeyPress(Sender: TObject; var Key: Char);
    begin
    if key=# then
     bitbtnClick;
    end;
     
    procedure TmaterialsEditKeyPress(Sender: TObject; var Key: Char);
    begin
    if key=# then
     bitbtnClick;
    end;
     
    procedure TmaterialsEditKeyPress(Sender: TObject; var Key: Char);
    begin
    if key=# then
     bitbtnClick;
    end;
     
    //新增一條記錄
    procedure TmaterialsBitBtnClick(Sender: TObject);
    begin
    //在dbgrid中插入一行新的數據並提示用戶在右邊文本框中修改
    datasourceDataSetInsert;
    showmessage(請在右邊的文本框中輸入新數據的詳細內容);
    //為數據文本框設置默認值防止用戶輸入錯誤數值類型或者對不能為空的列輸入空值
    dbeditText:=;
    dbeditText:=在此輸入物料名該項不能為空;
    dbeditText:=;
    dbeditText:=;
    dbeditText:=;
    dbeditText:=;
    dbeditText:=;
    dbeditText:=;
    dbeditText:=;
    dbeditText:=;
    dbeditText:=;
    dbeditText:=;
    dbeditText:=;
    dbcomboboxSelText:=dbcomboboxItemsStrings[];
    dbcomboboxSelText:=dbcomboboxItemsStrings[];
    //物料主文件中存儲的是類別的拼音而不是名稱因此插入時需要輸入拼音而不是名稱

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

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