COMBO新CKB矿机
说今天说说为什么那么多说虚拟的经济吗？他就是说那种引起的医生统计的波动比较大
『贰』 delphi中的TDBGrid的问题
这种数据编辑与数据浏览界面,完全可以合二为一,放在一个窗体上.比如左边是编辑界面,右边是浏览界面.没有必要使用那么多的窗体.
DBGRID组件没有列双击事件,只有列单击事件.它的双击事件是针整个DBGRID的,这就是说双击DBGRID的边框也会触发双击事件.这样就不准确了,而列单击事件,是相当准确的,当单击某行的某列时,与数据表连接的ADO数据集组件的指针就会指向这一行记录.通过这种机制,我们可以把数据集组件的各个字段的值写到数据编辑界面上的各个控件中如EDIT组件TEXT属性中.只要不再单击DBGRID的单元格,就可以对显示在编辑界面上的数据进行修改,修改后,就可以保存了.
procere TForm1.DBGrid1CellClick(Column: TColumn);
begin
将与DBGRID连接着的那个ADO数据集组件的各个字段值相对应的赋值给编辑界面上的控件就行了.DM_sjmk/数据模块.TB_ckb:ADO数据集组件
比如:
combobox9.Text:=DM_sjmk.TB_ckb.FieldValues['科室'];
combobox10.Text:=DM_sjmk.TB_ckb.FieldValues['领用人'];
combobox5.Text:=DM_sjmk.TB_ckb.FieldValues['物品名称'];
combobox6.Text:=DM_sjmk.TB_ckb.FieldValues['计量单位'];
combobox7.Text:=DM_sjmk.TB_ckb.FieldValues['单价'];
edit4.Text:=DM_sjmk.TB_ckb.FieldValues['数量'];
edit5.Text:=DM_sjmk.TB_ckb.FieldValues['领用日期'];
end;