关于dbgrid 的输入问题？

Question

我做的是超市的进销存软件，比如说是打订单吧，我想用dbgrid控件进行数据录入，商品信息已经有了，我的dbgrid有(商品编码，商品名称，规格，单位，进价，数量)等几个字段，我在dbgrid的第一行商品编码处输入商品的编码然后按回车，那么商品名称，规格，单位，等息动检索出来并填充，然后焦点自动投入到数量上，当输入完数量，然后再按回车，显示总价并跳到下一行，自动增加一条记录，这样该如何解决呢？能否给出完整的程序，？

Answer 1

你可以在dbgrid 的OnKeyDown事件里写

Answer 2

oncellclick里面写啊
代码不是colums.setfucos!好像是这样的，可以社在那个cell中设置焦点

Answer 3

用DBGrid不是个好主意，特别是这种需要录入数据的地方可以使用StringGrid,编程控制方便点儿

Answer 4

1、首先用（商品编码，商品名称，规格，单位）建立一个字典库，然后再建立一个（商品编码，进价，数量）数据库，可以建立“商品编码”为关键字的索引，设置（商品编码，商品名称，规格，单位）的商品编码为主索引。
2、代码
procedure TForm1.FormCreate(Sender: TObject);
begin
  //消息循环
  Application.OnMessage := AppMessage;
end;procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if (Msg.message = WM_KeyDown) and not (ActiveControl is TDBMemo) and not (ActiveControl is TButton) and not (ActiveControl is TComboBox) then
    if (Msg.wParam = 13) or (Msg.wParam = 40) then begin
      if not (ActiveControl is TDBGrid) then
        Perform(Wm_NextDlgCtl, 0, 0)
      else
        if (Msg.wParam <> 40) then begin
          if TDBGrid(ActiveControl).SelectedIndex < (TDBGrid(ActiveControl).FieldCount - 1) then
            TDBGrid(ActiveControl).SelectedIndex := TDBGrid(ActiveControl).SelectedIndex + 1
          else TDBGrid(ActiveControl).SelectedIndex := 0;
        end;
    end else begin
      if (Msg.wParam = 38) then
        if not (ActiveControl is TDBGrid) then
          Perform(Wm_NextDlgCtl, 1, 0);
    end;
end;
这是回车键响应的代码，数据库代码写在TForm1.AppMessage中就可以了，应该很简单，自己动动脑吧，呵呵！