mclass.pas

1. 纯粹的合同管理,不涉及其它业务,独立成系统2. 简单明了,流程清析3. 合同条款可预定制4. 丰富强大的打印预览系统5. 实用的导入导出功能,可与excel交互使用6. 时刻追踪合同执行情况,包

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.