readeridfrm.~pas

基于Interbase的图书管理系统

unit readeridfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ButtonFrm, StdCtrls, Buttons, ExtCtrls, ComCtrls, ExtDlgs,childfrm,
  Menus;

type
  TReaderidForm = class(Tbuttonform)
    GroupBox1: TGroupBox;
    Splitter1: TSplitter;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    EdreaderNo: TEdit;
    BtBliveID: TBitBtn;
    Label2: TLabel;
    EdReaderid: TEdit;
    Label3: TLabel;
    Edname: TEdit;
    Label4: TLabel;
    Eddept: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    EdNo: TEdit;
    BtBcancel: TBitBtn;
    BtBclear: TBitBtn;
    BtBimgload: TBitBtn;
    DTPdate: TDateTimePicker;
    pnlPhoto: TPanel;
    ImgPhoto: TImage;
    OPDphoto: TOpenPictureDialog;
    Label8: TLabel;
    Edworkno: TEdit;
    procedure FormDestroy(Sender: TObject);
    procedure BtBclearClick(Sender: TObject);
    procedure BtBimgloadClick(Sender: TObject);
    procedure BtBcancelClick(Sender: TObject);
    procedure EdNoKeyPress(Sender: TObject; var Key: Char);
    procedure BBtnCancelClick(Sender: TObject);
    procedure BtBliveIDClick(Sender: TObject);
    procedure EdnameKeyPress(Sender: TObject; var Key: Char);
    procedure BBtnIDClick(Sender: TObject);
    procedure EdReaderidExit(Sender: TObject);
    procedure EdNoEnter(Sender: TObject);
    procedure EdworknoExit(Sender: TObject);
    procedure BBtnPrintClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
      { Public declarations }
  end;

var
  ReaderidForm: TReaderidForm;

implementation

uses dmfrm, prtreaderidfrm;

{$R *.dfm}
var
 photostring:string;
procedure TReaderidForm.FormDestroy(Sender: TObject);
begin
  inherited;
 ReaderidForm:=nil;
end;

procedure TReaderidForm.BtBclearClick(Sender: TObject);
begin
  inherited;
imgPhoto.Picture:=nil; 
end;

procedure TReaderidForm.BtBimgloadClick(Sender: TObject);
begin
  inherited;
if OPDPhoto.Execute then
 begin
  try
  imgPhoto.Picture.LoadFromFile(OPDPhoto.FileName);
  photostring:=OPDPhoto.FileName; 
  except
    bookInformation('加载照片失败！');
  end;
 end;
end;

procedure TReaderidForm.BtBcancelClick(Sender: TObject);
begin
  inherited;
EdreaderNo.Clear;
EdNo.Clear;
EdReaderid.Clear;
end;

