unithuifu.~pas

信号机测试信号管理软件 其中含有文件上传及修改数据库数据的功能

unit Unithuifu;

interface

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

type
  TFormhuifu = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formhuifu: TFormhuifu;

implementation

{$R *.dfm}

procedure TFormhuifu.Button1Click(Sender: TObject);
var
filename,copyfile:string;
NewFileName: string;
Msg: string;
NewFile: TFileStream;
OldFile: TFileStream;
begin
    copyfile:=GetLastFIXED+':\'+'signal_2007-07-06.mdb'; //暂定将它放在最后一个硬盘的盘符下,若要将它放在某一文件夹下,需先创建该文件
    filename:=ExtractFiledir(Application.ExeName)+'\'+'database'+'\'+'signal_2007-07-06.mdb';
    if  FileExists(filename)  then
    begin
    NewFileName := copyfile;
    Msg := Format('Copy %s to %s?', [filename, copyfile]);
    if MessageDlg(Msg, mtCustom, mbOKCancel, 0) = mrOK then           //弹出对话框,提示是否要复制
    begin
        datamodule2.ADOConnection1.Connected:=false;
        OldFile := TFileStream.Create(filename, fmOpenRead or fmShareDenyWrite);
        try
        NewFile := TFileStream.Create(copyfile, fmCreate or fmShareDenyRead);

            try
                NewFile.CopyFrom(OldFile, OldFile.Size);
            finally
                FreeAndNil(NewFile);
                showmessage('备份成功,原文件已被覆盖');
            end;
        finally
        FreeAndNil(OldFile);
        end;
    end;
    end
    else showmessage('no file');
end;

ADOQuery.CommandTimeout := 0;
end;

end.