uwlsmallclass.pas

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

unit uwlsmallclass;

interface

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

type
  Tfrmwlsmallclass = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure RzBitBtn1Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  frmwlsmallclass: Tfrmwlsmallclass;

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

procedure Tfrmwlsmallclass.FormCreate(Sender: TObject);

begin
strsql:='select * from unit_class order by classname asc';
adoexect(adoquery1,strsql);
end;

procedure Tfrmwlsmallclass.RzBitBtn2Click(Sender: TObject);
begin
danwei:='';
close;
end;

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

procedure Tfrmwlsmallclass.RzBitBtn1Click(Sender: TObject);
begin
danwei:= adoquery1.fieldbyname('classname').AsString;
close;
end;

end.