发表于 2009-1-5 19:48
| 
鍦≒B涓阀鐢ㄤ笅鎷夋暟鎹獥鍙
鍙戝竷: 2008-6-26 20:47 | 浣滆: admin | 鏌ョ湅: 47娆
PowerPB鎻愪緵浜嗕笅鎷夋暟鎹獥鍙(DropDown DataWindow),浣挎暟鎹獥鍙ｆ洿鐏垫椿銆佹洿鏂逛究銆傚湪鐢ㄦ暟鎹獥鍙ｈ繘琛屾暟鎹綍鍏ユ椂,缁忓父瑕佺敤鍒颁唬鐮佸綍鍏,鍗冲缁忓父杈撳叆鐨勬煇浜涘艰缃唬鐮,褰曞叆鏃剁洿鎺ュ綍鍏ヤ唬鐮佸嵆鍙備緥濡,鏈変袱涓〃,涓昏〃main_table鍜屼唬鐮佽〃code_table锛屽綍鍏ユ椂涓昏〃涓渶瑕佷唬鐮佽〃涓殑鏁版嵁锛屼絾涓嶅厑璁稿綍鍏ヤ笉鍦ㄤ唬鐮佽〃涓殑鏁版嵁銆備笅闈粙缁嶅浣曚娇鐢ㄤ笅鎷夋暟鎹獥鍙ｅ疄鐜颁笂杩板姛鑳姐
闈欐佽璁′笅鎷夋暟鎹獥鍙
棣栧厛瀵逛富琛ㄥ拰浠ｇ爜琛ㄨ璁′袱涓暟鎹獥鍙w_main鍜宒w_code,鍏朵腑dw_main鍖呮嫭瀛楁id銆乶ame銆乻ex銆乧ity鍜寀nit;dw_code鍖呮嫭瀛楁code鍜宒ata銆傚亣璁緐nit瀛楁鏈夊嚑涓父鐢ㄥ煎彲浣跨敤浠ｇ爜褰曞叆,鍒欏湪璁捐dw_main鏃,鐢ㄩ紶鏍囧彸閿偣鍑诲瓧娈祏nit,鍦ㄤ笅鎷夎彍鍗曚腑閫夋嫨Properties...(灞炴),鍒欑郴缁熶細寮瑰嚭unit鍒楃殑灞炴у璇濇;鍦ㄥ叾涓夋嫨Edit(缂栬緫)椤,骞跺湪Style(椋庢牸)涓嬫媺鍒楄〃妗嗕腑閫夋嫨DropDownDW椤;鐒跺悗鍦ㄤ笅闈㈢殑Options(閫夐」)妗嗕腑浣滃叿浣撶殑閫夐」閰嶇疆:鍦―ataWindow涓嬫媺妗嗕腑閫夋嫨宸茶璁″ソ鐨勪唬鐮佹暟鎹獥鍙w_code浣滀负涓嬫媺鏁版嵁绐楀彛;鍦―isplayColumn(鏄剧ず鍒)涓嬫媺妗嗕腑閫夋嫨code瀛楁;鍦―ata Column(鏁版嵁鍒)涓嬫媺妗嗕腑閫夋嫨data瀛楁 ,杩欒〃绀烘樉绀虹殑鏄痗ode瀛楁鐨勫唴瀹,鑰屽疄闄呭瓨浜庤〃main_table涓殑鏄痙ata瀛楁鐨勫唴瀹广傝嚦姝,鏁版嵁绐楀彛璁捐瀹屾瘯銆
璁捐瀹屾暟鎹獥鍙ｅ悗,闇瑕佸缓绔嬩竴涓暟鎹綍鍏ョ殑绐楀彛(window),鍚嶅瓧涓簑_input;鍦ㄧ獥鍙_input涓婂缓绔嬩竴涓暟鎹獥鍙ｇ殑鎺т欢dw_1,鍏跺睘鎬ataWindow Object Name璁句负dw_main,骞跺湪w_input鐨刼pen浜嬩欢涓啓鍏ヤ笅鍒楄鍙:
dw_1.SetTransObject(SQLCA)
dw_1.Retrieve()
杩欐牱,鍦ㄦ墽琛屾绐楀彛鏃,鍦╱nit瀛楁涓婂氨浼氬嚭鐜颁竴涓笅鎷夊垪琛ㄦ,鍒楀嚭浜嗚〃code_table涓墍鏈夌殑鍐呭,鐢ㄦ埛鍙互鐢ㄩ紶鏍囬夋嫨褰曞叆銆
鍔ㄦ佹敼鍙楽QL璇彞
鍦ㄤ笂闈㈢殑渚嬪瓙涓,濡傛灉琛╩ain_table涓殑瀛楁city涔熼渶瑕佷唬鐮佸綍鍏,鍒欒繕闇涓篶ity瀛楁鏂板缓涓涓〃,杩欐牱寰堥夯鐑,鍥犱负鏈夊嚑涓瓧娈甸渶瑕佷唬鐮,灏遍渶鏈夊嚑涓〃涓庝箣瀵瑰簲銆傛垜浠彲鍒╃敤涓嬫媺鏁版嵁绐楀彛鐨勪竴浜涚壒鐐规潵瑙ｅ喅杩欎竴闂銆傚彲浠ョ浉搴斿湴淇敼琛╟ode_table鐨勭粨鏋,鍔犱竴
涓瓧娈礷ield(char(30)),浠ュ瓨鍌ㄩ渶瑕佷唬鐮佺殑瀛楁鍚,杩欐牱,灏卞彲鍒╃敤SQL璇彞瀵逛箣杩涜妫绱,浠ュ緱鍒版煇瀛楁鐨勬墍鏈変唬鐮併傚叿浣撳疄鐜板涓:
閲嶆柊璁捐鏁版嵁绐楀彛dw_code,鎶奻ield瀛楁鍔犱笂骞朵娇瀹冧笉鍙(鍥犱负鐢ㄦ埛涓嶉渶瑕佽鍒拌瀛楁鐨勫唴瀹),鏁版嵁绐楀彛dw_main鍜岀獥鍙_input鐨勮缃悓涓,鍙槸鍦ㄦ暟鎹獥鍙w_1涓渶瑕佽繘琛屼竴浜涚紪绋嬨傚湪ItemFocusChanged浜嬩欢涓,鍔犲叆濡備笅浠ｇ爜:
String ls_sql
Integer rtncode
DataWindowChild field_child
//dwo涓鸿浜嬩欢鐨勫弬鏁,鍏秐ame灞炴х殑鍊艰〃绀鸿幏寰楃劍鐐圭殑瀛楁鍚
Choose Case lower(dwo.name)
Case 鈥榗ity'
//city瀛楁鑾峰緱鐒︾偣
//鑾峰緱city瀛楁涓嬫媺鏁版嵁绐楀彛鐨勫彞鏌
rtncode = dw_1.GetChild("city",field_child)
If rtncode = -1 Then MessageBox( "Error", "Not a DataWindowChild")
//璁剧疆浜嬪姟瀵硅薄
field_child.SetTransObject(SQLCA)
//鑾峰緱涓嬫媺鏁版嵁绐楀彛鐨凷QL璇彞
ls_sql=field_child.GetSQLSelect()
//閲嶆柊璁剧疆SQL璇彞,鍔犱笂Where鏉′欢
ls_sql=ls_sql+"Wherefield=鈥"+dwo.name+"'"
field_child.SetSQLSelect(ls_sql)
//鍙栧緱婊¤冻鏉′欢鐨勬暟鎹
field_child.Retrieve()
Case 鈥榰nit'
unit瀛楁鑾峰緱鐒︾偣
//鑾峰緱unit瀛楁涓嬫媺鏁版嵁绐楀彛鐨勫彞鏌
rtncode = dw_1.GetChild("unit",field_child)
鈥︹(姝ゅ缂栫▼鍚屼笂)
End Choose
鍔ㄦ佽缃彇鍊煎弬鏁
涓婁緥涓噰鐢ㄥ姩鎬佹敼鍙楽QL璇彞,鍏跺疄,涓嬫媺鏁版嵁绐楀彛鏈変竴绉嶆洿绠鍗曠殑鏂规硶灏辨槸璁剧疆鍙栧煎弬鏁(Retrieval Arguments),浣嗚繖绉嶆柟娉曢傚悎浠庡浐瀹氳〃涓彇鏁版嵁,濡傛灉鏄粠鍔ㄦ佽〃(鍗宠〃鍚嶄笉鍥哄畾)涓彇鏁版嵁,鍒欏彧鑳介氳繃鏀瑰彉SQL璇彞鏉ュ疄鐜般
淇敼鏁版嵁绐楀彛dw_code,鍦ㄥ浘褰㈡柟寮忎笅,閫夋嫨Design鑿滃崟涓嬬殑Retrieval Arguments鈥,璁剧疆鍙栧煎弬鏁扮殑绫诲瀷涓篠tring,鍚嶅瓧鍙换鍙,鍋囪涓篺ield_data銆傜劧鍚庡湪绐楀彛涓嬮潰鐨刉here鏍囩涓夋嫨Column涓"code_table.field",Operator涓"=",Value涓哄彇鍊煎弬鏁扮殑鍊:field_data(鍙橀噺鍚嶅墠鍔犲啋鍙疯〃绀鸿鍙橀噺鐨勫),鑷虫,鍙栧煎弬鏁拌缃畬姣曘傚悓涓婁緥,涔熼渶瑕佸湪绐楀彛w_input涓殑鏁版嵁绐楀彛鎺т欢dw_1涓殑ItemFocusChanged浜嬩欢涓繘琛屽涓嬬紪绋:
Integer rtncode
DataWindowChild field_child
//dwo涓鸿浜嬩欢鐨勫弬鏁,鍏秐ame灞炴х殑鍊艰〃绀鸿幏寰楃劍鐐圭殑瀛楁鍚
Choose Case lower(dwo.name)
Case 鈥榗ity'//city瀛楁鑾峰緱鐒︾偣
//鑾峰緱city瀛楁涓嬫媺鏁版嵁绐楀彛鐨勫彞鏌
rtncode = dw_1.GetChild("city",field_child)
If rtncode = -1 Then MessageBox( "Error", "Not a DataWindowChild")
//璁剧疆浜嬪姟瀵硅薄
field_child.SetTransObject(SQLCA)
//鍒╃敤鍙栧煎弬鏁板彇寰楁弧瓒虫潯浠剁殑鏁版嵁,濡傛灉娌℃湁鏁版嵁,鍒欐彃鍏ヤ竴绌鸿褰,鍚﹀垯绯荤粺浼氭彁绀轰竴涓嫳鏂囧璇濇,瑕佹眰杈撳叆鍙栧煎弬鏁扮殑鍊
If field_child.Retrieve(dwo.name)<1 Then
field_child.InsertRow(0)
Case 鈥榰nit'
//unit瀛楁鑾峰緱鐒︾偣
//鑾峰緱unit瀛楁涓嬫媺鏁版嵁绐楀彛鐨勫彞鏌
rtncode = dw_1.GetChild("unit",field_child)
鈥︹(姝ゅ缂栫▼鍚屼笂)
End Choose
