fm_people.pas

档案资料管理系统

unit FM_People;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, EasyGrid, Buttons, Menus;

type
  TFM_People1 = class(TForm)
    EasyGrid1: TEasyGrid;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    SaveDialog1: TSaveDialog;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn4: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure EasyGrid1DblClick(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FM_People1: TFM_People1;
  Caption1:Boolean;
implementation
uses
  FM_Main;
{$R *.dfm}

procedure TFM_People1.BitBtn1Click(Sender: TObject);
begin
 EasyGrid1.SaveToFile(label1.Caption);
 Label2.Caption:='1';
end;

procedure TFM_People1.BitBtn2Click(Sender: TObject);
begin
 EasyGrid1.EasyGridPageInfo.DetailPageInfo.PrintGridLine:=false;
 EasyGrid1.Preview;
end;

procedure TFM_People1.BitBtn3Click(Sender: TObject);
begin
 If (SaveDialog1.Execute) and (SaveDialog1.FileName<>' ')then
    begin
     EasyGrid1.SaveToFile(SaveDialog1.FileName);
     Label2.Caption:='1';
    end
end;

procedure TFM_People1.FormClose(Sender: TObject; var Action: TCloseAction);
var
 SaveInfo:integer;
begin
 if Label2.Caption='A' then
    begin
     SaveInfo:=Application.MessageBox('您需要保存更改吗?','真诚提醒您',MB_YESNOCANCEL or MB_ICONINFORMATION or MB_DEFBUTTON1) ;
     if SaveInfo=2 then
        Action:=caNone;
     if SaveInfo=6 then
        begin
         if FM_Main1.MDIChildCount=1 then
            begin
             FM_Main1.FMMTooB3.Enabled:=False;
             FM_Main1.FMMTooB4.Enabled:=False;
            end;
            Action := caFree;
            EasyGrid1.SaveToFile(label1.Caption);
        end;
     if SaveInfo=7 then
        begin
         if FM_Main1.MDIChildCount=1 then
            begin
             FM_Main1.FMMTooB3.Enabled:=False;
             FM_Main1.FMMTooB4.Enabled:=False;
            end;
           Action:=caFree;
        end;
   end
 else
  begin
   if FM_Main1.MDIChildCount=1 then
      begin
       FM_Main1.FMMTooB3.Enabled:=False;
       FM_Main1.FMMTooB4.Enabled:=False;
      end;
   Action:=caFree;
 end;
end;
procedure TFM_People1.EasyGrid1DblClick(Sender: TObject);
begin
 Label2.Caption:='A';
end;
procedure TFM_People1.BitBtn4Click(Sender: TObject);
begin
 if Caption1=False then
   begin
    EasyGrid1.ShowColTitle:=False;
    EasyGrid1.ShowRowTitle:=False;
    BitBtn4.Caption:='显示行/列头';
    Caption1:=True;
   end
 else if Caption1 then
   begin
    EasyGrid1.ShowColTitle:=True;
    EasyGrid1.ShowRowTitle:=True;
    BitBtn4.Caption:='隐藏行/列头';
    Caption1:=False;
   end;
end;

procedure TFM_People1.FormCreate(Sender: TObject);
begin
 Caption1:=True;
 EasyGrid1.Height:=Screen.Height-200;
 BitBtn1.Top:=Screen.Height-245;
 BitBtn3.Top:=Screen.Height-245;
 BitBtn4.Top:=Screen.Height-245;
 BitBtn2.Top:=Screen.Height-245;
end;
procedure TFM_People1.FormResize(Sender: TObject);
begin
 EasyGrid1.Width:=Width-10;
end;

end.