注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

零售创新,创新那些事儿,SPSS,VBA

零售创新

 
 
 

日志

 
 
关于我

新浪微博,零售创新 研究经理,数据分析师 希望和市场研究和零售业的同事共同进步! 本博客发表的都是免费或试用的资料,如果有版权问题请发邮件wangli12a@163.com联系删除。 spss excel vba blog

网易考拉推荐

epidata 数据库实例  

2011-11-23 11:09:05|  分类: spss学习 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

好久没用epidata,在市场研究公司的时候基本上每天都用,突然之间转换了行业变成了客户方,以前的知识感觉都被淡忘了,又重新学习epidata,一起努力。

大家都知道的原因,只有部分示例

基础

最基本的两种数据类型

数值型  #  ,一个#代表一个数据,1-9用一个#,1-99用##,以此类推。

文本型 _,一个#代表一个字符,一个英语字符用一个_,一个汉字用两个__,以此类推。

 

录入部分

 

no no问卷编号#####
brand brand品牌 #
name name姓名___________
Tel tel联系电话___________
M1 M1请问您是否拥有驾驶证#
M2 M2问卷类型#
M3 M3性别#
M4 M4请问您的实足年龄##
quota 配额#

Q1   Q1品牌名称#
Q1A1 Q1A1该品牌展示区的总体布置有吸引力#
Q1A2 Q1A2展区的位置显著#
Q1A3 Q1A3展区的空间宽敞气派#
Q1A4 Q1A4展区设计新颖独特#
Q1A5 Q1A5展区内灯光效果让人感到舒适#
Q1A6 Q1A6展区内LED/大屏幕带来科技感#
Q1A7 Q1A7展区内彩屏效果带来时尚感#
Q1A8 Q1A8展区的总体声音效果令人感到舒适#
Q1A9 Q1A9展区设计符合大众汽车的品牌形象#
Q1A10 Q1A10我可以轻易找到适合我的区域#
Q1A11 Q1A11展区内的设计体现与参观者的互动性#
Q1A12 Q1A12展区内的设计/布置是有趣的#

 

 

逻辑部分

LABELBLOCK
  LABEL 标记_brand
    1   奥迪汽车
    2  丰田汽车
    3  本田汽车
  END
  LABEL 标记_m1
    1  有
    2  没有
  END
  LABEL 标记_m2
    1  总体问卷
    2  大众展区
    3  其他
  END
  LABEL 标记_m3
    1  男
    2  女
  END
  LABEL 标记_quota
    2  20-29岁
    3  30-39岁
    4  40-45岁
  END
  LABEL 标记_a1
    1  我/我的家庭有车
    2  我使用单位配给的车辆
    3  以上均无
  END
  LABEL 标记_a3
    1  3个月以内
    2  3-6个月
    3  6个月-1年
    4  1年以上
    9  没有购车计划
  END
  LABEL 标记_a5
    1  没有考虑过
    2  考虑
    3  不确定
  END
  LABEL 标记_a6
    1  是的,我独自决定购车计划
    2  是的,我参与购车的决策
    3  没有参与购车决策
  END
  LABEL 标记_a7
    1  了解最新的汽车潮流和科技
    2  观赏各主流品牌车型的好机会
    3  我/我的家庭近期想买辆新车,希望?
    4  我的单位近期想买辆新车,希望收集
    5  工作与汽车相关,了解行业知识
    8  其他
    9  无
  END
  LABEL 标记_a9
    1  我更关注最新上市的车型
    2  我更关注国际品牌的展区
    3  我更关注合资品牌的展区
    4  我更关注国内品牌的展区
    5  我更关注豪华车和高档车
    6  我更关注中低档车
    7  我更关注概念车
    8  其他
    9  无
  END
  LABEL 标记_q1
    5  非常同意
    4  比较同意
    3  一般
    2  不太同意
    1  完全不同意
  END

END

 

BEFORE FILE
  COLOR BACKGROUND SILVER
  COLOR QUESTION BLACK
  COLOR DATA BLUE YELLOW
  IGNOREMISSING
  DEFINE DUPCHK <Y>
  DEFINE FLDCHK <Y>
  DEFINE VALCHK <Y>
  DEFINE SQCHK <Y>
  DEFINE LOGCHK1 <Y>
  DEFINE LOGCHK2 <Y>
END

no
  MUSTENTER
  REPEAT
END

brand
  RANGE 1 9
  COMMENT LEGAL USE 标记_brand
  MUSTENTER
TYPE COMMENT
END

name
  MUSTENTER
END

tel
  MUSTENTER
END

m1
  LEGAL
    1
    2
  END
  COMMENT LEGAL USE 标记_m1
  MUSTENTER
  TYPE COMMENT
END

m2
  LEGAL
    1
    2
    3
  END
  COMMENT LEGAL USE 标记_m2
  MUSTENTER
  TYPE COMMENT
END

m3
  LEGAL
    1
    2
  END
  COMMENT LEGAL USE 标记_m3
  MUSTENTER
  TYPE COMMENT
