|
|

| 窗口程序集名 | 保 留 | 保 留 | 备 注 | | 窗口程序集_启动窗口 | | | | | 变量名 | 类 型 | 数组 | 备 注 | | 程序集_人员信息 | 数据类型_人员信息 | 0 | | 程序集_数组当前成员 | 整数型 | | | 程序集_字段名数组 | 文本型 | 0 | | 程序集_字段宽度数组 | 整数型 | 0 | | 程序集_表格数据 | 文本型 | | | 程序集_总页数 | 整数型 | | | 程序集_结束位置 | 整数型 | | | 程序集_开始位置 | 整数型 | | | 程序集_当前页码 | 整数型 | |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | | 局部_差补 | 整数型 | | | | 局部_变量 | 整数型 | | | | 局部_出现次数 | 整数型 | | | | 局部_序号 | 文本型 | | |
局部_差补 = 选择 (取时间间隔 (取现行时间 (), 日期框_出生日期.今天, #月份 ) % 12 ≥ 6, 1, 0 )编辑框_年龄本人.内容 = 到文本 (取时间间隔 (取现行时间 (), 日期框_出生日期.今天, #年份 ) + 局部_差补 ) + 选择 (取时间间隔 (取现行时间 (), 日期框_出生日期.今天, #月份 ) % 12 ≥ 6, “岁半”, “岁”) 计次循环首 (取数组成员数 (程序集_人员信息 ), 局部_变量 ) 如果真 (时间到文本 (程序集_人员信息 [局部_变量 ].出生日期, #日期部分 ) = 时间到文本 (日期框_出生日期.今天, #日期部分 ))   局部_出现次数 = 局部_出现次数 + 1   计次循环尾 ()局部_序号 = 取重复文本 (3 - 取文本长度 (到文本 (局部_出现次数 + 1 )), “0”) + 到文本 (局部_出现次数 + 1 )编辑框_sfz.内容 = “242226” + 到文本 (取年份 (日期框_出生日期.今天 )) + 取重复文本 (2 - 取文本长度 (到文本 (取月份 (日期框_出生日期.今天 )) ), “0”) + 到文本 (取月份 (日期框_出生日期.今天 )) + 取重复文本 (2 - 取文本长度 (到文本 (取日 (日期框_出生日期.今天 )) ), “0”) + 到文本 (取日 (日期框_出生日期.今天 )) + 局部_序号 + 选择 (组合框_性别_本人.内容 = “男”, “0”, “x”)子程序_添加人员信息 ()_日期框_出生日期_选择日期被改变 ()子程序_生成表格 ()程序集_表格数据 = #常量_左上角 计次循环首 (取数组成员数 (程序集_字段名数组 ), 局部_变量 )  判断 (局部_变量 = 取数组成员数 (程序集_字段名数组 ))   程序集_表格数据 = 程序集_表格数据 + 取重复文本 (程序集_字段宽度数组 [局部_变量 ], #常量_横线 )  程序集_表格数据 = 程序集_表格数据 + 取重复文本 (程序集_字段宽度数组 [局部_变量 ], #常量_横线 ) + #常量_下边   计次循环尾 ()程序集_表格数据 = 程序集_表格数据 + #常量_右上角 + #换行符 程序集_表格数据 = 程序集_表格数据 + #常量_竖线 计次循环首 (取数组成员数 (程序集_字段名数组 ), 局部_变量 ) 程序集_表格数据 = 程序集_表格数据 + 程序集_字段名数组 [局部_变量 ] + 取空白文本 (程序集_字段宽度数组 [局部_变量 ] × 2 - 取文本长度 (程序集_字段名数组 [局部_变量 ])) + #常量_竖线 计次循环尾 ()程序集_表格数据 = 程序集_表格数据 + #换行符 子程序_计算列宽 ()子程序_生成表头顶部 ()调试输出 (取数组成员数 (程序集_人员信息 )) 如果真 (取数组成员数 (程序集_人员信息 ) ≠ 0 ) 子程序_填充人员数据 ()子程序_生成表格底部 ()编辑框_结果.内容 = 程序集_表格数据 编辑框_结果. 加入文本 ( #换行符 + “当前位置:” + 到文本 (程序集_结束位置 - 程序集_开始位置 + 1 ) + “/” + 到文本 (取数组成员数 (程序集_人员信息 )) + “当前页码:” + 到文本 (程序集_当前页码 ) + “/” + 到文本 (程序集_总页数 )) | 变量名 | 类 型 | 静态 | 数组 | 备 注 | | 局部_变量 | 整数型 | | | | 局部_变量1 | 整数型 | | | | 局部_临时次数 | 整数型 | | |
程序集_开始位置 = (程序集_当前页码 - 1 ) × #常量_每页行数 + 1 程序集_结束位置 = 程序集_开始位置 + #常量_每页行数 - 1 如果真 (程序集_开始位置 ≤ 0 或 程序集_开始位置 > 取数组成员数 (程序集_人员信息 )) 返回 () 如果真 (程序集_结束位置 > 取数组成员数 (程序集_人员信息 ))  程序集_结束位置 = 取数组成员数 (程序集_人员信息 ) 变量循环首 (程序集_开始位置, 程序集_结束位置, 1, 局部_变量 ) 子程序_生成表格中线 () 程序集_表格数据 = 程序集_表格数据 + #常量_竖线  程序集_表格数据 = 程序集_表格数据 + 程序集_人员信息 [局部_变量 ].sfz号 + 取空白文本 (程序集_字段宽度数组 [1 ] × 2 - 取文本长度 (程序集_人员信息 [局部_变量 ].sfz号 )) + #常量_竖线  程序集_表格数据 = 程序集_表格数据 + 程序集_人员信息 [局部_变量 ].本人姓名 + 取空白文本 (程序集_字段宽度数组 [2 ] × 2 - 取文本长度 (程序集_人员信息 [局部_变量 ].本人姓名 )) + #常量_竖线  程序集_表格数据 = 程序集_表格数据 + 选择 (程序集_人员信息 [局部_变量 ].本人性别, “男”, “女”) + 取空白文本 (程序集_字段宽度数组 [3 ] × 2 - 取文本长度 (选择 (程序集_人员信息 [局部_变量 ].本人性别, “男”, “女”)) ) + #常量_竖线  程序集_表格数据 = 程序集_表格数据 + 程序集_人员信息 [局部_变量 ].籍贯 + 取空白文本 (程序集_字段宽度数组 [4 ] × 2 - 取文本长度 (程序集_人员信息 [局部_变量 ].籍贯 )) + #常量_竖线  程序集_表格数据 = 程序集_表格数据 + 程序集_人员信息 [局部_变量 ].现居住地 + 取空白文本 (程序集_字段宽度数组 [5 ] × 2 - 取文本长度 (程序集_人员信息 [局部_变量 ].现居住地 )) + #常量_竖线  局部_临时次数 = 0  计次循环首 (2, 局部_变量1 )  如果真 (程序集_人员信息 [局部_变量 ].家庭成员 [局部_变量1 ].姓名 ≠ “”)   局部_临时次数 = 局部_临时次数 + 1     计次循环尾 () 程序集_表格数据 = 程序集_表格数据 + 到文本 (局部_临时次数 ) + 取空白文本 (程序集_字段宽度数组 [6 ] × 2 - 取文本长度 (到文本 (局部_临时次数 )) ) + #常量_竖线 + #换行符 变量循环尾 ()程序集_表格数据 = 程序集_表格数据 + #常量_左下角 计次循环首 (取数组成员数 (程序集_字段名数组 ), 局部_变量 ) 判断 (局部_变量 = 取数组成员数 (程序集_字段名数组 ))   程序集_表格数据 = 程序集_表格数据 + 取重复文本 (程序集_字段宽度数组 [局部_变量 ], #常量_横线 )  程序集_表格数据 = 程序集_表格数据 + 取重复文本 (程序集_字段宽度数组 [局部_变量 ], #常量_横线 ) + #常量_上边   计次循环尾 ()程序集_表格数据 = 程序集_表格数据 + #常量_右下角 + #换行符 | 变量名 | 类 型 | 静态 | 数组 | 备 注 | | 局部_变量 | 整数型 | | | | 局部_临时宽度 | 整数型 | | |
计次循环首 (取数组成员数 (程序集_字段名数组 ), 局部_变量 )  判断 (取文本长度 (程序集_字段名数组 [局部_变量 ]) % 2 ≠ 0 ) 加入成员 (程序集_字段宽度数组, 取整 (取文本长度 (程序集_字段名数组 [局部_变量 ]) ÷ 2 + 1 ))  加入成员 (程序集_字段宽度数组, 取整 (取文本长度 (程序集_字段名数组 [局部_变量 ]) ÷ 2 ))    计次循环尾 () 计次循环首 (取数组成员数 (程序集_人员信息 ), 局部_变量 ) 判断 (取文本长度 (程序集_人员信息 [局部_变量 ].sfz号 ) % 2 ≠ 0 )  局部_临时宽度 = 取整 (取文本长度 (程序集_人员信息 [局部_变量 ].sfz号 ) ÷ 2 ) + 1   局部_临时宽度 = 取整 (取文本长度 (程序集_人员信息 [局部_变量 ].sfz号 ) ÷ 2 ) 如果真 (局部_临时宽度 > 程序集_字段宽度数组 [1 ])  程序集_字段宽度数组 [1 ] = 局部_临时宽度  判断 (取文本长度 (程序集_人员信息 [局部_变量 ].本人姓名 ) % 2 ≠ 0 )  局部_临时宽度 = 取整 (取文本长度 (程序集_人员信息 [局部_变量 ].本人姓名 ) ÷ 2 ) + 1   局部_临时宽度 = 取整 (取文本长度 (程序集_人员信息 [局部_变量 ].本人姓名 ) ÷ 2 ) 如果真 (局部_临时宽度 > 程序集_字段宽度数组 [2 ])  程序集_字段宽度数组 [2 ] = 局部_临时宽度  判断 (取文本长度 (到文本 (程序集_人员信息 [局部_变量 ].本人性别 )) % 2 ≠ 0 )  局部_临时宽度 = 取整 (取文本长度 (到文本 (程序集_人员信息 [局部_变量 ].本人性别 )) ÷ 2 ) + 1     局部_临时宽度 = 取整 (取文本长度 (到文本 (程序集_人员信息 [局部_变量 ].本人性别 )) ÷ 2 ) 如果真 (局部_临时宽度 > 程序集_字段宽度数组 [3 ])  程序集_字段宽度数组 [3 ] = 局部_临时宽度  判断 (取文本长度 (程序集_人员信息 [局部_变量 ].籍贯 ) % 2 ≠ 0 )  局部_临时宽度 = 取整 (取文本长度 (程序集_人员信息 [局部_变量 ].籍贯 ) ÷ 2 ) + 1   局部_临时宽度 = 取整 (取文本长度 (程序集_人员信息 [局部_变量 ].籍贯 ) ÷ 2 ) 如果真 (局部_临时宽度 > 程序集_字段宽度数组 [4 ])  程序集_字段宽度数组 [4 ] = 局部_临时宽度  判断 (取文本长度 (程序集_人员信息 [局部_变量 ].现居住地 ) % 2 ≠ 0 )  局部_临时宽度 = 取整 (取文本长度 (程序集_人员信息 [局部_变量 ].现居住地 ) ÷ 2 ) + 1   局部_临时宽度 = 取整 (取文本长度 (程序集_人员信息 [局部_变量 ].现居住地 ) ÷ 2 ) 如果真 (局部_临时宽度 > 程序集_  [e=6][/e]
|
|