printreaderidfrm.pas

基于Interbase的图书管理系统

unit printreaderidfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TprintReaderidForm = class(TForm)
    Image1: TImage;
    BBpreview: TBitBtn;
    BBprint: TBitBtn;
    BBcancel: TBitBtn;
    GroupBox1: TGroupBox;
    RB1: TRadioButton;
    RB2: TRadioButton;
    RB3: TRadioButton;
    Edbookid1: TEdit;
    Edbookid2: TEdit;
    Label1: TLabel;
    Edbookid: TEdit;
    procedure BBpreviewClick(Sender: TObject);
    procedure BBprintClick(Sender: TObject);
    procedure BBcancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure EdbookidKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    procedure setreaderRange(startstr,endstr:string);
    { Public declarations }
  end;

var
  printReaderidForm: TprintReaderidForm;
  startbookid,endbookid:string;

implementation

uses dmfrm;

{$R *.dfm}

procedure TprintReaderidForm.setreaderRange(startstr, endstr: string);
var
 tempstr:string;
begin
 if startstr>endstr then
    begin
     tempstr:=endstr;
     endstr:=startstr;
     startstr:=tempstr;
    end;
 dmbook.closereader;
 if not RB1.Checked then
    begin
    if RB2.Checked then
       dmbook.Qryreader.Filter:='reader_id='+QuotedStr(startstr)
   else dmbook.Qryreader.Filter:='reader_id>='+QuotedStr(startstr)+' and '+'reader_id<='+QuotedStr(endstr);
     dmbook.Qryreader.Filtered:=true;
      end
  else begin
  //  showmessage('hello');
    dmbook.Qryreader.Filter:=Emptystr;
    dmbook.Qryreader.Filtered:=false;
       end;
   dmbook.openreader;
end;

procedure TprintReaderidForm.BBpreviewClick(Sender: TObject);
begin
 if RB1.Checked then
  setreaderRange(Emptystr,Emptystr);
 if RB2.Checked then
  setreaderRange(Edbookid.Text,Edbookid.Text);
 if RB3.Checked then
   setreaderRange(Edbookid1.Text,Edbookid2.Text);
   ModalResult:=1;
end;

procedure TprintReaderidForm.BBprintClick(Sender: TObject);
begin
 if RB1.Checked then
  setreaderRange(Emptystr,Emptystr);
 if RB2.Checked then
  setreaderRange(Edbookid.Text,Edbookid.Text);
 if RB3.Checked then
   setreaderRange(Edbookid1.Text,Edbookid2.Text);
ModalResult:=2;
end;

procedure TprintReaderidForm.BBcancelClick(Sender: TObject);
begin
ModalResult:=3;
end;

procedure TprintReaderidForm.FormCreate(Sender: TObject);
begin
Edbookid.Clear;
Edbookid1.Clear;
Edbookid2.Clear;
RB1.Checked:=true;
end;

procedure TprintReaderidForm.EdbookidKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
   begin
    if Tedit(Sender)=Edbookid then BBpreview.OnClick(self);
    if Tedit(Sender)=Edbookid1 then Edbookid2.SetFocus;
    if Tedit(Sender)=Edbookid2 then BBpreview.OnClick(self);
   end;
  if not(key in ['0'..'9',#8]) then
   begin
    key:=#0;
    beep;
   end;
end;

end.