END

m4
  RANGE 20 45
  MUSTENTER
END

quota
  RANGE 2 4
  COMMENT LEGAL USE 标记_quota
  MUSTENTER
  TYPE COMMENT
END

a1
  RANGE 1 3
  COMMENT LEGAL USE 标记_a1
  JUMPS
    3 a3
  END
  MUSTENTER
  TYPE COMMENT
END

a3
  RANGE 1 4
  LEGAL
    9
  END
  COMMENT LEGAL USE 标记_a3
  JUMPS
    9 A7a1
  END
  MUSTENTER
  TYPE COMMENT
END

a5a
  RANGE 1 3
  COMMENT LEGAL USE 标记_a5
  MUSTENTER
  TYPE COMMENT
END

a5b
  RANGE 1 3
  COMMENT LEGAL USE 标记_a5
  MUSTENTER
  TYPE COMMENT
END

a5c
  RANGE 1 3
  COMMENT LEGAL USE 标记_a5
  MUSTENTER
  TYPE COMMENT
END

a5d
  RANGE 1 3
  COMMENT LEGAL USE 标记_a5
  MUSTENTER
  TYPE COMMENT
END

a5e
  RANGE 1 3
  COMMENT LEGAL USE 标记_a5
  MUSTENTER
TYPE COMMENT
END

a5f
  RANGE 1 3
  COMMENT LEGAL USE 标记_a5
  MUSTENTER
TYPE COMMENT
END

a6
  RANGE 1 3
  COMMENT LEGAL USE 标记_a6
  MUSTENTER
  TYPE COMMENT
END

a7a1
  RANGE 1 5
  LEGAL
    8
    9
  END
  COMMENT LEGAL USE 标记_a7
  MUSTENTER
  TYPE COMMENT
END

a7a2
  RANGE 1 5
  LEGAL
    8
  END
  COMMENT LEGAL USE 标记_a7
  JUMPS
    8 a7q
  END
  TYPE COMMENT
END

a7a3
  RANGE 1 5
  LEGAL
    8
  END
  COMMENT LEGAL USE 标记_a7
  JUMPS
    8 a7q
  END
  TYPE COMMENT
END

a7a4
  RANGE 1 5
  LEGAL
    8
  END
  COMMENT LEGAL USE 标记_a7
  JUMPS
    8 a7q
  END
  TYPE COMMENT
END

a7a5
  RANGE 1 5
  LEGAL
    8
  END
  COMMENT LEGAL USE 标记_a7
  JUMPS
    8 a7q
  END
  TYPE COMMENT
END

a7a6
  RANGE 1 5
  LEGAL
    8
  END
  COMMENT LEGAL USE 标记_a7
  JUMPS
    8 a7q
  END
  TYPE COMMENT
  AFTER ENTRY
    IF a7a6<>8 THEN
      GOTO a9a1
    ENDIF
  END
END

a7q
  MUSTENTER
END

a9a1
  RANGE 1 9
  COMMENT LEGAL USE 标记_a9
  MUSTENTER
  TYPE COMMENT
END

a9a2
  RANGE 1 8
  COMMENT LEGAL USE 标记_a9
  JUMPS
    8 a9q
  END
  TYPE COMMENT
END

a9a3
  RANGE 1 8
  COMMENT LEGAL USE 标记_a9
  JUMPS
    8 a9q
  END
  TYPE COMMENT
END

a9a4
  RANGE 1 8
  COMMENT LEGAL USE 标记_a9
  JUMPS
    8 a9q
  END
  TYPE COMMENT
END

a9a5
  RANGE 1 8
  COMMENT LEGAL USE 标记_a9
  JUMPS
    8 a9q
  END
  TYPE COMMENT
END

a9a6
  RANGE 1 8
  COMMENT LEGAL USE 标记_a9
  JUMPS
    8 a9q
  END
  TYPE COMMENT
END

a9a7
  RANGE 1 8
  COMMENT LEGAL USE 标记_a9
  JUMPS
    8 a9q
  END
  TYPE COMMENT
END

a9a8
  RANGE 1 8
  COMMENT LEGAL USE 标记_a9
  JUMPS
    8 a9q
  END
  TYPE COMMENT
  AFTER ENTRY
    IF a9a8<>8 THEN
      GOTO q1
    ENDIF
  END
END

a9q
  MUSTENTER
END

q1
  RANGE 1 9
  COMMENT LEGAL USE 标记_brand
  MUSTENTER
TYPE COMMENT
END

q1a1
  RANGE 1 5
  COMMENT LEGAL USE 标记_q1
  MUSTENTER
  TYPE COMMENT
END

q1a2
  RANGE 1 5
  COMMENT LEGAL USE 标记_q1
  MUSTENTER
  TYPE COMMENT
END

q1a3
  RANGE 1 5
  COMMENT LEGAL USE 标记_q1
  MUSTENTER
  TYPE COMMENT
END

q1a4
  RANGE 1 5
  COMMENT LEGAL USE 标记_q1
  MUSTENTER
  TYPE COMMENT
