在选中一条DBGRID的记录时(双击)让它弹出一个新的窗体,这个窗体就是记录了该记录的数据(用EDIT把记录给显示出来),然后我们在这个上面修改这个记录,
这样我修改记录可以方便点,但我在双击DBGRID时SHOW出一个窗体的时候,上面的EDIT显示不出DBGRID上的记录,我的代码如下:望高人指点!
procedure Tbianjikehuziliaofm.FormCreate(Sender: TObject);
begin
ADODataSet1.Open;
DBGrid1.ReadOnly:=False;
Edit1.Text:=ADODataSet1.FieldByName('kh_khdz').Value;
………………
end
这样我修改记录可以方便点,但我在双击DBGRID时SHOW出一个窗体的时候,上面的EDIT显示不出DBGRID上的记录,我的代码如下:望高人指点!
procedure Tbianjikehuziliaofm.FormCreate(Sender: TObject);
begin
ADODataSet1.Open;
DBGrid1.ReadOnly:=False;
Edit1.Text:=ADODataSet1.FieldByName('kh_khdz').Value;
………………
end
解决方案 »
- 用delphi实现怎么实现多个号码滚动的效果
- 使用Delphi7做开发的程序员,请问你们用什么(方法、组件)做报表、打印啊?
- 怎样让鼠标移动到图片的时候,鼠标变成手形的
- 想不在当前窗体上输入string,又不想新建窗体、TEdit==,怎么做?
- 送分问题
- 如何获得硬盘的序列号?
- 请问如何使用InstallShield Express - Borland Limited Edition
- 求解,这个程序有人说测试成功,有一些不成功?
- 如何进视频编辑,高分求助,快来!
- 如何在Delphi中用代碼改變DBGrid.Options下的dgEditing的屬性為False,給高分。
- 要删除窗体上的某个组件时,与之相关联的代码如何同时清除???
- 怎样屏蔽edit中的快捷键??/
begin
ADODataSet1.Open;
DBGrid1.ReadOnly:=False; //因为 DBGrid1在刚创建的时候是只读的,不能编辑的。
Edit1.Text:=ADODataSet1.FieldByName('kh_khdz').Value;
………………
end
你打开了一个新的数据集,当然不能显示上一个数据集中的现在记录了;应该使新FORM的DBedit的数据源和DBgrid的数据源所引用的数据集相同才行呀!!!
换个方法吧 简单的
procedure Tbianjikehuziliaofm.FormCreate(Sender: TObject);
begin
ADODataSet1.Open;
DBGrid1.ReadOnly:=False; //因为 DBGrid1在刚创建的时候是只读的,不能编辑的。
Edit1.Text:=ADODataSet1.FieldByName('kh_khdz').Value;
ADODataser1.next;
………………
end
??
份可以再给的!!
edit1.Text:=form.DBGrid1.SelectedField.AsString
是在新窗体创建的时候吗(新窗体的ONCreate事件)?