?? ucgdd_wllb.pas
字號(hào):
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.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -