systemmanage.pas

软件类别: 数据库 软件大小: 2.60M 运行环境: Win9xNT/2000/XP 一套车辆管理系统,此版本为商业版,大家一定用的着。

unit SystemManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls,
  iniFiles, XPMenu, Buttons;

type
  Tfrm_SystemManage = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Label1: TLabel;
    Cmd_BackUp: TButton;
    Cmd_OnBack: TButton;
    OpenDialog1: TOpenDialog;
    XPMenu1: TXPMenu;
    GroupBox1: TGroupBox;
    Cmd_Select: TSpeedButton;
    LabeledEdit1: TLabeledEdit;
    ge: TProgressBar;
    Memo1: TMemo;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Cmd_BackUpClick(Sender: TObject);
    procedure Cmd_SelectClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
    fm:Tform;
  public
    { Public declarations }
  end;

var
  frm_SystemManage: Tfrm_SystemManage;

implementation

uses Data;

{$R *.dfm}

procedure Tfrm_SystemManage.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    Action:=cafree;
end;

procedure Tfrm_SystemManage.Cmd_BackUpClick(Sender: TObject);
var
  path:string;
  f,g:TiniFile;
  tempstr,Back_Up:String;
begin
    OpenDialog1.FileName:=Extractfilepath(application.ExeName)+formatdateTime('yyyy''-''mm''-''dd',now)+' '+formatdateTime('hh''点''mm''分''ss''秒',now)+'车辆管理系统数据库备份';
    if OpenDialog1.Execute then
    begin
        f:=TIniFile.Create(ExtractFileDir(application.Exename)+'\BackUp_Time.ini');
        tempstr:=f.ReadString('NetSetting','备份时间','');
        f.Free;
        if tempstr<>'' then
        begin
            Back_Up:=tempstr+'车辆管理系统数据库备份';
            path:=OpenDialog1.FileName;
            label1.Visible:=True;
            label1.Caption:='系统正在备份....';
            frm_data.ADOCommand_Back.CommandText:='backup database GD_GPS to disk='+''''+path+''''; //保存在数据库的安装的默认的 位置下
            try
                frm_data.ADOCommand_Back.Execute;
                label1.Caption:='系统备份成功！';
                //先写备份操作成功的时间ini文件
                f:=TIniFile.Create(ExtractFileDir(application.Exename)+'\BackUp_Time.ini');
                f.WriteString('NetSetting','备份时间',formatdateTime('yyyy''-''mm''-''dd',now)+' '+formatdateTime('hh''点''mm''分''ss''秒',now));
                f.WriteString('NetSetting','备份情况','数据备份成功');
                f.Free;
            except
                label1.Caption:='系统备份失败！';
            end;
        end;
        if tempstr='' then
        begin
            path:=OpenDialog1.FileName;
            label1.Visible:=True;
            label1.Caption:='系统正在备份....';
            frm_data.ADOCommand_Back.CommandText:='backup database GD_GPS to disk='+''''+path+''''; //保存在数据库的安装的默认的 位置下
            try
                frm_data.ADOCommand_Back.Execute;
                label1.Caption:='系统备份成功！';
                //先写备份操作成功的时间ini文件
                f:=TIniFile.Create(ExtractFileDir(application.Exename)+'\BackUp_Time.ini');
                f.WriteString('NetSetting','备份时间',formatdateTime('yyyy''-''mm''-''dd',now)+' '+formatdateTime('hh''点''mm''分''ss''秒',now));
                f.WriteString('NetSetting','备份情况','数据备份成功');
                f.Free;
            except
                label1.Caption:='系统备份失败！';
            end;
        end;
    end;
end;

procedure Tfrm_SystemManage.Cmd_SelectClick(Sender: TObject);
var
    pathstr:string;
begin
    if OpenDialog1.Execute then
    begin
        pathstr:=OpenDialog1.FileName;
        LabeledEdit1.Text:=pathstr;
    end;
end;

procedure Tfrm_SystemManage.SpeedButton2Click(Sender: TObject);
var
    k:integer;
    tempstr:string;
begin
    tempstr:='';
    frm_data.ADO_Connection.DefaultDatabase:='Master';
    if Trim(LabeledEdit1.Text)<>'' then
    begin
        if Application.MessageBox('确定需要恢复数据库吗？请确认！'+#13+#10'一旦恢复后，前面的数据将被丢失，'+#13+#10'请务必在恢复之前先备份当前数据',Pchar(application.Title),mb_okcancel)=idok then
        begin
            tempstr:=LabeledEdit1.Text;
            ge.Visible := true;
            fm:= Tform.Create(self);
            fm.BorderIcons :=[];
            fm.Caption := '系统正在恢复数据,请捎等。。。。';
            ge.Visible := true;
            ge.Height :=25;
            ge.Width :=300;
            ge.Parent :=fm;
            fm.Height :=ge.height+28;
            fm.Width :=ge.Width+10;
            fm.Position :=Poscreencenter;
            ge.Left := fm.Left ;
            ge.Top := fm.Top;
            fm.Show;
            ge.Max :=300;
            ge.position := 0;
            for K:=0 to 300 do
            begin
                ge.Position := ge.Position +1;
                sleep(50);
            end ;
            ge.Parent:=frm_SystemManage;

            frm_data.ADOCommand_HF.CommandText:='restore database GD_GPS from disk='+''''+tempstr+''''; //保存在数据库的安装的默认的 位置下
            try
                frm_data.ADOCommand_HF.Execute;
                fm.Caption:='【系统恢复数据成功！】';
                frm_data.ADO_Connection.DefaultDatabase:='GD_GPS';
                application.MessageBox('系统数据恢复成功！',Pchar(application.Title),MB_ICONWarning);
                fm.Visible:=False;
                ge.Visible:=false;
                fm.Close;
                fm.Free;
                
            except
                application.MessageBox('系统恢复数据失败！请先关闭所有的数据库的连接程序',Pchar(application.Title),MB_ICONWarning);
                frm_data.ADO_Connection.DefaultDatabase:='GD_GPS';
                fm.Visible:=False;
                ge.Visible:=false;
                fm.Close;
                fm.Free;
            end;
        end;
    end
    else
    begin
        Application.MessageBox('操作失败，请选择需要恢复的［数据文件名称］和［所在的路径］',Pchar(application.Title),MB_ICONWarning);
        Exit;
    end;

end;

procedure Tfrm_SystemManage.SpeedButton3Click(Sender: TObject);
begin
    Close;
end;

end.