procedure TReaderidForm.EdNoKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key=#13 then
    begin
     if Sender is TEdit then
      begin
       if TEdit(sender)=EdreaderNo then EdNo.SetFocus;
       if TEdit(sender)=EdNo then BtBliveID.SetFocus;
       if TEdit(sender)=EdReaderid then Edworkno.SetFocus;
       if TEdit(sender)=Edworkno then begin
                                       Edreaderno.Text:=Edworkno.Text;
                                       Edname.SetFocus;
                                      end;
    end;
   end
  else begin
        if not(key in ['0'..'9',#8]) then
         begin
          key:=#0;
          beep;
         end;
      end;
end;

procedure TReaderidForm.BBtnCancelClick(Sender: TObject);
begin
  inherited;
EdreaderNo.Clear;
EdNo.Clear;
EdReaderid.Clear;
Edworkno.Clear;
Edname.Clear;
Eddept.Clear;
imgPhoto.Picture:=nil; 
end;

procedure TReaderidForm.BtBliveIDClick(Sender: TObject);
begin
  inherited;
if EdreaderNo.Text=Emptystr then
 begin
  bookInformation('请输入工号！');
  EdreaderNo.SetFocus;
  exit;
 end;
if EdNo.Text=Emptystr then
  begin
   bookInformation('请输入流水号！');
   EdNo.SetFocus;
   exit;
  end;
  edReaderid.Text:=EdNo.Text;
  Edworkno.Text:=EdReaderno.Text;
if dmbook.ReaderISexists(edReaderid.text,'0') then
  begin
     bookInformation('该证号在数据库中已经存在！'+#13+'请重新编号。');
     EdNo.Clear;
     EdReaderid.Clear;
     Edworkno.Clear;
     EdNo.SetFocus;
   end
  else Edname.SetFocus;
end;

procedure TReaderidForm.EdnameKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
if key=#13 then
  begin
   if (sender is Tedit) then
     begin
     if Tedit(sender)=Edname then Eddept.SetFocus;
     if Tedit(sender)=Eddept then BBtnIDClick(Sender);
     end;
  { if (sender is TDateTimePicker) then
     begin
      if TDateTimePicker(sender)=DTPdate then BtBimgload.SetFocus;
     end;}
  end;
end;

procedure TReaderidForm.BBtnIDClick(Sender: TObject);
var
a1,a2,a3,a4,a5:string;
a6:Tdatetime;
begin
  inherited;
if EdReaderid.Text=Emptystr then
 begin
  bookInformation('请输入借书证号！');
  EdReaderid.SetFocus;
  exit;
 end;
if Edworkno.Text=Emptystr then
 begin
  bookInformation('请输入工号！');
  Edworkno.SetFocus;
  exit;
 end;
if Edname.Text=Emptystr then
 begin
  bookInformation('请输入姓名！');
  Edname.SetFocus;
  exit;
 end;
if Eddept.Text=Emptystr then
 begin
  bookInformation('请输入单位！');
  Eddept.SetFocus;
  exit;
 end;
a1:=EdReaderid.Text;
a2:=Edworkno.Text;
a3:=Edname.Text;
a4:=Eddept.Text;
a5:=photostring;
photostring:=Emptystr;
a6:=DTPdate.Datetime;
 try
  dmbook.InsertReader(a1,a2,a3,a4,a5,a6);
  EdreaderNo.Clear;
  Edworkno.Clear;
  Edname.Clear;
  Eddept.Clear;
   imgPhoto.Picture:=nil;
  if Edno.Text=Edreaderid.Text then
    begin
  childfrm.readercount:=childfrm.readercount+1;
  Edreaderno.SetFocus;
    end
   else Edreaderid.SetFocus;
   EdNo.Clear;
   EdReaderid.Clear;
 except
   bookError('读者信息入库失败！');
 end;
end;

procedure TReaderidForm.EdReaderidExit(Sender: TObject);
begin
  inherited;
if EdReaderid.Text=Emptystr then exit
else begin
if dmbook.ReaderISexists(edReaderid.text,'0') then
  begin
     bookInformation('该证号在数据库中已经存在！'+#13+'请重新编号。');
     EdNo.Clear;
     EdReaderid.Clear;
     EdReaderid.SetFocus;
   end;
  end;
end;

procedure TReaderidForm.EdNoEnter(Sender: TObject);
begin
  inherited;
if Edreaderno.Text=Emptystr then
  begin
  Edreaderno.SetFocus;
  exit;
  end;
 if dmbook.ReaderISexists(EdReaderid.Text,Edreaderno.Text) then
    begin
    bookInformation('他已经办了借书证！');
   EdreaderNo.Clear;
   EdNo.Clear;
   EdReaderid.Clear;
   Edworkno.Clear;
   Edreaderno.SetFocus;
    end;
 EdNo.Text:=inttostr(childfrm.readercount);
//设定流水号显示格式
 case length(edno.Text) of
  1:edno.Text:='000'+edno.Text;
  2:edno.Text:='00'+edno.Text;
  3:edno.Text:='0'+edno.Text;
  4:edno.Text:=edno.Text;
 end;
if edno.Text<>emptystr then BtBliveIDClick(sender);
end;

procedure TReaderidForm.EdworknoExit(Sender: TObject);
begin
  inherited;
if Edworkno.Text=Emptystr then exit;
if dmbook.ReaderISexists(EdReaderid.Text,Edworkno.Text) then
    begin
   bookInformation('他已经办了借书证！');
   EdreaderNo.Clear;
   Edworkno.Clear;
   Edworkno.SetFocus;
    end;
end;

procedure TReaderidForm.BBtnPrintClick(Sender: TObject);
begin
  inherited;
if not assigned(prtreaderidForm) then
 prtreaderidForm:=TprtreaderidForm.Create(Application);
try
prtreaderidForm.ShowModal; 
finally
prtreaderidForm.Free;
prtreaderidForm:=nil;
end;
end;

procedure TReaderidForm.FormCreate(Sender: TObject);
begin
  inherited;
 DTPdate.DateTime:=now;
end;

end.