mclass.pas

来自「1. 纯粹的合同管理,不涉及其它业务,独立成系统2. 简单明了,流程清析3. 合」· PAS 代码 · 共 55 行

unit MClass;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TEMPLETFORM, DBActns, ActnList, StdCtrls, Buttons, Grids,
  DBGrids, Menus, ComCtrls, ToolWin, ExtCtrls, HemisphereButton;

type
  TMClassForm = class(TMyForm)
    DBGrid1: TDBGrid;
    ActionList1: TActionList;
    DataSetDelete1: TDataSetDelete;
    HemiBtn2: THemiBtn;
    HemiBtn5: THemiBtn;
    procedure FormCreate(Sender: TObject);
    procedure HemiBtn5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MClassForm: TMClassForm;

implementation

uses data;

{$R *.dfm}

procedure TMClassForm.FormCreate(Sender: TObject);
begin
  inherited;
  DM.ADOQClass.Active :=false;
  DM.ADOQClass.Active :=true;
end;

procedure TMClassForm.HemiBtn5Click(Sender: TObject);
begin
  inherited;
  ModalResult:=mrOK;
end;

procedure TMClassForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action:=caFree;
end;

end.