renshi_brow.~pas

我的小程序 是人事管理系统 很好的 并且有可执行文件 但是没有实验的好

unit renshi_Brow;

interface

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

type
  TFrmrenshiBrow = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    DBGrid2: TDBGrid;
    DBGrid4: TDBGrid;
    DBGrid3: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);


   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmrenshiBrow: TFrmrenshiBrow;

implementation
 uses Main, renshi_Edit, MainData;
{$R *.dfm}


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

end.