sys410_01.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Sys410_01;

interface

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

type
  TSys410_01Form = class(TForm)
    Label5: TLabel;
    Bevel1: TBevel;
    Label4: TLabel;
    SpeedButton1: TSpeedButton;
    Panel1: TPanel;
    Image1: TImage;
    bbtnOk: TBitBtn;
    bbtnExit: TBitBtn;
    OpenDialog1: TOpenDialog;
    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
  Sys410_01Form: TSys410_01Form;

implementation

uses CommFun, SYSDATA, Wait;

{$R *.dfm}

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

procedure TSys410_01Form.FormCreate(Sender: TObject);
var
  ADate:TDateTime;
  APath,AFile: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+'\';
  AFile:=GetBackupFile(ADate,True);
  if AFile<>'' then
    edtPath.Text:=AFile  //取得最后的备份文件名
  else
    edtPath.Text:=APath;
end;

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

procedure TSys410_01Form.bbtnOkClick(Sender: TObject);
begin
  inherited;
//确定(&O)
  if ShowDialog('UMS10000112')<>IDYES then Exit;  //当前数据将会删除且不可恢复，是否继续恢复数据？

  if not FileExists(edtPath.Text) then
  begin
    ShowMsg('UMS10000113');  //文件不存在，请选择正确的备份文件
    Abort;
  end;

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

  ShowMsg('UMS10000133');  //数据恢复成功
  ModalResult:=1;
end;

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

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

procedure TSys410_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(TSys410_01Form);

finalization
  UnRegisterClass(TSys410_01Form);

end.