【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:InForm.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    unit InForm;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DB, ADODB, Grids, DBGrids;
    
    type
      TFrmCust = class(TForm)
        DBGrid1: TDBGrid;
        ADOCust: TADODataSet;
        dsCust: TDataSource;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FrmCust: TFrmCust;
    
    implementation
    
    uses DataModule;
    {$R *.dfm}
    
    procedure TFrmCust.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      Action := caFree;
    end;
    
    procedure TFrmCust.FormCreate(Sender: TObject);
    begin
      ADOCust.Active := False;
      ADOCust.Active := True;
    end;
    
    initialization
      RegisterClass(TFrmCust);
    finalization
      UnRegisterClass(TFrmCust);
    end.
    
    

上一篇：InextXCenterModule.pas
下一篇：哈弗F7 VS名爵HS，谁更懂得年轻人的心？