END

q1a5
  RANGE 1 5
  COMMENT LEGAL USE 标记_q1
  MUSTENTER
  TYPE COMMENT
END

q1a6
  RANGE 1 5
  COMMENT LEGAL USE 标记_q1
  MUSTENTER
  TYPE COMMENT
END

q1a7
  RANGE 1 5
  COMMENT LEGAL USE 标记_q1
  MUSTENTER
  TYPE COMMENT
END

q1a8
  RANGE 1 5
  COMMENT LEGAL USE 标记_q1
  MUSTENTER
  TYPE COMMENT
END

q1a9
  RANGE 1 5
  COMMENT LEGAL USE 标记_q1
  MUSTENTER
  TYPE COMMENT
END

q1a10
  RANGE 1 5
  COMMENT LEGAL USE 标记_q1
  MUSTENTER
  TYPE COMMENT
END

q1a11
  RANGE 1 5
  COMMENT LEGAL USE 标记_q1
  MUSTENTER
  TYPE COMMENT
END

q1a12
  RANGE 1 5
  COMMENT LEGAL USE 标记_q1
  MUSTENTER
  TYPE COMMENT
END


 

m4a
  TOPOFSCREEN 10
  COMMENT LEGAL USE lbl_m4a
  MUSTENTER
  TYPE COMMENT
  after ENTRY
    IF (m4a=2) and ((m4<20) or (m4>29)) THEN
      HELP "m4/m4a 不符"
      CLEAR m4a
      GOTO m4a
    ELSE
      IF (m4a=3) and ((m4<30) or (m4>39)) THEN
        HELP "m4/m4a 不符"
        CLEAR m4a
        GOTO m4a
      ELSE
        IF (m4a=4) and ((m4<40) or (m4>45)) THEN
          HELP "m4/m4a 不符"
          CLEAR m4a
          GOTO m4a
          ENDIF
        ENDIF
      ENDIF
  END
END

A1
  TOPOFSCREEN 10
  COMMENT LEGAL USE lbl_a1
  MUSTENTER
  TYPE COMMENT
END

A3
  TOPOFSCREEN 10
  COMMENT LEGAL USE lbl_a3
  MUSTENTER
  TYPE COMMENT
END

a6
  TOPOFSCREEN 10
  COMMENT LEGAL USE lbl_a6
  MUSTENTER
  TYPE COMMENT
END

A7A1
  TOPOFSCREEN 10
  COMMENT LEGAL USE lbl_a7
  JUMPS
    9 a11
  END
  MUSTENTER
  TYPE COMMENT
  AFTER ENTRY
    LET DUPCHK="N"
    LET DUPCHK=DUPCHK OR (A7A1=A7A2)
    LET DUPCHK=DUPCHK OR (A7A1=A7A3)
    LET DUPCHK=DUPCHK OR (A7A1=A7A4)
    LET DUPCHK=DUPCHK OR (A7A1=A7A5)
    LET DUPCHK=DUPCHK OR (A7A1=A7A6)
    LET DUPCHK=DUPCHK AND NOT ISBLANK(A7A1)
    IF DUPCHK THEN
      HELP "答案值 @A7A1 重复" TYPE=WARNING
      CLEAR A7A1
      GOTO A7A1
    ENDIF
  END
END

A7A2
  COMMENT LEGAL USE lbl_a7
  TYPE COMMENT
  AFTER ENTRY
    LET DUPCHK="N"
    LET DUPCHK=DUPCHK OR (A7A2=A7A1)
    LET DUPCHK=DUPCHK OR (A7A2=A7A3)
    LET DUPCHK=DUPCHK OR (A7A2=A7A4)
    LET DUPCHK=DUPCHK OR (A7A2=A7A5)
    LET DUPCHK=DUPCHK OR (A7A2=A7A6)
    LET DUPCHK=DUPCHK AND NOT ISBLANK(A7A2)
    IF DUPCHK THEN
      HELP "答案值 @A7A2 重复" TYPE=WARNING
      CLEAR A7A2
      GOTO A7A2
    ENDIF
    IF A7A2=. THEN
      GOTO A7Q
    ENDIF
  END
END

A7A3
  COMMENT LEGAL USE lbl_a7
  TYPE COMMENT
  AFTER ENTRY
    LET DUPCHK="N"
    LET DUPCHK=DUPCHK OR (A7A3=A7A1)
    LET DUPCHK=DUPCHK OR (A7A3=A7A2)
    LET DUPCHK=DUPCHK OR (A7A3=A7A4)
    LET DUPCHK=DUPCHK OR (A7A3=A7A5)
    LET DUPCHK=DUPCHK OR (A7A3=A7A6)
    LET DUPCHK=DUPCHK AND NOT ISBLANK(A7A3)
    IF DUPCHK THEN
      HELP "答案值 @A7A3 重复" TYPE=WARNING
      CLEAR A7A3
      GOTO A7A3
    ENDIF
    IF A7A3=. THEN
      GOTO A7Q
    ENDIF
  END
