ucgdd_wllb.pas

工廠採購管理系統

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 订单号码='+''''+strhthm+''''+'order by 物料代码 asc';
adoexect(adoquery1,strsql);
end;

procedure Tfrmcgdd_wllb.Edit1Change(Sender: TObject);
begin
strsql:='select * from view_cgdd where 订单号码='+''''+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 订单号码='+''''+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('已送数量').value;
unitprice:=adoquery1.fieldbyname('单价').value;
close;
end;

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

end.