?? data.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -