handunit.pas

本系统在一些大中型企业(跨多达24个区域)一直都在很好的服务过

unit handUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls;

type
  ThandForm = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Panel5: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    handComboBox: TComboBox;
    okbt: TBitBtn;
    cancelbt: TBitBtn;
    Bevel1: TBevel;
    procedure cancelbtClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure okbtClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  handForm: ThandForm;

implementation

uses REMain1;

{$R *.DFM}





procedure ThandForm.cancelbtClick(Sender: TObject);
begin
close;
end;

procedure ThandForm.FormActivate(Sender: TObject);
begin
mainform.Enabled:=false;
end;

procedure ThandForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
mainform.Enabled:=true;
end;

procedure ThandForm.okbtClick(Sender: TObject);
var
FFilename:string;
begin
with mainform do
{===================================================}

 {=============================}
   begin
 screen.Cursor:=crHourGlass;
    Editor.Lines.SaveToFile('c:\NewStar\Save\'+mainform.nameLabel.Caption+'.sav');
    FFileName:='C:\Sky\'+trim(mainform.nameLabel.Caption)+trim(handForm.handComboBox.Text)+datetostr(date);
    Editor.Lines.SaveToFile('C:\Sky\tmp.tmp');
    Editor.Modified := False;
   // SetModified(False);

     if fileexists(FFileName+'.rdx') then
       deletefile(pchar(FFileName+'.rdx'));
      with Archiver1 do
    begin
      FileName :=  FFileName+'.rdx'   ;
      Open;
      try
       AddFile('C:\Sky\tmp.tmp');
         if fileexists('C:\Sky\tmp.tmp') then
          deletefile(pchar('C:\Sky\tmp.tmp'));
          screen.Cursor:=crDefault;
          showmessage('文件已经保存在 '+ ExtractFilePath(FFileName+'.rdx')+'目录下,文件名为: '+FFileName+'.rdx ...');
      finally
        Archiver1.close;
        handform.Close;
      end;
    end;
{+====================}
       end;
      screen.Cursor:=crDefault;
{=================================================================}


{===================================================}

{=================================================================}

end;

end.