大家好！多年没有用VB了，昨天一朋友找到我非要让我给他编一个软件，是朋友，我没有办法拒绝他，我说我不会，他又不信，因为以前曾经给他编过几个软件，我说我已经把VB忘得差不多了，他却说我是不愿意帮忙。所以今天来这里求救。
问题提出：
　　汽车销售
　　系统是对老客户介绍新客户购车的奖励奖金发放办法的管理
　　每一个客户最多介绍五位新客户，每一个老客户介绍的客户数超出五位不再发奖金。每介绍一位客户可得介绍费1000元
　　每个客户介绍的新客户也是最多介绍五位新客户
　　每个老客户（L）介绍的新客户为A，B，C，D，E
　　每介绍一个新客户L得1000元介绍费
　　A介绍的客户为A1，A2，A3，A4，A5
　　A每介绍一个客户A可得介绍费1000元，L可得介绍费400元
　　B介绍的客户为B1，B2，B3，B4，B5
　　B每介绍一个客户B可得介绍费1000元，L可得介绍费400元
　　依此类推
　　A1介绍的新客户为A11，A12，A13，A14，A15
　　A1每介绍一个新客户A1可得介绍费1000元，A可得介绍费400元，L可得介绍费300元
　　A2介绍的新客户为A21，A22，A23，A24，A25
　　A2每介绍一个新客户A2可得介绍费1000元，A可得介绍费400元，L可得介绍费300元
　　依此类推
　　A11介绍的客户为A111，A112，A113，A114，A115
　　A11每介绍一个新客户，A11可得介绍费1000元，A1可能介绍费400元，A可得介绍费300元，L可得介绍费200元
　　A12介绍的客户为A121，A122，A123，A124，A125
　　A12每介绍一个新客户，A12可得介绍费1000元，A1可得介绍费400元，A可得介绍费300元，L可得介绍费200元
　　依此类推
　　A111介绍的客户为A1111，A1112，A1113，A1114，A1115
　　A111每介绍一个新客户，A111可得介绍费1000元，A11可得介绍费400元，A1可得介绍费300元，A可得介绍费200元，L可得介绍费100元
　　A112介绍的客户为A1121，A1122，A1123，A1124，A1125
　　A112每介绍一个新客户，A112可得介绍费1000元，A11可得介绍费400元，A1可得介绍费300元，A可得介绍费200元，L可得介绍费100元
　　依此类推　　
　　A1111介绍的新客户为A11111，A11112，A11113，A11114，A11115
　　A1111每介绍一个新客户，A1111可得介绍费1000元，A111可得介绍费400元，A11可得介绍费300元，A1可得介绍费200元，A可得介绍费100元，到此L不再得介绍费
　　A1112介绍的新客户为A11121，A11122，A11123，A11124，A11125
　　A1112每介绍一个新客户，A1112可得介绍费1000元，A111可得介绍费400元，A11可得介绍费300元，A1可得介绍费200元，A可得介绍费100元，到此L不再得介绍费
　　依此类推
　　
　　每个人所得的介绍费总额最多不得超过他的购车款的2倍，具体倍数管理员可凭密码修改。


　　在这里先谢谢大家了！

　　

有朋友能帮我一下吗？谢谢先！

传销，这是万万使不得的。

不是传销，每个人仅限介绍五辆车的。
我只是帮朋友做个软件，只当是重新向大家学习VB了，具体他拿软件是做什么的，这个我们管不着的。比如说家里的菜刀可以用来杀人，你家里就不用菜刀吗？

这个要用数据库来做。目前我没时间做这个。给个思路吧。

1、库。
表1，用户表
ID  自动编号
姓名  
购车费用
介绍费总额
联系电话
........

表2，介绍关系表
ID  自动编号
介绍人ID   ，整数，对应 用户表中的 ID 。
被介绍人ID ，整数，对应 用户表中的 ID 。

表3，介绍费发放表
ID  ,自动编号
介绍人ID 对应 用户表中的ID 。
介绍ID ，对应 介绍关系表中的 ID。
金额   
发放时间

程序流程：
1、用户管理。
录入信息，修改信息。
2、介绍关系成立。
在录入新用户时，选择 或 输入介绍人，然后查 用户表，如果存在此用户，则保存ID到 介绍关系表中。
3、介绍关系树
使用循环向下可以查询介绍关系树
如 查询 L
查到有5条记录，列为2级，然后循环递归调用 查询 A .B 的下级 ，再循环递归，
总共循环 5级。

4、介绍费计算，
在程序里就写 5层查询，不要使用循环，直接使用 5行 函数调用代码。
介绍费发放函数  带二个参数
第一个 ， 被介绍人ID ，第二个 金额 ，返回值，介绍人ID 。如果没有，就返回 0

dim i as long
i=介绍费发放函数(新客户,1000)
if i>0 then i=介绍费发放函数(i,400)                  '1层
if i>0 then i=介绍费发放函数(i,300)                  '2层
if i>0 then i=介绍费发放函数(i,200)                  '3层
if i>0 then i=介绍费发放函数(i,100)                  '4层

函数的实现过程：
根据ID，查 介绍关系表，取 介绍人ID ，如果不为 空，
根据介绍人ID，去查 用户表，取 总介绍费
根据介绍人ID，查 介绍费发放表，统计该ID 已有多少介绍费。
如果 介绍 《 总介绍费
  把介绍人ID，和 介绍关系表 中的ID ，以及传入的金额 写入 介绍费发放表中。
返回 介绍人ID

-----------------------------
为什么不在用户表中，直接做客户介绍关系。
原因是，用户表很可能需要 应用到其他 地方，为了防止干扰，就没做到里面去，要做到一起也没什么问题，还会少一次查询。

谢谢版主

四年没有用VB了，生了

哦？是吗？我做菜刀的确不违法，可我明知一个人在喊：快拿菜刀来，我要杀人。而我把菜刀递上去了，你说我是不是违法了？
用一个虚构的实体幌子，靠发展下线拿提成，就是传销，是害人害己的行为，我建议你规劝下你那朋友，让他不要干了，不可能最后卖一辆车还要倒找出去两辆车钱的，让介绍人得便宜的事。

做好可以不给他，不让他用，但是可以跟大家学习VB6是我的荣幸。原来我用VB6给别人开发过几个软件，四年没有用V阝了，现在得重新学习。

版主好厉害呀