COMBO控件的CHANGE事件怎么不能用？

rongxh 2005-07-27 09:20:36
我用MSHFlexGrid与combo结合使用，当mshflexgrid中的第一列输入数据时，在第二列会出现combo，并供用户选择与第一列输入数据相关的内容，但是现在我的COMBO的内容作出改变了，也不能触发CHANGE事件的发生。
这是为什么呢？有没有办法解决？
...全文
193 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
chtlover 2005-07-27
  • 打赏
  • 举报
 回复
combo的change事件就是这样的了，如果click事件和lostfocus事件不能满足你的需要的话，劝你还是换用其它控件。
simonlee2003 2005-07-27
  • 打赏
  • 举报
 回复
是比较麻烦， 你试试其他的控件 或者你把变化的内容 多写几次 写到几个事件里面去弥补
rongxh 2005-07-27
  • 打赏
  • 举报
 回复
因为我需要多数的操作是键盘，而且也要随着COMBO的变化而引起后面的单元格发生改变，所以不能用LOSTFOCUS，也不能用CLICK，而我的值的确是发生了变化的。
pweixing 2005-07-27
  • 打赏
  • 举报
 回复
用 click 事件
sdrcxzy 2005-07-27
  • 打赏
  • 举报
 回复
第一次触发CHANGE事件的条件是当前值和初始值不一样阿。是否满足？？
fujihua2001 2005-07-27
  • 打赏
  • 举报
 回复
用COMBO的LostFocus 事件 代替,combo的CHANGE事件的确不好用
Blue_remember 2005-07-27
  • 打赏
  • 举报
 回复