END

A7A4
  COMMENT LEGAL USE lbl_a7
  TYPE COMMENT
  AFTER ENTRY
    LET DUPCHK="N"
    LET DUPCHK=DUPCHK OR (A7A4=A7A1)
    LET DUPCHK=DUPCHK OR (A7A4=A7A2)
    LET DUPCHK=DUPCHK OR (A7A4=A7A3)
    LET DUPCHK=DUPCHK OR (A7A4=A7A5)
    LET DUPCHK=DUPCHK OR (A7A4=A7A6)
    LET DUPCHK=DUPCHK AND NOT ISBLANK(A7A4)
    IF DUPCHK THEN
      HELP "答案值 @A7A4 重复" TYPE=WARNING
      CLEAR A7A4
      GOTO A7A4
    ENDIF
    IF A7A4=. THEN
      GOTO A7Q
    ENDIF
  END
END

A7A5
  COMMENT LEGAL USE lbl_a7
  TYPE COMMENT
  AFTER ENTRY
    LET DUPCHK="N"
    LET DUPCHK=DUPCHK OR (A7A5=A7A1)
    LET DUPCHK=DUPCHK OR (A7A5=A7A2)
    LET DUPCHK=DUPCHK OR (A7A5=A7A3)
    LET DUPCHK=DUPCHK OR (A7A5=A7A4)
    LET DUPCHK=DUPCHK OR (A7A5=A7A6)
    LET DUPCHK=DUPCHK AND NOT ISBLANK(A7A5)
    IF DUPCHK THEN
      HELP "答案值 @A7A5 重复" TYPE=WARNING
      CLEAR A7A5
      GOTO A7A5
    ENDIF
    IF A7A5=. THEN
      GOTO A7Q
    ENDIF
  END
END

A7A6
  COMMENT LEGAL USE lbl_a7
  TYPE COMMENT
  AFTER ENTRY
    LET DUPCHK="N"
    LET DUPCHK=DUPCHK OR (A7A6=A7A1)
    LET DUPCHK=DUPCHK OR (A7A6=A7A2)
    LET DUPCHK=DUPCHK OR (A7A6=A7A3)
    LET DUPCHK=DUPCHK OR (A7A6=A7A4)
    LET DUPCHK=DUPCHK OR (A7A6=A7A5)
    LET DUPCHK=DUPCHK AND NOT ISBLANK(A7A6)
    IF DUPCHK THEN
      HELP "答案值 @A7A6 重复" TYPE=WARNING
      CLEAR A7A6
      GOTO A7A6
    ENDIF
    IF A7A6=. THEN
      GOTO A7Q
    ENDIF
  END
END

A7Q
  MUSTENTER
  BEFORE ENTRY
    IF (A7A1<>8) AND (A7A2<>8) AND (A7A3<>8) AND (A7A4<>8) AND (A7A5<>8) AND (A7A6<>8) THEN
      GOTO A11
    ENDIF
  END
END

a11
  TOPOFSCREEN 10
  COMMENT LEGAL USE lbl_a11
  MUSTENTER
  TYPE COMMENT
end

A9A1
  TOPOFSCREEN 10
  COMMENT LEGAL USE lbl_a9
  JUMPS
    9 t1
  END
  MUSTENTER
  TYPE COMMENT
  AFTER ENTRY
    LET DUPCHK="N"
    LET DUPCHK=DUPCHK OR (A9A1=A9A2)
    LET DUPCHK=DUPCHK OR (A9A1=A9A3)
    LET DUPCHK=DUPCHK OR (A9A1=A9A4)
    LET DUPCHK=DUPCHK OR (A9A1=A9A5)
    LET DUPCHK=DUPCHK OR (A9A1=A9A6)
    LET DUPCHK=DUPCHK OR (A9A1=A9A7)
    LET DUPCHK=DUPCHK OR (A9A1=A9A8)
    LET DUPCHK=DUPCHK AND NOT ISBLANK(A9A1)
    IF DUPCHK THEN
      HELP "答案值 @A9A1 重复" TYPE=WARNING
      CLEAR A9A1
      GOTO A9A1
    ENDIF
  END
END

A9A2
  COMMENT LEGAL USE lbl_a9
  TYPE COMMENT
  AFTER ENTRY


