ufrmwllbxz.pas

工廠採購管理系統

unit Ufrmwllbxz;

interface

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

type
  Tfrmwllbxz = class(TForm)
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure DBGrid2TitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmwllbxz: Tfrmwllbxz;

implementation

{$R *.dfm}
uses uconst,ufunction;
procedure Tfrmwllbxz.FormCreate(Sender: TObject);
begin
strsql:='select id,classname as 物料大类 from wllb where child='+''''+'root'+''''+
' order by classname asc';
adoexect(adoquery1,strsql);
strsql:='select classname as 物料小类 from wllb where jb=2'+
' order by classname asc';
adoexect(adoquery2,strsql);

end;

procedure Tfrmwllbxz.DBGrid1CellClick(Column: TColumn);
begin
strsql:='select classname as 物料小类 from wllb where child='+''''+
trim(adoquery1.fieldbyname('id').AsString)+''''+' order by classname asc';
adoexect(adoquery2,strsql);
end;

procedure Tfrmwllbxz.RzBitBtn1Click(Sender: TObject);
begin
if adoquery1.Recordset.EOF and adoquery1.Recordset.bof then exit;
if adoquery2.Recordset.EOF and adoquery2.Recordset.bof then exit;
bigclass:=adoquery1.fieldbyname('物料大类').asstring;
smallclass:=adoquery2.fieldbyname('物料小类').asstring;
close;
end;

procedure Tfrmwllbxz.RzBitBtn2Click(Sender: TObject);
begin
bigclass:='';
smallclass:='';
close;
end;

procedure Tfrmwllbxz.DBGrid1TitleClick(Column: TColumn);
begin
dgridpx(adoquery1,DBGrid1,Column);
end;

procedure Tfrmwllbxz.DBGrid2TitleClick(Column: TColumn);
begin
dgridpx(adoquery1,DBGrid1,Column);
end;

end.