ucpsmallclass.pas

来自「工廠採購管理系統」· PAS 代码 · 共 52 行

unit ucpsmallclass;

interface

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

type
  Tfrmcpsmallclass = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  frmcpsmallclass: Tfrmcpsmallclass;

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

procedure Tfrmcpsmallclass.BitBtn1Click(Sender: TObject);
begin
lbname:= adoquery2.fieldbyname('classname').AsString;
close;

end;

procedure Tfrmcpsmallclass.FormCreate(Sender: TObject);

begin
strsql:='select * from cplb where classname='+''''+lbname+'''';
adoexect(adoquery1,strsql);
if not(adoquery1.Recordset.EOF and adoquery1.Recordset.BOF) then lbname:=adoquery1.fieldbyname('id').AsString;
strsql:='select * from cplb where child='+''''+lbname+'''';
adoexect(adoquery2,strsql);
end;

end.