LET DUPCHK="N"
    LET DUPCHK=DUPCHK OR (q7b2=q7b1)
    LET DUPCHK=DUPCHK OR (q7b2=q7b3)
    LET DUPCHK=DUPCHK OR (q7b2=q7b4)
    LET DUPCHK=DUPCHK OR (q7b2=q7b5)
    LET DUPCHK=DUPCHK OR (q7b2=q7b6)
    LET DUPCHK=DUPCHK OR (q7b2=q7b7)
    LET DUPCHK=DUPCHK OR (q7b2=q7b8)
    LET DUPCHK=DUPCHK OR (q7b2=q7b9)
    LET DUPCHK=DUPCHK OR (q7b2=q7b10)
    LET DUPCHK=DUPCHK OR (q7b2=q7b11)
    LET DUPCHK=DUPCHK AND NOT ISBLANK(Q7b2)
    IF DUPCHK THEN
      HELP "答案值 @q7b2 重复" TYPE=WARNING
      CLEAR q7b2
      GOTO q7b2
    ENDIF
    IF q7b2=. THEN
      GOTO q7b11a
    ENDIF


    LET DUPCHK="N"
    LET DUPCHK=DUPCHK OR (A9A2=A9A1)
    LET DUPCHK=DUPCHK OR (A9A2=A9A3)
    LET DUPCHK=DUPCHK OR (A9A2=A9A4)
    LET DUPCHK=DUPCHK OR (A9A2=A9A5)
    LET DUPCHK=DUPCHK OR (A9A2=A9A6)
    LET DUPCHK=DUPCHK OR (A9A2=A9A7)
    LET DUPCHK=DUPCHK OR (A9A2=A9A8)
    LET DUPCHK=DUPCHK AND NOT ISBLANK(A9A2)
    IF DUPCHK THEN
      HELP "答案值 @A9A2 重复" TYPE=WARNING
      CLEAR A9A2
      GOTO A9A2
    ENDIF
    IF A9A2=. THEN
      GOTO A9Q
    ENDIF
  END
END

A9A3
  COMMENT LEGAL USE lbl_a9
  TYPE COMMENT
  AFTER ENTRY
    LET DUPCHK="N"
    LET DUPCHK=DUPCHK OR (A9A3=A9A1)
    LET DUPCHK=DUPCHK OR (A9A3=A9A2)
    LET DUPCHK=DUPCHK OR (A9A3=A9A4)
    LET DUPCHK=DUPCHK OR (A9A3=A9A5)
    LET DUPCHK=DUPCHK OR (A9A3=A9A6)
    LET DUPCHK=DUPCHK OR (A9A3=A9A7)
    LET DUPCHK=DUPCHK OR (A9A3=A9A8)
    LET DUPCHK=DUPCHK AND NOT ISBLANK(A9A3)
    IF DUPCHK THEN
      HELP "答案值 @A9A3 重复" TYPE=WARNING
      CLEAR A9A3
      GOTO A9A3
    ENDIF
    IF A9A3=. THEN
      GOTO A9Q
    ENDIF
  END
END

A9A4
  COMMENT LEGAL USE lbl_a9
  TYPE COMMENT
  AFTER ENTRY
    LET DUPCHK="N"
    LET DUPCHK=DUPCHK OR (A9A4=A9A1)
    LET DUPCHK=DUPCHK OR (A9A4=A9A2)
    LET DUPCHK=DUPCHK OR (A9A4=A9A3)
    LET DUPCHK=DUPCHK OR (A9A4=A9A5)
    LET DUPCHK=DUPCHK OR (A9A4=A9A6)
    LET DUPCHK=DUPCHK OR (A9A4=A9A7)
    LET DUPCHK=DUPCHK OR (A9A4=A9A8)
    LET DUPCHK=DUPCHK AND NOT ISBLANK(A9A4)
    IF DUPCHK THEN
      HELP "答案值 @A9A4 重复" TYPE=WARNING
      CLEAR A9A4
      GOTO A9A4
    ENDIF
    IF A9A4=. THEN
      GOTO A9Q
    ENDIF
  END
END

A9A5
  COMMENT LEGAL USE lbl_a9
  TYPE COMMENT
  AFTER ENTRY
    LET DUPCHK="N"
    LET DUPCHK=DUPCHK OR (A9A5=A9A1)
    LET DUPCHK=DUPCHK OR (A9A5=A9A2)
    LET DUPCHK=DUPCHK OR (A9A5=A9A3)
    LET DUPCHK=DUPCHK OR (A9A5=A9A4)
    LET DUPCHK=DUPCHK OR (A9A5=A9A6)
    LET DUPCHK=DUPCHK OR (A9A5=A9A7)
    LET DUPCHK=DUPCHK OR (A9A5=A9A8)
    LET DUPCHK=DUPCHK AND NOT ISBLANK(A9A5)
    IF DUPCHK THEN
      HELP "答案值 @A9A5 重复" TYPE=WARNING
      CLEAR A9A5
      GOTO A9A5
    ENDIF
    IF A9A5=. THEN
      GOTO A9Q
    ENDIF
  END
END

A9A6
  COMMENT LEGAL USE lbl_a9
  TYPE COMMENT
  AFTER ENTRY
    LET DUPCHK="N"
    LET DUPCHK=DUPCHK OR (A9A6=A9A1)
    LET DUPCHK=DUPCHK OR (A9A6=A9A2)
    LET DUPCHK=DUPCHK OR (A9A6=A9A3)
    LET DUPCHK=DUPCHK OR (A9A6=A9A4)
    LET DUPCHK=DUPCHK OR (A9A6=A9A5)
    LET DUPCHK=DUPCHK OR (A9A6=A9A7)
    LET DUPCHK=DUPCHK OR (A9A6=A9A8)
    LET DUPCHK=DUPCHK AND NOT ISBLANK(A9A6)
    IF DUPCHK THEN
      HELP "答案值 @A9A6 重复" TYPE=WARNING
      CLEAR A9A6
      GOTO A9A6
    ENDIF
    IF A9A6=. THEN
      GOTO A9Q
    ENDIF
  END
