unit data;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDataman = class(TDataModule)
    ADOCon: TADOConnection;
    xsmQuery: TADOQuery;
    xsQuery: TADOQuery;
    xfztQuery: TADOQuery;
    xfqkQuery: TADOQuery;
    thmainQuery: TADOQuery;
    thTable: TADOTable;
    dcQuery: TADOQuery;
    vipQuery: TADOQuery;
    hyTable: TADOTable;
    jbQuery: TADOQuery;
    xscxQuery: TADOQuery;
    kcQuery: TADOQuery;
    hkcQuery: TADOQuery;
    mrQuery: TADOQuery;
    dbQuery: TADOQuery;
    dbxQuery: TADOQuery;
    thQuery: TADOQuery;
    thmQuery: TADOQuery;
    thmxQuery: TADOQuery;
    changemQuery: TADOQuery;
    ygoodsQuery: TADOQuery;
    chgoodsQuery: TADOQuery;
    procedure hyTableBeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Dataman: TDataman;

implementation

{$R *.dfm}

procedure TDataman.hyTableBeforePost(DataSet: TDataSet);
begin
hytable.FieldByName('加入時間').AsDateTime:=date();
end;

end.