你是用adoquery 还是其它的?都差不多,呵呵 比如adoquery, 你在建立了查询后,又击这个控件,就会弹出字段列表,点右键就可以 add all fields加完后,可以让某个字段的readonly:=true,那么这个字段就是不可编辑!这个框架不是很舒服,我建议你用SQL语句来实现!
procedure TMainForm.DBGrid1ColEnter(Sender: TObject); begin if dbgrid1.SelectedField=adoquery1.FieldByName('app_id') then dbgrid1.options:=dbgrid1.options-[dgediting] else dbgrid1.options:=dbgrid1.options+[dgediting]; end;
比如adoquery, 你在建立了查询后,又击这个控件,就会弹出字段列表,点右键就可以 add all fields加完后,可以让某个字段的readonly:=true,那么这个字段就是不可编辑!这个框架不是很舒服,我建议你用SQL语句来实现!
begin
if dbgrid1.SelectedField=adoquery1.FieldByName('app_id') then
dbgrid1.options:=dbgrid1.options-[dgediting]
else
dbgrid1.options:=dbgrid1.options+[dgediting];
end;