renshi_brow.pas

来自「用delphi编的企业人事管理系统」· PAS 代码 · 共 42 行

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.