|
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _报到_被单击, , , 建立本场选手数据的数据库
写字段 (“选手名”, “数据”, 选手名.内容)
写字段 (“是否已报到”, “数据”, “1”)
写字段 (“是否已排位”, “数据”, “0”)
写字段 (“排位分”, “数据”, “0”)
.子程序 _按钮0_被单击, , , 录入排位成绩
查找 (读 (1) = 选手名.内容)
修改 (, 到整数 (排位分.内容), , “1”)
.子程序 _按3_被单击, , , 匹配
.参数 i
.参数 r
.参数 C
.参数 d
打开 (比赛名.内容, “数据”, , , , , )
i = 1
r = 到整数 (32 + 到整数 (外卡人数))
d = 0
排序 (比赛名.内容, “排位分”, 假, , )
.计次循环首 (r, )
跳到 (i)
写字段 (“排名”, “数据”, i)
i = i + 1
.计次循环尾 ()
C = 1
.计次循环首 (r, )
查找 (读 (5) = C)
.如果真 (C = 1)
钮1.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 2)
钮2.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 3)
钮3.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 4)
钮4.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 5)
钮5.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 6)
钮6.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 7)
钮7.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 8)
钮8.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 9)
钮9.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 10)
钮10.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 11)
钮11.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 12)
钮12.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 13)
钮13.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 14)
钮14.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 15)
钮15.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 16)
钮16.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 17)
钮17.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 18)
钮18.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 19)
钮19.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 20)
钮20.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 21)
钮21.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 22)
钮22.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 23)
钮23.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 24)
钮24.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 25)
钮25.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 26)
钮26.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 27)
钮27.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 28)
钮28.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 29)
钮29.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 30)
钮30.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 31)
钮31.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C = 32)
钮32.标题 = 读 (1)
C = C + 1
返回 ()
.如果真结束
.如果真 (C > 32)
.如果真 (d = 0)
外卡名单.标题 = 读 (1)
d = 1
返回 ()
.如果真结束
外卡名单.标题 = 外卡名单.标题 + #换行符 + 读 (1)
返回 ()
.如果真结束
返回 ()
.计次循环尾 ()
.子程序 _按钮1_被单击
.局部变量 a, 文本型
a = 编辑框2.内容
.如果真 (a = “1”)
钮1.标题 = 选手名.内容
.如果真结束
.如果真 (a = “2”)
钮2.标题 = 选手名.内容
.如果真结束
.如果真 (a = “3”)
钮3.标题 = 选手名.内容
.如果真结束
.如果真 (a = “4”)
钮4.标题 = 选手名.内容
.如果真结束
.如果真 (a = “5”)
钮5.标题 = 选手名.内容
.如果真结束
.如果真 (a = “6”)
钮6.标题 = 选手名.内容
.如果真结束
.如果真 (a = “7”)
钮7.标题 = 选手名.内容
.如果真结束
.如果真 (a = “8”)
钮8.标题 = 选手名.内容
.如果真结束
.如果真 (a = “9”)
钮9.标题 = 选手名.内容
.如果真结束
.如果真 (a = “10”)
钮10.标题 = 选手名.内容
.如果真结束
.如果真 (a = “11”)
钮11.标题 = 选手名.内容
.如果真结束
.如果真 (a = “12”)
钮12.标题 = 选手名.内容
.如果真结束
.如果真 (a = “13”)
钮13.标题 = 选手名.内容
.如果真结束
.如果真 (a = “14”)
钮14.标题 = 选手名.内容
.如果真结束
.如果真 (a = “15”)
钮15.标题 = 选手名.内容
.如果真结束
.如果真 (a = “16”)
钮16.标题 = 选手名.内容
.如果真结束
.如果真 (a = “17”)
钮17.标题 = 选手名.内容
.如果真结束
.如果真 (a = “18”)
钮18.标题 = 选手名.内容
.如果真结束
.如果真 (a = “19”)
钮19.标题 = 选手名.内容
.如果真结束
.如果真 (a = “20”)
钮20.标题 = 选手名.内容
.如果真结束
.如果真 (a = “21”)
钮21.标题 = 选手名.内容
.如果真结束
.如果真 (a = “22”)
钮22.标题 = 选手名.内容
.如果真结束
.如果真 (a = “23”)
钮23.标题 = 选手名.内容
.如果真结束
.如果真 (a = “24”)
钮24.标题 = 选手名.内容
.如果真结束
.如果真 (a = “25”)
钮25.标题 = 选手名.内容
.如果真结束
.如果真 (a = “26”)
钮26.标题 = 选手名.内容
.如果真结束
.如果真 (a = “27”)
钮27.标题 = 选手名.内容
.如果真结束
.如果真 (a = “28”)
钮28.标题 = 选手名.内容
.如果真结束
.如果真 (a = “29”)
钮29.标题 = 选手名.内容
.如果真结束
.如果真 (a = “30”)
钮30.标题 = 选手名.内容
.如果真结束
.如果真 (a = “31”)
钮31.标题 = 选手名.内容
.如果真结束
.如果真 (a = “32”)
钮32.标题 = 选手名.内容
.如果真结束
返回 ()
.子程序 _按2_被单击
打开 (比赛名.内容, , , , , , )
清空 ()
.子程序 _钮1_被单击
钮32161.标题 = 钮1.标题
.子程序 _钮32_被单击
钮32161.标题 = 钮32.标题
.子程序 _钮17_被单击
钮32162.标题 = 钮17.标题
.子程序 _钮16_被单击
钮32162.标题 = 钮16.标题
.子程序 _钮9_被单击
钮32163.标题 = 钮9.标题
.子程序 _钮24_被单击
钮32163.标题 = 钮24.标题
.子程序 _钮25_被单击
钮32164.标题 = 钮25.标题
.子程序 _钮8_被单击
钮32164.标题 = 钮8.标题
.子程序 _钮5_被单击
钮32165.标题 = 钮5.标题
.子程序 _钮28_被单击
钮32165.标题 = 钮28.标题
.子程序 _钮21_被单击
钮32166.标题 = 钮21.标题
.子程序 _钮12_被单击
钮32166.标题 = 钮12.标题
.子程序 _钮13_被单击
钮32167.标题 = 钮13.标题
.子程序 _钮20_被单击
钮32167.标题 = 钮20.标题
.子程序 _钮29_被单击
钮32168.标题 = 钮29.标题
.子程序 _钮4_被单击
钮32168.标题 = 钮4.标题
.子程序 _钮3_被单击
钮32169.标题 = 钮3.标题
.子程序 _钮30_被单击
钮32169.标题 = 钮30.标题
.子程序 _钮19_被单击
钮321610.标题 = 钮19.标题
.子程序 _钮14_被单击
钮321610.标题 = 钮14.标题
.子程序 _钮11_被单击
钮321611.标题 = 钮11.标题
.子程序 _钮22_被单击
钮321611.标题 = 钮22.标题
.子程序 _钮27_被单击
钮321612.标题 = 钮27.标题
.子程序 _钮6_被单击
钮321612.标题 = 钮6.标题
.子程序 _钮7_被单击
钮321613.标题 = 钮7.标题
.子程序 _钮26_被单击
钮321613.标题 = 钮26.标题
.子程序 _钮23_被单击
钮321614.标题 = 钮23.标题
.子程序 _钮10_被单击
钮321614.标题 = 钮10.标题
.子程序 _钮15_被单击
钮321615.标题 = 钮15.标题
.子程序 _钮18_被单击
钮321615.标题 = 钮18.标题
.子程序 _钮31_被单击
钮321616.标题 = 钮31.标题
.子程序 _钮2_被单击
钮321616.标题 = 钮2.标题
.子程序 _钮32161_被单击
钮1681.标题 = 钮32161.标题
.子程序 _钮32162_被单击
钮1681.标题 = 钮32162.标题
.子程序 _钮32163_被单击
钮1682.标题 = 钮32163.标题
.子程序 _钮32164_被单击
钮1682.标题 = 钮32164.标题
.子程序 _钮32165_被单击
钮1683.标题 = 钮32165.标题
.子程序 _钮32166_被单击
钮1683.标题 = 钮32166.标题
.子程序 _钮32167_被单击
钮1684.标题 = 钮32167.标题
.子程序 _钮32168_被单击
钮1684.标题 = 钮32168.标题
.子程序 _钮32169_被单击
钮1685.标题 = 钮32169.标题
.子程序 _钮321610_被单击
钮1685.标题 = 钮321610.标题
.子程序 _钮321611_被单击
钮1686.标题 = 钮321611.标题
.子程序 _钮321612_被单击
钮1686.标题 = 钮321612.标题
.子程序 _钮321613_被单击
钮1687.标题 = 钮321613.标题
.子程序 _钮321614_被单击
钮1687.标题 = 钮321614.标题
.子程序 _钮321615_被单击
钮1688.标题 = 钮321615.标题
.子程序 _钮321616_被单击
钮1688.标题 = 钮321616.标题
.子程序 _钮1681_被单击
钮841.标题 = 钮1681.标题
.子程序 _钮1682_被单击
钮841.标题 = 钮1682.标题
.子程序 _钮1683_被单击
钮842.标题 = 钮1683.标题
.子程序 _钮1684_被单击
钮842.标题 = 钮1684.标题
.子程序 _钮1685_被单击
钮843.标题 = 钮1685.标题
.子程序 _钮1686_被单击
钮843.标题 = 钮1686.标题
.子程序 _钮1687_被单击
钮844.标题 = 钮1687.标题
.子程序 _钮1688_被单击
钮844.标题 = 钮1688.标题
.子程序 _钮841_被单击
钮41.标题 = 钮841.标题
钮43.标题 = 钮842.标题
.子程序 _钮842_被单击
钮41.标题 = 钮842.标题
钮43.标题 = 钮841.标题
.子程序 _钮843_被单击
钮42.标题 = 钮843.标题
钮44.标题 = 钮844.标题
.子程序 _钮844_被单击
钮42.标题 = 钮844.标题
钮44.标题 = 钮843.标题
.子程序 _钮41_被单击
冠军标签.标题 = “冠军:” + 钮41.标题
冠军标签1.标题 = “亚军:” + 钮42.标题
.子程序 _钮42_被单击
冠军标签.标题 = “冠军:” + 钮42.标题
冠军标签1.标题 = “亚军:” + 钮41.标题
.子程序 _钮43_被单击
冠军标签2.标题 = “季军:” + 钮43.标题
冠军标签3.标题 = “殿军:” + 钮44.标题
.子程序 _钮44_被单击
冠军标签2.标题 = “季军:” + 钮44.标题
冠军标签3.标题 = “殿军:” + 钮43.标题
.子程序 _创建_被单击
.参数 字段, 字段信息, 数组
字段 [1].名称 = “选手名”
字段 [1].类型 = #文本型
字段 [1].最大文本长度 = 20
字段 [2].名称 = “排位分”
字段 [2].类型 = #整数型
字段 [2].最大文本长度 = 20
字段 [3].名称 = “是否已报到”
字段 [3].类型 = #整数型
字段 [3].最大文本长度 = 20
字段 [4].名称 = “是否已排位”
字段 [4].类型 = #整数型
字段 [4].最大文本长度 = 20
字段 [5].名称 = “排名”
字段 [5].类型 = #整数型
字段 [5].最大文本长度 = 20
创建 (取运行目录 () + “\” + 到文本 (比赛名.内容) + “.edb”, 字段)
打开 (取运行目录 () + “\” + 到文本 (比赛名.内容) + “.edb”, “数据”, , , , , )
|
|