END

A9A7
  COMMENT LEGAL USE lbl_a9
  TYPE COMMENT
  AFTER ENTRY
    LET DUPCHK="N"
    LET DUPCHK=DUPCHK OR (A9A7=A9A1)
    LET DUPCHK=DUPCHK OR (A9A7=A9A2)
    LET DUPCHK=DUPCHK OR (A9A7=A9A3)
    LET DUPCHK=DUPCHK OR (A9A7=A9A4)
    LET DUPCHK=DUPCHK OR (A9A7=A9A5)
    LET DUPCHK=DUPCHK OR (A9A7=A9A6)
    LET DUPCHK=DUPCHK OR (A9A7=A9A8)
    LET DUPCHK=DUPCHK AND NOT ISBLANK(A9A7)
    IF DUPCHK THEN
      HELP "答案值 @A9A7 重复" TYPE=WARNING
      CLEAR A9A7
      GOTO A9A7
    ENDIF
    IF A9A7=. THEN
      GOTO A9Q
    ENDIF
  END
END

A9A8
  COMMENT LEGAL USE lbl_a9
  TYPE COMMENT
  AFTER ENTRY
    LET DUPCHK="N"
    LET DUPCHK=DUPCHK OR (A9A8=A9A1)
    LET DUPCHK=DUPCHK OR (A9A8=A9A2)
    LET DUPCHK=DUPCHK OR (A9A8=A9A3)
    LET DUPCHK=DUPCHK OR (A9A8=A9A4)
    LET DUPCHK=DUPCHK OR (A9A8=A9A5)
    LET DUPCHK=DUPCHK OR (A9A8=A9A7)
    LET DUPCHK=DUPCHK OR (A9A8=A9A6)
    LET DUPCHK=DUPCHK AND NOT ISBLANK(A9A8)
    IF DUPCHK THEN
      HELP "答案值 @A9A8 重复" TYPE=WARNING
      CLEAR A9A8
      GOTO A9A8
    ENDIF
    IF A9A8=. THEN
      GOTO A9Q
    ENDIF
  END
END

A9Q
  MUSTENTER
  BEFORE ENTRY
    IF (A9A1<>8) AND (A9A2<>8) AND (A9A3<>8) AND (A9A4<>8) AND (A9A5<>8) AND (A9A6<>8) THEN
      GOTO t1
    ENDIF
  END
END

T1
  TOPOFSCREEN 10
  MUSTENTER
  COMMENT LEGAL USE lbl_T1
  TYPE COMMENT
  IF (T1<>98) THEN
   GOTO T3A1
  ENDIF
END

T1Q
  TOPOFSCREEN 10
  MUSTENTER
END


T3A1
  TOPOFSCREEN 10
  MUSTENTER
  COMMENT LEGAL USE lbl_T3
  TYPE COMMENT
  BEFORE ENTRY
  IF (T1=1) THEN
   T3A1=1
   GOTO T3A2
  ENDIF
  END
END

T3A2
  TOPOFSCREEN 10
  MUSTENTER
  COMMENT LEGAL USE lbl_T3
  TYPE COMMENT
  BEFORE ENTRY
  IF (T1=2) THEN
   T3A2=1
   GOTO T3A3
  ENDIF
  END
END

T3A3
  TOPOFSCREEN 10
  MUSTENTER
  COMMENT LEGAL USE lbl_T3
  TYPE COMMENT
  BEFORE ENTRY
  IF (T1=3) THEN
   T3A3=1
   GOTO T3A4
  ENDIF
  END
END

T3A4
  TOPOFSCREEN 10
  MUSTENTER
  COMMENT LEGAL USE lbl_T3
  TYPE COMMENT
  BEFORE ENTRY
  IF (T1=4) THEN
   T3A4=1
   GOTO T3A5
  ENDIF
  END
END

T3A5
  TOPOFSCREEN 10
  MUSTENTER
  COMMENT LEGAL USE lbl_T3
  TYPE COMMENT
  BEFORE ENTRY
  IF (T1=5) THEN
   T3A5=1
   GOTO T3A6
  ENDIF
  END
END

T3A6
  TOPOFSCREEN 10
  MUSTENTER
  COMMENT LEGAL USE lbl_T3
  TYPE COMMENT
  BEFORE ENTRY
  IF (T1=6) THEN
   T3A6=1
   GOTO T3A7
  ENDIF
  END
END

T3A8
  TOPOFSCREEN 10
  MUSTENTER
  COMMENT LEGAL USE lbl_T3
  TYPE COMMENT
  BEFORE ENTRY
  IF (T1=8) THEN
   T3A8=1
   GOTO T3A9
  ENDIF
  END
