printbookfrm.~pas

基于Interbase的图书管理系统

unit printbookfrm;

interface

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

type
  TprintbookForm = 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 setbookRange(startstr,endstr:string);
    { Public declarations }
  end;

var
  printbookForm: TprintbookForm;
  startbookid,endbookid:string;

implementation

uses dmfrm;

{$R *.dfm}

procedure TprintbookForm.setbookRange(startstr, endstr: string);
var
 tempstr:string;
begin
 if startstr>endstr then
    begin
     tempstr:=endstr;
     endstr:=startstr;
     startstr:=tempstr;
    end;
 dmbook.closebook;
 if not RB1.Checked then
    begin
    if RB2.Checked then
       dmbook.Qrybook.Filter:='book_id='+QuotedStr(startstr)
   else dmbook.Qrybook.Filter:='book_id>='+QuotedStr(startstr)+' and '+'book_id<='+QuotedStr(endstr);
     dmbook.Qrybook.Filtered:=true;
      end
  else begin
  //  showmessage('hello');
    dmbook.Qrybook.Filter:=Emptystr;
    dmbook.Qrybook.Filtered:=false;
       end;
   dmbook.openbook;     
end;

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

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

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

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

procedure TprintbookForm.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 ['a'..'z','A'..'Z','0'..'9','-',#8]) then
   begin
    key:=#0;
    beep;
   end;
  if (key in ['a'..'z']) then key:=chr(ord(key)-32);
end;

end.