【搞定】系统日期

wj0623 · 发表于 2007-9-24 16:45:28

怎么样将系统当前日期插入到表格中。
procedure TYHSJSQXX.FIELD_SJSQ_YHSQRQ_GetDate(DataSet: TDataSet);
begin
DataSetSJSQ.Edit;
DataSetSJSQ.FieldByName('YHSQRQ)..............
end;

zfang · 发表于 2007-9-24 17:02:17

是插入到数据表中的某个字段吗？
如果是，那可以选择用下面的方法：字段--自动填充属性，用系统提供的参数（服务器时间）
（用字段的自动填充是最简单了）
当然了，你上面的方法也可以了，用代码：
procedure TYHSJSQXX.FIELD_SJSQ_YHSQRQ_GetDate(DataSet: TDataSet);
begin
DataSetSJSQ.Edit;
DataSetSJSQ.FieldByName('YHSQRQ).AsDateTime := Business.Data.SysSrv.SysService.Time
end;

wj0623 · 发表于 2007-9-24 17:02:21

插入服务端日期也可以，请帮忙补充上面代码

wj0623 · 发表于 2007-9-24 17:03:36

编译的时候通不过呢？
DataSetSJSQ.FieldByName('YHSQRQ).AsDateTime := Business.Data.SysSrv.SysService.Time
这一句

atiger · 发表于 2007-9-24 17:04:11

如果对应的是字段，直接设置字段的自动填充，然后用系统提供的参数就可以了，不需要写代码

wj0623 · 发表于 2007-9-24 17:05:26

晕，OK了！！

zfang · 发表于 2007-9-24 17:07:13

Business.System.SysUtils.Time
用这个吧

zfang · 发表于 2007-9-24 17:07:50

汗，动作还真快

wj0623 · 发表于 2007-9-24 17:11:56

值怎么设定呢？

wj0623 · 发表于 2007-9-24 17:15:44

系统提供的参数怎么设置

		自动登录	找回密码
密码			立即注册