END

T3A9
  TOPOFSCREEN 10
  MUSTENTER
  COMMENT LEGAL USE lbl_T3
  TYPE COMMENT
  BEFORE ENTRY
  IF (T1=9) THEN
   T3A9=1
   GOTO T3A10
  ENDIF
  END
END

T3A10
  TOPOFSCREEN 10
  MUSTENTER
  COMMENT LEGAL USE lbl_T3
  TYPE COMMENT
  BEFORE ENTRY
  IF (T1=10) THEN
   T3A10=1
   GOTO T3A11
  ENDIF
  END
END

T3A11
  TOPOFSCREEN 10
  MUSTENTER
  COMMENT LEGAL USE lbl_T3
  TYPE COMMENT
  BEFORE ENTRY
  IF (T1=11) THEN
   T3A11=1
   GOTO T3A12
  ENDIF
  END
END

T3A12
  TOPOFSCREEN 10
  MUSTENTER
  COMMENT LEGAL USE lbl_T3
  TYPE COMMENT
  BEFORE ENTRY
  IF (T1=12) THEN
   T3A12=1
   GOTO T3A13
  ENDIF
  END
END

T3A13
  TOPOFSCREEN 10
  MUSTENTER
  COMMENT LEGAL USE lbl_T3
  TYPE COMMENT
  BEFORE ENTRY
  IF (T1=13) THEN
   T3A13=1
   GOTO T3A14
  ENDIF
  END
END

T3A14
  TOPOFSCREEN 10
  MUSTENTER
  COMMENT LEGAL USE lbl_T3
  TYPE COMMENT
  BEFORE ENTRY
  IF (T1=14) THEN
   T3A14=1
   GOTO T4A1
  ENDIF
  END
END

