form_develop_0a.~pas

来自「用Delphi编写的生产管理系统源码」· ~PAS 代码 · 共 57 行

unit Form_develop_0A;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TemplateForm, DB, ExtCtrls, TFlatPanelUnit, TFlatTitlebarUnit,
  StdCtrls, Mask, DBCtrls, dbcgrids, ADODB, Frame_DataEdit,
  TFlatSplitterUnit, Grids, DBGrids;

type
  TFrm_develop_0A = class(TFrmTemplate)
    FlatPanel3: TFlatPanel;
    MainADODataSetDSDesigner4: TStringField;
    MainADODataSetDSDesigner5: TStringField;
    MainADODataSetDSDesigner6: TStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    procedure MainADODataSetBeforeClose(DataSet: TDataSet);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_develop_0A: TFrm_develop_0A;

implementation

uses AdoDataMoudle;

{$R *.dfm}

procedure TFrm_develop_0A.MainADODataSetBeforeClose(DataSet: TDataSet);
begin
  inherited;
//Frm_develop_0A.free;
Frm_develop_0A:=nil
end;

procedure TFrm_develop_0A.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
Frm_develop_0A:=nil;
Frm_develop_0A.free;
end;

end.