zdts_form.pas

delphi+sql2000实现的图书管理系统软件

unit ZDTS_Form;

interface

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

type
  TZDTS_F = class(TForm)
    TS_DG: TDBGrid;
    Label1: TLabel;
    Close_Btn: TButton;
    TS_DS: TDataSource;
    procedure Close_BtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ZDTS_F: TZDTS_F;

implementation

uses Share_Unit;

{$R *.dfm}

var
  TS_Q:TADOQuery;

procedure TZDTS_F.Close_BtnClick(Sender: TObject);
begin
  close;
end;
//***********************************************************************************
procedure TZDTS_F.FormShow(Sender: TObject);
begin
  {TS_Q:=TQuery.Create(nil);
  TS_Q.DatabaseName:=DataPath;
  TS_Q.SQL.Add('Select A.UserID 借书证号,B.Name 姓名,A.TSBH 图书编号,C.Name 图书名,JDate 起始日期,LastDate 到期日期');
  TS_Q.SQL.Add(' From JYXXB A,YH B,TSJBXX C Where (HDate is Null) and ');
  TS_Q.SQL.Add(' LastDate<:LastDate and A.UserID=B.UserID and A.TSBH=C.TSBH ');
  TS_Q.ParamByName('LastDate').AsDateTime:=date;

  TS_DS.DataSet:=TS_Q;            //注意这是第一种数据库动态连接
  TS_Q.Open; }

  TS_Q:=TADOQuery.Create(nil);
  TS_Q.Connection:=Connect;
  TS_Q.SQL.Add('Select A.用户帐号,姓名,A.图书编号,书名,借书日期,到期日期 From 借阅信息 A,用户 B,图书信息 C ');
  TS_Q.SQL.Add('Where (到期日期<=:现在日期) and A.用户帐号=B.用户帐号 and A.图书编号=C.图书编号 and (A.还书日期 is Null)');
  TS_Q.Parameters.ParamByName('现在日期').Value:=Date;

  TS_DS.DataSet:=TS_Q;            //注意这是第二种数据库动态连接
  TS_DG.Columns[0].FieldName:='用户帐号';
  TS_DG.Columns[1].FieldName:='姓名';
  TS_DG.Columns[2].FieldName:='图书编号';
  TS_DG.Columns[3].FieldName:='书名';
  TS_DG.Columns[4].FieldName:='借书日期';
  TS_DG.Columns[5].FieldName:='到期日期';
  TS_Q.Open;

  Label1.Caption:=Format('共有 %d 条超期记录',[TS_Q.RecordCount]);

end;
//***********************************************************************************
procedure TZDTS_F.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;
//***********************************************************************************
procedure TZDTS_F.FormDestroy(Sender: TObject);
begin
   // TS_Q.Close;
  FreeAndNil(TS_Q);
  ZDTS_F:=nil;
end;

end.