mainboot.~pas

此为 汽车维修管理系统 采用ODBC驱动 控制面板里设置 数据库名:qcwxgl 说明：汽车维修管理 SQL服务器名:yangfeng 默认数据库名:qcwxgl

unit mainboot;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, check,Unit3,Unit5,Unit6,Unit7,StdCtrls,salary_win,
  mon_part,report2,ComCtrls, ImgList, ExtCtrls, Buttons, DB, DBTables,
  ADODB;

type
  Tlist = class(TForm)
    ScrollBox1: TScrollBox;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Query1: TQuery;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
  private
    { Private declarations }
    procedure wmmove(var msg:Tmessage); message wm_move;
  public
    { Public declarations }
  end;

var
  list: Tlist;

implementation

{$R *.dfm}
procedure Tlist.wmmove(var msg:Tmessage);
begin
inherited;
if list.Left<20 then
list.left:=0 ;
if list.top<20 then
list.top:=0;
if (screen.width-list.left-list.width)<20 then
list.left:=screen.width-list.width;
if (screen.height-list.top-list.height)<20 then
list.top:=screen.height-list.height;
end;
procedure Tlist.SpeedButton1Click(Sender: TObject);
begin
qcdj.Visible:=true;
end;

procedure Tlist.SpeedButton2Click(Sender: TObject);
begin
worker.Visible:=true;
end;

procedure Tlist.SpeedButton4Click(Sender: TObject);
begin
qcxlzc.Visible:=true;
end;

procedure Tlist.SpeedButton5Click(Sender: TObject);
begin
ljkcgl.Visible:=true;
end;

procedure Tlist.SpeedButton3Click(Sender: TObject);
begin
check_out.Show;
end;

procedure Tlist.SpeedButton7Click(Sender: TObject);
begin
sal_win.Show;
end;

procedure Tlist.SpeedButton8Click(Sender: TObject);
begin
ljdh_report2.Query1.Active:=false;
ljdh_report2.Query2.Active:=false;
ljdh_report2.Query1.Active:=true;
ljdh_report2.Query2.Active:=true;
ljdh_report2.QuickRep1.Preview;
end;

procedure Tlist.SpeedButton6Click(Sender: TObject);
begin
mon_par_win.ShowModal;
end;

procedure Tlist.SpeedButton9Click(Sender: TObject);
begin
Query1.Close;
try
with Query1 do
 begin
 close;
 SQL.Clear;
 SQL.Add('backup database qcwxgl to disk="c:\back1.bak" with init');
 ExecSQL;
 end;
 messagebeep(0);
 showmessage('备份成功');
 except
  begin
  messagebeep(0);
  showmessage('备份失败');
  end;
 end;
end;
procedure Tlist.SpeedButton10Click(Sender: TObject);
begin
 Query1.Close;
try
with Query1 do
 begin
 close;
 SQL.Clear;
 SQL.Add('restore database qcwxgl from disk="c:\back1.bak" ');
 ExecSQL;
 end;
 messagebeep(0);
 showmessage('还原成功');
 except
  begin
  messagebeep(0);
  showmessage('还原失败,数据库正在被使用');
  end;
 end;
end;
end.