如果你的dbgrid的dataset关联为adoquery1，当前用户名保存在变量GUserName中则在Adoquery1的onafterinsert事件中写代码procedure TForm1.ADOQuery1AfterInsert(DataSet: TDataSet);begin DataSet.FieldByName('留言者').Value := GUserName;end;这样就可以了
