ushd_wllb.pas

工廠採購管理系統

unit ushd_wllb;

interface

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

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

var
  frmshd_wllb: Tfrmshd_wllb;

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

procedure Tfrmshd_wllb.FormCreate(Sender: TObject);
begin
adoquery1.Connection:=dm1.ADOConnection1;
strsql:='select shd_detail.*,wlmc,wlys,wlsh,cgdw,pym from shd_detail,wldmk'+
' where wldmk.wldm=shd_detail.wldm and shdh='+''''+shdh+''''+'order by wldmk.pym asc';
adoexect(adoquery1,strsql);
end;

procedure Tfrmshd_wllb.Edit1Change(Sender: TObject);
begin
strsql:='select shd_detail.*,wlmc,wlys,wlsh,cgdw,pym from shd_detail,wldmk'+
' where wldmk.wldm=shd_detail.wldm and shdh='+''''+shdh+''''+
'and pym like'+''''+trim(edit1.Text)+'%'+'''';
adoexect(adoquery1,strsql);
if not(adoquery1.Recordset.EOF and adoquery1.Recordset.BOF) then exit;
strsql:='select shd_detail.*,wlmc,wlys,wlsh,cgdw,pym from shd_detail,wldmk'+
' where wldmk.wldm=shd_detail.wldm and shdh='+''''+shdh+''''+
'and wlmc like'+''''+'%'+trim(edit1.Text)+'%'+'''';
adoexect(adoquery1,strsql);
end;

procedure Tfrmshd_wllb.RzBitBtn1Click(Sender: TObject);
begin
if adoquery1.Recordset.BOF and adoquery1.Recordset.EOF then exit;
wldm:=adoquery1.fieldbyname('wldm').asstring;
close;
end;

procedure Tfrmshd_wllb.RzBitBtn2Click(Sender: TObject);
begin
wldm:='';
close;
end;

end.