软件发布：Font List & Combo ActiveX Control

zealsoft 2000-07-29 11:15:00

软件下载，详细资料请访问：http://www.csdn.net/softs/softview.asp?ID=1829
Font List & Combo ActiveX Control 1.0 是一个让用户更容易地从列表框和组合框中选择字体的控件，支持字体预览。

...全文

38 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

ActiveX重绘列表/组合框控件. 可以自定义重绘等事件代码. 我修改了一下字体的函数,使其可以支持中文. 原文/下载地址: http://www.vbaccelerator.com/home/vb/Code/Controls/Combo_and_List_Boxes/Owner_Draw_Combo_and_List_Box/VB6_Owner_Draw_Combo_List_Control.asp

1,animate.zipThis ActiveX DLL (Source Included) shows how to create animated dialogs in VB5. 2,MetricConversionDLL.zip34 Metric conversion routines in a VB5 DLL. Callible directly or just call the nice front end.3,ControlP.zipWith help of this OCX you can call 39 control panels in windows!4,RemBuilderplus.zipActiveX that allows the ability to add comment blocks with ease.5,VertMenu.zipThis is a free active ocx with full source code for a vertical menu with the look and feel of Outlook 97. 6,dm10e.zipDevMailer adds SMTP email sending abilities to your VB, ASP, VBA, Delphi, or Perl program in just seconds! Features 7,HideAway.zipAn alignable tool bar which can be hidden. Also includes smooth scrolling for hiding/unhiding.8,tlsGUI.zipTILISOFT GUI ActiveX Controls - ImageLabel, ScrollPanel, SplitPanel, Brief9,recordsetEng.zipThis application shows how a DLLActiveX queries a Database and returns the recordset to the Standard EXE application.10,THtml.ZipShow Page Title for file selected with ".HTM" or ".ASP" extension11,Fancy_Button.zipFancy Button12,TransFX.zipTransitionFX is an ActiveX control that allows you to make professional quality slide shows, picture presentations or screen savers13,Roman.zipThis activeX control convert Decimal numbers to Roman numerals and back 14,pgBar.zipCarrick Progress Bar 1.0 - replacement for standard progress bar with customizable colors and styles15,JPGMaker.zipJPGMaker is an ActiveX control designed to compress bitmap images and save them in JPG format16,pictuner.zipPicTuner is an ActiveX control designed to adjust contrast, brightness and color balance of bitmap images. It supports the following file formats: *.jpg, *.bmp, *.dib. 17,Hyperlink.zipHyperlink ActiveX control allows you to include hypertext links on your forms18,shortcut.zipShortcut is an ActiveX control designed to create shortcuts to programs and documents and place them on windows desktop.19,PicOpener.zipPicOpener is an ActiveX control that allows you to read image files in over 50 formats and convert them to BMP bitmaps20,PicConverter.zipRead over 50 and write 15 image file formats.21,labelblink.zipBlinks The Caption In A Label Box22,UnZipper.zipActiveX control designed to easily manipulate ZIP archives from within your application. 23,gurhancoolbuttonocx.zipGurhanCoolButton is a free ActiveX Control that Acts as a Flat Button. Background Pictures and Icons can be added with ease24,pktextline.zipTextbox with modern design25,DirScanner.zipDirScanner is a free ActiveX control designed to scan directory/drive and save results to a file26,activeEjecutor.zipThis control launches a program and waits until it has finished or27,REGASP.zipDLL which provides access to the Windows 2000 registry through Active Server Pages (ASP) code. 28,ColorProgressBar.zipReplaces the standard progress bar with one that is on the order of O(n^2) times faster, with color options, and directional options.29,MDITaskBarDemo.zipThis zip file contains all the code and procedures necessary to create and implement an MDI TaskBar control. 30,AnimatedAgent.zipTwo VBScripts which allow the users to INSTANTLY create MS Agent EMAIL and MS AGENT Web pages or add MS Agent to web pages31,label3d.zipThis ActiveX Control creates a 3D Label. 32,Shcmbbox1.zipShComboBox ActiveX Control v1.0 behaves exactly like the Combo box in Windows Explorer showing all the folders and even files in the Shell's namespace33,fldrvw21.zipFolderView ActiveX Control 2.1 allows you to add a Windows Explorer-like treeview in your application.34,controlcenterlefttrans.zipControl that centers text right, left or in the middle.35,BetaDBToolBar.zipDBToolBar (Database ToolBar) for Add, Edit, Delete, etc...36,CodeDll.zipMiniCalculator DLL that allows input keys/Calculation results directly into a TextBox, ComboBox, etc.37,hyperlink082800.zipThis Hyperlink ActiveX Control will allow you to insert an Hyperlink which will be very useful if you want to give a link to your website from your program. 38,DropdownCalculator.zipNice Drop-Down ActiveX Control Calculator. It is like a combo box, but it will drop down a calculator, which you can use for calculation39,ColorPicker1.zipIt is a color picker control, which is almost similar to those you find in MS Office 2000 applications.40,PowerPrint.zipEasiest way to print. This Will Print Left Align, Right Align, Center Align. OCX. Full demonstration easy to use.41,fb.zipFolder Browser lets you select the directories the easy and elegant way.42,TimeLed.zipThis simple ActiveX control shows a graphic clock with led simulation43,MouseHook.zipThis control provides a nice, elegant way of reacting to the movement of the mouse wheel and other mouse functionality44,rscomm.zipSerial Comm control that provides the ability to send and receive 5 bit baudot with its built in ASCII to baudo and baudo to ASCII converter. Also can tx and rx any baudrate 45 to 115k!45,Mouse.zipVery useful mouse events, such as MouseMove, MousePosition, ClickRightButton, ClickLeftButton and etc.46,cdwriter.zipThis is a relatively simple cd writer code, comes with a freeware ocx. 47,converter.zipThis example project shows you how to use my binary.ocx. 48,autoreg.zipAuto easy, fast super Register/Unregister ocx/dll files at the same time!49,EasterEgg.zipthis is an EasterEgg OCX that you can drop on to your about form. 50,imgedit.zipImgEdit is an image-processing tool. It allows you to adjust brightness, contrast and saturation. 51,xshow.zipA control to create screensavers and/or slideshows. Choose from more than 120 transition effects between bitmap images.52,mp3enc.zipMP3 encoder. Source code for OCX not included.53,opendialog.zipAn extended Dialog Box like VB dialog style, with New, open, Recent files and preview. 54,SJIni.zipShareware OCX for manipulating INI files. Fast, easy, effective way to manipulate INI files.55,SoundSource.zipBrainFusion Presents The Dancer.Ocx Which is capable of reading The Sound Peak Form Sound Card When Mp3 or Wav File Is Played 56,SysUSATimeZONE.zipGet's Time From Anywhere In USA. Just By Typing In The State Abbreviation. 57,adbevel.zipVisual Basic now has a bevel control like Delphi. 58,RebootPlus.zipHere Is Another OCX File That Logs Off, Shutdown, Restart, Displays Device Manage, And Display Properties.59,RetCal10.zipThis Activex control creates retail calendars on the fly. very useful if you are in the retail, accounting, merchandising industries. Very cool check it out60,SysErrorOCX.zipOCX file that handles Database Errors. Contents Of This File Include.SysError.OCX 61,Appearence.zipSystem OCX allows you to change certain system display settings. 62,textbox1.zipSyntax highlighting text editor ... not based on the RTF box... supports drawing of external graphics on the text area...useful for html editors etc63,Player.zipA multimedia ocx to replace mediaplayer ocx64,Audio.zipThis ActiveX Control will play all kinds of MPEG-Layer3(MP3) files with ease of use. 65,HLiteDemo.zipHlite.Ocx When Placed On A Form And Called From A Textbox When It Has Focus It Will Highlight The Text Very Usefull In Data Entry Application66,SysBacUpDemo.zipThis Is A Demo Application Using A Ocx File To Backup Files. 67,OCXButton1.zipAn ActiveX control (OCX) for creating Buttons with attributes unavailable in the intrinsic CommandButton control of VB68,transferTV.zipTransfers values from one treeview to another recursively.69,createctrl.zipA float button control70,SysPCase.zipThis Is An OCX File That Will Allow a user to start typing and when textbox loses focus the OCX will make all text that user typed in into Proper Text Format71,SysErrorLogWriter.zipHere is an OCX file that will log all errors when placed under an event On Error Goto72,Pbar.zipThis is an OCX that has the nice Progress Bar that has the Percent in the middle It's nice and easy to use73,metawizardv101.zipMeta Wizard a small Meta Tag creation tool that takes advantage of the system toolbar and ontop properties. With this tool you can easily create Meta Tags74,Counter.zipFormatted number, long number counter, Thousand seperator75,barcode128.zipDBToolBar (Database ToolBar), to Add, Edit, Delete, etc...76,SwitchOCX.zipActiveX control.77,djmeter.zipA control (with VB Source) that is an implementation of a progress bar78,BtnGraphic.zipAn OCX someone made that allows you to easily create command buttons on forms, that act like an IE coolbar 79,HSoft11.zipThis is an OCX someone wrote that acts and looks almost identical to the IE3 toolbar80,MsgScroll.zipThis is a control (VB5 with source) that scrolls text81,mtymse.zipThis is a control (VB5 with source) that controls every aspect of the mouse82,progbar.zipUses a picture box to emulate a progress bar83,axcool.zipA toolbar control someone wrote84,axgrid.zipA Grid control someone wrote85,axpanel.zipA Panel, 3D Fram, Progress meter control someone wrote.86,browsef.zipA text box type control, that allows you to select a folder.87,browsfil.zipA text box type control, that allows you to select a file..88,colbrwse.zipA colour select control.89,colorsel.zipA drop down colour select control.90,FileOps.zipA VB5/6 control that allows you to easily copy, rename, put in trash, move files on your computer91,formmenu.zipA VB5/6 control that allows you to add menus to any place on a form you like92,hlitactx2.zipA VB5/6 control that shows you how to do code to see if the mouse is over a control on the screen. This one will highlight itself when the mouse id over it93,progbar2.zipA VB5/6 control that is a progress bar. Very good, allows lots of 94,spinedit.zipA spin control95,tilepuz.zipA control that simulates the tiled puzzle game96,urllabel2.zipA label control, but when you click on it, it starts up the default browser to a specified URL97,crdsrc.zipA whole deck of cards in a control, usfull for using in your own program98,ode.zipA control that spins numbers around99,TaskBar_v0_5.zipA control that creates a task bar, onto which you can add other controls100,vbalilsc.zipA pure VB control, that is a replacment for the image list control101,DBControl.zipA control that has many usefull database functions within it, like add field, add column, compact, restore, create primary key etc..102,OvalButton.zipA control that is an oval command button103,VBocx002.zipDas Scroll Wheel kann als Scrollbar oder einfach nur zur graphischen Versch?nerung verwendet werden 104,VBocx003o.zipDiese Leuchtdiode l?sst sich rund oder viereckig anzeigen, und erzeugt dadurch einen grafisch aufmachenderen Eindruck!!!105,VBocx004o.zipBlendet einen Text von wei? nach schwarz ein!106,VBocx005o.zipWie hier sichtbar, zeigt diese OCX-Datei nur Ziffern an. Der Counter oben besteht aus 2, die Uhrzeit unten aus 6 LED-Ziffern. Bei der Uhr werden desweiteren 2 Labels als Trennung verwendet.107,VBocx006o.zipEine Progressbar, der einfach anzusteuernd die Farbe und den Text ausgibt.108,vbocx008o.zipEinfach zu bedienen, sieht gut aus, und lockert das Bild der Benutzeroberfl?che etwas auf! 109,VBocx007o.zipEin einfach zu bedienendes OCX, um dateien von Servern hoch oder runterzuladen!110,VBocx001.zipVerschlüsseler werden meist zum Schutz von Daten angewandt.111,SuperPack.zipSuper Fill is an OCX designed to extend VB Fill Style property. You can create user patterns andprocess the scan-lines coordinate returned from the control. This is a shareware control by Fabio Guerrazzi.112,supDraw.zipAnother control by Fabio Guerrazzi. Shareware.113,LEDBULB.zipThis OCX will represent strings in the form of led bulbs. By H.M.IMTHIAZ RAFIQ.114,delaunay.zipPerforms constrained triangulation, curve level and 3d mesh.115,Wolf.zipAnother ocx make example.116,OCXRegCode.zipThis will register your ocx.Comes with the complete source. Made by Neil Cuttriss.117,DDCalc.zipThis OCX Control is simple enough not to describe its use.118,Flash3D.zipThis shows you how to use the macromedia flash/shockwave ocx. Also demonstrates 3D animation in a vector based environment with Flash119,EnhPrint.zipOCX which creates a EMF-metafile dc class, which can be used by the vb programmer to create, print and/or preview a metafile120,hoverbutton.zipThis is an enhancement of the standard command button.121,scbox10.zipThis ActiveX control lets you add a shadow that falls behind a control.122,getfile.zipControl consisting of a text box and a button. User clicks the button, dialog shown 123,ftpActiveX.zipThis control shows how to use the Inet control for downloading files, uploading files, listing directories, renaming files, deleting files, creating directories and more!!124,TextBoxControl.zipThis text box control allows you to limit input based on datatype or numeric range. Validation occurs within the lost focus event.125,systray.zipAdd icons to the system tray with ease. The caption and icon can be set. 126,asRuler.zipThis is a basic Custom Contrl, which displayes a ruler.127,playing_card.zipSimple to use playing card activeX control with additional container with auto arrange function. 128,XPlayer.zipThis control functions much like windows media player and supports the following file formats: Dat, Avi, Mp3, Wav, Mpg & Wma files.129,DBImage.zipThis one is component that allows you to populate image data from a ADO field to the component just like you would populate a text field with text data from a text field.130,ellipctl.zipMake an elliptical ActiveX picture control

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

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

