rdrearch.~pas

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

unit rdrearch;

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
  Trdsearch = class(TForm)
    Image_right: TImage;
    Image_left: TImage;
    Image_bottom: TImage;
    ToolBar1: TToolBar;
    Sp1: TSpeedButton;
    ToolButton1: TToolButton;
    Sp2: TSpeedButton;
    ToolButton3: TToolButton;
    ToolButton2: TToolButton;
    Sp5: TSpeedButton;
    ToolButton4: TToolButton;
    SpeedButton4: TSpeedButton;
    GroupBox2: TGroupBox;
    label11: TLabel;
    Label5: TLabel;
    Label12: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Bevel1: TBevel;
    E3: TEdit;
    dt1: TDateTimePicker;
    dt2: TDateTimePicker;
    e1: TEdit;
    cb1: TCheckBox;
    CB2: TCheckBox;
    DBGrid1: TDBGrid;
    C1: TComboBox;
    Label4: TLabel;
    ADOConnection1: TADOConnection;
    ADS1: TADODataSet;
    DataSource1: TDataSource;
    Image_title: TImage;
    Image_close: TImage;
    Image1: TImage;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);

    procedure Sp1Click(Sender: TObject);
    procedure CB2Click(Sender: TObject);
    procedure Sp2Click(Sender: TObject);
    procedure Sp5Click(Sender: TObject);
    procedure SpeedButton4Click(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
  rdsearch: Trdsearch;


implementation

uses Unit2;

{$R *.dfm}






procedure Trdsearch.FormCreate(Sender: TObject);
begin
flag_normal:=true;
mouselbuttondown:=false;
c1.ItemIndex:=0;
dt1.Enabled:=false;
dt2.Enabled:=false;
dt1.Date:=form2.GetCurrentDateTime;
dt2.Date:=form2.GetCurrentDateTime;



//hr:=createrectrgn(0,0,width,height);
//setwindowrgn(handle,hr,true)
end;




procedure Trdsearch.Sp1Click(Sender: TObject);
var t1,t3,t4,t7:string;
begin

  if (e1.Text<>'')and (not cb1.Checked) then
     t1:=e1.Text
  else if e1.Text='' then
          t1:='%'
       else
         t1:='%'+e1.Text+'%';
   if (e3.Text<>'')and (not cb1.Checked) then
     t3:=e3.Text
   else if e3.Text='' then
           t3:='%'
         else
           t3:='%'+e3.Text+'%';
   if c1.Text='不限'then
      t4:='%'
   else
      t4:=c1.Text;
    if cb2.Checked then
    t7:=' and 办证日期>=#'+formatdatetime('yyyy-mm-dd',dt1.date)+'#'+'and 办证日期<=#'+formatdatetime('yyyy-mm-dd',dt2.date)+'#'
    else t7:='';

   ads1.Active:=false;
   ads1.CommandText:='select * from 读者管理 where 读者编号 like'''+t1+''''+'and 姓名 like'''+t3+''''+' and 性别 like '''+t4+''''+t7;
   ads1.Active:=true;
   label12.Caption:=inttostr(ads1.RecordCount);


end;

procedure Trdsearch.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 Trdsearch.Sp2Click(Sender: TObject);
begin
dt1.Enabled:=false;
dt2.Enabled:=false;
e1.Text:='';
e3.Text:='';
cb2.Checked:=false;
cb1.Checked:=false;
ads1.Active:=false;
end;


procedure Trdsearch.Sp5Click(Sender: TObject);
begin
ads1.Active:=false;
   ads1.CommandText:='select * from 读者管理 ';
   ads1.Active:=true;
end;

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

end.