mrwx_bb.pas

这是用Delphi编写的维修管理系统。主要功能包括业务管理

unit MRWX_BB;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ToolWin, QRPrntr;

type
  TMR_WXBB = class(TForm)
    QRPreview1: TQRPreview;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    procedure ToolButton12Click(Sender: TObject);
    procedure QRPreview1PageAvailable(Sender: TObject; PageNum: Integer);
    procedure ToolButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
  private
    bby:integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MR_WXBB: TMR_WXBB;

implementation

uses MR_WXFORM;

{$R *.DFM}

procedure TMR_WXBB.ToolButton12Click(Sender: TObject);
begin
close;
end;

procedure TMR_WXBB.QRPreview1PageAvailable(Sender: TObject;
  PageNum: Integer);
begin
bby:=pagenum;
end;

procedure TMR_WXBB.ToolButton1Click(Sender: TObject);
begin
qrpreview1.pagenumber:=1;
end;

procedure TMR_WXBB.FormClose(Sender: TObject; var Action: TCloseAction);
begin
mr_wxbb.release;
mr_wxbb:=nil;
end;

procedure TMR_WXBB.ToolButton2Click(Sender: TObject);
begin
qrpreview1.pagenumber:=qrpreview1.pagenumber-1;
end;

procedure TMR_WXBB.ToolButton3Click(Sender: TObject);
begin
qrpreview1.PageNumber:=qrpreview1.pagenumber+1;
end;

procedure TMR_WXBB.ToolButton6Click(Sender: TObject);
begin
qrpreview1.ZoomToFit;
end;

procedure TMR_WXBB.ToolButton7Click(Sender: TObject);
begin
qrpreview1.Zoom:=100;
end;

procedure TMR_WXBB.ToolButton8Click(Sender: TObject);
begin
qrpreview1.ZoomToWidth;
end;

procedure TMR_WXBB.ToolButton10Click(Sender: TObject);
begin
qrpreview1.QRPrinter.Print;
end;

procedure TMR_WXBB.ToolButton11Click(Sender: TObject);
begin
qrpreview1.QRPrinter.PrintSetup;
end;

procedure TMR_WXBB.ToolButton4Click(Sender: TObject);
begin
qrpreview1.PageNumber:=bby;
end;

end.