★控件高手请进!通过控件本身的SQL属性,制作下拉字段属性★(100分)

  • 主题发起人 主题发起人 summer_core99
  • 开始时间 开始时间
给点提示,你可以从TComboBox继承一个然后添加一个方法,就可以实现啊
如添加一个方法:FillComBox(aConnString:String;aStrSQL:String)
 
在控件里使用ADOQuery和在外面差不多一样
首先声明一个属性
property ADOConnection:TADOConnection read FADOConnection write ADOConnection;
编辑控件,这里控件在Object Inspect内会多出一个ADOConnection属性.在这个属性里选择一个程序里的ADOConnection就行了.其实就和ADOQuery的ADOConnection属性使用方法是一样的.
然后回到控件在private里声明一个ADOQuery变量
覆盖控件的Create
加入
FAQ:=TADOQuery.create(nil);
FAQ.ADOConnection:FADOConnection;
再覆盖destory
加入
FAQ.free
然后想怎么使用就怎么使用吧

至于要控制SQL属性那也很简单
添加一个属性
property SQL:string read FSQL write SetSQL;
在SetSQL里给你的FAQ的SQL属性赋值就OK了
 
可以看一下:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3532733
 
好像也解决不了什么问题,看起来简单,其实好像也有难度
 
后退
顶部