把光标放入DBEdit里就让数据库处编辑状态

Question

各位高手，请问有没有办法实现只要把光标放入DBEdit组件里，就可以让数据库处编辑状态，当然数据库已经连接上了。

Answer 1

1判断DBEdit是否负的焦点
2设置数据库为编辑状态

Answer 2

在DBEDIT的OnEnter事件中写代码：
DataSet.Edit;
就行了

Answer 3

procedure TForm1.DoDBEDITEnter(Sender: TObject);
begin
  //dsEdit
//dsInsert
  IF  TDBEDIT(SENDER).DataSource.DataSet.State IN [dsEdit,dsInsert] THEN exit;
  IF TDBEDIT(SENDER).DataSource.DataSet.IsEmpty THEN
  BEGIN
    TDBEDIT(SENDER).DataSource.DataSet.Insert;
  END ELSE
  BEGIN
    TDBEDIT(SENDER).DataSource.DataSet.Edit;
  END;
end;procedure TForm1.FormShow(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to self.ComponentCount-1 do
  Begin
    if (self.Components[i] is TDBEDIT) THEN
    BEGIN
      (self.Components[i] As TDBEDIT).OnEnter:=DoDBEDITEnter;
    END;
  end;
end;