1,ATLAux.zipA set of VC++ helpers and patterns to help automate some routine coding tasks.(35KB)2,CltnWizard.zipATL object wizard that creates a collection of other COM objects(37KB)3,gridctrlatl.zipA grid control for displaying tabular data, based on Chris Maunder's grid control(101KB)4,TempMonitor.zipA step by step tutorial on using ATL controls in MFC(47KB)5,SAWzip.zipAn ATL based control for reading and writing zip files(187KB)6,Property12.zipDescribes an ActiveX Control to use OLE Automation to set an object's properties.(222KB)7,AlxGrd.zipDescribes an ActiveX Control to use OLE Automation to set an object's properties.(215KB)8,ATLLog_demo.zipA simple logging utility to help debug your ATL applications(48KB)9,ATL_pp_wizard.zipA wizard that allows you to create an ATL Object Wizard Property Page(74KB)10,AtlSplitter.zipATL Splitter ActiveX control(94KB)11,Com_Atl.zipBeginner's Tutorial: COM/ATL Simple Project(19KB)12,ienum.zipA simplified method to enumerate a collection of objects.(137KB)13,ConExe_demo.zipAn article on ATL COM event connection point threading issues(72KB)14,RBDeskBand.zipAn ATL Object Wizard that creates an DeskBand COM Object implementation(149KB)15,instmsi.zipThis is an ATL Object Wizard that eases window development using CWindowImpl. It removes the redundant copy-n-paste of code between class implementations(1437KB)16,DrawingD.zipDrawing complex ATL/ActiveX controls at designtime(38KB)17,ATLDateLib.zipNon-MFC Date Routines in an ATL Component.(10KB)18,shellext.zipA wizard that allows you to create an ATL Property Page or Context Menu extensions(77KB)19,StructStg.zipA wrapper class for most common IStorage methods and API calls.(20KB)20,PropBrowser.zipAllows you to easily create property pages for ActiveX controls(59KB)21,Redirect.zipAn ATL-control for redirecting stdout/stdin(55KB)22,kPad.zipAn example of using the WTL library and RichEdit control(131KB)23,rsPrevFontcmb.zipA font combo box that previews the fonts in the dropdown view(30KB)24,ButtonMenu.zipUse WTL to create simple button that implements drop-down menu(19KB)25,DocViewWTL.zipA library that provides the easiest way to get loosely coupled components.(163KB)26,update_wtl.zipNotes on updating your WTL installation(2KB)27,sidebarmenu.zipAn article about changing the look of WTL icon menu(85KB)28,customdraw.zipHow to use WTL to create custom controls(20KB)29,WTLDocs1.zipBeginning Documentation on WTL(71KB)30,Toolbar.zipAn article on extending the tool bar control using the Window Template Library(64KB)31,propsheetddx.zipDemonstrates how to use DDX/DDV and tabbed property sheets with WTL(35KB)32,donut_demo.zipMDI and Tab WebBrowser(168KB)33,JCB.zipA Java Class Browser written in C++ using WTL(139KB)34,MenuBtn.zipUse of a Push button with a drop down menu(21KB)35,AutoATL.zipUsing ATL to Automate a MFC Application Or, Creating Hybrid MFC ATL COM Objects(41KB)36,atlcontain.zipUsing Containment In ATL - A Complete Application(202KB)37,atnt_src.zipSplitter window control(454KB)38,msform.exeActiveX script hosting - 2(123KB)39,axhost.exeActiveX script hosting(109KB)40,ATL_Script.zipImplementing Active Script Site with ATL(52KB)41,actvdbg.zipAdding Debug facilities to an Active Scripting Host(86KB)42,Gif89a.zipA Control for Displaying Animated GIF Images(221KB)43,proppagec.zipActiveX Control Property Page Container(40KB)44,qlistctrl.zipQListCtrl - a popup list box like that in Visual C++ 6.0(36KB)45,ncombo.zipAn Enhanced Combo Box Control.(194KB)46,XFloorWnd.zipFloor Window Control(341KB)47,propgrid.zipProperties Grid Control(239KB)48,dscdao.zipData Source ActiveX control for DAO(201KB)49,rnso.zipRNSO - A Remote Notifiers,Subjects and Observers Server over DCOM(197KB)50,multiarray.zipUsing a Multidimensional SAFEARRAY to pass data across from COM objects (50KB)51,safearray.zipPassing DYNAMIC Data QUICKLY using SafeArrays - 2(71KB)52,comcollec.zipCOM Collection Template Class(30KB)53,AXDocc.zipProgramming Active Document Containers(114KB)54,MBV_Demo.zipMBV Wizard and the COM Container Library(105KB55,WaveEdAt.zipA COM-based Automation Wave File Editor(124KB)56,bankaccount1.zipHandling Interdependent Objects in Automation An Example of a Bank Server Object(53KB)57,aspfile.zipAn ASP Component to Send Arbitary Large File from Server to Client(62KB)58,tlbrowser.zipWriting a simple Typelibrary browser(45KB)59,tiatut.zipBuilding a World Class Application with MFC and COM Automation(197KB)60,asyncpp.zipAsynchronous Pluggable Protocol(11KB)61,comarray.zipPassing arrays of structures in COM.(24KB)62,olefile.zipCOleFileManager - encapsulates the ugly details of implementing compound file support(4KB)63,VBCollecs.zipSimple STL Collections in ATL(14KB)64,hyperlinks.zipActiveX hyper linking(389KB)65,activex.zipActiveX Control Tutorial(89KB)66,atlexamp.zipLeveraging C++ Applications Using COM An Example Using ATL COM(52KB)67,docviewcom.zipLeveraging C++ Applications Using COM An Extension of the Document View Architecture(86KB)68,atlclienttut.zipATL Client Application Tutorial(51KB)69,wordauto.zipAutomation And Eventing With Microsoft Word(32KB)

一般软件使用

4,164

社区成员

38,513

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章