unit9.~pas

大家可以看看还不错的管理系统

unit Unit9;

interface

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

type
  TfrmCuihuan = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    txtNo: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCuihuan: TfrmCuihuan;

implementation

{$R *.dfm}

procedure TfrmCuihuan.Button1Click(Sender: TObject);
var n1 : string ;
begin
  n1:=txtNo.Text;
  with adoquery1 do
  begin
    try
      close;
      with sql do
      begin
        clear;
        add('select 借书证号,图书编号,借阅日期,归还日期 from LenderRecord where 归还日期 - getdate() <10');
        add('and 借书证号='+ n1);
      end;
      open;
    except
      exit;
    end;
  end;
end;

procedure TfrmCuihuan.Button2Click(Sender: TObject);
begin
  frmCuihuan.Close; 
end;

end.