www.pudn.com > Source.rar > Unit13.pas, change:2007-02-04,size:782b


unit Unit13; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, Buttons, Mask, DBCtrls, Grids, DBGrids,db, ExtCtrls, ComCtrls; 
 
type 
  TTva = class(TForm) 
    PageControl1: TPageControl; 
    TabSheet1: TTabSheet; 
    TabSheet2: TTabSheet; 
    Button1: TButton; 
    DBGrid2: TDBGrid; 
    DBNavigator1: TDBNavigator; 
    DBGrid1: TDBGrid; 
    DBNavigator4: TDBNavigator; 
//    procedure OkClick(Sender: TObject); 
    procedure FormActivate(Sender: TObject); 
  private 
    { Déclarations privées } 
  public 
    { Déclarations publiques } 
  end; 
 
var 
  Tva: TTva; 
 
implementation 
 
uses Unit3; 
 
{$R *.DFM} 
 
procedure TTva.FormActivate(Sender: TObject); 
begin 
//data.Compteur.edit; 
end; 
 
end.