DBGrid 的編輯操作 在線

Question

procedure TForm1.dbgrid1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  case Key of
     vk_delete:
       begin
         qyEmp.Delete;
       end;
     
  end;
end;

Answer 1

procedure TForm1.dbgrid1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
  case key of
   vk_Return:
    with adoquery1 do
    begin  if not eof then
             AdoQuery1.Next
             else
             //不会新增，哈哈
   end;

Answer 2

query.append;   增加空行
query.Post；    保存修改
query.delete；  删除

Answer 3

回车时＋1，到最后一列时转到下一记录的第一列，即dbgrid1.selectedindex:=0 
最后一条记录最后一列时添加记录。

Answer 4

回車鍵有Tab 鍵功能,在keypress事件中加下列语句  
  if key=#13 then
  begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
  end;

Answer 5

procedure TForm1.dbgrid1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
if key=vk_return then
  if dbgrid1.selectedindex<dbgrid1.fieldcount-1 then
    begin
      dbgrid1.selectedindex:=dbgrid1.selectedindex+1;
    end
  else
    begin
      adoquery1.next;
      dbgrid1.selectedindex:=0;
    end;
end;

Answer 6

新增一行，當修改
，新增，刪除一記錄時，觸發什麼事件dbgrid1.datasource1.dataset的onEdit,onInsert,onDelete…………事件