| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
| 变量名 | 类 型 | 数组 | 备 注 |
| 导出字段数组 | 文本型 | 0 |
导出字段数组 ＝
{ “1”,
“学生姓名”,
“2”,
“学籍号”,
“3”,
“***件号”,
“4”,
“性别”,
“5”,
“籍贯”,
“6”,
“民族”,
“7”,
“家庭地址”,
“8”,
“联系电话”,
“9”,
“学校名称”,
“10”,
“学校标识码”,
“11”,
“出生日期”,
“12”,
“出生地”,
“13”,
“国籍地区”,
“14”,
“***件类型”,
“15”,
“年级”,
“16”,
“班级”,
“17”,
“港澳台侨外”,
“18”,
“政治面貌”,
“19”,
“健康状况”,
“20”,
“户口所在地”,
“21”,
“户口性质”,
“22”,
“入学年月”,
“23”,
“入学方式”,
“24”,
“就读方式”,
“25”,
“现住址”,
“26”,
“通讯地址”,
“27”,
“家庭住址”,
“28”,
“邮政编码”,
“29”,
“是否进城务工人员子女”,
“30”,
“是否独生子女”,
“31”,
“是否受过学前教育”,
“32”,
“是否留守儿童”,
“33”,
“是否孤儿”,
“34”,
“是否烈士优抚子女”,
“35”,
“是否需要申请资助”,
“36”,
“是否享受一补”,
“37”,
“学籍辅号”,
“38”,
“班内学号”,
“39”,
“学生来源”,
“40”,
“随班就读”,
“41”,
“残疾类型”,
“42”,
“家庭成员姓名”,
“43”,
“家庭成员关系”,
“44”,
“家庭成员工作单位”,
“45”,
“家庭成员现住址”,
“46”,
“家庭成员户口所在地”,
“47”,
“家庭成员联系电话” }重定义数组 (导出字段数组, 真,
取数组成员数 (导出字段数组
) ÷ 2, 2
)列表框_待选字段.
清空 ()
计次循环首 (取数组成员数 (导出字段数组
) ÷ 2 － 10, 计次变量
)
列表框_待选字段.
加入项目 (导出字段数组
[计次变量 ＋ 10
] [2
],
到数值 (导出字段数组
[计次变量 ＋ 10
] [1
]))
计次循环尾 ()计次循环首 (10, 计次变量
)列表框_已选字段.
加入项目 (导出字段数组
[计次变量
] [2
],
到数值 (导出字段数组
[计次变量
] [1
]))
计次循环尾 ()| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| i | 整数型 | | |
| xzxms | 整数型 | | |
| xzxm | 整数型 | | 0 |
xzxms ＝ _启动窗口.列表框_待选字段.
取已选择项目数 ()xzxm ＝ _启动窗口.列表框_待选字段.
取所有被选择项目 ()
如果真 (xzxms ≥ 1
)计次循环首 (xzxms, i
)_启动窗口.列表框_已选字段.
加入项目 (列表框_待选字段.
取项目文本 (xzxm
[i
]), 列表框_待选字段.
取项目数值 (xzxm
[i
]))
计次循环尾 ()_启动窗口.列表框_已选字段.
重画 ()计次循环首 (xzxms, i
)_启动窗口.列表框_待选字段.
删除项目 (xzxm
[i
] － i ＋ 1
)_启动窗口.列表框_待选字段.
重画 ()计次循环尾 ()
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| qxzxms | 整数型 | | |
| qxzxm | 整数型 | | 0 |
| i | 整数型 | | |
qxzxms ＝ _启动窗口.列表框_已选字段.
取已选择项目数 ()qxzxm ＝ _启动窗口.列表框_已选字段.
取所有被选择项目 ()如果真 (qxzxms ≥ 1
)计次循环首 (qxzxms, i
)_启动窗口.列表框_待选字段.
加入项目 (列表框_已选字段.
取项目文本 (qxzxm
[i
]), 列表框_已选字段.
取项目数值 (qxzxm
[i
]))
计次循环尾 ()_启动窗口.列表框_待选字段.
重画 ()计次循环首 (qxzxms, i
)_启动窗口.列表框_已选字段.
删除项目 (qxzxm
[i
] － i ＋ 1
)_启动窗口.列表框_已选字段.
重画 ()计次循环尾 ()| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| xzxms | 整数型 | | |
| xzxm | 整数型 | | 0 |
| i | 整数型 | | |
| xmwb | 文本型 | | |
| xmsz | 整数型 | | |
xzxms ＝ _启动窗口.列表框_已选字段.
取已选择项目数 ()xzxm ＝ _启动窗口.列表框_已选字段.
取所有被选择项目 ()如果真 (xzxms ＝ 1
)计次循环首 (xzxms, i
)xmwb ＝ _启动窗口.列表框_已选字段.
取项目文本 (xzxm
[i
])xmsz ＝ _启动窗口.列表框_已选字段.
取项目数值 (xzxm
[i
])如果真 (xzxm
[i
] ＞ 0
)_启动窗口.列表框_已选字段.
删除项目 (xzxm
[i
])_启动窗口.列表框_已选字段.
插入项目 (xzxm
[i
] － 1, xmwb, xmsz
)_启动窗口.列表框_已选字段.
重画 ()_启动窗口.列表框_已选字段.
选择项目 (xzxm
[i
] － 1,
真)计次循环尾 ()| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| n | 整数型 | | |
| i | 整数型 | | |
| xzzd | 文本型 | | |
n ＝ _启动窗口.列表框_已选字段.
取项目数 ()计次循环首 (n, i
)xzzd ＝ xzzd ＋
“,” ＋ _启动窗口.列表框_已选字段.
取项目文本 (i － 1
)计次循环尾 ()调试输出 (xzzd
)| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| xzxms | 整数型 | | |
| xzxm | 整数型 | | 0 |
| i | 整数型 | | |
| xmwb | 文本型 | | |
| xmsz | 整数型 | | |
xzxms ＝ _启动窗口.列表框_已选字段.
取已选择项目数 ()xzxm ＝ _启动窗口.列表框_已选字段.
取所有被选择项目 ()如果真 (xzxms ＝ 1
)计次循环首 (xzxms, i
)xmwb ＝ _启动窗口.列表框_已选字段.
取项目文本 (xzxm
[i
])xmsz ＝ _启动窗口.列表框_已选字段.
取项目数值 (xzxm
[i
])调试输出 (xmwb, xmsz
)如果真 (xzxm
[i
] ＋ 1 ＜ _启动窗口.列表框_已选字段.
取项目数 ())
_启动窗口.列表框_已选字段.
删除项目 (xzxm
[i
])_启动窗口.列表框_已选字段.
插入项目 (xzxm
[i
] ＋ 1, xmwb, xmsz
)_启动窗口.列表框_已选字段.
重画 ()_启动窗口.列表框_已选字段.
选择项目 (xzxm
[i
] ＋ 1,
真)计次循环尾 ()
列表框.e
(17.02 KB, 下载次数: 32)
