bfhy_form.pas

本系统实现了一个图书销售管理系统

unit BFHY_Form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TFlatGroupBoxUnit, TFlatRadioButtonUnit, TFlatButtonUnit,
  StdCtrls, TFlatComboBoxUnit;

type
  TBFHY_F = class(TForm)
    FlatGroupBox1: TFlatGroupBox;
    BF_FRBtn: TFlatRadioButton;
    HY_FRBtn: TFlatRadioButton;
    QD_FBtn: TFlatButton;
    QX_FBtn: TFlatButton;
    SJD_FGB: TFlatGroupBox;
    RQD_FCB: TFlatComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure HY_FRBtnClick(Sender: TObject);
    procedure BF_FRBtnClick(Sender: TObject);
    procedure QX_FBtnClick(Sender: TObject);
    procedure QD_FBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BFHY_F: TBFHY_F;

implementation

uses
  IniFiles,StrUtils, Share_Unit;

{$R *.dfm}

procedure TBFHY_F.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;
//***********************************************************************************
procedure TBFHY_F.FormDestroy(Sender: TObject);
begin
  BFHY_F:=nil;
end;
//***********************************************************************************
procedure TBFHY_F.FormShow(Sender: TObject);
var
  myini:TIniFile;
begin
  BF_FRBtn.Checked:=true;
  myini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'set.ini');
  if myini.ReadString('bakup','BakPath','')='' then
    myini.WriteString('bakup','BakPath',ExtractFilePath(Application.ExeName)+'BackUp');
  FreeAndNil(myini);  
end;
//***********************************************************************************
procedure TBFHY_F.HY_FRBtnClick(Sender: TObject);
var
  myini:TIniFile;
  num,i:integer;
  RQ:String;
begin
  SJD_FGB.Visible:=true;
  myini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'set.ini');
  num:=myini.ReadInteger('bakup','num',0);
  RQD_FCB.Clear;
  for i:=1 to num do
    begin
      RQ:=myini.ReadString('bakupdian','bak'+IntToStr(i),'0');
      RQD_FCB.Items.Add(RQ);
    end;  
  RQD_FCB.ItemIndex:=0;
end;
//***********************************************************************************
procedure TBFHY_F.BF_FRBtnClick(Sender: TObject);
begin
  SJD_FGB.Visible:=false;
end;
//***********************************************************************************
procedure TBFHY_F.QX_FBtnClick(Sender: TObject);
begin
  close;
end;
//***********************************************************************************
procedure TBFHY_F.QD_FBtnClick(Sender: TObject);    //确定操作
var
  myini:TIniFile;
  num,Flag:integer;
  BackPath,ExePath:string;
  StartupInfo:TStartupInfo;
  ProcessInfo:TProcessInformation;
begin
  ExePath:=ExtractFilePath(Application.ExeName);
  myini:=TIniFile.Create(ExePath+'set.ini');
  if BF_FRBtn.Checked then
    begin
      Flag:=MessageBox(handle,'为了保证备份数据的正确性，必须退出本程序，确认吗？','备份确认',MB_OKCANCEL or MB_ICONINFORMATION);
      if Flag=IDCancel then
        begin
          FreeAndNil(myini);
          exit;
        end;
      num:=myini.ReadInteger('bakup','num',0);
      num:=num+1;
      BackPath:=myini.ReadString('bakup','BakPath','0');
      myini.WriteInteger('bakup','CZ',0);
      myini.WriteInteger('bakup','num',num);
      myini.WriteString('bakupdian','bak'+IntToStr(num),AnsiReplaceStr(DateTimeToStr(now),':',''));
      myini.WriteString('bakupdian',AnsiReplaceStr(DateTimeToStr(now),':',''),BackPath);
      FreeAndNil(myini);
      StartupInfo.cb:=sizeof(StartupInfo);
      FillChar(StartupInfo,Sizeof(StartupInfo),#0);
      CreateProcess(pchar(ExePath+'BackUp.exe'),nil,nil,nil,false,0,nil,nil,StartupInfo,ProcessInfo);
      Application.Terminate;
    end
    else begin
      Flag:=MessageBox(handle,'为了保证还原的正确性，必须退出本程序，确认吗？','还原确认',MB_OKCANCEL or MB_ICONINFORMATION);
      if Flag=IDCancel then
        begin
          FreeAndNil(myini);
          exit;
        end;
      myini.WriteInteger('bakup','CZ',1);
      myini.WriteString('bakup','RQ',RQD_FCB.Text);
      FreeAndNil(myini);
      StartupInfo.cb:=sizeof(StartupInfo);
      FillChar(StartupInfo,Sizeof(StartupInfo),#0);
      CreateProcess(pchar(ExePath+'BackUp.exe'),nil,nil,nil,false,0,nil,nil,StartupInfo,ProcessInfo);
      Application.Terminate;
    end;
end;

end.