标题:vfp6.0中组合框和文本框关联问题
只看楼主
chou619
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2016-4-5
结帖率:0
已结贴  问题点数:20 回复次数:7 
vfp6.0中组合框和文本框关联问题
如题...我想用两个组合框关联一个文本框那代码怎么确定呢?
  例如保险里面车上人员责任险,需要一个组合框选择车辆种类,一个组合框选择责任限额,需要两个选择好最后才能确定基础保费。
  那样的话代码需要怎么编写呢
搜索更多相关主题的帖子: 保险 责任险 文本框 种类 
2016-04-05 22:29
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:5 
基础保费 = f(车辆种类.value, 责任限额.value)
2016-04-06 07:21
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
得分:5 
向文本框中赋值?
2016-04-06 07:59
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
得分:5 
你需要先说明怎么运算才能给出你方法啊!

2016-04-06 09:49
taifu945
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:80
帖 子:1545
专家分:3298
注 册:2012-7-6
得分:5 
以下是引用chou619在2016-4-5 22:29:41的发言:

如题...我想用两个组合框关联一个文本框那代码怎么确定呢?
  例如保险里面车上人员责任险,需要一个组合框选择车辆种类,一个组合框选择责任限额,需要两个选择好最后才能确定基础保费。
  那样的话代码需要怎么编写呢
我感觉前两个控件用列表框就行了,组合框仅在用户需输入数据时使用。你可以在这两个列表框的Interactivechanged事件中计算基础保费,然后显示在表单上。
比如:车辆种类列表框的Name=车辆种类;责任限额列表框的Name=限额;基础保费显示用标签控件,Name=显示保费
那么,车辆种类.Interactivechanged事件中计算基础保费的代码段可以是:
DO CASE
  CASE This.List(1)=某种车型
    DO CASE
      CASE Thisform.责任限额.List(1)=某数据
        Thisform.显示保费.Caption='你需要的保费是 xxxx 元'
      CASE ... ...
    ENDCASE
  CASE ... ...
ENDCASE
限额.Interactivechanged也用类似的代码。但这种方法并不好——代码太冗余,而且发生了变化,就必须修改代码。解决办法是:可以事先做一个表文件,把对应车型、限额需要的基础保费作为一条条记录存储,然后在Interactivechanged事件中仅用一条语句查询就可以了。而且,车辆种类、责任限额的备选项数据也能直接从该表文件里来,不需要一个个地维护。整个维护工作只需要针对这张表里的数据就可以了。

2016-04-06 10:11
chou619
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2016-4-5
得分:0 
回复 2楼 吹水佬
那两个组合框的代码怎么编写呢?跟和一个组合框关联一个文本框有什么不一样呢?
下面是我一个组合框关联一个文本框的代码
LOCATE FOR alltrim()==alltrim(交强险基础保费表.车辆明细分类)
IF FOUND()
thisform.text2.Value=交强险基础保费表.保费
*thisform.text4.value=thisform.text2.value*(1+thisform.text5.value)*(1+thisform.text6.value)
endif
2016-04-06 11:52
chou619
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2016-4-5
得分:0 
回复 3楼 tlliqi
怎么赋值?要选择好车辆种类和责任限额最后文本框才能显示出保费...
那两个组合框的代码怎么编写呢?跟和一个组合框关联一个文本框有什么不一样呢?
下面是我一个组合框关联一个文本框的代码
LOCATE FOR alltrim()==alltrim(交强险基础保费表.车辆明细分类)
IF FOUND()
thisform.text2.Value=交强险基础保费表.保费
*thisform.text4.value=thisform.text2.value*(1+thisform.text5.value)*(1+thisform.text6.value)
endif
2016-04-06 11:53
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:0 
以下是引用chou619在2016-4-6 11:52:11的发言:

那两个组合框的代码怎么编写呢?跟和一个组合框关联一个文本框有什么不一样呢?
下面是我一个组合框关联一个文本框的代码
LOCATE FOR alltrim()==alltrim(交强险基础保费表.车辆明细分类)
IF FOUND()
thisform.text2.Value=交强险基础保费表.保费
*thisform.text4.value=thisform.text2.value*(1+thisform.text5.value)*(1+thisform.text6.value)
endif

AND
2016-04-06 13:57



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-463296-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.309755 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved