ufrmselectbook.~pas

一款不错的图书馆借阅系统

unit ufrmSelectBook;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Mask, DBCtrls, ExtCtrls;

type
  TfrmSelectBook = class(TForm)
    Label1: TLabel;
    qryBook: TADOQuery;
    dsBook: TDataSource;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    edBookID: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    edBookCode: TDBEdit;
    edBookName: TDBEdit;
    edAuthor: TDBEdit;
    edPress: TDBEdit;
    edPrice: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure edBookIDKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSelectBook: TfrmSelectBook;

  function WorkfrmSelectBook:integer;

implementation

uses udmData;
var
   nSelectBookID:integer;
{$R *.dfm}
function WorkfrmSelectBook:integer;
begin
   nSelectBookID :=-1;
   Application.CreateForm(TfrmSelectBook,frmSelectBook);
   frmSelectBook.ShowModal;
   Result := nSelectBookID;

end;

procedure TfrmSelectBook.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := cafree;
end;

procedure TfrmSelectBook.Button2Click(Sender: TObject);
begin
  nSelectBookID := -1;
  Close;
end;

procedure TfrmSelectBook.Button1Click(Sender: TObject);
begin
  if qryBook.RecordCount < 1 then
    begin
      ShowMessage('请输入正确的书号！');
      exit;
    end;
  nSelectBookID := qryBook.FieldByName('BookID').Value;
  Close;
end;

procedure TfrmSelectBook.FormCreate(Sender: TObject);
begin
  qryBook.Close;
  qryBook.Parameters.ParamByName('BookID').Value := -1;
  qryBook.Open;
end;

procedure TfrmSelectBook.edBookIDKeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key = chr(13) then
    begin
      qryBook.Close;
      qryBook.Parameters.ParamByName('BookID').Value := StrToInt(edBookID.Text);
      qryBook.Open;
    end;
end;

end.