sysinfo.pas

用delphi编的房屋租赁管里系统

unit SysInfo;

interface

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

type
  TSysInfoForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    OldEdit: TEdit;
    Label2: TLabel;
    NewEdit: TEdit;
    Label3: TLabel;
    ConfirmEdit: TEdit;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SysInfoForm: TSysInfoForm;

implementation

uses DataModule, Main;


{$R *.DFM}

procedure TSysInfoForm.BitBtn1Click(Sender: TObject);
var
  failure :boolean;
begin
  failure:=false;

  if not copyfile('House.dbf','e:\House.dbf',false) then
     failure:=true;
  if not copyfile('Contract.dbf','e:\Contract.dbf',false) then
     failure:=true;
  if not copyfile('Rent.dbf','e:\Rent.dbf',false) then
     failure:=true;
  if not copyfile('config.sys','e:\config.sys',false) then
     failure:=true;

  if failure then
    ShowMessage('数据备份没有成功!')
  else
    ShowMessage('数据备份结束!');
end;

procedure TSysInfoForm.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

procedure TSysInfoForm.BitBtn3Click(Sender: TObject);
var
  failure :boolean;
begin
  failure:=False;

  DataContrls.HTable.Close;
  DataContrls.RTable.Close;
  DataContrls.CTable.Close;

  if FileExists('House.dbf')  then
  begin
    DeleteFile('House.dbf') ;
    if not copyfile('e:\House.dbf','House.dbf',false) then
     failure:=true;
  end;
  if FileExists('fwht.dbf')  then
  begin
   DeleteFile('Contract.dbf') ;
   if not copyfile('e:\Contract.dbf','Contract.dbf',false) then
     failure:=true;
  end;
  if FileExists('Rent.dbf')  then
  begin
    DeleteFile('Rent.dbf') ;
    if not copyfile('e:\Rent.dbf','Rent.dbf',false) then
     failure:=true;
  end;
  if FileExists('config.sys')  then
  begin
    DeleteFile('config.sys') ;
    if not copyfile('e:\config.sys','config.sys',false) then
     failure:=true;
  end;
  if failure then
    ShowMessage('数据恢复没有成功!')
  else
  begin
    ShowMessage('数据恢复结束!');

    DataContrls.HTable.DatabaseName := ExtractFilePath (Application.ExeName);
    DataContrls.HTable.TableName := 'House.dbf';
    DataContrls.HTable.Close;
    DataContrls.HTable.Open;

    DataContrls.CTable.DatabaseName := ExtractFilePath (Application.ExeName);
    DataContrls.CTable.TableName := 'Contract.dbf';
    DataContrls.CTable.close;
    DataContrls.CTable.Open;

    DataContrls.RTable.DatabaseName := ExtractFilePath (Application.ExeName);
    DataContrls.RTable.TableName := 'Rent.dbf';
    DataContrls.RTable.close;
    DataContrls.RTable.Open;

    Close;
  end;
end;

procedure TSysInfoForm.BitBtn4Click(Sender: TObject);
begin
  Close;
end;

procedure TSysInfoForm.BitBtn5Click(Sender: TObject);
var
  PWFile: TextFile;
  Possword : string;
begin
  AssignFile(PWFile,'config.sys');
  Reset(PWFile);
  Readln(PWFile,Possword);
  CloseFile(PWFile);

  if  OldEdit.Text <> Possword then
    Showmessage('原密码不对，不能修改密码。')
  else if NewEdit.Text = ConfirmEdit.Text then
       begin
         AssignFile(PWFile,'config.sys');
         Rewrite(PWFile);
         Writeln(PWFile,NewEdit.Text);
         CloseFile(PWFile);
         ShowMessage('密码修改成功.');
       end
       else begin
              ShowMessage('新密码和确认密码不一致。');
              NewEdit.SetFocus;
            end;
end;

procedure TSysInfoForm.BitBtn6Click(Sender: TObject);
begin
  Close;
end;

end.