sys400_01.pas.svn-base

一个用Delphi开发的ERP软件

unit Sys400_01;

interface

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

type
  TSys400_01Form = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label5: TLabel;
    Bevel1: TBevel;
    bbtnOk: TBitBtn;
    bbtnExit: TBitBtn;
    Label4: TLabel;
    SpeedButton1: TSpeedButton;
    SaveDialog1: TSaveDialog;
    edtPath: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnOkClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    procedure SetInterface;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Sys400_01Form: TSys400_01Form;

implementation

uses CommFun, SYSDATA, Wait;

{$R *.dfm}

procedure TSys400_01Form.SetInterface;
begin
  Font.Name:=AFontName;
  Caption:=GetDBString('SYS40001001');  //数据备份
  Label5.Caption:=GetDBString('SYS40001002');  //数据备份是为了将数据生成另一个文件存放并保存，在当前数据遭受意外损坏时，可以将备份的数据恢复，备份数据可以将您的损失减到最小。建议每日备份数据一次。
  Label4.Caption:=GetDBString('SYS40001003');  //备份路径：
  bbtnOk.Caption:=GetDBString('SYS40001004');  //确定(&O)
  bbtnExit.Caption:=GetDBString('SYS40001005');  //退出(&X)
end;

procedure TSys400_01Form.FormCreate(Sender: TObject);
var
  ADate:TDateTime;
  APath:string;
begin
  inherited;
  SetInterface;
  ADate:=GetServerDate;
  APath:=GetSysParams('SYS0017');
  if trim(APath)='' then APath:=ExtractFilePath(Application.ExeName)+'Data\';
  if copy(APath,Length(APath),1)<>'\' then APath:=APath+'\';
  edtPath.Text:=APath+GetBackupFile(ADate)+'.dat';
end;

procedure TSys400_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
//
end;

procedure TSys400_01Form.bbtnOkClick(Sender: TObject);
var
  ADate:TDateTime;
begin
  inherited;
//确定(&O)
  if FileExists(edtPath.Text) then
  begin
    if ShowDialog('UMS10000109')<>IDYES then Exit;  //文件已存在，是否覆盖原文件？
    DeleteFile(edtPath.Text);
  end;

  CloseHwTSC;  //关闭浩晖事务服务控制器
  ADate:=GetServerDate;
  case ADatabase of  //0=Access,1=SQL Server
    0:BackupAccessDB(edtPath.Text,ADate);
    1:BackupSQLDB(edtPath.Text,ADate);
  end;

  ShowMsg('UMS10000111');  //数据备份成功
  ModalResult:=1;
end;

procedure TSys400_01Form.bbtnExitClick(Sender: TObject);
begin
  inherited;
//退出(&X)
  Close;
end;

procedure TSys400_01Form.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  SaveDialog1.InitialDir:=edtPath.Text;
  SaveDialog1.FileName:=edtPath.Text;
  if SaveDialog1.Execute then
    edtPath.Text:=SaveDialog1.FileName;
end;

procedure TSys400_01Form.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_F1 then
    HtmlHelp(Application.Handle, AHelpFile+'::/'+AProgramID+'.htm', $0000, nil);
end;

initialization
  RegisterClass(TSys400_01Form);

finalization
  UnRegisterClass(TSys400_01Form);

end.