欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

套级有关问题,怎么用程序实现

更新时间: 2014-01-05 02:27:59 责任编辑: Author_N1

 

套级问题,如何用程序实现?
套级问题,如何用程序实现?
  标准1 标准2 标准3 标准4 标准5 标准6
会计师   8000 7000 6500 5500 4900 4500
助理会计师  6000 5400 4800 4200 3600 3000
业务员   4000 3500 3000 2500 2000 1500

如业务员现在新标准2300如何对准为业务员标准4(比旧标准高一些)

如助理会计师现在新标准5000如何对准为助理会计师标准2(比旧标准高一些)
如会计师现在新标准4600如何对准为会计师标准5(比旧标准高一些)

--参考方法--
下面代码不一定是最优的,仅提供一种编程思路
CREATE CURSOR BZ (NR C(10),BZ1 N(4),BZ2 N(4),BZ3 N(4),BZ4 N(4),BZ5 N(4),BZ6 N(4))
INSERT INTO BZ VALUES ([会计师],8000,7000,6500,5500,4900,4500)
INSERT INTO BZ VALUES ([助理会计师],6000,5400,4800,4200,3600,3000)
INSERT INTO BZ VALUES ([业务员],4000,3500,3000,2500,2000,1500)
*以业务员新标准工资 2300 为例
XM=[业务员]
GZ=2300
GZ1=0  && 保存查询到的低于GZ的旧工资标准(如标准5)
GZ2=0  && 保存查询到的高于GZ的旧工资标准(如标准4)
ZDM=[] && 保存查询到的字段名
ZDM1=[]
LOCATE FOR ALLTRIM(NR)==XM
IF FOUND()
   FOR I=2 TO FCOUNT()
       IF EVALUATE(FIELD(I))<GZ
          ZDM=FIELD(I)
          ZDM1=FIELD(I-1)
          GZ1=EVALUATE(FIELD(I))
          GZ2=EVALUATE(FIELD(I-1))
          MESSAGEBOX(XM+[新工资档次:]+ZDM1+[,新工资标准:]+TRANSFORM(GZ2)+[元],64,[系统信息])
          EXIT
       ENDIF
   ENDFOR
ELSE
   MESSAGEBOX([未查询到]+XM+[的旧工资标准],64,[系统信息])
ENDIF
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:27:59
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/10170/
本文WWW.DOC100.NET DOC100.NET版权所有。