ufpublish_dictmnt.~pas

来自「一个功能较全的图书进销存软件,功能还算完备」· ~PAS 代码 · 共 64 行

unit ufPublish_DictMnt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, StdCtrls, Mask, DBCtrls, ExtCtrls, Buttons;

type
  TfPublish_DictMnt = class(TForm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    ExitBtn: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ExitBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fPublish_DictMnt: TfPublish_DictMnt;

implementation

uses udmpublish;

{$R *.dfm}

procedure TfPublish_DictMnt.FormCreate(Sender: TObject);
begin
  with dmpublish.adtDict do
  begin
    if Active then
      Close;
    Open;
  end;
end;

procedure TfPublish_DictMnt.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  fPublish_DictMnt:=nil;
  action:=cafree;
end;

procedure TfPublish_DictMnt.ExitBtnClick(Sender: TObject);
begin
  Close;
end;

end.