zdts_form.pas

来自「图书管理系统2.0版」· PAS 代码 · 共 87 行

unit ZDTS_Form;

interface

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

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 Common_Unit;

{$R *.dfm}

var
  TS_Q:TQuery;

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:=TQuery.Create(nil);
  TS_Q.DatabaseName:=DataPath;
  TS_Q.SQL.Add('Select A.UserID,B.Name XM,A.TSBH,C.Name TSM,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_DG.Columns[0].FieldName:='UserID';
  TS_DG.Columns[1].FieldName:='XM';
  TS_DG.Columns[2].FieldName:='TSBH';
  TS_DG.Columns[3].FieldName:='TSM';
  TS_DG.Columns[4].FieldName:='JDate';
  TS_DG.Columns[5].FieldName:='LastDate';
  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.