fr_sjmk。TB_yhlx_js。關閉;
fr_sjmk。TB_yhlx_js。CommandText:=“”;
fr_sjmk。TB_yhlx_js。CommandText:= '從yhlx_sj中選擇不同的yhlx ';
fr_sjmk。TB_yhlx_js。開放;
如果fr_sjmk。TB_yhlx_js。RecordCount & gt那麽0
開始
combobox4。物品。清除;
對於i:=0到fr_sjmk。TB_yhlx_js。記錄計數-1 do
開始
combobox4。Items.Add(fr_sjmk。TB_yhlx_js。field values[' yhlx ']);
fr_sjmk。TB_yhlx_js。接下來;
結束;
combobox4。item index:= 0;
結束;
fr_sjmk。TB_yhlx_js。關閉;
ADOdateset組件執行SQL語句“select DISTINCT yhlx from yhlx _ SJ”;//從yhlx_sj表中讀取yhlx字段中的數據,過濾掉該字段中的重復項。
然後使用combobox 4 . items . add(fr _ sjmk . TB _ yhlx _ js . field values[' yhlx ']);
語句將讀取的字段值寫入Combobox組件的項目中,該項目成為Combobox組件的下拉選項。
有許多方法可以使ADOdatese返回字段值,通常使用兩種方法:
如果s1是變量,有壹個方法:s 1:= fr _ sjmk . TB _ yhlx _ js . field values[' yhlx '];
另壹種方法:s 1:= fr _ sjmk . TB _ yhlx _ sjbj . field by name('聯系電話')。值也是正確的。
同樣,數據也可以這樣保存在數據庫中:例如fr _ sjmk . TB _ yhlx _ sjbj . field by name('聯系人電話號碼')。值:=combobox6。文本;;