unit8.pas

来自「利用Acess数据库」· PAS 代码 · 共 52 行

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
  oldtime,nowtime,yearold:string;
  Present: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
 begin
  Present:= Now;
  DecodeDate(Present, Year, Month, Day);
  oldtime:=inttostr(Year-1)+'-'+inttostr(month)+'-'+inttostr(Day);
  with Query1 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from company where 修改日期<:begintime');
    parambyname('begintime').asdatetime  :=strtodatetime(oldtime);
    open;

  end;
end;

end.