unit6.pas

来自「本系统在一些大中型企业(跨多达24个区域)一直都在很好的服务过」· PAS 代码 · 共 69 行

unit Unit6;

interface

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

type
  TForm5 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    Memo1: TMemo;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm5.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TForm5.BitBtn1Click(Sender: TObject);
begin
if (edit1.Text<>'') then
begin
 form1.table2.Close;
 RenameFile(form1.FileListBox2.FileName,ExtractFilePath(form1.FileListBox2.FileName)+'\'+edit1.text);
 form1.FileListBox2.Update;
 close;
end
else begin
showmessage('录入参数有错误..!');
end;


end;

procedure TForm5.FormActivate(Sender: TObject);
begin
form1.enabled:=false;
end;

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.enabled:=true;
end;

end.