選中delphi中dbgird的壹行，點擊修改，以另壹種形式得到該行的值，並將其傳入相應的控件中。

DBGRID組件可能沒有行選擇事件。這個組件我很久沒用了。我只用DBGridEh，但是妳的問題可以通過列點擊事件來解決，這也是最常用的編程方法。

過程Tfr _ mai.xsqfsj//顯示處方數據

開始

ypysl:= 0；

如果fr_sjmk。TB_yhlx_sjbj。RecordCount =0，然後退出；

edit 24 . text:= fr _ sjmk . TB _ yhlx _ sjbj . field by name('門診號')。價值；

edit 29 . text:= fr _ sjmk . TB _ yhlx _ sjbj . field按名稱('搜索代碼')。價值；

edit 28 . text:= fr _ sjmk . TB _ yhlx _ sjbj .按名稱字段('藥品名稱')。價值；

combobox 10 . text:= fr _ sjmk . TB _ yhlx _ sjbj .按名稱字段('劑型')。價值；

edit 27 . text:= fr _ sjmk . TB _ yhlx _ sjbj . field by name(' specification ')。價值；

edit 26 . text:= fr _ sjmk . TB _ yhlx _ sjbj . field by name(' content ')。價值；

combobox 9 . text:= fr _ sjmk . TB _ yhlx _ sjbj . field by name(' unit ')。價值；

edit 23 . text:= currtostr(fr _ sjmk . TB _ yhlx _ sjbj . field by name('處方價格')。值)；

edit 25 . text:= fr _ sjmk . TB _ yhlx _ sjbj . field by name(' quantity ')。價值；

ypysl:= fr _ sjmk . TB _ yhlx _ sjbj . field按名稱('數量')。價值；；

第30版。Text :=fr_sjmk。TB_yhlx_sjbj。FieldByName('qfrq ')。價值；

編輯17。text:= currTostr(str point(edit 25。Text)*strTocurr(edit23。正文))；

結束；

過程Tfr _ mai.xsdjsj//

開始

如果fr_sjmk。TB_yhlx_sjbj。RecordCount =0，然後退出；

edit 3 . text:= fr _ sjmk . TB _ yhlx _ sjbj . field values[' name ']；

edit 4 . text:= fr _ sjmk . TB _ yhlx _ sjbj . field values['出生日期']；

edit 5 . text:= fr _ sjmk . TB _ yhlx _ sjbj . field values[' age ']；

第8版。Text:=fr_sjmk。TB_yhlx_sjbj。field values[' ZZ ']；

edit 6 . text:= fr _ sjmk . TB _ yhlx _ sjbj . field values['咨詢費']；

edit 7 . text:= fr _ sjmk . TB _ yhlx _ sjbj . field values['藥費']；

第9版。text:= curr tostr(strto curr(edit 6。Text)+strTocurr(edit7。正文))；

//fr _ sjmk . TB _ yhlx _ sjbj . field values['總費用']；

edit 1 . text:= fr _ sjmk . TB _ yhlx _ sjbj . field values['門診號']；

edit 2 . text:= fr _ sjmk . TB _ yhlx _ sjbj . field values['訪問時間']；

結束；

Fr_sjmk。TB_yhlx_sjbj是放置在fr_sjmk數據模塊上的ADOdataset組件；

編輯和其他組件是數據編輯窗口中的編輯組件。

過程Tfr_mai。DBGridEh1CellClick(列:TColumnEh)；

開始

如果tabsheet12。那時放映

開始

xsqfsj//顯示處方數據

結束；

if (tabsheet3。顯示)和(組合框4。Visible =true)那麽

開始

xsdjsj//顯示收費登記數據

結束；

結束；

Tabsheet3是多頁面組件之壹，數據編輯組件都在上面。

我想妳能理解。

上一篇:VV是哪家航空公司？它是烏克蘭天空世界的航空標誌。

下一篇:農村養豬