unit1.pas

本系统是一个房屋出租方面的管理系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, Menus, ExtCtrls, jpeg, shellapi;

type
  TFormZ = class(TForm)
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    SpeedButton11: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    
   


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormZ: TFormZ;

implementation

uses unit8,unit2,unit3,unit4,unit9,unit10,unit17,unit19;
{$R *.dfm}



procedure TFormZ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   application.Terminate;
end;


procedure TFormZ.SpeedButton1Click(Sender: TObject);
begin
   FormFWXXZ.Show;
end;

procedure TFormZ.SpeedButton2Click(Sender: TObject);
begin
   FormXYFWZ.Show;   
end;

procedure TFormZ.SpeedButton3Click(Sender: TObject);
begin
   FormCZXXZ.Show;
end;

procedure TFormZ.SpeedButton4Click(Sender: TObject);
begin
   FormZHDJZ.Show;   
end;

procedure TFormZ.SpeedButton5Click(Sender: TObject);
begin
   if application.MessageBox('是否要退出系统?','提示',MB_OKCANCEL+MB_ICONINFORMATION) = IDOK then
      application.Terminate;
end;




procedure TFormZ.SpeedButton6Click(Sender: TObject);
var
   Str_Path :string;
begin
  SaveDialog1.Filter := '所有文件(*.*)|*.*';
  SaveDialog1.Title := '选择备份路径和文件名';
  if SaveDialog1.Execute=true then
    begin
      Str_Path:=SaveDialog1.FileName;
    end;
  if Str_Path<>'' then
    begin
      with database.ADO_SJBF do
        begin
          try
            Screen.Cursor := crHourGlass;
            database.ADO_SJBF.Close;
            database.ADO_SJBF.SQL.Clear;
            database.ADO_SJBF.SQL.Add(' BACKUP DATABASE 房屋出租管理 TO DISK ='+'''' +Str_Path+'''');
            database.ADO_SJBF.ExecSQL();
            Screen.Cursor := crDefault;
            Application.MessageBox('数据库备份成功完成','数据库备份',0+mb_iconinformation);
         except
            Screen.Cursor := crDefault;
            Application.MessageBox('数据库备份失败！请检查备份路径或网络状态','数据库备份',0+mb_iconinformation);
            exit;
          end;
        end;
    end;
end;

procedure TFormZ.SpeedButton7Click(Sender: TObject);
var
  Str_Path:string;
begin
  database.ADOConnection1.Close;
  database.ADOConnection1.Connected:=False;
  Opendialog1.Filter := '所有文件(*.*)|*.*';
  Opendialog1.Title := '选择恢复文件路径和文件名';
  if Opendialog1.Execute then
    Str_Path:=opendialog1.FileName;
  if Str_Path<>'' then
  begin
    with database.ADO_SJBF do
    begin
    try
      try
        Screen.Cursor := crHourGlass;
        Close;
        SQL.Clear;
        SQL.Add('use master restore  DATABASE 房屋出租管理 from DISK ='+'''' +Str_Path+'''');
        ExecSQL();
        Screen.Cursor := crDefault;
        Application.MessageBox('数据库恢复成功完成!','数据库恢复',0+mb_iconinformation);
      except
        Screen.Cursor := crDefault;
        Application.MessageBox('数据库恢复失败！请检查备份路径或网络状态','数据库恢复',0+mb_iconinformation);
        exit;
      end;
      Finally
        with database.ADOQuery1 do
          begin
            Close;
            SQL.Clear;
            SQL.Add('USE 房屋出租管理');
            ExecSQL;
          end;
      end;
    end;
  end;
  database.ADOConnection1.Open;
  database.ADOConnection1.Connected:=true;
end;

procedure TFormZ.SpeedButton8Click(Sender: TObject);
begin
    ShellExecute(handle,'open','calc.exe',nil,nil,sw_shownormal);
end;

procedure TFormZ.SpeedButton9Click(Sender: TObject);
begin
   ShellExecute(handle,'open','notepad.exe',nil,nil,sw_shownormal);
end;

procedure TFormZ.FormCreate(Sender: TObject);
begin
   try
      if (Screen.Width = 800) and (Screen.Height = 600) then
      begin
         FormZ.Left:=0;
         FormZ.Width:=800;
         FormZ.Top:=0;
         FormZ.Height:=566;
      end;
      if (Screen.Width = 1024) and ( Screen.Height = 768) then
      begin
         FormZ.Width:=800;
         FormZ.Height:=566;
         FormZ.Position:=poDesktopCenter;
      end;
   except
      Application.MessageBox('请正确选择屏幕分辨率：1024X768 或 800X600 !','提示！',0+64);
      exit;
   end;
end;

procedure TFormZ.SpeedButton10Click(Sender: TObject);
begin
   application.CreateForm(TFormAbout,FormAbout);
   FormAbout.ShowModal;
   FormAbout.Free;   
end;

procedure TFormZ.SpeedButton11Click(Sender: TObject);
begin
   form_mmxg.Show;
end;

end.