社区
VFP
帖子详情
caption\value\font\passeorchar click\init 可以设置什么?(在线等)
yangsm
2005-12-28 11:51:29
因本机上没有安装VFP,本人对这VFP不懂,帮朋友问一下问题,请大家帮帮忙~谢谢!
...全文
173
12
打赏
收藏
caption\value\font\passeorchar click\init 可以设置什么?(在线等)
因本机上没有安装VFP,本人对这VFP不懂,帮朋友问一下问题,请大家帮帮忙~谢谢!
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
12 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
yangsm
2006-01-17
打赏
举报
回复
谢谢十豆三.哈哈,差点忘了结贴了!不好意思呀!
十豆三
2005-12-31
打赏
举报
回复
全都是帮助中的!!!
十豆三
2005-12-31
打赏
举报
回复
6、Init
在创建对象时发生。
PROCEDURE Object.Init
[LPARAMETERS Param1, Param2,...]
参数
Param1, Param2...
参数是可选的。但是如果传递参数,就必须用 LPARAMETERS 或 PARAMETERS 语句列出每一个参数,否则 Visual FoxPro 产生错误信息。
备注
对于表单集和其他容器对象来说,容器中对象的 INIT 事件在容器的 INIT 事件之前触发,因此容器的 INIT 事件可以访问容器中的对象。容器中对象的 INIT 事件的发生顺序与它们添加到容器中的顺序相同。
如果不创建控件,可在 INIT 事件中返回“假”(.F.),这时不触发 Destroy 事件。例如,下面的代码在 Invoice 表不存在时返回“假”(.F.):
PROCEDURE INIT
IF NOT FILE("INVOICE.DBF")
ERROR 'Initialization Failed: File not found'
RETURN .F.
ELSE
USE INVOICE IN 0 AGAIN
THIS.WorkArea = SELECT()
ENDIF
ENDPROC
十豆三
2005-12-31
打赏
举报
回复
5、Click
当在程序中包含触发此事件的代码,或者将鼠标指针放在一个控件上按下并释放鼠标左键,或者更改特定控件的值,或在表单空白区单击时,此事件发生。
PROCEDURE Object.Click
备注
CLICK 事件发生在用户:
用鼠标左键单击复选框、命令按钮、列表框或选项按钮控件时。
在命令按钮、选项按钮或复选框有焦点时按 SPACEBAR。
表单中有 Default 属性设置为“真”(.T.) 的命令按钮并且按 ENTER 时。
按一个控件的访问键。例如,若一个命令按钮的标题为“\<Go”,则按 ALT+G 可触发 CLICK 事件。
单击表单空白区。当指针位于标题栏、控件菜单框或窗口边界上时,不发生表单的 CLICK 事件。
单击微调控件的文本输入区。
单击废止的控件时,废止控件所在的表单发生 click 事件。
CLICK 事件也在含有鼠标命令的代码运行结果时发生。
示例
下面的示例创建一个选项组控件,并将此控件放置在一个表单上。选项组控件有三个按钮,根据用户按下的选项按钮,显示一个圆、椭圆或正方形。buttoncount 属性用来指定选项组中按钮的数目。buttons 和 caption 属性用来指定在每个选项按钮旁显示的文本。
shape 控件用来创建圆、椭圆和正方形。选项组控件的 click 事件使用 do case...endcase 结构和 value 属性,以便在单击选项按钮时显示适当的形状
frmMyForm = CREATEOBJECT('Form') && 创建一个表单
frmMyForm.Closable = .F. && 禁止窗口弹出菜单
frmMyForm.AddObject('cmdCommand1','cmdMyCmndBtn') && 添加命令按钮
frmMyForm.AddObject('opgOptionGroup1','opgMyOptGrp') && 添加选项组
frmMyForm.AddObject('shpCircle1','shpMyCircle') && 添加园
frmMyForm.AddObject('shpEllipse1','shpMyEllipse') && 添加椭园
frmMyForm.AddObject('shpSquare','shpMySquare') && 添加文本框
frmMyForm.cmdCommand1.Visible =.T. && "Quit" 命令按钮可视
frmMyForm.opgOptionGroup1.Buttons(1).Caption = "\<Circle"
frmMyForm.opgOptionGroup1.Buttons(2).Caption = "\<Ellipse"
frmMyForm.opgOptionGroup1.Buttons(3).Caption = "\<Square"
frmMyForm.opgOptionGroup1.SetAll("Width", 100) && 设置选项组宽
frmMyForm.opgOptionGroup1.Visible = .T. && 选项组可视
frmMyForm.opgOptionGroup1.Click && 显示园
frmMyForm.SHOW && 显示表单
READ EVENTS && 启动事件处理
DEFINE CLASS opgMyOptGrp AS OptionGroup && 创建一个选项组
ButtonCount = 3 && 三个选项按钮
Top = 10
Left = 10
Height = 75
Width = 100
PROCEDURE Click
ThisForm.shpCircle1.Visible = .F. && 隐藏园
ThisForm.shpEllipse1.Visible = .F. && 隐藏椭园
ThisForm.shpSquare.Visible = .F. && 隐藏正方形
DO CASE
CASE ThisForm.opgOptionGroup1.Value = 1
ThisForm.shpCircle1.Visible = .T. && 显示园
CASE ThisForm.opgOptionGroup1.Value = 2
ThisForm.shpEllipse1.Visible = .T. && 显示椭园
CASE ThisForm.opgOptionGroup1.Value = 3
ThisForm.shpSquare.Visible = .T. && 显示正方形
ENDCASE
ENDDEFINE
DEFINE CLASS cmdMyCmndBtn AS CommandButton && 创建命令按钮
Caption = '\<Quit' && 命令按钮标题
Cancel = .T. && 默认取消
Left = 125 && 命令按钮列
Top = 210 && 命令按钮行
Height = 25 && 命令按钮高
PROCEDURE Click
CLEAR EVENTS && 停止事件处理, 关闭表单
ENDDEFINE
DEFINE CLASS shpMyCircle AS SHAPE && 创建一个园
Top = 10
Left = 200
Width = 100
Height = 100
Curvature = 99
BackColor = RGB(255,0,0) && 红
ENDDEFINE
DEFINE CLASS shpMyEllipse AS SHAPE && 创建一个椭园
Top = 35
Left = 200
Width = 100
Height = 50
Curvature = 99
BackColor = RGB(0,128,0) && 绿
ENDDEFINE
DEFINE CLASS shpMySquare AS SHAPE && 创建一个正方形
Top = 10
Left = 200
Width = 100
Height = 100
Curvature = 0
BackColor = RGB(0,0,255) && 兰
ENDDEFINE
十豆三
2005-12-31
打赏
举报
回复
4、PasswordChar
决定用户输入的字符或占位符是否显示在文本框控件中,并确定用作占位符的字符。设计和运行时可用。
TextBox.PasswordChar[ = cCharString]
属性值
cCharString
指定显示在文本框中的字符。
备注
使用这个属性,可以在对话框中创建一个口令字段。虽然可以使用任何字符,但 Windows 应用程序更经常地使用星号 (*),即 ANSI 码 42 。
这个属性不影响 Value 属性的设置;它忠实地包含用户键入的内容或者代码的设置值。为了显示实际文本,可把 PasswordChar 设置为空字符串 ("")。默认设置值是空字符串。
可以把这个属性指定为任何字符串,但只有第一个字符是有意义的,其他字符都被忽略。
十豆三
2005-12-31
打赏
举报
回复
3、FONTNAME
指定显示文本的字体名。设计和运行时均可用。
Object.FontName[ = cName]
属性值
cName
指定字体的名称,默认值为 Arial。
备注
FontSize 默认的设置是 9 磅。系统配置不同,可用的字体也不同。与字体相关的属性只能被设置为与该字体相关的值。在设计时,当在“属性”窗口中选定 FONTNAME 属性,并单击“属性设置”框右侧的下箭头时,将显示可用字体列表。
一般情况下,在用 FontSize、FontBold、FontItalic、FontStrikethru 和 FontUnderline 这些属性设置字体的大小或字形之前,先设置 FONTNAME 属性。
十豆三
2005-12-31
打赏
举报
回复
2、value
指定控件的当前状态。设计和运行时可用。
[Form.]Control.Value[ = nSetting]
属性值
nSetting
对于复选框控件,VALUE 属性的设置有: 设置 描述
0 (默认值)未选定。
1 选定。
2 混合值。该设置仅可用于代码中。
对于 CommandGroup, ComboBox, EditBox, ListBox, OptionGroup 和 spinner 控件, VALUE 属性的设置是当前选定的字符串或数值型的值。
对于 OptionButton 控件, value 的设置有:
设置 描述
0 (默认) 指明按钮未被选定。
1 指明按钮被选定。
对于 TextBox 控件, value 属性可以是当前选定的字符串、数值型值、日期型值、日期时间型值、货币型值或逻辑型值,默认设置为字符串。
备注
对于表格控件,VALUE 属性只在表格有焦点时可用。
命令组或选项组控件的 VALUE 属性可用来确定组中引起事件的按钮。它被设置为整数,以表明组中引起事件的按钮。
当为控件设置了控件源时,VALUE 属性的行为将有所改变。在设置控件源时,ControlSource 属性用以指定变量或字段,而 VALUE 属性则设置该变量或字段的数据类型。如果此数据类型对给定的控件无效,则 Visual FoxPro 会产生错误。
以下为有效数据类型的列表:
控件 所允许的数据类型
复选框 整型、逻辑型、数值型
组合框 字符型、整型、数值型
命令组 字符型、整型、数值型
编辑框 字符型、备注型
表格 字符型、数值型
列表框 字符型、整型、数值型
选项按钮 整型、逻辑型、数值型
选项组 字符型、整型、数值型
微调 货币、整型、数值型
文本框 任何数据类型
十豆三
2005-12-31
打赏
举报
回复
1、Caption
指定在对象标题中显示的文本。
Object.Caption[ = cText]
属性值
cText
指定在对象标题中显示的文本。
备注
对象不同,标题的显示也不同:
对于表单,caption 属性指定显示在表单标题栏中的文本。若将表单最小化,文本就显示在表单图标的下面。
对于页框对象中的页面,caption 属性指定显示在每页选项卡上的文本。
对于控件,标题属性指定显示在控件上或控件旁的文本。
对于 Style 属性设置为 1(图形)的控件以及被最小化的表单,标题显示在图标下面。
当创建一个新表单或控件时,默认标题与默认 Name 属性的设置值相同。这个默认标题包括对象类名和一个整数,如 Command1、Combo1 或 Form1。
Name 属性指定如何在代码中引用对象,CAPTION 属性指定屏幕上用以标识控件的内容。这两个属性初始值相同,但以后可以独立设置。
若没有特别为控件设置 Width 属性值,则控件自动改变大小以容纳标题。
对于命令组和选项组对象,只有 BorderStyle 属性设置为单实线 1 时,才显示标题。
对于 CommandGroup 和 OptionGroup 对象, 标题仅在 borderstyle 属性设置为 1 (固定单线) 时显示。
对于标签控件,设置 AutoSize 属性为“真”时,控件可自动调整大小以容纳标题,而且 CAPTION 属性的最大字符数是 256。
要为控件指定访问键, 直接在标题中你想指定为访问键的字符前加一个返斜杠和一个小于符号 (\<)。这样用户可以按 ALT 和指定的字符来移动焦点到该控件。如果控件是一个命令按钮, 复选框或选项按钮, 按 ALT 和指定字符也有单击控件的效果。
要添加下划线到列头标题中的字符, 在字符前面加一个和号 (&)。如果你想包括字符 "&" 在列头标题中, 用两个连续的 & 字符。注意这将不会使该字符成为快速访问键, 只是显示列头标题字符的下划线。
示例
下例演示用 CAPTION 属性来改变 Visual FoxPro 主窗口标题从 Microsoft Visual FoxPro 8.0 到 Visual FoxPro 的当前版本号。
_SCREEN.Caption=VERSION()
yangsm
2005-12-31
打赏
举报
回复
无语了, 我已经找过些资料了,只是想看看这里会不会有人知道.因为我自己找的速度太慢了!
十豆三
2005-12-29
打赏
举报
回复
那就搜一下VFP教程,DOWN一个
yangsm
2005-12-28
打赏
举报
回复
老大哟,我书都没有,谁有书帮忙找一下吗~
十豆三
2005-12-28
打赏
举报
回复
没法回答你,请参考书
物业管理系统
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.
pa
rent.listview1.listItems.clear &&清除数据this.
pa
rent.listview1.view=2 &&
设置
视图显示方式*将ImageList控件图片赋予Listview控件this.
pa
rent.listview1.Icons=this.
pa
rent.imagelist1.objectthis.
pa
rent.listview1.smallicons=this.
pa
rent.imagelist1.object*添加数据项key=‘小区信息生成‘=this.
pa
rent.listview1.listitems.add(,,key,,1)key=‘大楼信息生成‘=this.
pa
rent.listview1.listitems.add(,,key,,1)key=‘房屋信息生成‘=this.
pa
rent.listview1.listitems.add(,,key,,1)key=‘小区信息登记‘=this.
pa
rent.listview1.listitems.add(,,key,,1)key=‘大楼信息登记‘=this.
pa
rent.listview1.listitems.add(,,key,,1)key=‘房屋信息登记‘=this.
pa
rent.listview1.listitems.add(,,key,,1)key=‘系统数据设定‘=this.
pa
rent.listview1.listitems.add(,,key,,1)在“管理部”的事件中添加以下代码为:this.
pa
rent.listview1.listItems.clearthis.
pa
rent.listview1.view=2this.
pa
rent.listview1.Icons=this.
pa
rent.imagelist1.objectthis.
pa
rent.listview1.smallicons=this.
pa
rent.imagelist1.objectkey=‘业主信息登记‘=this.
pa
rent.listview1.listitems.add(,,key,,2)key=‘人口信息查询‘=this.
pa
rent.listview1.listitems.add(,,key,,2)key=‘小区投诉登记‘=this.
pa
rent.listview1.listitems.add(,,key,,2)key=‘小区投诉查询‘=this.
pa
rent.listview1.listitems.add(,,key,,2)key=‘小区员工管理‘=this.
pa
rent.listview1.listitems.add(,,key,,2)key=‘系统数据设定‘=this.
pa
rent.listview1.listitems.add(,,key,,2)pjyb=.t.在“工程部”上添加代码为:this.
pa
rent.listview1.listItems.clearthis.
pa
rent.listview1.view=2this.
pa
rent.listview1.Icons=this.
pa
rent.imagelist1.objectthis.
pa
rent.listview1.smallicons=this.
pa
rent.imagelist1.objectkey=‘装修队登记‘=this.
pa
rent.listview1.listitems.add(,,key,,3)key=‘维修信息登记‘=this.
pa
rent.listview1.listitems.add(,,key,,3)key=‘维修信息查询‘=this.
pa
rent.listview1.listitems.add(,,key,,3)key=‘装修信息登记‘=this.
pa
rent.listview1.listitems.add(,,key,,3)key=‘装修信息查询‘=this.
pa
rent.listview1.listitems.add(,,key,,3)pjyb=.t.在“财务部”添加代码为:this.
pa
rent.listview1.listItems.clearthis.
pa
rent.listview1.view=2this.
pa
rent.listview1.Icons=this.
pa
rent.imagelist1.objectthis.
pa
rent.listview1.smallicons=this.
pa
rent.imagelist1.objectkey=‘收费登记管理‘=this.
pa
rent.listview1.listitems.add(,,key,,4)key=‘水费查询管理‘=this.
pa
rent.listview1.listitems.add(,,key,,4)key=‘电费查询管理‘=this.
pa
rent.listview1.listitems.add(,,key,,4)key=‘煤气费查询管理‘=this.
pa
rent.listview1.listitems.add(,,key,,4)key=‘采暖费查询管理‘=this.
pa
rent.listview1.listitems.add(,,key,,4)key=‘其它费用查询管理‘=this.
pa
rent.listview1.listitems.add(,,key,,4)pjyb=.t.在“保安部”添加代码为:这this.
pa
rent.listview1.listItems.clearthis.
pa
rent.listview1.view=2this.
pa
rent.listview1.Icons=this.
pa
rent.imagelist1.objectthis.
pa
rent.listview1.smallicons=this.
pa
rent.imagelist1.objectkey=‘保安排班管理‘=this.
pa
rent.listview1.listitems.add(,,key,,5)key=‘保安排班查询‘=this.
pa
rent.listview1.listitems.add(,,key,,5)pjyb=.t.在“经理室”添加代码为:this.
pa
rent.listview1.listItems.clearthis.
pa
rent.listview1.view=2this.
pa
rent.listview1.Icons=this.
pa
rent.imagelist1.objectthis.
pa
rent.listview1.smallicons=this.
pa
rent.imagelist1.objectkey=‘小区资源统计‘=this.
pa
rent.listview1.listitems.add(,,key,,6)key=‘业主信息查询‘=this.
pa
rent.listview1.listitems.add(,,key,,6)key=‘人口信息查询‘=this.
pa
rent.listview1.listitems.add(,,key,,6)key=‘小区投诉查询‘=this.
pa
rent.listview1.listitems.add(,,key,,6)key=‘小区员工查询‘=this.
pa
rent.listview1.listitems.add(,,key,,6)key=‘装修信息查询‘=this.
pa
rent.listview1.listitems.add(,,key,,6)key=‘维修信息查询‘=this.
pa
rent.listview1.listitems.add(,,key,,6)key=‘保安排班查询‘=this.
pa
rent.listview1.listitems.add(,,key,,6)pjyb=.t.在“系统管理”中添加代码为:this.
pa
rent.listview1.listItems.clearthis.
pa
rent.listview1.view=2this.
pa
rent.listview1.Icons=this.
pa
rent.imagelist1.objectthis.
pa
rent.listview1.smallicons=this.
pa
rent.imagelist1.objectkey=‘操作员管理‘=this.
pa
rent.listview1.listitems.add(,,key,,7)key=‘权限
设置
‘=this.
pa
rent.listview1.listitems.add(,,key,,7)pjyb=.t.在“帮助”中添加代码为:this.
pa
rent.listview1.listItems.clearthis.
pa
rent.listview1.view=2this.
pa
rent.listview1.Icons=this.
pa
rent.imagelist1.objectthis.
pa
rent.listview1.smallicons=this.
pa
rent.imagelist1.objectkey=‘帮助‘=this.
pa
rent.listview1.listitems.add(,,key,,8)key=‘关于本软件‘=this.
pa
rent.listview1.listitems.add(,,key,,8)pjyb=.t.在“退出”中添加代码为:quit &&退出主程序在Image1的
Click
事件中添加代码为:this.
pa
rent.commdl.filter=‘图片|*.bmp;*.jpg‘ &&
设置
过滤器this.
pa
rent.commdl.showopen &&显示打开对话框this.
pa
rent.rq.image2.picture=this.
pa
rent.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.密码)!=p
pa
ssword 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中的item
click
事件中添加代码为:L
PA
RAMETERS itemmanager=alltrim(thisform.listview1.selecteditem.text)thisform.text2.
value
=managerthisform.text1.setfocus 这样,等录界面就完成了。4.经营部设计(1)在项目管理器中创建一个表单,名称为“小区信息生成”,在表单中添加3个label控件,2个spinner控件,1个commandgroup控件。在“开始生成”的
click
事件中添加代码为:cstart=thisform.spinner1.
value
cend=thisform.spinner2.
value
s=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
value
s(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
value
s(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(小区编号)
pa
ck &&物理删除 thisform.activate &&执行表单的Activate事件 messagebox(‘删除完毕‘,48,‘操作成功!‘) use database abxqinfo thisform.refreshendif在form1中的“浏览”
click
事件中添加代码为:thisform.
pa
rent.form2.grid1.recordsource=‘tabxqinfo‘ &&赋数据源thisform.
pa
rent.form2.visible=.t. &&显示表单在form1中的“退出”
click
事件中添加代码为:thisform.release &&释放表单thisform.
pa
rent.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.
pa
rent.command1.enabled=.f.this.
pa
rent.command2.enabled=.f.this.
pa
rent.command3.enabled=.t.this.
pa
rent.command4.enabled=.t.thisform.Activate &&执行表单的Activatethisform.refresh在form1中的“上一个”
click
事件中添加代码为: skip-1 &&把记录指针向上移一条记录 thisform.Activate &&执行表单的Activate if bof() messagebox(‘已是第一个记录‘,48,‘信息窗口‘) this.
pa
rent.command1.enabled=.f. this.
pa
rent.command2.enabled=.f. thisform.Activate &&执行表单的Activate else this.
pa
rent.command1.enabled=.t. this.
pa
rent.command2.enabled=.t. endif this.
pa
rent.command3.enabled=.t. this.
pa
rent.command4.enabled=.t.thisform.refresh在form1中的“下一个”
click
事件中添加代码为:if eof() messagebox(‘已经是最后一条记录‘,48,‘管理窗口‘) skip-1 &&记录指针向上移动一条记录 thisform.Activate &&执行表单的Activate this.
pa
rent.command1.enabled=.f. this.
pa
rent.command2.enabled=.f. this.
pa
rent.command3.enabled=.f. this.
pa
rent.command4.enabled=.f.else skip &&记录指针向下移一条记录 thisform.Activate &&执行表单的Activate if eof() messagebox(‘已经是最后一条记录‘,48,‘管理窗口‘) skip-1 thisform.Activate &&执行表单的Activate this.
pa
rent.command3.enabled=.f. this.
pa
rent.command4.enabled=.f. else this.
pa
rent.command3.enabled=.t. this.
pa
rent.command4.enabled=.t. endif this.
pa
rent.command1.enabled=.t. this.
pa
rent.command2.enabled=.t.endifthisform.refresh在form1中的“最后一个”
click
事件中添加代码为:go bottom &&记录指针移动到最后一条记录this.
pa
rent.command3.enabled=.f.this.
pa
rent.command4.enabled=.f.this.
pa
rent.command1.enabled=.t.this.
pa
rent.command2.enabled=.t.thisform.Activate &&执行表单的Activatethisform.refresh在form1中的控件edit1的keypress事件中添加代码为:L
PA
RAMETERS 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(房屋朝向) &&逻辑删除记录
pa
ck &&物理删除 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(房屋朝向) &&逻辑删除记录
pa
ck &&物理删除 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.
pa
rent.form3.visible,thisform.
pa
rent.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.display
value
)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.display
value
)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.
pa
rent.form3.visible=.t. &&显示表单 lfjno=len(yxq)+len(ydl)+1 fjno=substr(yfw,lfjno) thisform.
pa
rent.form3.text1.
value
=yxq thisform.
pa
rent.form3.text2.
value
=ydl thisform.
pa
rent.form3.text3.
value
=fjno thisform.
pa
rent.form3.text4.
value
=yfw thisform.
pa
rent.form3.text5.
value
=yfw store ‘‘ to thisform.
pa
rent.form3.text6.
value
,thisform.
pa
rent.form3.text7.
value
,; thisform.
pa
rent.form3.text8.
value
,thisform.
pa
rent.form3.text9.
value
,; thisform.
pa
rent.form3.text10.
value
,thisform.
pa
rent.form3.text11.
value
,; thisform.
pa
rent.form3.text12.
value
,thisform.
pa
rent.form3.text13.
value
,; thisform.
pa
rent.form3.text14.
value
,thisform.
pa
rent.form3.combo1.
value
,; thisform.
pa
rent.form3.combo2.
value
,thisform.
pa
rent.form3.combo3.
value
thisform.
pa
rent.form3.grid1.recordsource=‘‘ thisform.
pa
rent.form3.text5.setfocus &&Text5获得焦点 endifendif在form1表单的“修改业主信息”按钮的
click
事件中添加代码为:c
value
=alltrim(thisform.text3.
value
)if !empty(c
value
)thisform.
pa
rent.form3.visible=.t.public yzdh &&定义全局变量yzdh=alltrim(thisform.text3.
value
)select *;from wuyemanage!tabyzinfo;where 业主代号==yzdh;into cursor lxgyzinfo*赋值给Text1等thisform.
pa
rent.form3.text1.
value
=lxgyzinfo.小区名称thisform.
pa
rent.form3.text2.
value
=lxgyzinfo.大楼名称thisform.
pa
rent.form3.text3.
value
=lxgyzinfo.房间号码thisform.
pa
rent.form3.text4.
value
=lxgyzinfo.购入房编号thisform.
pa
rent.form3.text5.
value
=lxgyzinfo.业主代号thisform.
pa
rent.form3.text6.
value
=lxgyzinfo.业主姓名thisform.
pa
rent.form3.text7.
value
=lxgyzinfo.手机thisform.
pa
rent.form3.text8.
value
=lxgyzinfo.管理协议书编号thisform.
pa
rent.form3.text9.
value
=lxgyzinfo.电话thisform.
pa
rent.form3.text10.
value
=lxgyzinfo.购房合同书编号thisform.
pa
rent.form3.text11.
value
=lxgyzinfo.联系地址thisform.
pa
rent.form3.text12.
value
=lxgyzinfo.证件号thisform.
pa
rent.form3.text13.
value
=lxgyzinfo.单位电话thisform.
pa
rent.form3.text14.
value
=lxgyzinfo.工作单位thisform.
pa
rent.form3.combo1.
value
=lxgyzinfo.性别thisform.
pa
rent.form3.combo2.
value
=lxgyzinfo.是否进住thisform.
pa
rent.form3.combo3.
value
=lxgyzinfo.证件名*赋值给date and time picker 控件thisform.
pa
rent.form3.date1.year=year(lxgyzinfo.签约日期)thisform.
pa
rent.form3.date1.month=month(lxgyzinfo.签约日期)thisform.
pa
rent.form3.date1.day=day(lxgyzinfo.签约日期)thisform.
pa
rent.form3.date2.year=year(lxgyzinfo.进住起始日期)thisform.
pa
rent.form3.date2.month=month(lxgyzinfo.进住起始日期)thisform.
pa
rent.form3.date2.day=day(lxgyzinfo.进住起始日期)thisform.
pa
rent.form3.date3.year=year(lxgyzinfo.进住日期)thisform.
pa
rent.form3.date3.month=month(lxgyzinfo.进住日期)thisform.
pa
rent.form3.date3.day=day(lxgyzinfo.进住日期)thisform.
pa
rent.form3.date4.year=year(lxgyzinfo.进住截止日期)thisform.
pa
rent.form3.date4.month=month(lxgyzinfo.进住截止日期)thisform.
pa
rent.form3.date4.day=day(lxgyzinfo.进住截止日期)select *;from wuyemanage!tabrkinfo;where 房间编号==alltrim(thisform.
pa
rent.form3.text4.
value
);order by 人口编号;into cursor lincythisform.
pa
rent.form3.grid1.recordsource=‘lincy‘ &&赋数据源thisform.
pa
rent.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(业主代号)
pa
ck &&物理删除 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.
pa
rent.form2.releasethisform.
pa
rent.form3.releasethisform.
pa
rent.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.
pa
rent.form2.grid1.recordsource=‘lin‘ &&赋数据源 endifelse thisform.
pa
rent.form2.grid1.recordsource=‘tabfwinfo‘endifthisform.
pa
rent.form2.visible=.t. &&显示表单在form1的list1控件的
click
事件中添加以下代码:thisform.text2.
value
=alltrim(thisform.list1.display
value
)在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.display
value
)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.display
value
)zjnumber=alltrim(thisform.text12.
value
)sfjz=alltrim(thisform.combo2.display
value
)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‘+
pa
dl(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
value
s(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
value
s(rknumber,yzname,sex,ctod(‘‘),‘1‘,‘‘,‘户主‘,‘‘,‘‘,‘‘,workdw,‘‘,; ‘‘,‘‘,‘‘,dwtel,sj,tel,lxdz,xqname,dlname,fjno,zjnumber,‘‘,‘‘,fwno,‘‘) messagebox(‘数据保存完毕!‘,48,‘业主信息登记‘) thisform.
pa
rent.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.
pa
rent.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.
pa
rent.form4.text3.
value
=alltrim(str(reccount()+1)) thisform.
pa
rent.form4.visible=.t. store ‘‘ to thisform.
pa
rent.form4.text1.
value
,thisform.
pa
rent.form4.text2.
value
,; thisform.
pa
rent.form4.text4.
value
,thisform.
pa
rent.form4.text5.
value
,; thisform.
pa
rent.form4.text6.
value
,thisform.
pa
rent.form4.text7.
value
,; thisform.
pa
rent.form4.text8.
value
,thisform.
pa
rent.form4.text9.
value
,; thisform.
pa
rent.form4.text10.
value
,thisform.
pa
rent.form4.text11.
value
,; thisform.
pa
rent.form4.text12.
value
,thisform.
pa
rent.form4.combo1.
value
,; thisform.
pa
rent.form4.combo2.
value
,thisform.
pa
rent.form4.combo3.
value
,; thisform.
pa
rent.form4.combo4.
value
,thisform.
pa
rent.form4.combo5.
value
,; thisform.
pa
rent.form4.combo6.
value
,thisform.
pa
rent.form4.combo7.
value
,; thisform.
pa
rent.form4.combo8.
value
,thisform.
pa
rent.form4.edit1.
value
thisform.
pa
rent.form4.text13.
value
={//} bzcy=.t.endifthisform.
pa
rent.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
)c
value
=alltrim(thisform.textg.
value
)if !empty(c
value
) thisform.
pa
rent.form4.visible=.t. cynumber=alltrim(thisform.textg.
value
) select *; from wuyemanage!tabrkinfo; where 人口编号==cynumber; into cursor lcyinfo thisform.
pa
rent.form4.text1.
value
=lcyinfo.姓名 thisform.
pa
rent.form4.text2.
value
=lcyinfo.职务 thisform.
pa
rent.form4.text3.
value
=lcyinfo.成员代号 thisform.
pa
rent.form4.text4.
value
=lcyinfo.身份证号 thisform.
pa
rent.form4.text5.
value
=lcyinfo.传呼 thisform.
pa
rent.form4.text6.
value
=lcyinfo.单位电话 thisform.
pa
rent.form4.text7.
value
=lcyinfo.家庭电话 thisform.
pa
rent.form4.text8.
value
=lcyinfo.暂住证号 thisform.
pa
rent.form4.text9.
value
=lcyinfo.手机 thisform.
pa
rent.form4.text10.
value
=lcyinfo.家庭住址 thisform.
pa
rent.form4.text11.
value
=lcyinfo.户口所在地 thisform.
pa
rent.form4.text12.
value
=lcyinfo.工作单位 thisform.
pa
rent.form4.text13.
value
=lcyinfo.出生日期 thisform.
pa
rent.form4.combo1.
value
=lcyinfo.性别 thisform.
pa
rent.form4.combo2.
value
=lcyinfo.籍贯 thisform.
pa
rent.form4.combo3.
value
=lcyinfo.婚姻状况 thisform.
pa
rent.form4.combo4.
value
=lcyinfo.职业 thisform.
pa
rent.form4.combo5.
value
=lcyinfo.文化程度 thisform.
pa
rent.form4.combo6.
value
=lcyinfo.职称 thisform.
pa
rent.form4.combo7.
value
=lcyinfo.与户主关系 thisform.
pa
rent.form4.combo8.
value
=lcyinfo.国籍 thisform.
pa
rent.form4.edit1.
value
=lcyinfo.备注 thisform.
pa
rent.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(人口编号)
pa
ck &&物理删除 messagebox(‘删除完毕‘,48,‘操作成功!‘) use database abrkinfo thisform.
pa
rent.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‘+
pa
dl(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.
value
sex=alltrim(thisform.combo1.display
value
)jg=alltrim(thisform.combo2.display
value
)hyzk=alltrim(thisform.combo3.display
value
)zy=alltrim(thisform.combo4.display
value
)whcd=alltrim(thisform.combo5.display
value
)zc=alltrim(thisform.combo6.display
value
)yhzgx=alltrim(thisform.combo7.display
value
)gj=alltrim(thisform.combo8.display
value
)if empty(cname) or empty(sex) or empty(yhzgx) or empty(area) or empty(hkszd) messagebox(‘请将信息填完整!‘,48,‘操作失败‘)else if bzcy=.t. insert into tabrkinfo
value
s(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.
pa
rent.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.
pa
rent.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.display
value
=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‘+
pa
dl(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
重庆计算机二级vf上机模拟题.pdf
重庆计算机二级vf上机模拟题.pdf
全国计算机二级(VF)控件-属性事件方法.pdf
计算机技术
vfp 程序设计 表单设计 计算圆面积.doc
vfp 程序设计 表单设计 计算圆面积
VFP数据库 有关表单的试题(含答案).doc
VFP数据库 有关表单的试题(含答案).doc
VFP
2,748
社区成员
29,138
社区内容
发帖
与我相关
我的任务
VFP
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
复制链接
扫一扫
分享
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章