www.pudn.com > dongdongyanmingtongji.rar > Un_Static.pas

unit Un_Static; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls, Buttons; 
 
type 
  TFrmStatic = class(TForm) 
    btnclose: TBitBtn; 
    ADOTable1: TADOTable; 
    DBGrid1: TDBGrid; 
    DataSource1: TDataSource; 
    Label1: TLabel; 
    procedure btncloseClick(Sender: TObject); 
    procedure FormShow(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  FrmStatic: TFrmStatic; 
 
implementation 
 
uses Un_Main; 
 
{$R *.dfm} 
 
procedure TFrmStatic.btncloseClick(Sender: TObject); 
begin 
close; 
end; 
 
procedure TFrmStatic.FormShow(Sender: TObject); 
begin 
  try 
    ADOTable1.Close; 
    ADOTable1.Open; 
    Label1.Caption:='ÑÌÃñͳ¼Æ:'+trim(inttostr(ADOTable1.RecordCount)); 
  except 
  exit; 
  end; 
 
end; 
 
end.