borrsearc.~pas

实现图书馆数据库管理功能

unit borrsearc;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, ComCtrls, Menus,  ImgList,
  Grids, DBGrids, Buttons, ToolWin, DB, ADODB, QuickRpt, QRCtrls;

type
  Tborrsearch = class(TForm)
    Image_close: TImage;
    Image_right: TImage;
    Image_left: TImage;
    Image_bottom: TImage;
    Image_maximize: TImage;
    Image_minimize: TImage;
    ToolBar1: TToolBar;
    Sp1: TSpeedButton;
    ToolButton1: TToolButton;
    Sp2: TSpeedButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    SpeedButton4: TSpeedButton;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Bevel1: TBevel;
    E3: TEdit;
    E4: TEdit;
    dt1: TDateTimePicker;
    dt2: TDateTimePicker;
    e1: TEdit;
    E2: TEdit;
    cb1: TCheckBox;
    CB2: TCheckBox;
    GroupBox2: TGroupBox;
    label11: TLabel;
    Label5: TLabel;
    Label12: TLabel;
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ads1: TADODataSet;
    DataSource1: TDataSource;
    Image_title: TImage;
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    Image3: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Sp1Click(Sender: TObject);
    procedure CB2Click(Sender: TObject);
    procedure Sp2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);

  private

    { Private declarations }
    originalpos:tpoint;
    currentpos:tpoint;
    downpos:tpoint;
    mouselbuttondown:boolean;
    originalwid,originalhei:integer;
    flag:string;
    flag_normal:boolean;
     public
    { Public declarations }
  end;

var
  borrsearch: Tborrsearch;


implementation

uses  Unit2;

{$R *.dfm}






procedure Tborrsearch.FormCreate(Sender: TObject);

begin
flag_normal:=true;
mouselbuttondown:=false;
dt1.Date:=form2.GetCurrentDateTime;
dt2.Date:=form2.GetCurrentDateTime;
dt1.Enabled:=false;
dt2.Enabled:=false;
//hr:=createrectrgn(0,0,width,height);
//setwindowrgn(handle,hr,true)
end;





procedure Tborrsearch.Sp1Click(Sender: TObject);
var t1,t2,t3,t4,t7,st:string;
begin
  IF (e1.Text='') and (e2.Text='') and (e3.Text='') and (e4.Text='') and (not cb2.Checked) then
    begin
        messagedlg('您没有输入任何条件',mtwarning,[mbok],0);
        exit;
    end;
  if (e1.Text<>'')and (not cb1.Checked) then
     t1:=e1.Text
  else if e1.Text='' then
          t1:='%'
       else
         t1:='%'+e1.Text+'%';

  if (e2.Text<>'')and (not cb1.Checked) then
     t2:=e2.Text
   else if e2.Text='' then
          t2:='%'
        else
          t2:='%'+e2.Text+'%';

   if (e3.Text<>'')and (not cb1.Checked) then
     t3:=e3.Text
   else if e3.Text='' then
           t3:='%'
         else
           t3:='%'+e3.Text+'%';

   if (e4.Text<>'')and (not cb1.Checked) then
     t4:=e4.Text
   else if e4.Text='' then
           t4:='%'
         else
           t4:='%'+e4.Text+'%';

 
  if cb2.Checked then
    t7:=' and b.借书日期>=#'+formatdatetime('yyyy-mm-dd',dt1.date)+'#'+'and b.借书日期<=#'+formatdatetime('yyyy-mm-dd',dt2.date)+'#'
    else t7:='';

ads1.Active:=false;
st:='select c.读者编号,c.姓名,a.书籍编号,a.书籍名称,b.借书日期 from ((书库管理 a inner join 借书情况 b on a.书籍编号=b.书籍编号) ';
st:=st+'inner join 读者管理 c on b.读者编号=c.读者编号)';
st:=st+' where b.书籍编号 like'''+t1+''''+'and a.书籍名称 like'''+t2+''''+' and c.姓名 like '''+t4+''''+' and b.读者编号 like'''+t3+''''+t7;
ads1.CommandText:=st;
ads1.Active:=true;
label12.Caption:=inttostr(ads1.RecordCount)+'条';

end;

procedure Tborrsearch.CB2Click(Sender: TObject);
begin
if cb2.Checked then
begin

    dt1.Enabled:=true;
    dt2.Enabled:=true;
end
else
    begin

       dt1.Enabled:=false;
       dt2.Enabled:=false;
    end;

end;

procedure Tborrsearch.Sp2Click(Sender: TObject);
begin
e1.Text:='';
e2.Text:='';
e3.Text:='';
e4.Text:='';
cb2.Checked:=false;
dt1.Enabled:=false;
dt2.Enabled:=false;
label12.Caption:='0条';
ads1.Active:=false;
cb1.Checked:=false;

end;


procedure Tborrsearch.SpeedButton4Click(Sender: TObject);
begin
close
end;

procedure Tborrsearch.Image1Click(Sender: TObject);
begin
close;
end;

end.