unit8.pas

利用Acess数据库

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Grids, DBGrids, DBTables, Db;

type
  Toverdue = class(TForm)
    DataSource1: TDataSource;
    Query1: TQuery;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
  avitime:Tdatetime;  { Public declarations }
  end;

var
  overdue: Toverdue;

implementation

{$R *.DFM}

procedure Toverdue.BitBtn2Click(Sender: TObject);
var
  nowtime,year,yearold:string;
  oldtime:string;
begin
  nowtime:=datetimetostr(now);
  oldtime:=nowtime;
  year:=nowtime[1]+nowtime[2];
  if year='00' then yearold:='99';//此程序仅到2005;
  if year='01' then yearold:='00';
  if year='02' then yearold:='01';
  if year='03' then yearold:='02';
  if year='04' then yearold:='03';
  if year='05' then yearold:='04';
  oldtime[1]:=yearold[1];
  oldtime[2]:=yearold[2];

  with Query1 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from company where 修改日期<:begintime');
    parambyname('begintime').value:=strtodatetime(oldtime);
    open;

  end;
end;

end.