delphi 7 DBedit组件

Question

DBgride1关联了一个数据库它有cno、data、time列每个列的内容对应了DBedit1、DBedit2、DBedit3的内容，当我增加一条新的记录时    我想设置DBedit2、DBedit3（为不可编辑状态）然后单击保存的时候让DBedit2自动读取当前年月日DBedit3读取当前的时分秒应该怎么操作。delphi新手请教高人。

Answer 1

  //不让使用者编辑：
  DBEdit2.ReadOnly:=true;
  DBEdit2.ReadOnly:=true;
  //提交前对DBEdit2、DBEdit3赋值：
  DBEdit2.EditText:=formatdatetime('yyyy-mm-dd',now);
  DBEdit3.EditText:=formatdatetime('hh:nn:ss',now);
  DBEdit3.DataSource.DataSet.Post;//提交

Answer 2

DBEdit2.ReadOnly:=true;
DBEdit3.ReadOnly:=true;
  //对DBEdit2、DBEdit3赋值：
  DBEdit3.DataSource.DataSet.Edit;
  DBEdit2.DataSource.DataSet.FieldValues['data']:=formatdatetime('yyyy-mm-dd',now);
  DBEdit3.DataSource.DataSet.FieldValues['time']:=formatdatetime('hh:nn:ss',now);
  DBEdit3.DataSource.DataSet.Post;

Answer 3

更正一下DBEdit2.ReadOnly:=true;
DBEdit3.ReadOnly:=true;
   //对DBEdit2赋值：
   DBEdit2.DataSource.DataSet.Edit;
   DBEdit2.DataSource.DataSet.FieldValues['data']:=formatdatetime('yyyy-mm-dd',now);
   DBEdit2.DataSource.DataSet.Post;
   //对DBEdit3赋值：
   DBEdit3.DataSource.DataSet.Edit;
   DBEdit3.DataSource.DataSet.FieldValues['time']:=formatdatetime('hh:nn:ss',now);
   DBEdit3.DataSource.DataSet.Post;

Answer 4

取繁弃简，楼主有眼无珠哦！再说，楼上说的是“//对DBEdit2赋值：”、“//对DBEdit3赋值：”，实质是对字段赋值，并非楼主“...DBedit2自动读取当前年月日DBedit3读取当前的时分秒...”的题意，虽然，提交后它们会跟着变。不服，要上诉，55555...