这样可以吗：先保存combo的text，然后判断键盘按键，然后再作比较。
rx第三方控件
RX Library 2.75 =============== The Set of Native Delphi Components for Borland Delphi versions 1, 2, 3, 4 & 5 and Borland C++ Builder 1, 3 & 4. 100% Source Code. Last revision date Oct 12, 1999. PLEASE FOLLOW THE INSTRUCTIONS PROVIDED IN THE INSTALLATION SECTION! TABLE OF CONTENTS ----------------- Latest Changes Overview History License Agreement Installation Demonstration Programs Source Files Using GIF Images Copyright Notes NEW FOR VERSION 2.75 -------------------- Delphi 5.0 & C++Builder 4.0 Compatibility New components: TRxLoginDialog New properties, events: TFormPlacement.RegistryRoot TFormPlacement.Version TFontComboBox.UseFonts TRxDBGrid.OnTopLeftChanged TRxDBLookupCombo.DisplayValues TStrHolder.Macros, TStrHolder.OnExpandMacros RxSpin.TValueType.vtHex New routines, methods, constants: SaveClipboardToStream, LoadClipboardFromStream (clipmon.pas) AppFileName, AppVerInfo (rxverinf.pas) XorString, XorEncode, XorDecode (strutils.pas) BUG FIXES. Overview -------- RX Library contains a large number of components, objects and routines for Borland Delphi with full source code. This library is compatible with Borland Delphi 1, 2, 3, 4, 5 and Borland C++ Builder 1, 3, 4. This collection includes over 60 native Delphi components. RX Library is a freeware product. Feel free to distribute the library as long as all files are unmodified and kept together. The authors disclaim all warranties as to this software, whether express or implied, including without limitation any implied warranties of merchantability or fitness for a particular purpose. Use under your own responsibility, but comments (even critique) in English (or in Russian) are welcome. 1. Components: TRxDBLookupCombo provides an incremental search through lookup list by directly typing into the combo control while the lookup list is displayed, LookupSource can refer to TTable, TQuery, TRxQuery or TQBEQuery. It even incrementally searches on the query results and much more... TRx
物业管理系统
public bz &&定义全局变量bz=.f.this.listview1.view=2 &&设置视图显示方式 *将ImageList控件图片赋予Listview控件 this.listview1.Icons=this.imagelist1.objectthis.listview1.smallicons=this.imagelist1.object&&添加列表项key=‘小区信息生成‘=this.listview1.listitems.add(,,key,,1)key=‘大楼信息生成‘=this.listview1.listitems.add(,,key,,1)key=‘房屋信息生成‘=this.listview1.listitems.add(,,key,,1)key=‘小区信息登记‘=this.listview1.listitems.add(,,key,,1)key=‘大楼信息登记‘=this.listview1.listitems.add(,,key,,1)key=‘房屋信息登记‘=this.listview1.listitems.add(,,key,,1)key=‘系统数据设定‘=this.listview1.listitems.add(,,key,,1)在“经营部”的click事件中添加代码为：this.parent.listview1.listItems.clear &&清除数据this.parent.listview1.view=2 &&设置视图显示方式*将ImageList控件图片赋予Listview控件this.parent.listview1.Icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.object*添加数据项key=‘小区信息生成‘=this.parent.listview1.listitems.add(,,key,,1)key=‘大楼信息生成‘=this.parent.listview1.listitems.add(,,key,,1)key=‘房屋信息生成‘=this.parent.listview1.listitems.add(,,key,,1)key=‘小区信息登记‘=this.parent.listview1.listitems.add(,,key,,1)key=‘大楼信息登记‘=this.parent.listview1.listitems.add(,,key,,1)key=‘房屋信息登记‘=this.parent.listview1.listitems.add(,,key,,1)key=‘系统数据设定‘=this.parent.listview1.listitems.add(,,key,,1)在“管理部”的事件中添加以下代码为：this.parent.listview1.listItems.clearthis.parent.listview1.view=2this.parent.listview1.Icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.objectkey=‘业主信息登记‘=this.parent.listview1.listitems.add(,,key,,2)key=‘人口信息查询‘=this.parent.listview1.listitems.add(,,key,,2)key=‘小区投诉登记‘=this.parent.listview1.listitems.add(,,key,,2)key=‘小区投诉查询‘=this.parent.listview1.listitems.add(,,key,,2)key=‘小区员工管理‘=this.parent.listview1.listitems.add(,,key,,2)key=‘系统数据设定‘=this.parent.listview1.listitems.add(,,key,,2)pjyb=.t.在“工程部”上添加代码为：this.parent.listview1.listItems.clearthis.parent.listview1.view=2this.parent.listview1.Icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.objectkey=‘装修队登记‘=this.parent.listview1.listitems.add(,,key,,3)key=‘维修信息登记‘=this.parent.listview1.listitems.add(,,key,,3)key=‘维修信息查询‘=this.parent.listview1.listitems.add(,,key,,3)key=‘装修信息登记‘=this.parent.listview1.listitems.add(,,key,,3)key=‘装修信息查询‘=this.parent.listview1.listitems.add(,,key,,3)pjyb=.t.在“财务部”添加代码为：this.parent.listview1.listItems.clearthis.parent.listview1.view=2this.parent.listview1.Icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.objectkey=‘收费登记管理‘=this.parent.listview1.listitems.add(,,key,,4)key=‘水费查询管理‘=this.parent.listview1.listitems.add(,,key,,4)key=‘电费查询管理‘=this.parent.listview1.listitems.add(,,key,,4)key=‘煤气费查询管理‘=this.parent.listview1.listitems.add(,,key,,4)key=‘采暖费查询管理‘=this.parent.listview1.listitems.add(,,key,,4)key=‘其它费用查询管理‘=this.parent.listview1.listitems.add(,,key,,4)pjyb=.t.在“保安部”添加代码为：这this.parent.listview1.listItems.clearthis.parent.listview1.view=2this.parent.listview1.Icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.objectkey=‘保安排班管理‘=this.parent.listview1.listitems.add(,,key,,5)key=‘保安排班查询‘=this.parent.listview1.listitems.add(,,key,,5)pjyb=.t.在“经理室”添加代码为：this.parent.listview1.listItems.clearthis.parent.listview1.view=2this.parent.listview1.Icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.objectkey=‘小区资源统计‘=this.parent.listview1.listitems.add(,,key,,6)key=‘业主信息查询‘=this.parent.listview1.listitems.add(,,key,,6)key=‘人口信息查询‘=this.parent.listview1.listitems.add(,,key,,6)key=‘小区投诉查询‘=this.parent.listview1.listitems.add(,,key,,6)key=‘小区员工查询‘=this.parent.listview1.listitems.add(,,key,,6)key=‘装修信息查询‘=this.parent.listview1.listitems.add(,,key,,6)key=‘维修信息查询‘=this.parent.listview1.listitems.add(,,key,,6)key=‘保安排班查询‘=this.parent.listview1.listitems.add(,,key,,6)pjyb=.t.在“系统管理”中添加代码为：this.parent.listview1.listItems.clearthis.parent.listview1.view=2this.parent.listview1.Icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.objectkey=‘操作员管理‘=this.parent.listview1.listitems.add(,,key,,7)key=‘权限设置‘=this.parent.listview1.listitems.add(,,key,,7)pjyb=.t.在“帮助”中添加代码为：this.parent.listview1.listItems.clearthis.parent.listview1.view=2this.parent.listview1.Icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.objectkey=‘帮助‘=this.parent.listview1.listitems.add(,,key,,8)key=‘关于本软件‘=this.parent.listview1.listitems.add(,,key,,8)pjyb=.t.在“退出”中添加代码为：quit &&退出主程序在Image1的Click事件中添加代码为：this.parent.commdl.filter=‘图片|*.bmp;*.jpg‘ &&设置过滤器this.parent.commdl.showopen &&显示打开对话框this.parent.rq.image2.picture=this.parent.commdl.filename &&显示选定文件的名字3．系统等录界面的设计在项目管理器中添加一个新的表单，名称为Admain在表单中添加一个ImageList 控件，并进行相应的管理员设置。在表单中添加一个Image控件，一个listview控件，一个ImageList控件，两个text控件，三个label控件，一个commandgroup控件。在表单中的init事件中添加代码为：public cn &&定义全局变量cn=0 &&给全局变量赋初值thisform.listview1.view=0 &&设置视图显示方式*将ImageList控件图片赋予Listview控件thisform.listview1.Icons=thisform.imagelist1.objectthisform.listview1.smallicons=thisform.imagelist1.objectselect tabpurview &&选定tabpurview工作区为当前工作区select *;from wuyemanage!tabpurview;where 权限级别=‘1‘;order by tabpurview.操作员姓名;into cursor sysglythisform.text2.value=sysgly.操作员姓名thisform.text1.value=‘‘key=alltrim(sysgly.操作员姓名) &&赋值给变量key=thisform.listview1.listitems.add(,,key,1) &&添加一个列表项select tabpurviewselect *;from wuyemanage!tabpurview;where 权限级别=‘2‘;order by tabpurview.操作员姓名;into cursor gjczydo while !EOF() &&测试当前记录指针是否在文件尾 key=alltrim(gjczy.操作员姓名) =thisform.listview1.listitems.add(,,key,2) &&添加一个列表项 skip &&相对移动记录指针enddoselect tabpurviewselect *;from wuyemanage!tabpurview;where 权限级别=‘3‘;order by tabpurview.操作员姓名;into cursor ybczydo while !EOF() &&测试当前记录指针是否在文件尾 key=alltrim(ybczy.操作员姓名) =thisform.listview1.listitems.add(,,key,3) &&添加一个列表项 skip &&相对移动记录指针enddoselect tabpurviewselect *;from wuyemanage!tabpurview;where 权限级别=‘4‘;order by tabpurview.操作员姓名;into cursor zdydo while !EOF() &&测试当前记录指针是否在文件尾 key=alltrim(zdy.操作员姓名) =thisform.listview1.listitems.add(,,key,4) &&添加一个列表项 skip &&相对移动记录指针enddo在表单的resize事件中添加代码为：purview=val(alltrim(tabpurview.权限级别)) &&根据用户选择设置权限级别pjyb=tabpurview.经营部pglb=tabpurview.管理部pgcb=tabpurview.工程部pcwb=tabpurview.财务部pbab=tabpurview.保安部pjls=tabpurview.经理室psysgl=tabpurview.系统管理manager=alltrim(thisform.text2.value)do form formfdesktop &&调入表单fdesktopthisform.release &&刷新表单在等录的click事件中添加代码为：if empty(操作员姓名) &&判断操作员字段是否为空 thisform.resize &&执行表单的Resize事件 store .t.to pjyb,pglb,pgcb,pcwb,pbab,pjls,psysgl &&给多个内存变量赋予相同的值else seek cname &&查找输入的操作员姓名 set exact on &&设置字符精确比较*判断密码是否正确 if alltrim(tabpurview.密码)!=ppassword cn=cn+1 cmessagetitle=‘系统登录‘ cmessagetext=‘密码错误，请重新输入！‘ ndialogtype=4+32 nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) do case case nanswer=6 thisform.text1.value=‘‘ thisform.text1.setfocus &&文本框获得焦点 case nanswer=7 messagebox(‘不要乱来！‘,48,‘系统登录‘) thisform.release &&释放表单 endcase if cn=3 thisform.release endif else thisform.resize &&执行表单的Resize事件 endif endifset exact off &&设置字符非精确比较在取消的click事件中添加代码为：cmessagetitle=‘系统登录‘cmessagetext=‘真的想要退出吗？‘nDialogtype=4+32nanswer=messagebox(cMessagetext,nDialogtype,cMessagetitle)if nanswer=6 quitendif在控件listview1中的itemclick事件中添加代码为：LPARAMETERS itemmanager=alltrim(thisform.listview1.selecteditem.text)thisform.text2.value=managerthisform.text1.setfocus 这样，等录界面就完成了。4．经营部设计（1）在项目管理器中创建一个表单，名称为“小区信息生成”，在表单中添加3个label控件，2个spinner控件，1个commandgroup控件。在“开始生成”的click事件中添加代码为：cstart=thisform.spinner1.valuecend=thisform.spinner2.values=alltrim(str(cstart))e=alltrim(str(cend))cpicture=sys(5)+sys(2003)+‘imagesemptyimage.bmp‘cmessagetitle=‘小区信息生成‘cmessagetext=‘确认生成编号为 ‘+s+‘至 ‘+e+‘的小区信息吗？‘ndialogtype=4+32nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)do case case nAnswer=6 i=1 for i=cstart to cend xqno=alltrim(str(i)) select *; from databasewuyemanage!tabxqinfo; where 小区编号==xqno; into cursor lindep if reccount()=0*追加新记录 insert into tabxqinfo values(xqno,‘‘,‘‘,‘‘,0,0,0,0,0,0,‘‘,‘‘,cpicture,ctod(‘‘),ctod(‘‘)) endif endfor messagebox(‘数据保存成功！‘,48,‘小区信息生成‘) thisform.release do form form小区信息登记 &&调入表单 case nAnswer=7 thisform.spinner1.setfocusendcase在“返回主系统”中的click事件中添加代码为：thisform.release &&释放表单（2）在项目管理器中添加一个新的表单名称为“大楼信息生成器”，在表单中添加9个label控件，1个combo控件，2个spinner控件，4个text控件。说明：其编法如（1）（3）在项目管理器中新建一个表单，名称为“房屋信息生成器”，在表单中添加13个label控件，6个combo控件，1个text控件，4个spinner控件，1个commandgroup控件，1个grid控件。说明：其编法如（1）（4）在项目管理器中添加一个新的表单集包含form1,gorm2，名称为“小区信息登记”。在form1表单中添加16个label控件，13个text控件，1个edit控件，2个commandgroup控件，1个common dialog控件，1个image控件，2个command控件，在form2表单中添加1个command控件，1个grid控件。在form1中的load事件中添加代码为：public l &&定义全局变量l=.f.在form1中的activate事件中添加代码为：thisform.text1.value=tabxqinfo.小区编号 &&赋值给Text1thisform.text2.value=tabxqinfo.小区名称thisform.text3.value=tabxqinfo.负责人thisform.text4.value=tabxqinfo.小区说明thisform.text5.value=tabxqinfo.交工日期thisform.text6.value=tabxqinfo.竣工日期thisform.text7.value=tabxqinfo.地址thisform.text8.value=tabxqinfo.占地面积thisform.text9.value=tabxqinfo.建筑面积thisform.text10.value=tabxqinfo.绿化面积thisform.text11.value=tabxqinfo.居住面积thisform.text12.value=tabxqinfo.楼栋数thisform.text13.value=tabxqinfo.总户数thisform.edit1.value=tabxqinfo.备注thisform.container1.image1.picture=tabxqinfo.照片thisform.refresh在form1中的init事件中添加代码为：store l to thisform.text1.enabled,thisform.text2.enabled,thisform.text3.enabled,; thisform.text4.enabled,thisform.text5.enabled,thisform.text6.enabled,; thisform.text7.enabled,thisform.text8.enabled,thisform.text9.enabled,; thisform.text10.enabled,thisform.text11.enabled,thisform.text12.enabled,; thisform.text13.enabled,thisform.edit1.enabled,thisform.badd.enabled,; thisform.bclear.enabled &&设置控件是否有效在form1中的“添加”click事件中添加代码为：if alltrim(thisform.commandgroup1.command1.caption)=‘添 加‘ thisform.commandgroup1.command1.caption=‘保 存‘ &&赋值给Command1的标题文本 thisform.commandgroup1.command2.caption=‘取 消‘ thisform.commandgroup1.command3.enabled=.f. thisform.commandgroup1.command4.enabled=.f.*设置控件有效 l=.t. thisform.init &&执行表单的Init事件 store ‘‘ to thisform.text1.value,thisform.text2.value,thisform.text3.value,; thisform.text4.value,thisform.text7.value store {//} to thisform.text5.value,thisform.text6.value store 0 to thisform.text8.value,thisform.text9.value,thisform.text10.value,; thisform.text11.value,thisform.text12.value,thisform.text13.value thisform.edit1.value=‘‘ thisform.container1.image1.picture=sys(5)+sys(2003)+‘imagesemptyimage.bmp‘ thisform.text1.setfocuselse thisform.commandgroup1.command1.caption=‘添 加‘ &&赋值给Command1的标题文本 thisform.commandgroup1.command2.caption=‘修 改‘ thisform.commandgroup1.command3.enabled=.t. thisform.commandgroup1.command4.enabled=.t.*获取输入信息 xqno=alltrim(thisform.text1.value) xqname=alltrim(thisform.text2.value) xqinfo=alltrim(thisform.text4.value) fzr=alltrim(thisform.text3.value) jiaogdate=thisform.text5.value jungdate=thisform.text6.value area=alltrim(thisform.text7.value) cmemo=alltrim(thisform.edit1.value) zdmj=thisform.text8.value jzmj=thisform.text9.value lhmj=thisform.text10.value juzmj=thisform.text11.value lds=thisform.text12.value zhs=thisform.text13.value cpicture=thisform.container1.image1.picture select *; from wuyemanage!tabxqinfo; where 小区编号==xqno; order by 小区编号; into cursor lindep if reccount()=0 insert into tabxqinfo values(xqno,xqname,xqinfo,fzr,lds,zhs,jzmj,juzmj,zdmj,; lhmj,area,cmemo,cpicture,jungdate,jiaogdate) &&追加新记录 messagebox(‘数据保存完毕！‘,48,‘操作成功！‘) else cmessagetitle=‘小区信息登记‘ cmessagetext=‘信息已修改，确定要保存吗？‘ ndialogtype=4+32 nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) do case case nAnswer=6 update wuyemanage!tabxqinfo set 小区名称=xqname,小区说明=xqinfo,负责人=fzr,; 楼栋数=lds,总户数=zhs,建筑面积=jzmj,居住面积=juzmj,占地面积=zdmj,地址=area,; 备注=cmemo,照片=cpicture,竣工日期=jungdate,交工日期=jiaogdate,绿化面积=lhmj ; where 小区编号==xqno &&更新数据表 messagebox(‘数据保存完毕！‘,48,‘操作成功！‘) endcase endif select tabxqinfo l=.f. thisform.init &&执行表单的Init事件 thisform.activate &&执行表单的Activate事件endif在form1中的“修改”click事件中添加代码为：if alltrim(thisform.commandgroup1.command2.caption)=‘修 改‘ thisform.commandgroup1.command1.caption=‘保 存‘ &&赋值给Command1的标题文本 thisform.commandgroup1.command2.caption=‘取 消‘ thisform.commandgroup1.command3.enabled=.f. thisform.commandgroup1.command4.enabled=.f. l=.t. thisform.init &&执行表单的Init事件 thisform.text1.enabled=.f. thisform.text1.setfocuselse thisform.commandgroup1.command1.caption=‘添 加‘ &&赋值给Command1的标题文本 thisform.commandgroup1.command2.caption=‘修 改‘ thisform.commandgroup1.command3.enabled=.t. thisform.commandgroup1.command4.enabled=.t. thisform.activate &&执行表单的Activate事件 l=.f. thisform.init &&执行表单的Init事件endif在form1中的“删除”click事件中添加代码为：xqnumber=alltrim(thisform.text1.value)cmessagetitle=‘小区信息登记‘cmessagetext=‘确定要删除吗？‘ndialogtype=4+32nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)if nAnswer=6 select tabxqinfo use use database/tabxqinfo exclusive &&以独占方式打开数据表 dele from tabxqinfo where 小区编号=xqnumber &&逻辑删除记录 dele from tabxqinfo where empty(小区编号) pack &&物理删除 thisform.activate &&执行表单的Activate事件 messagebox(‘删除完毕‘,48,‘操作成功！‘) use database abxqinfo thisform.refreshendif在form1中的“浏览”click事件中添加代码为：thisform.parent.form2.grid1.recordsource=‘tabxqinfo‘ &&赋数据源thisform.parent.form2.visible=.t. &&显示表单在form1中的“退出”click事件中添加代码为：thisform.release &&释放表单thisform.parent.form2.release在form1中的“追加图片”click事件中添加代码为：thisform.imagedc.filter="图片|*.bmp;*.jpg" &&设置过滤器 thisform.imagedc.showopen &&显示打开对话框thisform.Container1.image1.picture=thisform.imagedc.filename在form1中的“清除图片”click事件中添加代码为：thisform.Container1.image1.picture=sys(5)+sys(2003)+‘imagesemptyimage.bmp‘在form1中的“第一个”click事件中添加代码为：go top &&记录指针定位到第一条记录this.parent.command1.enabled=.f.this.parent.command2.enabled=.f.this.parent.command3.enabled=.t.this.parent.command4.enabled=.t.thisform.Activate &&执行表单的Activatethisform.refresh在form1中的“上一个”click事件中添加代码为： skip-1 &&把记录指针向上移一条记录 thisform.Activate &&执行表单的Activate if bof() messagebox(‘已是第一个记录‘,48,‘信息窗口‘) this.parent.command1.enabled=.f. this.parent.command2.enabled=.f. thisform.Activate &&执行表单的Activate else this.parent.command1.enabled=.t. this.parent.command2.enabled=.t. endif this.parent.command3.enabled=.t. this.parent.command4.enabled=.t.thisform.refresh在form1中的“下一个”click事件中添加代码为：if eof() messagebox(‘已经是最后一条记录‘,48,‘管理窗口‘) skip-1 &&记录指针向上移动一条记录 thisform.Activate &&执行表单的Activate this.parent.command1.enabled=.f. this.parent.command2.enabled=.f. this.parent.command3.enabled=.f. this.parent.command4.enabled=.f.else skip &&记录指针向下移一条记录 thisform.Activate &&执行表单的Activate if eof() messagebox(‘已经是最后一条记录‘,48,‘管理窗口‘) skip-1 thisform.Activate &&执行表单的Activate this.parent.command3.enabled=.f. this.parent.command4.enabled=.f. else this.parent.command3.enabled=.t. this.parent.command4.enabled=.t. endif this.parent.command1.enabled=.t. this.parent.command2.enabled=.t.endifthisform.refresh在form1中的“最后一个”click事件中添加代码为：go bottom &&记录指针移动到最后一条记录this.parent.command3.enabled=.f.this.parent.command4.enabled=.f.this.parent.command1.enabled=.t.this.parent.command2.enabled=.t.thisform.Activate &&执行表单的Activatethisform.refresh在form1中的控件edit1的keypress事件中添加代码为：LPARAMETERS nKeyCode, nShiftAltCtrlif nKeycode=3thisform.text8.setfocusendif在form1中的控件edit1的lostfocus事件中添加代码为：thisform.text8.setfocus在form2中的“退出小区信息浏览”的click事件中添加代码为：thisform.visible=.f. &&隐藏表单（5）在项目管理器中添加一个表单集包括form1,form2,form3，名称为“大楼信息登记”。在表单form1中添加2个list控件，2个label控件，1个commandgroup控件，在表单form2中添加17个label控件，12个text控件，2个combo控件，1个edit控件，1个common dialog控件，1个image控件，2个command控件，2个commandgroup控件，在表单form3中添加1个grid控件， 1个command控件。说明：其编法如以上（4）所示（6）在项目管理器中新建表单集包含form1,form2,form3,名称为“房屋信息登记”。在表单form1中添加1个commbo控件，2个list控件，2个label控件，1个commandgroup控件，在表单form2中添加19个label控件，9个text控件，8个combo控件，1个edit控件，1个commandgroup控件，在表单form3中添加1个grid控件， 1个command控件。说明：其编法如以上（4）所示（7）在项目管理器中添加一个新的表单名称为“系统数据设定”，在表单中添加一个label控件，2个commandgroup控件。在表单的“退出系统数据设定”按钮的click事件中添加代码为：thisform.release在表单的“房屋朝向设定”按钮的click事件中添加代码为：thisform.release &&释放表单do form form房屋朝向设定 &&调入表单在表单的“权限类型设定”按钮的click事件中添加代码为：thisform.release &&释放表单do form form权属类型设定 &&调入表单在表单的“小区部门设定”按钮的click事件中添加代码为：thisform.release &&释放表单do form form小区部门设定 &&调入表单在表单的“员工种类设定”按钮的click事件中添加代码为：thisform.release &&释放表单do form form员工种类设定 &&调入表单元在表单的“费用科目及费用标准设定”按钮的click事件中添加代码为：thisform.release &&释放表单do form form费用科目及费用标准设定 &&调入表单（8）在项目管理器中添加一个新的表单名称为“房屋朝向设计”，表单中添加3个label控件，1个text控件，1个grid控件，1个commandgroup控件。在表单的init事件中添加以下代码：thisform.text1.controlsource=‘tabfrontage.房屋朝向‘ &&赋数据源thisform.grid1.recordsource=‘tabfrontage‘ &&赋数据源在“添加”按钮的click事件中添加代码为：if thisform.commandgroup1.command1.caption=‘添 加‘ thisform.commandgroup1.command1.caption=‘保 存‘ &&赋值给Command1的标题文本 thisform.commandgroup1.command2.caption=‘取 消‘ &&赋值给Command2的标题文本 append blank &&追加新记录 thisform.text1.value=‘‘ thisform.text1.setfocuselse thisform.commandgroup1.command1.caption=‘添 加‘ &&赋值给Command1的标题文本 thisform.commandgroup1.command2.caption=‘删 除‘ &&赋值给Command2的标题文本endifthisform.refresh &&刷新表单在“删除”按钮的click事件中添加代码为：if thisform.commandgroup1.command2.caption=‘取 消‘ thisform.commandgroup1.command1.caption=‘添 加‘ &&赋值给Command1的标题文本 thisform.commandgroup1.command2.caption=‘删 除‘ &&赋值给Command2的标题文本 cx=alltrim(thisform.text1.value) select tabfrontage &&选择Tabfrontage工作区为当前工作区 use &&关闭数据表 use database/tabfrontage exclusive &&以独占方式打开数据表 dele from tabfrontage where 房屋朝向==cx &&逻辑删除记录 dele from tabfrontage where empty(房屋朝向) &&逻辑删除记录 pack &&物理删除 thisform.text1.value=tabfrontage.房屋朝向 use database abfrontage &&打开数据表 else cx=alltrim(thisform.text1.value) select tabfrontage use use database/tabfrontage exclusive &&以独占方式打开数据表 dele from tabfrontage where 房屋朝向==cx &&逻辑删除记录 dele from tabfrontage where empty(房屋朝向) &&逻辑删除记录 pack &&物理删除 thisform.text1.value=tabfrontage.房屋朝向 messagebox(‘删除完毕‘,48,‘操作成功！‘) use database abfrontage &&打开数据表 endif thisform.init &&执行表单的Init事件在text1的click事件中添加代码为：thisform.text1.controlsource=‘tabfrontage.房屋朝向‘thisform.text1.value=alltrim(thisform.grid1.column1.text1.value)(9)在项目管理器中添加一个新的表单名称为“费用科目及费用标准设定设计”，表单中添加4个label控件，2个text控件，1个grid控件，1个commandgroup控件。说明：其编法如以上（8）所示5.管理部设计（1）在项目管理器中添加一个表单集，含有form1,form2.,form3,form4,名称为“业主信息登记”在表单form1中添加1个combo控件，1个list控件，5个label控件，1个commandgroup控件，3个text控件，2个grid控件，1个command控件，1个optioguoup控件。在表单form2中添加1个grid控件， 1个command控件。在表单form3中添加24个label控件，15个text控件，3个combo控件，4个date and time picker控件，1个commandgroup控件，1个grid控件，在表单form4中添加23个label控件，13个text控件，8个combo控件，1个edit控件，1个commandgroup控件。在form1的init事件中添加以下代码：public date1,date2,date3,date4 &&定义全局变量store ctod(‘03/22/2003‘) to date1,date2,date3,date4store .f. to thisform.parent.form3.visible,thisform.parent.form4.visible &&隐藏表单thisform.grid1.columncount=1 &&指定表格的列对象的数目thisform.grid1.column1.header1.caption=‘大楼名称‘store ‘‘ to thisform.grid1.recordsource,thisform.grid1.column1.controlsource,; thisform.list1.controlsource,thisform.list1.rowsource,thisform.grid3.recordsource在form1表单的“小区名称”组合框的interactivechange事件中添加以下代码：thisform.init &&执行表单的Init事件xqname=alltrim(thisform.combo1.displayvalue)select *;from databasewuyemanage!tabdlinfo;where 所属区域==xqname;into cursor lindepingthisform.grid1.columncount=1 &&指定表格的列对象的数目thisform.grid1.column1.header1.caption=‘大楼名称‘thisform.grid1.column1.width=154thisform.grid1.recordsource=‘lindeping‘ &&赋数据源thisform.grid1.column1.controlsource=‘lindeping.大楼名称‘&&赋数据源thisform.refresh 在form1表单的“添加新业主”按钮的click事件中添加代码为：yxq=alltrim(thisform.combo1.displayvalue)ydl=alltrim(thisform.text1.value)yfw=alltrim(thisform.text2.value)if empty(yxq) or empty(ydl) or empty(yfw) messagebox(‘请选择小区名称、大楼名称和房屋编号！‘,48,‘操作失败‘)else select tabyzinfo locate for 购入房编号=yfw &&顺序查询 if found() messagebox(‘此房屋已住人！‘,48,‘业主信息登记‘) else thisform.parent.form3.visible=.t. &&显示表单 lfjno=len(yxq)+len(ydl)+1 fjno=substr(yfw,lfjno) thisform.parent.form3.text1.value=yxq thisform.parent.form3.text2.value=ydl thisform.parent.form3.text3.value=fjno thisform.parent.form3.text4.value=yfw thisform.parent.form3.text5.value=yfw store ‘‘ to thisform.parent.form3.text6.value,thisform.parent.form3.text7.value,; thisform.parent.form3.text8.value,thisform.parent.form3.text9.value,; thisform.parent.form3.text10.value,thisform.parent.form3.text11.value,; thisform.parent.form3.text12.value,thisform.parent.form3.text13.value,; thisform.parent.form3.text14.value,thisform.parent.form3.combo1.value,; thisform.parent.form3.combo2.value,thisform.parent.form3.combo3.value thisform.parent.form3.grid1.recordsource=‘‘ thisform.parent.form3.text5.setfocus &&Text5获得焦点 endifendif在form1表单的“修改业主信息”按钮的click事件中添加代码为：cvalue=alltrim(thisform.text3.value)if !empty(cvalue)thisform.parent.form3.visible=.t.public yzdh &&定义全局变量yzdh=alltrim(thisform.text3.value)select *;from wuyemanage!tabyzinfo;where 业主代号==yzdh;into cursor lxgyzinfo*赋值给Text1等thisform.parent.form3.text1.value=lxgyzinfo.小区名称thisform.parent.form3.text2.value=lxgyzinfo.大楼名称thisform.parent.form3.text3.value=lxgyzinfo.房间号码thisform.parent.form3.text4.value=lxgyzinfo.购入房编号thisform.parent.form3.text5.value=lxgyzinfo.业主代号thisform.parent.form3.text6.value=lxgyzinfo.业主姓名thisform.parent.form3.text7.value=lxgyzinfo.手机thisform.parent.form3.text8.value=lxgyzinfo.管理协议书编号thisform.parent.form3.text9.value=lxgyzinfo.电话thisform.parent.form3.text10.value=lxgyzinfo.购房合同书编号thisform.parent.form3.text11.value=lxgyzinfo.联系地址thisform.parent.form3.text12.value=lxgyzinfo.证件号thisform.parent.form3.text13.value=lxgyzinfo.单位电话thisform.parent.form3.text14.value=lxgyzinfo.工作单位thisform.parent.form3.combo1.value=lxgyzinfo.性别thisform.parent.form3.combo2.value=lxgyzinfo.是否进住thisform.parent.form3.combo3.value=lxgyzinfo.证件名*赋值给date and time picker 控件thisform.parent.form3.date1.year=year(lxgyzinfo.签约日期)thisform.parent.form3.date1.month=month(lxgyzinfo.签约日期)thisform.parent.form3.date1.day=day(lxgyzinfo.签约日期)thisform.parent.form3.date2.year=year(lxgyzinfo.进住起始日期)thisform.parent.form3.date2.month=month(lxgyzinfo.进住起始日期)thisform.parent.form3.date2.day=day(lxgyzinfo.进住起始日期)thisform.parent.form3.date3.year=year(lxgyzinfo.进住日期)thisform.parent.form3.date3.month=month(lxgyzinfo.进住日期)thisform.parent.form3.date3.day=day(lxgyzinfo.进住日期)thisform.parent.form3.date4.year=year(lxgyzinfo.进住截止日期)thisform.parent.form3.date4.month=month(lxgyzinfo.进住截止日期)thisform.parent.form3.date4.day=day(lxgyzinfo.进住截止日期)select *;from wuyemanage!tabrkinfo;where 房间编号==alltrim(thisform.parent.form3.text4.value);order by 人口编号;into cursor lincythisform.parent.form3.grid1.recordsource=‘lincy‘ &&赋数据源thisform.parent.form3.text5.setfocus &&Text5获得焦点else messagebox(‘请选择业主代号！‘,48,‘业主信息登记‘)endif在form1表单的“删除业主信息”按钮的click事件中添加代码为：yzno=alltrim(thisform.text3.value)cmessagetitle=‘业主信息登记‘cmessagetext=‘确定要删除吗？‘ndialogtype=4+32nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)if nAnswer=6 select tabyzinfo use use database/tabyzinfo exclusive &&以独占的方式打开数据表 dele from tabyzinfo where 业主代号==yzno &&逻辑删除 dele from tabyzinfo where empty(业主代号) pack &&物理删除 update wuyemanage!tabfwinfo set 房主代号=‘‘,房主姓名=‘‘,是否空闲=.t.,房屋状态=‘空闲‘ ; where 房主代号==yzno &&更新数据表 messagebox(‘删除完毕‘,48,‘操作成功！‘) use database abyzinfo thisform.optiongroup1.interactivechange &&执行Optiongroup1的Interactionchange事件 thisform.text3.value=‘‘ thisform.refreshendif在form1表单的“退出业主登记管理”按钮的click事件中添加代码为：thisform.release &&释放表单thisform.parent.form2.releasethisform.parent.form3.releasethisform.parent.form4.release在form1表单的optiongroup1选项按钮组的interactivechange事件中添加代码为：do case case thisform.optiongroup1.option1.value=1 select *; from wuyemanage!tabyzinfo; where 大楼名称==alltrim(thisform.text1.value); into cursor linall thisform.grid3.recordsource=‘linall‘ &&赋数据源 case thisform.optiongroup1.option2.value=1 select *; from wuyemanage!tabyzinfo; where 是否进住==‘已进住‘ and 大楼名称==alltrim(thisform.text1.value); into cursor liny thisform.grid3.recordsource=‘liny‘ &&赋数据源 case thisform.optiongroup1.option3.value=1 select *; from wuyemanage!tabyzinfo; where 是否进住==‘未进住‘and 大楼名称==alltrim(thisform.text1.value); into cursor linw thisform.grid3.recordsource=‘linw‘endcase在form1的“查看房屋详细信息”按钮的click事件中添加以下代码：dlname=alltrim(thisform.text1.value)if !empty(dlname) select *; from database abfwinfo; where 大楼名称==dlname; into cursor lin if reccount()=0 messagebox(‘请先生成大楼[‘+dlname+‘]的房屋信息！‘,48,‘操作失败‘) else thisform.parent.form2.grid1.recordsource=‘lin‘ &&赋数据源 endifelse thisform.parent.form2.grid1.recordsource=‘tabfwinfo‘endifthisform.parent.form2.visible=.t. &&显示表单在form1的list1控件的click事件中添加以下代码：thisform.text2.value=alltrim(thisform.list1.displayvalue)在form1的text1控件的click事件中添加以下代码：thisform.text3.value=alltrim(thisform.grid3.column1.text1.value)在form2表单的init事件中添加代码：thisform.grid1.recordsource=‘tabfwinfo‘在form2的“退出房屋信息列表”按钮的click事件中添加以下代码：thisform.visible=.f. &&隐藏表单在form3表单的init事件中添加代码：thisform.grid1.recordsource=‘‘在form3表单的load事件中添加代码：public bzcy在form3的“确定保存业主信息”按钮的click事件中添加以下代码：*获得输入信息yzdh=alltrim(thisform.text5.value)yzname=alltrim(thisform.text6.value)sex=alltrim(thisform.combo1.displayvalue)lxdz=alltrim(thisform.text11.value)sj=alltrim(thisform.text7.value)tel=alltrim(thisform.text9.value)workdw=alltrim(thisform.text14.value)dwtel=alltrim(thisform.text13.value)zjname=alltrim(thisform.combo3.displayvalue)zjnumber=alltrim(thisform.text12.value)sfjz=alltrim(thisform.combo2.displayvalue)gfhtno=alltrim(thisform.text10.value)glxysno=alltrim(thisform.text8.value)fwno=alltrim(thisform.text4.value)xqname=alltrim(thisform.text1.value)dlname=alltrim(thisform.text2.value)fjno=alltrim(thisform.text3.value)if sfjz=‘已进住‘ fwzt=‘入住‘else fwzt=‘签约‘endif*自动编号select tabrkinfoif empty(人口编号) rknumber=alltrim(‘RK00001‘)else select max(人口编号) from tabrkinfo into array a &&查找表tabrkinfo中最大的人口编号存入数组a中 cend=val(substr(a(1),3))+1 rknumber=alltrim(‘RK‘+padl(alltrim(str(cend,5)),5,‘0‘))endifif empty(yzname) or empty(gfhtno) or empty(glxysno) or empty(zjnumber) or empty(zjname) or empty(tel) messagebox(‘请将信息添全！‘,48,‘操作失败‘)else select tabyzinfo locate for 业主代号=yzdh &&顺序查询 if !found() insert into tabyzinfo values(yzdh,yzname,sex,lxdz,sj,tel,workdw,dwtel,zjname,zjnumber,; date1,date3,date2,date4,sfjz,gfhtno,glxysno,fwno,xqname,dlname,fjno) &&追加新记录 update wuyemanage!tabfwinfo set 房主代号=yzdh,房主姓名=yzname,是否空闲=.f.,; 房屋状态=fwzt where 房间编号==fwno &&更新数据表 insert into tabrkinfo values(rknumber,yzname,sex,ctod(‘‘),‘1‘,‘‘,‘户主‘,‘‘,‘‘,‘‘,workdw,‘‘,; ‘‘,‘‘,‘‘,dwtel,sj,tel,lxdz,xqname,dlname,fjno,zjnumber,‘‘,‘‘,fwno,‘‘) messagebox(‘数据保存完毕！‘,48,‘业主信息登记‘) thisform.parent.form1.grid1.column1.text1.click &&执行Text1的Click事件 thisform.visible=.f. &&隐藏表单 else update wuyemanage!tabyzinfo set 业主姓名=yzname,性别=sex,联系地址=lxdz,手机=sj,电话=tel,; 工作单位=workdw,单位电话=dwtel,证件号=zjnumber,签约日期=date1,进住日期=date3,; 进住起始日期=date2,进住截止日期=date4,是否进住=sfjz,购房合同书编号=gfhtno,; 管理协议书编号=glxysno,购入房编号=fwno,小区名称=xqname,大楼名称=dlname,; 房间号码=fjno where 业主代号==yzdh &&更新数据表 update wuyemanage!tabfwinfo set 房主代号=yzdh,房主姓名=yzname,是否空闲=.f.,; 房屋状态=fwzt where 房间编号==fwno update wuyemanage!tabrkinfo set 姓名=yzname,性别=sex,工作单位=workdw,单位电话=dwtel,; 手机=sj,传呼=tel,家庭住址=lxdz,身份证号=zjnumber where 房间编号==fwno thisform.parent.form1.grid1.column1.text1.click endifendif在form3表单的“添加成员信息”按钮的click事件中添加代码为：pfjno=alltrim(thisform.text3.value)pfjnumber=alltrim(thisform.text4.value)select *;from wuyemanage!tabrkinfo;where 房间编号==pfjnumber;order by 房间编号;into cursor lincyif reccount()=0 messagebox(‘请添加业主信息！‘,48,‘业主信息登记‘)else thisform.parent.form4.text3.value=alltrim(str(reccount()+1)) thisform.parent.form4.visible=.t. store ‘‘ to thisform.parent.form4.text1.value,thisform.parent.form4.text2.value,; thisform.parent.form4.text4.value,thisform.parent.form4.text5.value,; thisform.parent.form4.text6.value,thisform.parent.form4.text7.value,; thisform.parent.form4.text8.value,thisform.parent.form4.text9.value,; thisform.parent.form4.text10.value,thisform.parent.form4.text11.value,; thisform.parent.form4.text12.value,thisform.parent.form4.combo1.value,; thisform.parent.form4.combo2.value,thisform.parent.form4.combo3.value,; thisform.parent.form4.combo4.value,thisform.parent.form4.combo5.value,; thisform.parent.form4.combo6.value,thisform.parent.form4.combo7.value,; thisform.parent.form4.combo8.value,thisform.parent.form4.edit1.value thisform.parent.form4.text13.value={//} bzcy=.t.endifthisform.parent.form1.commandgroup1.command2.click &&执行Command2的Click事件在form3表单的“编辑成员信息”按钮的click事件中添加代码为：public pxq,pdl,pfjno,pfjnumberpxq=alltrim(thisform.text1.value)pdl=alltrim(thisform.text2.value)pfjno=alltrim(thisform.text3.value) &&定义全局变量pfjnumber=alltrim(thisform.text4.value)cvalue=alltrim(thisform.textg.value)if !empty(cvalue) thisform.parent.form4.visible=.t. cynumber=alltrim(thisform.textg.value) select *; from wuyemanage!tabrkinfo; where 人口编号==cynumber; into cursor lcyinfo thisform.parent.form4.text1.value=lcyinfo.姓名 thisform.parent.form4.text2.value=lcyinfo.职务 thisform.parent.form4.text3.value=lcyinfo.成员代号 thisform.parent.form4.text4.value=lcyinfo.身份证号 thisform.parent.form4.text5.value=lcyinfo.传呼 thisform.parent.form4.text6.value=lcyinfo.单位电话 thisform.parent.form4.text7.value=lcyinfo.家庭电话 thisform.parent.form4.text8.value=lcyinfo.暂住证号 thisform.parent.form4.text9.value=lcyinfo.手机 thisform.parent.form4.text10.value=lcyinfo.家庭住址 thisform.parent.form4.text11.value=lcyinfo.户口所在地 thisform.parent.form4.text12.value=lcyinfo.工作单位 thisform.parent.form4.text13.value=lcyinfo.出生日期 thisform.parent.form4.combo1.value=lcyinfo.性别 thisform.parent.form4.combo2.value=lcyinfo.籍贯 thisform.parent.form4.combo3.value=lcyinfo.婚姻状况 thisform.parent.form4.combo4.value=lcyinfo.职业 thisform.parent.form4.combo5.value=lcyinfo.文化程度 thisform.parent.form4.combo6.value=lcyinfo.职称 thisform.parent.form4.combo7.value=lcyinfo.与户主关系 thisform.parent.form4.combo8.value=lcyinfo.国籍 thisform.parent.form4.edit1.value=lcyinfo.备注 thisform.parent.form4.text1.setfocus &&Text1获得焦点 bzcy=.f.else messagebox(‘请选择成员名称！‘,48,‘家庭成员信息‘)endif在form3表单的“删除成员信息”按钮的click事件中添加代码为：rknumber=alltrim(thisform.textg.value)cmessagetitle=‘成员信息‘cmessagetext=‘确定要删除吗？‘ndialogtype=4+32nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)if nAnswer=6 select tabrkinfo use use database/tabrkinfo exclusive &&以独占方式打开数据表 dele from tabrkinfo where 人口编号==rknumber &&逻辑删除记录 dele from tabyzinfo where empty(人口编号) pack &&物理删除 messagebox(‘删除完毕‘,48,‘操作成功！‘) use database abrkinfo thisform.parent.form1.commandgroup1.command2.click &&执行Command2的单击事件 thisform.textg.value=‘‘ thisform.refreshendif在form3表单的“退出业主登记”按钮的click事件中添加代码为：thisform.visible=.f. &&隐藏表单在表单form3的 date1控件的init事件中添加代码为：public date1y=alltrim(str(this.year))m=alltrim(str(this.month))d=alltrim(str(this.day))date1=ctod(m+‘/‘+d+‘/‘+y)在表单form3的 date1控件的change事件中添加代码为：*** ActiveX 控件事件 ***y=alltrim(str(this.year))m=alltrim(str(this.month))d=alltrim(str(this.day))date1=ctod(m+‘/‘+d+‘/‘+y)在表单form3的 date2控件的change事件中添加代码为：*** ActiveX 控件事件 ***y=alltrim(str(this.year))m=alltrim(str(this.month))d=alltrim(str(this.day))date2=ctod(m+‘/‘+d+‘/‘+y)在表单form3的 date2控件的init事件中添加代码为：public date2y=alltrim(str(this.year))m=alltrim(str(this.month))d=alltrim(str(this.day))date2=ctod(m+‘/‘+d+‘/‘+y)在表单form3的 date3控件的change事件中添加代码为：y=alltrim(str(this.year))m=alltrim(str(this.month))d=alltrim(str(this.day))date3=ctod(m+‘/‘+d+‘/‘+y)在表单form3的 date3控件的init事件中添加代码为：public date3y=alltrim(str(this.year))m=alltrim(str(this.month))d=alltrim(str(this.day))date3=ctod(m+‘/‘+d+‘/‘+y)在表单form3的 date4控件的change事件中添加代码为：y=alltrim(str(this.year))m=alltrim(str(this.month))d=alltrim(str(this.day))date4=ctod(m+‘/‘+d+‘/‘+y)在表单form3的 date4控件的init事件中添加代码为：y=alltrim(str(thisform.date4.year))m=alltrim(str(thisform.date4.month))d=alltrim(str(thisform.date4.day))date4=ctod(m+‘/‘+d+‘/‘+y)在form4表单的“保存并退出”按钮的click事件中添加代码为：set exact on &&设置字符精确比较*自动编号select tabrkinfoif empty(人口编号) rknumber=alltrim(‘RK00001‘)else select max(人口编号) from tabrkinfo into array a &&查找表中最大的人口编号存入数组 cend=val(substr(a(1),3))+1 rknumber=alltrim(‘RK‘+padl(alltrim(str(cend,5)),5,‘0‘))endif*获得输入信息cname=alltrim(thisform.text1.value)zw=alltrim(thisform.text2.value)cyno=alltrim(thisform.text3.value)sfzno=alltrim(thisform.text4.value)ch=alltrim(thisform.text5.value)dwtel=alltrim(thisform.text6.value)jttel=alltrim(thisform.text7.value)cmemo=alltrim(thisform.edit1.value)zzzno=alltrim(thisform.text8.value)sj=alltrim(thisform.text9.value)area=alltrim(thisform.text10.value)hkszd=alltrim(thisform.text11.value)workdw=alltrim(thisform.text12.value)birthday=thisform.text13.valuesex=alltrim(thisform.combo1.displayvalue)jg=alltrim(thisform.combo2.displayvalue)hyzk=alltrim(thisform.combo3.displayvalue)zy=alltrim(thisform.combo4.displayvalue)whcd=alltrim(thisform.combo5.displayvalue)zc=alltrim(thisform.combo6.displayvalue)yhzgx=alltrim(thisform.combo7.displayvalue)gj=alltrim(thisform.combo8.displayvalue)if empty(cname) or empty(sex) or empty(yhzgx) or empty(area) or empty(hkszd) messagebox(‘请将信息填完整！‘,48,‘操作失败‘)else if bzcy=.t. insert into tabrkinfo values(rknumber,cname,sex,birthday,cyno,whcd,yhzgx,jg,gj,; hyzk,workdw,zy,zw,zc,jttel,dwtel,sj,ch,area,pxq,pdl,pfjno,sfzno,hkszd,zzzno,; pfjnumber,cmemo) &&追加新记录 thisform.parent.form1.commandgroup1.command2.click else cmessagetitle=‘家庭成员信息‘ cmessagetext=‘信息已修改，确定要保存吗？‘ ndialogtype=4+32 nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) do case case nAnswer=6 update wuyemanage!tabrkinfo set 姓名=cname,性别=sex,出生日期=birthday,成员代号=cyno,; 文化程度=whcd,与户主关系=yhzgx,籍贯=jg,国籍=gj,婚姻状况=hyzk,工作单位=workdw,职业=zy,; 职务=zw,职称=zc,家庭电话=jttel,单位电话=dwtel,手机=sj,传呼=ch,家庭住址=area,小区名称=pxq,; 大楼名称=pdl,房间号=pfjno,身份证号=sfzno,户口所在地=hkszd,暂住证号=zzzno,房间编号=pfjnumber,; 备注=cmemo where 人口编号==alltrim(thisform.parent.form3.textg.value) &&更新数据表 messagebox(‘数据保存完毕！‘,48,‘操作成功！‘) endcase endif endif thisform.visible=.f. &&隐藏表单在form4表单的“放弃并退出”按钮的click事件中添加代码为：thisform.visible=.f. &&隐藏表单(2) 在项目管理器中新建表单集包含form1,form2,名称为“小区投诉登记”。在表单form1中添加15个label控件，9个text控件，1个edit控件，4个combo控件，2个commandgroup控件，1个command控件。在表单form2中添加1个command控件，1个grid控件。说明：其编法如以上（1）所示6．工程部设计（1）在项目管理器中新建表单集包含form1,form2,名称为“装修信息登记”。在表单form1中添加15个label控件，12个text控件， 2个commandgroup控件。在表单form2中添加1个command控件，1个grid控件。在表单form1的 load事件中添加代码为：public ll=.f.在表单form1的 init事件中添加代码为：thisform.text1.enabled=l &&设置控件是否有效thisform.text2.enabled=lthisform.text3.enabled=lthisform.text4.enabled=lthisform.text5.enabled=lthisform.text6.enabled=lthisform.text7.enabled=lthisform.text8.enabled=lthisform.text9.enabled=lthisform.text10.enabled=lthisform.text11.enabled=lthisform.text12.enabled=lthisform.combo1.enabled=lthisform.edit1.enabled=l在表单form1的 activate事件中添加代码为：thisform.text1.value=tabzxinfo.编号thisform.text2.value=tabzxinfo.申请人thisform.text3.value=tabzxinfo.客户thisform.text4.value=tabzxinfo.预算thisform.text5.value=tabzxinfo.装修押金thisform.text6.value=tabzxinfo.装修管理费thisform.text7.value=tabzxinfo.罚金thisform.text8.value=tabzxinfo.验收thisform.text9.value=tabzxinfo.申请日期thisform.text10.value=tabzxinfo.退押金时间thisform.text11.value=tabzxinfo.完工日期thisform.text12.value=tabzxinfo.经办人thisform.combo1.displayvalue=tabzxinfo.装修队thisform.edit1.value=tabzxinfo.装修内容thisform.refresh &&刷新表单在form1的“添加”按钮的click事件中添加以下代码：if alltrim(thisform.commandgroup1.command1.caption)=‘添加‘ thisform.commandgroup1.command1.caption=‘保存‘ &&赋值给Command1的标题文本 thisform.commandgroup1.command2.caption=‘取消‘ thisform.commandgroup1.command3.enabled=.f. thisform.commandgroup1.command4.enabled=.f. l=.t. thisform.init &&执行表单的Init事件 thisform.text1.enabled=.f.*自动编号 select tabzxinfo if empty(编号) zxno=alltrim(‘ZX00001‘) else select max(编号) from tabzxinfo into array a &&查找表中最大的编号存入数组 cend=val(substr(a(1),3))+1 zxno=alltrim(‘ZX‘+padl(alltrim(str(cend,5)),5,‘0‘)) endif thisform.text1.value=zxno store 0 to thisform.text4.value,thisform.text5.value,; thisform.text7.value,thisform.text6.value store ‘‘ to thisform.text3.value,thisform.text2.value,thisform.text12.value,; thisform.text8.value,thisform.combo1.value,thisform.edit1.value store {//} to thisform.text9.value,thisform.text10.value,thisform.text11.value thisform.combo1.setfocuselse thisform.commandgroup1.command1.caption=‘添加‘ thisform.commandgroup1.command2.capti
VB编程资源大全（英文源码 控件）
1 , vb5dialog.zipThis demonstrates how to subclass the Common Dialog Dialogs and manipulate a specific Dialog.2 , cpnl.zipForm_Taskbar is a control for Visual Basic which, once placed onto a form, makes the form act like the Taskbar (minus the Start Menu).3 , vbo_progbar.zipImplement a common control progress bar with added features that are not accessable using COMCTL32.OCX! 4 , vbo_infolabel.zipThis control adds a great user-friendly interface with and icon and "Hover" ability. Based on a control seen in ICQ. 5 , vbo_checkcombo.zipAdd a checkbox to a combo box and use it to enabled/disable the combo! or whatever you would like to do with it! 6 , vbo_controlframe.zipCreate your own system button such as a Maximize, Minimize, Close, and many others with ease! 7 , vbo_ctextbox.zipThis class makes using the Textbox or Edit class API simple. Easily set properties and access many features not available directly from VB. 8 , taskbar.zipForm_Taskbar is a control for Visual Basic which, once placed onto a form, makes the form act like the Taskbar (minus the Start Menu).9 , NT_Service.zipThis is an OCX that allows you to create an NT service application...add the control to your project and register it as a service!!10 , Scroller.zipThis is a Control Container, it's like a frame control but it lets you scroll the content up and down...11 , TrayArea.zipThis control lets you add your icon to the System Tray Area and handle some events such as MouseMove, MouseDown, MouseUp and DblClick.12 , Resizer.zipThis is a very useful control: It's a container control, you can insert two controls inside and then you'll have a vertical (or horizontal) resizer bar (like the Windows File Explorer). A resizer can contain another resizer... an so on. (you can divide you form in as many sizable sections as you want...).13 , Label3D.zipTh
Visual C++ 编程资源大全（英文源码 控件）
1,01.zip
3D Text
显示3D文字(6KB)
2,02.zip
A button within a button
按纽中的按纽(13KB)
3,03.zip
Flat Owner Drawn Buttons
浮动的自画按纽(13KB)
4,04.zip
Flat-look Buttons
浮动的工具条按纽(6KB)
5,05.zip
Showing disabled combo text in black
ComboBox的只读属性(5KB)
6,06.zip
Combobox Color Picker
选择颜色的ComboBox(6KB)
7,07.zip
Switch between drop down & drop list mode
处理drop down和drop list方式之间的转换(32KB)
8,08.zip
Drop down a popdown window instead of a dropdown list from a combobox 在ComboBox中用Drop down方式代替dropdown list方式(32KB)
9,09.zip
Change listbox width of combo boxes
在ComboBox中改变列表框的宽度(2KB)
10,10.zip
Owner Drawn Font Selection ComboBox
自画的字体选择ComboBox(5KB)
11,add.zip
This sample was developed on stage at the Washington Software Association's WinSIG meeting on the ninth of September, 1996 using Visual C++ 4.2. (13KB)
12,apibrow.zip
The project demonstrates the use of common control callback items in an MFC applicationthat manages a CListCtrl control in a CListView. (16KB)
13,colorlb.zip
The COLORLB sample shows how to implement an owner-draw list box. (53KB)
14,comper.zip
COMPER is an example of the ATL Composite Control. (123KB)
15,custfile.zip
This sample shows how to add a couple of extra buttons to a CFileDialog. (23KB)
16,custlist.zip
CUSTLIST shows how to use custom draw in a list view control. (23KB)
17,div.zip
This sample shows how floating-point exceptions may be captured and handled in an MFC application. (14KB)
18,doodads.zip
The project demonstrates many Windows common controls, including the extensive use of image lists. (83KB)
19,doubleedit.zip
DOULBEEDIT shows how to sublcass an edit control inside a form view and react to double-clicks on the edit control by handling the WM_LBTNDOUBLECLICK message. (18KB)
20,dumpsome.zip
DUMPSOME is a project for Visual C++ 4.x that shows how to write a CGI server extension which uses MFC and DAO. (8KB)
21,edpos.zip
EDPOS is a MDI-based MFC application that shows an edit control in its primary view. (35KB)
22,edstream.zip
this sample shows how to use the StreamIn() and StreamOut() members of the CRichEditCtrl class in MFC. (36KB)
23,findrich.zip
RICHFIND is a dialog-based MFC application for Visual C++ 6.0. (24KB)
24,floatlist.zip
The FloatList sample is an MFC-based SDI application with an edit view as its main window. (49KB)
25,fully.zip
FULLY shows how to make an MFC application make one of its views go full-screen active. (43KB)
26,holder.zip
HOLDER contains the Internet Explorer web browser control using CHtmlView in an MFC application. (67KB)
27,langload.zip
LANGLOAD shows how to use the LANGUAGE keyword in a resource file to mark language-specific resources. (2KB)
28,listfind.zip
This sample shows how to use the CList<> template. (9KB)
29,ndbrow.zip
This Visual C++ 6 project shows how to create an MDI application that hosts CHtmlView (20KB)
30,mfctalk.zip
MFCTALK was originally published with Mike's article on ISPAI programming with MFC in the May (23KB)
31,mfctlist.zip
MCTTLIST is a dialog-based application that provides the same functionality as the TLIST sample in the SDK. (28KB)
32,mruless.zip
MRULESS shows a way to strip the empty "Recent Files" item off the "File" menu when there are no entries in the MRU. (32KB)
33,mtprint.zip
MTPRINT demonstrates the use of a secondary thread to perform printing in an application that uses MFC's document/view architecture. (21KB)
34,multitop.zip
MULTITOP shows how to write an SDI application which has multiple top level windows and uses the MFC doc/view architecture.(30KB)
35,njfind16.zip
This 16-bit DOS tool traverses all directories on all drives on your machine and finds files which match the template you specify. (33KB)
36,noform.zip
This sample shows how to make an application that doesn't have the doc/view architecture but still offers a form in the client area of the application's main window. (33KB)
37,odcombo.zip
ODCOMBO.ZIP is a VC++ 6.0 dialog-based project that contians an onwer-drawn combo box. (23KB)
38,picknew.zip
It demonstrates calling CDocTemplate::OpenDocumentFile(). (49KB)
39,primecon.zip
PrimeCon is a VC++ 6.0 sample which uses MFC in a console application.(60KB)
40,q1.zip
Q1 is a VC++ 6.0 project that creates two threads. (79KB)
41,scrl.zip
This dialog-based application shows how to use the CListCtrl::Scroll() member. (14KB)
42,spinrange.zip
SpinRange is a VC++ 6.0 project that shows how to subclass a CSpinButtonControl to dramatically extend the range of the control. (24KB)
43,splits.zip
This VC++ 5.0 project shows how to manage views within a splitter window. (36KB)
44,stealth.zip
This SDI application shows how to create an application that doesn't show up in the task bar in Windows 95 or Windows NT 4.0. (29KB)
45,tenhook.zip
Because the Windows dialog manager eats all keystrokes, you'll need to install a Windows keyboard hook if you want to get keyboard input to your dialog without other controls getting in the way. (19KB)
46,treestore.zip
Tree views are capable of storing hierarchical data, which isn't intuitively serialized. (41KB)
47,writeres.zip
This console application shows how to bake resources into console applications. (566KB)
48,xctrl.zip
The XCTRL sample is an ATL "full control" ATL Control. (100KB)
49,Button_Tute.zip
How to get a button control wired-in and working(34KB)
50,BetterBmpButton_src.zip
An improvement on the CBitmapButton class.(22KB)
51,hoverbutton.zip
A simple drop-in class that provides a 'hot' look button using the _TrackMouseEvent function(17KB)
52,CLedButton_src.zip
A button that looks like a LED.(24KB)
53,EllipticalButtons.zip
A class that turns rectangular buttons into elliptic buttons.(29KB)
54,RoundButtons.zip
A class that turns rectangular buttons into round buttons.(17KB)
55,AniButton.zip
A class that show AVIs inside a button.(49KB)
56,CButtonST26.zip
A fully featured owner-draw button class - it's got the lot!(225KB)
57,coolbtn.zip
This article shows the use of a Push button with a drop down menu, similar to the one found in the Office 2000 suite.(31KB)
58,CustomButtons.zip
A class to make working with radio buttons easier, and another for custom drawing buttons(45KB)
59,CWBButton.zip
CWBButton is a resizable bitmap button like GTK+ or Window Blinds.(44KB)
60,ComboDropWidth.zip
A simple tutorial explaining how to set the width of a combo dropdown list so that all items are fully visible(18KB)
61,ComboBox_Tut_demo.zip
An entry level tutorial on using the CComboBox control(65KB)
62,ListBox_Tut_src.zip
An entry level tutorial on using the CListBox control(62KB)
63,BitmapPickerCombo.zip
A combo box that can be used to display bitmaps(26KB)
64,mccombobox.zip
A multicolumn, customizable, editable combobox(27KB)
65,disableditemscombobox_src.zip
combobox with disabled items(3KB)
66,checkcombo.zip
A combo box with check boxes(21KB)
67,ColourPickerCB.zip
A combobox derived class that provides a simple color picker(36KB)
68,ComboBoxInit_src.zip
Learn how to programmatically initialize a combo box.(3KB)
69,IconComboBox_src.zip
2 Freeware MFC icon selection combo box classes(19KB)
70,ComboCompletion_demo.zip
A combobox that autocompletes as you type(17KB)
71,IDComboDemo.zip
An extremely simple but useful CComboBox entension(12KB)
72,MRUCombo.zip
A combobox that encapsulates the functionality of CRecentFileList(29KB)
73,combobox_flatcombo.zip
A drop-in replacement combobox that gives your apps the flat Office-style look(53KB)
74,readonlycombo_src.zip
Show a disabled dropdown style combobox like a read only edit box.(2KB)
75,VBLikeCombo.zip
Creates a combo box similar to those in Visual Basic.(27KB)
76,ComboTree.zip
ComboBox with a tree control drop down(36KB)
77,multichecklistbox.zip
Extends the CCheckListBox class to have multiple check box columns(19KB)
78,disableditemslistbox_src.zip
Listbox with disabled items.(2KB)
79,ImageLB.zip
A list box for viewing images(25KB)
80,LVCustomDraw.zip
Using the custom-draw features in version 4.70 of the common controls to customise the look and feel of list controls(28KB)
81,ListCtrlDemo.zip
Everything you need to know about using the standard list control in your applications(68KB)
82,filedroplistctrl.zip
This article explains how to support file drag and drop in your CWnd-derived object(40KB)
83,DrivePickerList.zip
A control that shows drive names and icons like Explorer(23KB)
84,ListEditor.zip
This article shows you how you can navigate through a multi-column, editable list view(42KB)
85,LogControl_src.zip
Learn how to use printf-like functionality to debug your GUI applications.(46KB)
86,PropertyListCtrl.zip
An object properties list control than can change based on the objects state.(64KB)
87,supergrid.zip
A combination list control and tree control with checkbox capability(87KB)
88,Listview_callback.zip
Shows how to use text callbacks in list controls(16KB)
89,HeaderCtrlEx.zip
How to make the CListCtrl's header Multiline(29KB)
90,listPrint_demo.zip
Printing the contents of a CListCtrl or CListView with multiple pages(56KB)
91,TreeListCtrlGerolf.zip
A custom-drawn tree-list hybrid, with explanations on how the control was developed.(39KB)
92,PrtTView_demo.zip
Code to add printing capabilities to a Tree View(32KB)
93,treelist.zip
A tree control / list control hybrid(81KB)
94,FileTree_src.zip
Implements a tree control similar to the left hand side of Windows Explorer.(46KB)
95,TreeOpt_src.zip
A freeware MFC class to provide a tree options control.(32KB)
96,ShTree.zip
A very simple manager for shared folders using tree control drag & drop (42KB)
97,NetworkTreeCtrl.zip
A CWaitingTreeCtrl-derived class to display network resources(40KB)
98,ProgressHourglassFX.zip
Two animation provider classes to add animation effects to any CWaitingTreeCtrl-derived class(33KB)
99,ShellTreeCtrl.zip
A CWaitingTreeCtrl-derived class to display Shell's resources(39KB)
100,WaitingTreeCtrl_src.zip
A CTreeCtrl derived class that populates the branches of a tree only when necessary, with optional visual effects.(5KB)
101,PathPicker.zip
An article on Browsing my computer and the network using a TreeCtrl(82KB)
102,Tree2Excel.zip
This article is a light sample showing how to iterate and export a tree control content to an Excel file.(44KB)
103,lbtab.zip
A better looking tab control(89KB)
104,CXTabControl_demo.zip
An easier tab control(32KB)
105,ResizableProperties.zip
Two CPropertySheet/CPropertyPage derived classes to implement resizable property sheets or wizard dialogs with MFC(96KB)
106,saprefs.zip
A base class for a prefereneces dialog, similar to that used in Netscape(39KB)
107,wizardpropertysheet_src.zip
A simply class to turn CPropertySheet into wizard mode without needing to alert the property pages within(2KB)
108,AutoRichEditCtrl.zip
CAutoRichEditCtrl - automate rich edit formatting and RTF handling(49KB)
109,AutomaticSplitter.zip
A tutorial that shows how to automatically split a view, and also how to indicate which view has the focus(31KB)
110,usefulsplitter.zip
An extension to MFCs CSplitterWnd that provides splitter locking and dynamic view replacement(25KB)
111,rulers_src.zip
Using fixed panes to add rulers to your view(5KB)
112,StaticCtrl_Tut_demo.zip
An entry level tutorial on using the CStatic control(64KB)
113,rotated_bevel.zip
A bevelline control that displays vertical and horizontal text(83KB)
114,Ticker.zip
A class that provides a news/stock ticker for your MFC applications(47KB)
115,StaticCounter.zip
A control to display time, floating point numbers or integers using an LED digital-style display(41KB)
116,CStaticTime.zip
A control to display times and numbers using an LED digital-style display(52KB)
117,alexf_histogram.zip
A simple histogram control for displaying data(23KB)
118,static_fader.zip
A CStatic class that gently fades text into view(99KB)
119,CLabel_demo.zip
A fully stocked owner drawn CStatic class(52KB)
120,DigiString.zip
A control to display text or numbers with a 14 or 7 segment display(176KB)
121,cstatic_filespec.zip
Lightweight class for displaying long filespecs that may need to be truncated(16KB)
122,tip_static.zip
A tip-of-the-day control that uses a cool sliding effect to show each tip(133KB)
123,UsingCtrlsInDialogs_Tut_demo.zip
An entry level tutorial on using one of the Windows Common Controls in a dialog(42KB)
124,CmdUIDemo.zip
A C++/MFC sample how to implement UI notifications for user-defined controls(15KB)
125,SubclassDemo.zip
An introduction to subclassing the Windows common controls using MFC(19KB)
126,CustomControl.zip
An introduction to creating custom controls using MFC(22KB)
127,graph2d.zip
A comprehensive set of classes for displaying 2 dimensional data(386KB)
128,3dMeter_demo.zip
An Analog Meter Control for displaying real-time data(42KB)
129,analog_meter.zip
A control that displays a numerical value as an analog meter(45KB)
130,oscope.zip
A control that graphically displays numerical information(31KB)
131,swing_demo.zip
A set of MFC classes the duplicate the Java Swing look and feel(76KB)
132,ReportCtrl.zip
An Outlook 98/2000 Style SuperGrid Report Control that tries to overcome some of the weaknesses of other implementations.(179KB)
133,controls_pager.zip
This article presents a wrapper class for the pager control(28KB)
134,RulerCtrl.zip
A simple ruler control to allow users to set margins or indents(21KB)
135,CSizer.zip
A class that provides the ability to move and size controls at run-time (34KB)
136,controls_avi_demo.zip
Demonstrates the use of the windows animation control(145KB)
137,CMapPin_src.zip
A Freeware MFC class to implement Map pins.(286KB)
138,CFCtrl.zip
The simplest way to change color, font or set blinking mode for any standard control(53KB)
139,CPushPin_src.zip
A Freeware MFC PushPin button class.(15KB)
140,CWndSlider.zip
An article on using an Outlook style window slider control.(98KB)
141,cxwndAnimate_demo.zip
An animation control that uses a bitmap imagelist instead of an AVI file(25KB)
142,hyperlink.zip
A simple drop-in hyperlink control(28KB)
143,ViewObjSnap.zip
How to take a snapshot of an OCX without using HWNDs.(38KB)
144,lbspin.zip
A spin button whose arrows automatically disable themselves when they are at their maximum or minimum value.(27KB)
145,SubclassWnd_demo.zip
A plug in class that allows you to intercept and handle messages for any window class(266KB)
146,resize_at_runtime_demo.zip
A method to allow the user to visually resize and position any control at run time(15KB)
147,RoundSliderCtrl.zip
A round slider control to allow users to adjust an angle or similar values(90KB)
148,EasyFavorite.zip
An application demonstrating the windows Thumbnail control(42KB)
149,TGroupBox.zip
A very simple group box replacement to enhance your user interface(3KB)
150,WndImg.zip
An easy-to-use control to display bitmaps (stretch, scale, tile)(128KB)
151,URLCell_src.zip
A new class that adds hyperlink support to the MFC Grid Control(3KB)
152,gridctrl.zip
A fully featured MFC grid control for displaying tabular data. The grid is a custom control derived from CWnd(381KB)
153,GridTreeCtrl.zip
A set of classes derived from CGridCtrl that embed a tree control, button controls, and virtual cells within the grid(221KB)
154,gridctrl_demo220.zip
Explains how to use comboboxes to edit cells in the MFC Grid Control(203KB)
155,AddHTMLy.zip
A quick and simple example of using MSHTML to modify the DOM(36KB)
156,Process_HTMLFORM.zip
A simple method to processing HTML forms From a CHtmlView(60KB)
157,ColorButton.zip
A simple modification to Chris Maunder's "Office 97 style Colour Picker" control(44KB)
158,ColorSpace_demo.zip
A replacement color picker control allowing you full visual control over RGB and HSB selections(288KB)
159,ColorDlg.zip
A simple color chooser dialog that uses slifer controls to allow the user to combine different RGB values(37KB)
160,choicelistbutton_demo.zip
A dropdown menu button with checkbox menu items(25KB)
161,HotList.zip
A control for selecting items from a list, with tool tips and mouse tracking(33KB)
162,colour_picker.zip
A simple drop in color chooser control(54KB)
163,progresswnd.zip
A popup window containing a progress control and cancel button - no resource file needed(34KB)
164,ProgressCtrlX.zip
An enhanced progress control that supports gradient shading, formatted text, 'snake' and reverse modes, and vertical modes(80KB)
165,GradientProgressCtrl.zip
Subclasses the standard CProgressCtrl to allow for gradient fills. Supports vertical progress controls as well.(52KB)
166,piectrl.zip
A progress control with a difference(149KB)
167,text_progressctrl_demo.zip
A smooth progress control with text(15KB)
168,ProgressBar.zip
An easy way to add a progress control to a status bar(33KB)
169,ProgressTimeToComplete.zip
A progress control that tells the user how long an operation has left to complete(26KB)
170,IProgressDialog_demo.zip
A wrapper class for the progress dialog provided by IE 5.(20KB)
171,rotary.zip
A rotary knob similar to that used in the Windows 2000 CD Player(67KB)
172,SizeDemo.zip
An MS-Word like drop down window for creating tables(37KB)
173,ToolTipEx.zip
A drop-in multiline extendable tooltip control(1052KB)
174,Multiline_Titletips_demo.zip
A class that allows you to display data for a control that is otherwise not large enough to display the full text(23KB)
175,CHtmlView_Search_demo.zip
Could be used to create a Visual C++ like search combo for CHtmlViews...
Update: Now you can highlight all matching words!(36KB)
176,AssociationGrid.zip
Grid control with vertical column headers.(85KB)
Delphi2010皮肤控件AlphaControls6.21FS
AlphaControls6.21FS 皮肤控件,可用于D5~D2010,BCB6~BCB2009 使用时应编译acnt2010_R.dpk,acnt2010.dpk后再安装 vowstar修改前人的作品,在win7,Delphi2010下编译通过 里面的*.obj是zlib,防止编译的时候找不到 AlphaControls :: history 25.02.2009 AlphaControls v6.21 stable released * Improved work of TsMagnifier component, added new SizingMode property :
VB基础类

7,763

社区成员

197,609

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章