rpcloseidfrm.pas

基于Interbase的图书管理系统

unit rpcloseidfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QRCtrls, QuickRpt, ExtCtrls;

type
  Trpcloseidform = class(TForm)
    QRreaderid: TQuickRep;
    DetailBand3: TQRBand;
    QRShape13: TQRShape;
    QRDBText7: TQRDBText;
    QRShape8: TQRShape;
    QRDBText8: TQRDBText;
    QRShape9: TQRShape;
    QRDBText9: TQRDBText;
    QRShape10: TQRShape;
    QRDBText10: TQRDBText;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    QRDBText11: TQRDBText;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rpcloseidform: Trpcloseidform;

implementation

uses dmfrm;

{$R *.dfm}

procedure Trpcloseidform.FormCreate(Sender: TObject);
begin
  dmbook.openreader;
end;

end.