end_data.pas

该是一个比较好的图书馆系统,是现在大学生软件课程设计的好模板

unit end_data;

interface

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

type
  Tenddata = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
   // procedure Button1Click(Sender: TObject);
  //  procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
   // procedure Button3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  enddata: Tenddata;

implementation

{$R *.dfm}

procedure Tenddata.FormCreate(Sender: TObject);
begin
Edit1.Text:=formatdatetime('yyyy/mm/dd', now);
end;


procedure Tenddata.BitBtn1Click(Sender: TObject);
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Text:='select [User].Name''姓名'',Book.BookName''书名'',Borrow.Borrow_data''借书时间'',Borrow.End_data''到期时间'',Borrow.return_data''还书时间'',Borrow.Symbol''状况'' from [User],Borrow,Book where Borrow.UserID=[User].StuID and Borrow.BookID=Book.BookID ';
 adoquery1.Open;
end;

procedure Tenddata.BitBtn2Click(Sender: TObject);
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Text:='select [User].Name''姓名'',Book.BookName''书名'',Borrow.Borrow_data''借书时间'',Borrow.End_data''到期时间'',Borrow.return_data''还书时间'' from [User],Borrow,Book where Borrow.UserID=[User].StuID and Borrow.BookID=Book.BookID and Borrow.End_data<''2008-05-12''';
 adoquery1.Open;
end;

procedure Tenddata.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure Tenddata.FormShow(Sender: TObject);
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
end;

end.