unit ucgdd_wllb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, RzButton, StdCtrls, ExtCtrls;

type
  Tfrmcgdd_wllb = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmcgdd_wllb: Tfrmcgdd_wllb;

implementation
uses uconst,ufunction,udm1;
{$R *.dfm}

procedure Tfrmcgdd_wllb.FormCreate(Sender: TObject);
begin
strsql:='select * from view_cgdd where 訂單號(hào)碼='+''''+strhthm+''''+'order by 物料代碼 asc';
adoexect(adoquery1,strsql);
end;

procedure Tfrmcgdd_wllb.Edit1Change(Sender: TObject);
begin
strsql:='select * from view_cgdd where 訂單號(hào)碼='+''''+strhthm+''''+
'and 助記碼 like'+''''+trim(edit1.Text)+'%'+''''+'order by 助記碼 asc';
adoexect(adoquery1,strsql);
if adoquery1.Eof and adoquery1.Bof then
   begin
        strsql:='select * from view_cgdd where 訂單號(hào)碼='+''''+strhthm+''''+
       'and 物料名稱 like'+''''+'%'+trim(edit1.Text)+'%'+''''+'order by 物料代碼 asc';
        adoexect(adoquery1,strsql);
   end;
end;

procedure Tfrmcgdd_wllb.RzBitBtn1Click(Sender: TObject);
begin
if adoquery1.Recordset.eof and adoquery1.Recordset.BOF then exit;
title:=adoquery1.fieldbyname('物料代碼').AsString;
xql:= adoquery1.fieldbyname('已送數(shù)量').value;
unitprice:=adoquery1.fieldbyname('單價(jià)').value;
close;
end;

procedure Tfrmcgdd_wllb.RzBitBtn2Click(Sender: TObject);
begin
title:='';
close;
end;

end.