【delphi开源代码栏目提醒】：网学会员鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“MClass.pas”一文，供大家参考学习

    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.