T4A1
  TOPOFSCREEN 10
  MUSTENTER
  COMMENT LEGAL USE lbl_T4
  TYPE COMMENT
  IF (T4A1=1) AND (T3A1<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A1=2) AND (T3A2<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A1=3) AND (T3A3<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A1=4) AND (T3A4<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A1=5) AND (T3A5<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A1=6) AND (T3A6<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A1=7) AND (T3A7<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A1=8) AND (T3A8<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A1=9) AND (T3A9<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A1=10) AND (T3A10<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A1=11) AND (T3A11<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A1=12) AND (T3A12<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A1=13) AND (T3A13<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A1=14) AND (T3A14<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  let dupchk="n"
  let dupchk=dupchk or (t4a1=t4a2)
  let dupchk=dupchk or (t4a1=t4a3)
  let dupchk=dupchk or (t4a1=t4a4)
  let dupchk=dupchk or (t4a1=t4a5)
  let dupchk=dupchk and not isblank(t4a1)
  if dupchk then
  help "t4a1答案值@重复" type=warning
  clear
  goto
  endif
  if (t4a1<>98) then
   goto t4a2
  endif
END

t4a1q
  TOPOFSCREEN 10
  MUSTENTER
end

T4A2
  TOPOFSCREEN 10
  MUSTENTER
  COMMENT LEGAL USE lbl_T4
  TYPE COMMENT
  IF (T4A2=1) AND (T3A1<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A2=2) AND (T3A2<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A2=3) AND (T3A3<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A2=4) AND (T3A4<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A2=5) AND (T3A5<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A2=6) AND (T3A6<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A2=7) AND (T3A7<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A2=8) AND (T3A8<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A2=9) AND (T3A9<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A2=10) AND (T3A10<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A2=11) AND (T3A11<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A2=12) AND (T3A12<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A2=13) AND (T3A13<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A2=14) AND (T3A14<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  let dupchk="n"
  let dupchk=dupchk or (t4a2=t4a1)
  let dupchk=dupchk or (t4a2=t4a3)
  let dupchk=dupchk or (t4a2=t4a4)
  let dupchk=dupchk or (t4a2=t4a5)
  let dupchk=dupchk and not isblank(t4a2)
  if dupchk then
  help "t4a2答案值@重复" type=warning
  clear
  goto
  endif
  if (t4a2<>98) then
   goto t4a3
  endif
END

t4a2q
  TOPOFSCREEN 10
  MUSTENTER
end

T4A3
  TOPOFSCREEN 10
  COMMENT LEGAL USE lbl_T4
  TYPE COMMENT
  IF (T4A3=1) AND (T3A1<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A3=2) AND (T3A2<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A3=3) AND (T3A3<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A3=4) AND (T3A4<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A3=5) AND (T3A5<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A3=6) AND (T3A6<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A3=7) AND (T3A7<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A3=8) AND (T3A8<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A3=9) AND (T3A9<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A3=10) AND (T3A10<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A3=11) AND (T3A11<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A3=12) AND (T3A12<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A3=13) AND (T3A13<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A3=14) AND (T3A14<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
 if (t4a3=.) then
  goto t4a1p01
 endif
  let dupchk="n"
  let dupchk=dupchk or (t4a3=t4a2)
  let dupchk=dupchk or (t4a3=t4a1)
  let dupchk=dupchk or (t4a3=t4a4)
  let dupchk=dupchk or (t4a3=t4a5)
  let dupchk=dupchk and not isblank(t4a3)
  if dupchk then
  help "t4a3答案值@重复" type=warning
  clear
  goto
  endif
  if (t4a3<>98) then
   goto t4a4
  endif
END

t4a3q
  TOPOFSCREEN 10
  MUSTENTER
end

T4A4
  TOPOFSCREEN 10
  COMMENT LEGAL USE lbl_T4
  TYPE COMMENT
  IF (T4A4=1) AND (T3A1<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A4=2) AND (T3A2<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A4=3) AND (T3A3<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A4=4) AND (T3A4<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A4=5) AND (T3A5<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A4=6) AND (T3A6<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A4=7) AND (T3A7<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A4=8) AND (T3A8<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A4=9) AND (T3A9<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A4=10) AND (T3A10<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A4=11) AND (T3A11<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A4=12) AND (T3A12<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A4=13) AND (T3A13<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A4=14) AND (T3A14<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
 if (t4a4=.) then
  goto t4a1p01
 endif
  let dupchk="n"
  let dupchk=dupchk or (t4a4=t4a2)
  let dupchk=dupchk or (t4a4=t4a3)
  let dupchk=dupchk or (t4a4=t4a1)
  let dupchk=dupchk or (t4a4=t4a5)
  let dupchk=dupchk and not isblank(t4a4)
  if dupchk then
  help "t4a4答案值@重复" type=warning
  clear
  goto
  endif
  if (t4a4<>98) then
   goto t4a5
  endif
END

t4a4q
  TOPOFSCREEN 10
  MUSTENTER
end

T4A5
  TOPOFSCREEN 10
  COMMENT LEGAL USE lbl_T4
  TYPE COMMENT
  IF (T4A5=1) AND (T3A1<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A5=2) AND (T3A2<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A5=3) AND (T3A3<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A5=4) AND (T3A4<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A5=5) AND (T3A5<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A5=6) AND (T3A6<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A5=7) AND (T3A7<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A5=8) AND (T3A8<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A5=9) AND (T3A9<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A5=10) AND (T3A10<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A5=11) AND (T3A11<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A5=12) AND (T3A12<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A5=13) AND (T3A13<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  IF (T4A5=14) AND (T3A14<>1) THEN
  HELP "答案值@在t3中未选是" type=warning
  clear
  goto
  else
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
 if (t4a5=.) then
  goto t4a1p01
 endif
  let dupchk="n"
  let dupchk=dupchk or (t4a5=t4a2)
  let dupchk=dupchk or (t4a5=t4a3)
  let dupchk=dupchk or (t4a5=t4a4)
  let dupchk=dupchk or (t4a5=t4a1)
  let dupchk=dupchk and not isblank(t4a5)
  if dupchk then
  help "t4a5答案值@重复" type=warning
  clear
  goto
  endif
  if (t4a5<>98) then
   goto t4a1p01
  endif
END

t4a5q
  TOPOFSCREEN 10
  MUSTENTER
end


t4a1p01
  before entry
   if (t3a1=1) and (t4a1<>1) and (t4a2<>1) and (t4a3<>1) and (t4a4<>1) and (t4a5<>1) then
   help "t4品牌选择应有-上海大众" type=warning
   goto t4a1
   else
   if (t3a2=1) and (t4a1<>2) and (t4a2<>2) and (t4a3<>2) and (t4a4<>2) and (t4a5<>2) then
   help "t4品牌选择应有-一汽大众" type=warning
   goto t4a1
   else
   if (t3a3=1) and (t4a1<>3) and (t4a2<>3) and (t4a3<>3) and (t4a4<>3) and (t4a5<>3) then
   help "t4品牌选择应有-进口大众" type=warning
   goto t4a1
   ENDIF
   ENDIF
   ENDIF
   IF (T4A1<>T1) AND (T4A2<>T1) AND (T4A3<>T1) AND (T4A4<>T1) AND (T4A5<>T1) THEN
     HELP "T4品牌选择应有T1的值" type=warning
     goto t4a1
   endif
   if (t4a1=.) and (t4a2<>.) then
    help "t4品牌列表2输错位" type=warning
    goto t4a1
   else
   if (t4a2=.) and (t4a3<>.) then
    help "t4品牌列表2输错位" type=warning
    goto t4a2
   else
   if (t4a3=.) and (t4a4<>.) then
    help "t4品牌列表2输错位" type=warning
    goto t4a3
   else
   if (t4a4=.) and (t4a5<>.) then
    help "t4品牌列表2输错位" type=warning
    goto t4a4
   endif
   endif
   endif
   endif
  end    
  TOPOFSCREEN 10
  MUSTENTER
  range 1 5
  legal
  9
  end
end

t4a1p02
  TOPOFSCREEN 10
  MUSTENTER
  range 1 5
  legal
  9
  end
end

  评论这张
 
阅读(1614)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017