unit4.~pas

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

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Image_bottom: TImage;
    PopupMenu1: TPopupMenu;
    d1: TMenuItem;
    d4: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    ImageList1: TImageList;
    Label2: TLabel;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    SpeedButton7: TSpeedButton;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    Panel3: TPanel;
    Panel2: TPanel;
    SpeedButton12: TSpeedButton;
    Panel4: TPanel;
    Panel5: TPanel;
    SpeedButton13: TSpeedButton;
    Panel6: TPanel;
    Panel7: TPanel;
    SpeedButton14: TSpeedButton;
    Panel8: TPanel;
    Panel9: TPanel;
    SpeedButton15: TSpeedButton;
    Panel10: TPanel;
    Panel11: TPanel;
    SpeedButton8: TSpeedButton;
    Image_title: TImage;
    Image_close: TImage;
    Image1: TImage;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure Image_closeClick(Sender: TObject);
   
  private
  FHandle: HWnd;
    { Private declarations }
    originalpos:tpoint;
    currentpos:tpoint;
    downpos:tpoint;
    mouselbuttondown:boolean;
    originalwid,originalhei:integer;
    flag:string;
    flag_normal:boolean;
     public
    { Public declarations }
  end;

var
  Form4: TForm4;


implementation

uses  Unit2;

{$R *.dfm}





procedure TForm4.FormCreate(Sender: TObject);
var hr:thandle;
begin
flag_normal:=true;
mouselbuttondown:=false;
popupmenu1.Items[3].Enabled:=true;

end;



procedure TForm4.SpeedButton1Click(Sender: TObject);
var
str:string;
begin
 str:='select 读者编号,书籍编号,借书日期 ,最长日期 from 借书情况 where 借书日期=#'+formatdatetime('yyyy-mm-dd',now())+'#';
 dBGrid1.DataSource:=DataSource1;
 ADODataSet1.Active:=False;
 ADODataSet1.CommandText:=str;
 ADODataSet1.Active:=True;
 if adodataset1.Recordset.EOF and adodataset1.Recordset.BOF then
 begin
 application.messagebox('今日没有图书借出！','借阅查询');
 ADODataSet1.Active:=false;
 DBGrid1.DataSource:=DataSource1;
  end;

end;

procedure TForm4.SpeedButton2Click(Sender: TObject);
var
 str:string;
begin
  str:='select * from 操作日志 where 还书日期=#'+formatdatetime('yyyy-mm-dd',now())+'#';
  DBGrid1.DataSource:=DataSource1;
  self.ADODataSet1.Active:=False;
  self.ADODataSet1.CommandText:=str;
  self.ADODataSet1.Active:=True;
 if adodataset1.Recordset.EOF and adodataset1.Recordset.BOF then
   begin
   application.messagebox('今日没有图书归还！','借阅查询');
   //self.ADODataSet1.Active:=false;

   end;

end;

procedure TForm4.SpeedButton3Click(Sender: TObject);
 var
  str:string;
 begin
  str:='select * from 借书情况 where 最长日期=#'+formatdatetime('yyyy-mm-dd',now())+'#';
  DBGrid1.DataSource:=DataSource1;
  self.ADODataSet1.Active:=False;
  self.ADODataSet1.CommandText:=str;
  self.ADODataSet1.Active:=True;

end;

procedure TForm4.SpeedButton4Click(Sender: TObject);
var
 str:string;
begin
str:='select * from 借书情况 where 是否超期='+''''+'超期'+'''';
DBGrid1.DataSource:=DataSource1;
  self.ADODataSet1.Active:=False;
 self.ADODataSet1.CommandText:=str;
 self.ADODataSet1.Active:=True;
end;



procedure TForm4.SpeedButton5Click(Sender: TObject);
var
 str:string;
begin
str:='select * from 借书情况 ';
DBGrid1.DataSource:=DataSource1;
  self.ADODataSet1.Active:=False;
 self.ADODataSet1.CommandText:=str;
 self.ADODataSet1.Active:=True;
end;



procedure TForm4.SpeedButton12Click(Sender: TObject);
var
 str:string;
begin
  str:='select * from 还书情况 where 还书日期=#'+formatdatetime('yyyy-mm-dd',now())+'#';
  DBGrid1.DataSource:=DataSource1;
  self.ADODataSet1.Active:=False;
  self.ADODataSet1.CommandText:=str;
  self.ADODataSet1.Active:=True;
 if adodataset1.Recordset.EOF and adodataset1.Recordset.BOF then
   begin
   application.messagebox('今日没有图书归还！','借阅查询');
  

   end;

end;


procedure TForm4.SpeedButton13Click(Sender: TObject);
var
str:string;
begin
 str:='select 读者编号,书籍编号,借书日期 ,最长日期 from 借书情况 where 借书日期=#'+formatdatetime('yyyy-mm-dd',now())+'#';
 dBGrid1.DataSource:=DataSource1;
 ADODataSet1.Active:=False;
 ADODataSet1.CommandText:=str;
 ADODataSet1.Active:=True;
 if adodataset1.Recordset.EOF and adodataset1.Recordset.BOF then
 begin
 application.messagebox('今日没有图书借出！','借阅查询');
 end;

end;

procedure TForm4.SpeedButton14Click(Sender: TObject);
 var
  str:string;
 begin
  str:='select * from 借书情况 where 最长日期=#'+formatdatetime('yyyy-mm-dd',now())+'#';
  DBGrid1.DataSource:=DataSource1;
  self.ADODataSet1.Active:=False;
  self.ADODataSet1.CommandText:=str;
  self.ADODataSet1.Active:=True;

end;

procedure TForm4.SpeedButton15Click(Sender: TObject);
var
 str:string;
begin

adodataset1.Active:=false;
adodataset1.CommandText:='select * from 借书情况';
adodataset1.Active:=true;
adodataset1.First;
while not adodataset1.Eof do
  begin
    if adodataset1.FieldByName('最长日期').AsDateTime<now() then
        begin
         adodataset1.Edit;
         adodataset1.FieldByName('是否超期').AsString:='超期';
         adodataset1.Post;
        end;
    adodataset1.Next;
  end;
str:='select * from 借书情况 where 是否超期='+''''+'超期'+'''';
DBGrid1.DataSource:=DataSource1;
  self.ADODataSet1.Active:=False;
 self.ADODataSet1.CommandText:=str;
 self.ADODataSet1.Active:=True;
end;

procedure TForm4.SpeedButton8Click(Sender: TObject);
var
 str:string;
begin
str:='select * from 借书情况 ';
DBGrid1.DataSource:=DataSource1;
  self.ADODataSet1.Active:=False;
 self.ADODataSet1.CommandText:=str;
 self.ADODataSet1.Active:=True;
end;

procedure TForm4.SpeedButton7Click(Sender: TObject);
begin
close
end;

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

end.