社区
一般软件使用
帖子详情
软件发布: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 是一个让用户更容易地从列表框和组合框中选择字体的控件,支持字体预览。
...全文
49
回复
打赏
收藏
软件发布:Font List & Combo ActiveX Control
软件下载,详细资料请访问:http://www.csdn.net/softs/softview.asp?ID=1829 Font List & Combo ActiveX Control 1.0 是一个让用户更容易地从列表框和组合框中选择字体的控件,支持字体预览。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
列表重绘
ActiveX
控件(控件,代码,实例)
ActiveX
重绘列表/组合框控件. 可以自定义重绘等事件代码. 我修改了一下字体的函数,使其可以支持中文. 原文/下载地址: http://www.vbaccelerator.com/home/vb/Code/
Control
s/
Combo
_and_
List
_Boxes/Owner_Draw_
Combo
_and_
List
_Box/VB6_Owner_Draw_
Combo
_
List
_
Control
.asp
VB编程资源大全(英文控件)
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,
Control
P.zipWith help of this OCX you can call 39
control
panels in windows!4,RemBuilderplus.zip
ActiveX
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
Control
s - ImageLabel, ScrollPanel, SplitPanel, Brief9,recordsetEng.zipThis application shows how a DLL
ActiveX
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.zip
ActiveX
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.zipSh
Combo
Box
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,
control
centerlefttrans.zip
Control
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,
Combo
Box, 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
control
70,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.zip
ActiveX
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
control
s 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
control
95,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
control
s100,vbalilsc.zipA pure VB
control
, that is a replacment for the image
list
control
101,DB
Control
.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.zip
Control
consisting of a text box and a button. User clicks the button, dialog shown 123,ftp
ActiveX
.zipThis
control
shows how to use the Inet
control
for downloading files, uploading files,
list
ing directories, renaming files, deleting files, creating directories and more!!124,TextBox
Control
.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
你不知道的Java黑魔法
现在的编程语言越来越复杂,尽管有大量的文档和书籍,这些学习资料仍然只能描述编程语言的冰山一角。而这些编程语言中的很多...用双花括号初始化
List
4. 用注释编写Java代码(可执行的注释) 5. 枚举实现接口
物业管理系统
public bz &&定义全局变量bz=.f.this.
list
view1.view=2 &&设置视图显示方式 *将Image
List
控件图片赋予
List
view控件 this.
list
view1.Icons=this.image
list
1.objectthis.
list
view1.smallicons=this.image
list
1.object&&添加列表项key=‘小区信息生成‘=this.
list
view1.
list
items.add(,,key,,1)key=‘大楼信息生成‘=this.
list
view1.
list
items.add(,,key,,1)key=‘房屋信息生成‘=this.
list
view1.
list
items.add(,,key,,1)key=‘小区信息登记‘=this.
list
view1.
list
items.add(,,key,,1)key=‘大楼信息登记‘=this.
list
view1.
list
items.add(,,key,,1)key=‘房屋信息登记‘=this.
list
view1.
list
items.add(,,key,,1)key=‘系统数据设定‘=this.
list
view1.
list
items.add(,,key,,1)在“经营部”的click事件中添加代码为:this.parent.
list
view1.
list
Items.clear &&清除数据this.parent.
list
view1.view=2 &&设置视图显示方式*将Image
List
控件图片赋予
List
view控件this.parent.
list
view1.Icons=this.parent.image
list
1.objectthis.parent.
list
view1.smallicons=this.parent.image
list
1.object*添加数据项key=‘小区信息生成‘=this.parent.
list
view1.
list
items.add(,,key,,1)key=‘大楼信息生成‘=this.parent.
list
view1.
list
items.add(,,key,,1)key=‘房屋信息生成‘=this.parent.
list
view1.
list
items.add(,,key,,1)key=‘小区信息登记‘=this.parent.
list
view1.
list
items.add(,,key,,1)key=‘大楼信息登记‘=this.parent.
list
view1.
list
items.add(,,key,,1)key=‘房屋信息登记‘=this.parent.
list
view1.
list
items.add(,,key,,1)key=‘系统数据设定‘=this.parent.
list
view1.
list
items.add(,,key,,1)在“管理部”的事件中添加以下代码为:this.parent.
list
view1.
list
Items.clearthis.parent.
list
view1.view=2this.parent.
list
view1.Icons=this.parent.image
list
1.objectthis.parent.
list
view1.smallicons=this.parent.image
list
1.objectkey=‘业主信息登记‘=this.parent.
list
view1.
list
items.add(,,key,,2)key=‘人口信息查询‘=this.parent.
list
view1.
list
items.add(,,key,,2)key=‘小区投诉登记‘=this.parent.
list
view1.
list
items.add(,,key,,2)key=‘小区投诉查询‘=this.parent.
list
view1.
list
items.add(,,key,,2)key=‘小区员工管理‘=this.parent.
list
view1.
list
items.add(,,key,,2)key=‘系统数据设定‘=this.parent.
list
view1.
list
items.add(,,key,,2)pjyb=.t.在“工程部”上添加代码为:this.parent.
list
view1.
list
Items.clearthis.parent.
list
view1.view=2this.parent.
list
view1.Icons=this.parent.image
list
1.objectthis.parent.
list
view1.smallicons=this.parent.image
list
1.objectkey=‘装修队登记‘=this.parent.
list
view1.
list
items.add(,,key,,3)key=‘维修信息登记‘=this.parent.
list
view1.
list
items.add(,,key,,3)key=‘维修信息查询‘=this.parent.
list
view1.
list
items.add(,,key,,3)key=‘装修信息登记‘=this.parent.
list
view1.
list
items.add(,,key,,3)key=‘装修信息查询‘=this.parent.
list
view1.
list
items.add(,,key,,3)pjyb=.t.在“财务部”添加代码为:this.parent.
list
view1.
list
Items.clearthis.parent.
list
view1.view=2this.parent.
list
view1.Icons=this.parent.image
list
1.objectthis.parent.
list
view1.smallicons=this.parent.image
list
1.objectkey=‘收费登记管理‘=this.parent.
list
view1.
list
items.add(,,key,,4)key=‘水费查询管理‘=this.parent.
list
view1.
list
items.add(,,key,,4)key=‘电费查询管理‘=this.parent.
list
view1.
list
items.add(,,key,,4)key=‘煤气费查询管理‘=this.parent.
list
view1.
list
items.add(,,key,,4)key=‘采暖费查询管理‘=this.parent.
list
view1.
list
items.add(,,key,,4)key=‘其它费用查询管理‘=this.parent.
list
view1.
list
items.add(,,key,,4)pjyb=.t.在“保安部”添加代码为:这this.parent.
list
view1.
list
Items.clearthis.parent.
list
view1.view=2this.parent.
list
view1.Icons=this.parent.image
list
1.objectthis.parent.
list
view1.smallicons=this.parent.image
list
1.objectkey=‘保安排班管理‘=this.parent.
list
view1.
list
items.add(,,key,,5)key=‘保安排班查询‘=this.parent.
list
view1.
list
items.add(,,key,,5)pjyb=.t.在“经理室”添加代码为:this.parent.
list
view1.
list
Items.clearthis.parent.
list
view1.view=2this.parent.
list
view1.Icons=this.parent.image
list
1.objectthis.parent.
list
view1.smallicons=this.parent.image
list
1.objectkey=‘小区资源统计‘=this.parent.
list
view1.
list
items.add(,,key,,6)key=‘业主信息查询‘=this.parent.
list
view1.
list
items.add(,,key,,6)key=‘人口信息查询‘=this.parent.
list
view1.
list
items.add(,,key,,6)key=‘小区投诉查询‘=this.parent.
list
view1.
list
items.add(,,key,,6)key=‘小区员工查询‘=this.parent.
list
view1.
list
items.add(,,key,,6)key=‘装修信息查询‘=this.parent.
list
view1.
list
items.add(,,key,,6)key=‘维修信息查询‘=this.parent.
list
view1.
list
items.add(,,key,,6)key=‘保安排班查询‘=this.parent.
list
view1.
list
items.add(,,key,,6)pjyb=.t.在“系统管理”中添加代码为:this.parent.
list
view1.
list
Items.clearthis.parent.
list
view1.view=2this.parent.
list
view1.Icons=this.parent.image
list
1.objectthis.parent.
list
view1.smallicons=this.parent.image
list
1.objectkey=‘操作员管理‘=this.parent.
list
view1.
list
items.add(,,key,,7)key=‘权限设置‘=this.parent.
list
view1.
list
items.add(,,key,,7)pjyb=.t.在“帮助”中添加代码为:this.parent.
list
view1.
list
Items.clearthis.parent.
list
view1.view=2this.parent.
list
view1.Icons=this.parent.image
list
1.objectthis.parent.
list
view1.smallicons=this.parent.image
list
1.objectkey=‘帮助‘=this.parent.
list
view1.
list
items.add(,,key,,8)key=‘关于本
软件
‘=this.parent.
list
view1.
list
items.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在表单中添加一个Image
List
控件,并进行相应的管理员设置。在表单中添加一个Image控件,一个
list
view控件,一个Image
List
控件,两个text控件,三个label控件,一个commandgroup控件。在表单中的init事件中添加代码为:public cn &&定义全局变量cn=0 &&给全局变量赋初值thisform.
list
view1.view=0 &&设置视图显示方式*将Image
List
控件图片赋予
List
view控件thisform.
list
view1.Icons=thisform.image
list
1.objectthisform.
list
view1.smallicons=thisform.image
list
1.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.
list
view1.
list
items.add(,,key,1) &&添加一个列表项select tabpurviewselect *;from wuyemanage!tabpurview;where 权限级别=‘2‘;order by tabpurview.操作员姓名;into cursor gjczydo while !EOF() &&测试当前记录指针是否在文件尾 key=alltrim(gjczy.操作员姓名) =thisform.
list
view1.
list
items.add(,,key,2) &&添加一个列表项 skip &&相对移动记录指针enddoselect tabpurviewselect *;from wuyemanage!tabpurview;where 权限级别=‘3‘;order by tabpurview.操作员姓名;into cursor ybczydo while !EOF() &&测试当前记录指针是否在文件尾 key=alltrim(ybczy.操作员姓名) =thisform.
list
view1.
list
items.add(,,key,3) &&添加一个列表项 skip &&相对移动记录指针enddoselect tabpurviewselect *;from wuyemanage!tabpurview;where 权限级别=‘4‘;order by tabpurview.操作员姓名;into cursor zdydo while !EOF() &&测试当前记录指针是否在文件尾 key=alltrim(zdy.操作员姓名) =thisform.
list
view1.
list
items.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在控件
list
view1中的itemclick事件中添加代码为:LPARAMETERS itemmanager=alltrim(thisform.
list
view1.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.
control
source=‘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.
control
source=‘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.
control
source,; thisform.
list
1.
control
source,thisform.
list
1.rowsource,thisform.grid3.recordsource在form1表单的“小区名称”组合框的interactivechange事件中添加以下代码:thisform.init &&执行表单的Init事件xqname=alltrim(thisform.
combo
1.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.
control
source=‘lindeping.大楼名称‘&&赋数据源thisform.refresh 在form1表单的“添加新业主”按钮的click事件中添加代码为:yxq=alltrim(thisform.
combo
1.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.
combo
1.value,; thisform.parent.form3.
combo
2.value,thisform.parent.form3.
combo
3.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.
combo
1.value=lxgyzinfo.性别thisform.parent.form3.
combo
2.value=lxgyzinfo.是否进住thisform.parent.form3.
combo
3.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的
list
1控件的click事件中添加以下代码:thisform.text2.value=alltrim(thisform.
list
1.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.
combo
1.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.
combo
3.displayvalue)zjnumber=alltrim(thisform.text12.value)sfjz=alltrim(thisform.
combo
2.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.
combo
1.value,; thisform.parent.form4.
combo
2.value,thisform.parent.form4.
combo
3.value,; thisform.parent.form4.
combo
4.value,thisform.parent.form4.
combo
5.value,; thisform.parent.form4.
combo
6.value,thisform.parent.form4.
combo
7.value,; thisform.parent.form4.
combo
8.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.
combo
1.value=lcyinfo.性别 thisform.parent.form4.
combo
2.value=lcyinfo.籍贯 thisform.parent.form4.
combo
3.value=lcyinfo.婚姻状况 thisform.parent.form4.
combo
4.value=lcyinfo.职业 thisform.parent.form4.
combo
5.value=lcyinfo.文化程度 thisform.parent.form4.
combo
6.value=lcyinfo.职称 thisform.parent.form4.
combo
7.value=lcyinfo.与户主关系 thisform.parent.form4.
combo
8.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.
combo
1.displayvalue)jg=alltrim(thisform.
combo
2.displayvalue)hyzk=alltrim(thisform.
combo
3.displayvalue)zy=alltrim(thisform.
combo
4.displayvalue)whcd=alltrim(thisform.
combo
5.displayvalue)zc=alltrim(thisform.
combo
6.displayvalue)yhzgx=alltrim(thisform.
combo
7.displayvalue)gj=alltrim(thisform.
combo
8.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.
combo
1.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.
combo
1.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.
combo
1.value,thisform.edit1.value store {//} to thisform.text9.value,thisform.text10.value,thisform.text11.value thisform.
combo
1.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_check
combo
.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_
control
frame.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
control
s 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
一般软件使用
4,165
社区成员
38,513
社区内容
发帖
与我相关
我的任务
一般软件使用
Windows专区 一般软件使用
复制链接
扫一扫
分享
社区描述
Windows专区 一般软件使用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章