高分求助：dbgrideh的批量录入的几个问题？自动录入，计算，保存的问题？

[sdweihailh]

数据库:ACCESS
如何在DBGRIDEH中批量录入数据,如下:
编 号 品 名 类别 产地 单位 单价 数量 总金额
100001 作业本 本子类 四川 　本　　 3.00 2　　6.00
100002 钢笔　　　笔类　　上海　　支　　 25.00 10 250.00
．．．．．．．．．．
．．．．．．．．．．
等等，很多数据．不用stringgrid用dbgrideh实现下面功能
１．我想让这些数据一次性就在DBGRIDEH中数入，然后点保存按钮，这些数据就保存到数据库中去．不保存这些数据就会消失，不得在数据库中有记录．
２．我想在编号中输入编号后，后面的品名、类别、产地、单价、单位等字段就会根据输入的编号自动查找对应的数值而录入（这几个字段是不能人工录入的）到对就的字段中。注：数量可以人工录入数据。
3。当录入数量后，总金额就会自动计算出结果。
4.如果输入的编号在数据库中没有(或错误),那么系统就会弹出一个对所有数据查询的窗体,在弹出的查询窗体中在查询选择.
请各位大哥帮帮小弟解决这个问题。
有源码示例最好，[e-mail].

[柯本]

1.用临时表或内存虚拟表,如TBDEClientDataSet,我一般用ODAC的TVirtualTable
a.如果是输入,先将数据全部输入虚拟表,按保存时写数据库
b.如果是修改,先将数据库中符合条件的数据写入虚拟表,按保存时,判数据有无修改,并将修改过的数据存入数据库
2.如果用虚拟表,这个也方便,输入编号后,在数据库中查找记录,并写入虚拟表的对应字段
当然,也可用计算字段
3.用计算字段即可
4.这个一般可在DBgrid的OnCOlExit中判,如果是编号字段,就在数据中是查找,弹出窗口应该是很基础的
我只能给你一个思路,程序还是自已写的好

[huangjinyin]

谁有DEMO,我也想要一个,楼主可否加我:44921619

[SmallMaker]

实现自动计算可以参考下面的例子
procedure TForm2.dbgrdh1Columns3GetCellParams(Sender: TObject;
EditMode: Boolean; Params: TColCellParamsEh);
begin
Params.Text:=FloatToStr(dbgrdh1.Columns[0].Field.Value+dbgrdh1.Columns[1].Field.Value);
end;