偶初用delphi,现在想在dbgrid里面实现如下功能
单击dbgrid1里的任意一行,然后获得这一行的行号,作为一个参数传递给下一个窗口中的dbgrid2
两个dbgrid显示同一张表,只是显示风格不一样而已,dbgrid1是网格现实,dbgrid2是自由格式现实。
在线等,谢谢了
单击dbgrid1里的任意一行,然后获得这一行的行号,作为一个参数传递给下一个窗口中的dbgrid2
两个dbgrid显示同一张表,只是显示风格不一样而已,dbgrid1是网格现实,dbgrid2是自由格式现实。
在线等,谢谢了
在form2中详细的显示这条记录的明细信息,代码给你吧//第一个窗口的dbgrid的双击事件
procedure TForm_chaxun.DBGrid1DblClick(Sender: TObject);
begin //如果查询的结果不为空,当双击选中项时,显示“支付窗口”
if query1.RecordCount<>0 then
form_zhifu.show
else
showmessage('没有找到相关的记录!');
end;
//第二个窗口的active事件
procedure TForm_zhifu.FormActivate(Sender: TObject);
begin//将父窗口中数据表中的记录传递给该窗口
edit_no.Text:=form_chaxun.dbgrid1.fields[0].asstring;
edit_guke.Text:=form_chaxun.dbgrid1.fields[1].asstring;
edit_date.text:=form_chaxun.dbgrid1.fields[2].asstring;
edit_huowu.Text:=form_chaxun.dbgrid1.fields[3].asstring;
edit_danjia.Text:=form_chaxun.dbgrid1.fields[4].asstring;
edit_shuliang.Text:=form_chaxun.dbgrid1.fields[5].asstring;
edit_zongji.Text:=form_chaxun.dbgrid1.fields[6].asstring;
edit_zhekou.Text:=form_chaxun.dbgrid1.fields[7].asstring;
edit_yingfu.Text:=form_chaxun.dbgrid1.fields[8].asstring;
edit_yifu.Text:=form_chaxun.dbgrid1.fields[9].asstring;
edit_haiqian.Text:=form_chaxun.dbgrid1.fields[10].asstring;
end;很爽的,当你在form1的dbgrid中用鼠标对着哪条记录双击,在form2中就会显示该记录的信息
不妨用着看看。