bookoverdueform.~pas

来自「图书管理系统,使用Delphi开发,数据库为Microsoft SQL Serv」· ~PAS 代码 · 共 73 行

unit BookOverdueForm;

interface

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

type
  TBookOverdue = class(TParent)
    ADOCommand1: TADOCommand;
    ADOQuery2: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BookOverdue: TBookOverdue;

implementation

{$R *.dfm}
uses
DataMod;

procedure TBookOverdue.FormShow(Sender: TObject);
begin
  inherited;
//
adotable1.Clone(adoquery2,ltunspecified);
end;

procedure TBookOverdue.BitBtn1Click(Sender: TObject);
begin
//
//  inherited;
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select a.*,b.*,c.* from BookLend a,BookInfo b,ReaderInfo c');
  adoquery1.SQL.Add('where (a.BookInfo_No=b.BookInfo_No)and(a.ReaderInfo_No=c.ReaderInfo_no)and(BookLend_State=''未还'')');
  adoquery1.SQL.Add('and(c.ReaderInfo_No like ''%'+edit1.Text+'%'')');
  adoquery1.SQL.Add('and(a.BookInfo_No like ''%'+edit2.Text+'%'')');
  adoquery1.SQL.Add('and(c.ReaderInfo_Name like ''%'+edit3.Text+'%'')');
  adoquery1.Open;
  //
  adotable1.Clone(adoquery1,ltunspecified);
end;

procedure TBookOverdue.DataSource1DataChange(Sender: TObject;
  Field: TField);
begin
  inherited;
  dbgrid1.Columns[0].Width:=64;
  dbgrid1.Columns[1].Width:=64;
  dbgrid1.Columns[2].Width:=166;
  dbgrid1.Columns[3].Width:=80;
  dbgrid1.Columns[4].Width:=64;
  dbgrid1.Columns[5].Width:=64;
  dbgrid1.Columns[6].Width:=64;
  dbgrid1.Columns[7].Width:=64;
  dbgrid1.Columns[8].Width:=48;
  dbgrid1.Columns[9].Width:=48;
   
end;

end.