unit8.pas

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

unit Unit8;

interface

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

type
  Tbok_search = class(TForm)
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    Sp1: TSpeedButton;
    Sp2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    E3: TEdit;
    E4: TEdit;
    E5: TEdit;
    C1: TComboBox;
    Label9: TLabel;
    Label10: TLabel;
    dt1: TDateTimePicker;
    dt2: TDateTimePicker;
    e1: TEdit;
    E2: TEdit;
    Bevel1: TBevel;
    cb1: TCheckBox;
    ADOConnection1: TADOConnection;
    ads1: TADODataSet;
    DataSource1: TDataSource;
    Sp5: TSpeedButton;
    ToolButton4: TToolButton;
    CB2: TCheckBox;
    label11: TLabel;
    Label5: TLabel;
    Label12: TLabel;
    ADOQuery1: TADOQuery;
    ADOTable1: TADOTable;
    Image_title: TImage;
    Image1: TImage;
    Image_close: TImage;
    Label1: TLabel;
    Image2: TImage;
    procedure CB2Click(Sender: TObject);
    procedure Sp1Click(Sender: TObject);
    procedure Sp5Click(Sender: TObject);
    procedure Sp2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Sp3Click(Sender: TObject);
    procedure Image_minimizeClick(Sender: TObject);
    procedure Image_closeClick(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
  bok_search: Tbok_search;


implementation

uses Unit2;

{$R *.dfm}







procedure Tbok_search.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 Tbok_search.Sp1Click(Sender: TObject);
var t1,t2,t3,t4,t5,tc6,t7:string;
begin
  if (e1.Text='') and (e2.Text='') and (e3.Text='') and (e4.Text='') and (e5.Text='') and (c1.Text='不限') 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 (e5.Text<>'')and (not cb1.Checked) then
     t5:=e5.Text
  else if e5.Text='' then
         t5:='%'
         else
            t5:='%'+e5.Text+'%';

  if c1.Text='不限' then
     tc6:='%'
  else tc6:=inttostr(c1.itemindex);

  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'''+t2+''''+' and (索书号 like '''+t4+''''+' or 索书号 is null) and 作者名称 like'''+t3+''''+' and 出版社 like '''+t5+''''+' and 类别代码 like'''+tc6+''''+t7;
ads1.Active:=true;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(ads1.CommandText);
adoquery1.Active:=true;
if ads1.Recordset.BOF and ads1.Recordset.EOF then
begin
messagedlg('查无此书',mtinformation,[mbok],0);
end;
e1.Text:=adoquery1.fieldbyname('书籍编号').asstring;
e2.Text:=adoquery1.fieldbyname('书籍名称').asstring;
e3.Text:=adoquery1.fieldbyname('作者名称').asstring;
e4.Text:=adoquery1.fieldbyname('索书号').asstring;
e5.Text:=adoquery1.fieldbyname('出版社').asstring;
dt1.Date:=adoquery1.fieldbyname('登记日期').AsDateTime;

label12.Caption:=inttostr(adoquery1.RecordCount)+'本';
end;

procedure Tbok_search.Sp5Click(Sender: TObject);
begin
ads1.Active:=false;
ads1.CommandText:='select * from 书库管理 ';
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(ads1.CommandText);
adoquery1.Active:=true;
end;

procedure Tbok_search.Sp2Click(Sender: TObject);
begin
e1.Text:='';
e2.Text:='';
e3.Text:='';
e4.Text:='';
e5.Text:='';
c1.ItemIndex:=0;
cb2.Checked:=false;
dt1.Enabled:=false;
dt2.Enabled:=false;
label12.Caption:='0本';
ads1.Active:=false;
cb1.Checked:=false;
end;

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



procedure Tbok_search.FormCreate(Sender: TObject);
begin
 dt2.date:=date();
end;

procedure Tbok_search.Sp3Click(Sender: TObject);
var
dyin:string;
begin
dyin:='shuji';
print();
end;

procedure Tbok_search.Image_minimizeClick(Sender: TObject);
begin
if self.WindowState=wsnormal then
begin
application.Minimize;
end
else if self.WindowState=wsmaximized then
 application.Minimize;
end;

procedure Tbok_search.Image_closeClick(Sender: TObject);
begin
close;
end;

end.