otherclass.pas

产品信息系统!关于产品基础信息的系统!功能强大!

unit otherclass;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseDefine, wwDialog, wwidlg, DB, ADODB, ActnList, Grids,
  DBGridEh, ComCtrls, ToolWin;

type
  Tfrmotherclass = class(TfrmBaseDefine)
    QBaseInfoid: TAutoIncField;
    QBaseInfotype: TStringField;
    QBaseInfosort: TIntegerField;
    QBaseInfoname: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmotherclass: Tfrmotherclass;

implementation
uses Global,DataModule;
{$R *.dfm}

procedure Tfrmotherclass.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  frmotherclass:=nil;
end;

procedure Tfrmotherclass.FormCreate(Sender: TObject);
begin
  inherited;
  in_sql:='select * from Ccbase';
end;

end.