readeridrpfrm.pas

基于Interbase的图书管理系统

unit readeridrpfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ChildFrm, QRCtrls, QuickRpt, ExtCtrls, Buttons, StdCtrls,QRPrntr,
  Menus;

type
  TreaderidQPForm = class(TChildForm)
    Panel1: TPanel;
    Splitter1: TSplitter;
    pnlpreview: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Image1: TImage;
    Label1: TLabel;
    QRreader: TQuickRep;
    PageFooterBand1: TQRBand;
    PageHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    ColumnHeaderBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRShape1: TQRShape;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRLabel7: TQRLabel;
    QRSysData1: TQRSysData;
    QRSysData2: TQRSysData;
    QRbookid: TQuickRep;
    DetailBand2: TQRBand;
    QRShape7: TQRShape;
    QRDBText6: TQRDBText;
    QRreaderid: TQuickRep;
    DetailBand3: TQRBand;
    QRDBText7: TQRDBText;
    QRShape8: TQRShape;
    QRDBText8: TQRDBText;
    QRShape9: TQRShape;
    QRDBText9: TQRDBText;
    QRShape10: TQRShape;
    QRDBText10: TQRDBText;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    QRDBText11: TQRDBText;
    QRShape13: TQRShape;
    BitBtn4: TBitBtn;
    QRquitreader: TQuickRep;
    QRBand1: TQRBand;
    QRLabel9: TQRLabel;
    QRSysData3: TQRSysData;
    QRBand2: TQRBand;
    QRShape14: TQRShape;
    QRShape15: TQRShape;
    QRShape16: TQRShape;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRBand3: TQRBand;
    QRShape17: TQRShape;
    QRShape18: TQRShape;
    QRShape19: TQRShape;
    QRDBText12: TQRDBText;
    QRDBText13: TQRDBText;
    QRDBText14: TQRDBText;
    QRDBText15: TQRDBText;
    QRDBText16: TQRDBText;
    QRBand4: TQRBand;
    QRLabel16: TQRLabel;
    QRSysData4: TQRSysData;
    QRShape20: TQRShape;
    QRLabel17: TQRLabel;
    QRShape21: TQRShape;
    QRDBText17: TQRDBText;
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure QRSysData2Print(sender: TObject; var Value: String);
    procedure QRreaderPreview(Sender: TObject);
    procedure QRDBText7Print(sender: TObject; var Value: String);
    procedure BitBtn4Click(Sender: TObject);
    procedure QRquitreaderPreview(Sender: TObject);
    procedure QRDBText16Print(sender: TObject; var Value: String);
    procedure QRbookidAfterPreview(Sender: TObject);
    procedure QRreaderidAfterPreview(Sender: TObject);
 private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  readeridQPForm: TreaderidQPForm;

implementation
uses dmfrm, qrpassfrm, qrreaderfrm, printbookfrm, printreaderidfrm;
{$R *.dfm}

procedure TreaderidQPForm.FormDestroy(Sender: TObject);
begin
  inherited;
 readeridQPForm:=nil;
end;

procedure TreaderidQPForm.FormShow(Sender: TObject);
begin
  inherited;
dmbook.closebook;
dmbook.closereader;
dmbook.closeQryReaderQuit;
dmbook.openbook;
//dmbook.openbooktypedb;
dmbook.openreader;
dmbook.OpenQryReaderQuit;
end;

procedure TreaderidQPForm.BitBtn1Click(Sender: TObject);
var
 tt:integer;
begin
  inherited;
QRreaderform.QRPreview.QRPrinter:=nil;
QRreaderform.ToolBar1.Enabled:=false;
QRreaderform.firstNavbutton;
 if not assigned(printbookForm) then
   printbookForm:=TprintbookForm.Create(Application);
 try
  tt:=printbookForm.ShowModal;
  finally
  printbookForm.Free;
  printbookForm:=nil;
 end;
 if tt=1 then begin
   if QRreaderform.ToolBar1.Enabled=false then QRreaderform.ToolBar1.Enabled:=true;
   QRbookid.Preview;
       end;
 if tt=2 then Qrbookid.Print;
end;

procedure TreaderidQPForm.BitBtn2Click(Sender: TObject);
var
 tt:integer;
begin
  inherited;
 QRreaderform.QRPreview.QRPrinter:=nil;
 QRreaderform.ToolBar1.Enabled:=false;
 QRreaderform.firstNavbutton;
 if not assigned(printReaderidForm) then
   printReaderidForm:=TprintReaderidForm.Create(Application);
 try
 tt:=printReaderidForm.ShowModal;
  finally
  printReaderidForm.Free;
  printReaderidForm:=nil;
 end;
 if tt=1 then begin
     if QRreaderform.ToolBar1.Enabled=false then QRreaderform.ToolBar1.Enabled:=true;
   QRreaderid.Preview;
    end;
 if tt=2 then QRreaderid.Print;
end;

procedure TreaderidQPForm.FormCreate(Sender: TObject);
begin
  inherited;
  if not assigned(QRreaderform) then
  QRreaderform:=TQRreaderform.Create(self,pnlpreview);
  QRreaderform.Show;
  QRquitreader.Visible:=false;
  QRbookid.Visible:=false;
  QRreaderid.Visible:=false;
  QRreader.Visible:=false;    
end;

procedure TreaderidQPForm.BitBtn3Click(Sender: TObject);
begin
  inherited;
QRreaderform.QRPreview.QRPrinter:=nil;
QRreaderform.ToolBar1.Enabled:=false;
QRreaderform.firstNavbutton;
if QRreaderform.ToolBar1.Enabled=false then QRreaderform.ToolBar1.Enabled:=true;
 QRreader.Preview;
end;

procedure TreaderidQPForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  inherited;
QRreaderform.free;
QRreaderform:=nil;
CanClose:=true;
end;

procedure TreaderidQPForm.QRSysData2Print(sender: TObject;
  var Value: String);
begin
  inherited;
  Value:='第'+Value+'页';
end;

procedure TreaderidQPForm.QRreaderPreview(Sender: TObject);
begin
  inherited;
QRreaderform.QRPreview.QRPrinter:=TQRPrinter(sender);
end;

procedure TreaderidQPForm.QRDBText7Print(sender: TObject;
  var Value: String);
begin
  inherited;
  Value:='NO.'+Value;
end;

procedure TreaderidQPForm.BitBtn4Click(Sender: TObject);
begin
  inherited;
 QRreaderform.QRPreview.QRPrinter:=nil;
 QRreaderform.ToolBar1.Enabled:=false;
 QRreaderform.firstNavbutton;
 if QRreaderform.ToolBar1.Enabled=false then QRreaderform.ToolBar1.Enabled:=true;
 QRquitreader.Preview;
end;

procedure TreaderidQPForm.QRquitreaderPreview(Sender: TObject);
begin
  inherited;
 QRreaderform.QRPreview.QRPrinter:=TQRPrinter(sender);
end;

procedure TreaderidQPForm.QRDBText16Print(sender: TObject;
  var Value: String);
begin
  inherited;
Value:=FormatDateTime('yyyy.mm.dd',StrToDateTime(Value));
end;

procedure TreaderidQPForm.QRbookidAfterPreview(Sender: TObject);
begin
  inherited;
 try
 dmbook.closebook;
 dmbook.openbook;
 dmbook.bookfirst;
 except
 end;
end;

procedure TreaderidQPForm.QRreaderidAfterPreview(Sender: TObject);
begin
  inherited;
  try
  dmbook.closereader;
  dmbook.openreader;
  dmbook.readerfirst;
  except
  end;
end;

end.