delphi程序gridDBGridEh点击按钮添加一个空行，内容自定义

Question

怎样在delphi使用gridDBGridEh，点击按钮就新增一行表格，不进行数据库操作，只需显示默认信息就可以了。
请教大神

Answer 1

如何虽C/S：
procedure TMID_2_2_Frm.Button3Click(Sender: TObject);
var S,SQL,Date1,ID,err:string;
begin
  Date1:=FormatdateTime('yyyy-MM-dd',DateTimePicker3.Date);
  DateTimetoString(ID,'yymmddhhnnsszzz',now);
  SQL:='INSERT INTO 台账_借贷凭证(日期,ID) VALUES('+
       #39+Date1+#39+','+
       #39+ID+#39+')';
  if DataModule1.SocketConnection1.AppServer.MyQuery(SQL,err)
  then begin
    with DBGridEh1.DataSource.DataSet do
    begin
      Append;
      FieldByName('日期').asString:=Date1;
      FieldByName('ID').asString:=ID;
      Post;
    end;
  end;
end;如果直接操作数据库：
procedure TMID_2_2_Frm.Button3Click(Sender: TObject);
var S,SQL,Date1,ID,err:string;
begin
  Date1:=FormatdateTime('yyyy-MM-dd',DateTimePicker3.Date);
  DateTimetoString(ID,'yymmddhhnnsszzz',now);
  with DBGridEh1.DataSource.DataSet do
  begin
    Append;
    FieldByName('日期').asString:=Date1;
    FieldByName('ID').asString:=ID;
    Post;
  end;
end;