长江航道里程查询

【实例截图】

【核心代码】

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

打开 (取运行目录 () ＋ “\lc.edb”, , , , , , )
到首记录 ()
.判断循环首 (尾记录后 () ＝ 假)
    组合框1.加入项目 (读 (“地名”), )
    跳过 ()
.判断循环尾 ()

打开 (取运行目录 () ＋ “\lc.edb”, , , , , , )
到首记录 ()
.判断循环首 (尾记录后 () ＝ 假)
    组合框2.加入项目 (读 (“地名”), )
    跳过 ()
.判断循环尾 ()


.子程序 _组合框1_列表项被选择


.如果真 (组合框1.现行选中项 ＞ -1)
    A ＝ 组合框1.现行选中项
    跳到 (A ＋ 1)
    起里程 ＝ 读 (“里程”)

    标签3.标题 ＝ “距上海” ＋ 到文本 (起里程) ＋ “公里”
    C ＝ 取绝对值 (止里程 － 起里程)
    标签5.标题 ＝ 到文本 (C) ＋ “公里”

.如果真结束

标签3.标题 ＝ “距上海” ＋ 到文本 (读 (“里程”)) ＋ “公里”
C ＝ 取绝对值 (止里程 － 起里程)
标签5.标题 ＝ 到文本 (C) ＋ “公里”


.子程序 _组合框2_列表项被选择

.如果真 (组合框2.现行选中项 ＞ -1)
    B ＝ 组合框2.现行选中项
    跳到 (B ＋ 1)
    止里程 ＝ 读 (“里程”)
    标签4.标题 ＝ “距上海” ＋ 到文本 (止里程) ＋ “公里”
    C ＝ 取绝对值 (止里程 － 起里程)
    标签5.标题 ＝ 到文本 (C) ＋ “公里”

.如果真结束

标签4.标题 ＝ “距上海” ＋ 到文本 (读 (“里程”)) ＋ “公里”
C ＝ 取绝对值 (止里程 － 起里程)
标签5.标题 ＝ 到文本 (C) ＋ “公里”


.子程序 _转换1_被单击

.如果 (节编辑框.内容 ＝ “”)
    .如果 (公里编辑框.内容 ＝ “”)
        标签15.标题 ＝ “请输入节数据或公里数据”
    .否则
        节编辑框.内容 ＝ 到文本 (四舍五入 (到小数 (公里编辑框.内容) ÷ 1.852, 2))
        转换1.可视 ＝ 假
        清除按钮.可视 ＝ 真

    .如果结束

.否则

    公里编辑框.内容 ＝ 到文本 (四舍五入 (到小数 (节编辑框.内容) × 1.852, 2))
    转换1.可视 ＝ 假
    清除按钮.可视 ＝ 真

    标签15.标题 ＝ “转换完成”
.如果结束



.子程序 _清除按钮_被单击

节编辑框.内容 ＝ “”
公里编辑框.内容 ＝ “”
清除按钮.可视 ＝ 假
转换1.可视 ＝ 真
标签15.标题 ＝ “请输入速度数据”


.子程序 _按钮1_被单击

D ＝ 到小数 (公里编辑框.内容)
.如果 (D ＝ 0)
    标签11.标题 ＝ “请输入速度公里数”

.否则
    .如果 (C ＝ 0)
        标签11.标题 ＝ “请输入起止港信息”
    .否则
        标签11.标题 ＝ “根据当前两地距离和船舶速度计算航行时间”
        E ＝ C ÷ D
        小时数.标题 ＝ 到文本 (四舍五入 (E, 0))
        天数.标题 ＝ 到文本 (四舍五入 (E ÷ 24, 0))
        到达时间.标题 ＝ 到文本 (取年份 (增减时间 (取现行时间 (), #小时, 四舍五入 (E, 0)))) ＋ “年” ＋ 到文本 (取月份 (增减时间 (取现行时间 (), #小时, 四舍五入 (E, 0)))) ＋ “月” ＋ 到文本 (取日 (增减时间 (取现行时间 (), #小时, 四舍五入 (E, 0)))) ＋ “日” ＋ 到文本 (取小时 (增减时间 (取现行时间 (), #小时, 四舍五入 (E, 0)))) ＋ “时”

    .如果结束


' 本软件系wangpan0923原创，电子邮箱地址“wangpan0923@163.com",供大家学习参考，严禁转载或用于商业用途。