lend.pas

现在家庭藏书越来越多

unit lend;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, mybook, ComCtrls, DB, ADODB;

type
  TForm4 = class(TForm)
    grp1: TGroupBox;
    grp2: TGroupBox;
    lbl1: TLabel;
    edt1: TEdit;
    btn1: TButton;
    btn2: TButton;
    dbgrd1: TDBGrid;
    lbl2: TLabel;
    edt2: TEdit;
    lbl3: TLabel;
    lbl4: TLabel;
    ds1: TDataSource;
    qry1: TADOQuery;
    tbl1: TADOTable;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  booklist4:tbooklist;
implementation
uses
main;
{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);
begin
 booklist4:=tbooklist.create;
 booklist4.connect.adoquery:=qry1;
 booklist4.connect.adotable:=tbl1;
 booklist4.connect.datasource2:=ds1;
 booklist4.connect.dbgrid:=dbgrd1;
 booklist4.connect.displayquery;
 booklist4.displaybookdbgrid(dbgrd1);
 datetimepicker1.Date:=now;
 datetimepicker2.Date:=now;
end;

procedure TForm4.FormDestroy(Sender: TObject);
begin
 booklist4.Free;
 booklist4:=nil;
end;

procedure TForm4.btn1Click(Sender: TObject);
begin
 booklist4.searchbook(trim(edt1.Text));
end;

procedure TForm4.btn2Click(Sender: TObject);
begin
if trim(edt2.Text)='' then
  begin
  messagedlg('借书人不能为空，请检查',mterror,[mbok],0);
  exit;
  end
 else
  booklist4.lendbook(edt2.Text,formatdatetime('yyyymmdd',datetimepicker1.DateTime),formatdatetime('yyyymmdd',datetimepicker2.DateTime));
end;

end.