.版本 2
.常量 khxx, "“khxx”"
.常量 客户姓名, "“客户姓名”"
.常量 客户地址, "“客户地址”"
.常量 联系方式, "“联系方式”"
.常量 欠款金额, "“欠款金额”"
.常量 备注信息, "“备注信息”"
.常量 czjl, "“czjl”"
.常量 记录单号, "“记录单号”"
.常量 操作日期, "“操作日期”"
.常量 客户名称, "“客户名称”"
.常量 操作金额, "“操作金额”"
.常量 操作备注, "“操作备注”"
‘==========================================================================
.版本 2
.程序集 添加窗口程序集
.子程序 _添加按钮_被单击
.局部变量 是否重复, 逻辑型
.判断开始 (删全部空 (编辑框1.内容) ＝ “”)
信息框 (“添加失败，客户姓名不可为空！”, 0, “警告！”)
编辑框1.获取焦点 ()
.判断 (删全部空 (编辑框2.内容) ＝ “”)
信息框 (“添加失败，客户地址不可为空！”, 0, “警告！”)
编辑框2.获取焦点 ()
.判断 (删全部空 (编辑框3.内容) ＝ “”)
信息框 (“添加失败，联系方式不可为空！”, 0, “警告！”)
编辑框3.获取焦点 ()
.判断 (删全部空 (编辑框4.内容) ＝ “”)
信息框 (“添加失败，备注信息不可为空！”, 0, “警告！”)
编辑框4.获取焦点 ()
.默认
是否重复 ＝ 假
置当前库 (“khxx”)
到首记录 ()
.判断循环首 (尾记录后 () ＝ 假)
.如果真 (读 (#客户姓名) ＝ 删全部空 (编辑框1.内容))
是否重复 ＝ 真
信息框 (“添加失败，当前添加的客户姓名已存在！”, 0, “警告！”)
跳出循环 ()
.如果真结束
跳过 ()
.判断循环尾 ()
.如果真 (是否重复 ＝ 假)
加空记录 ()
写 (#客户姓名, 删全部空 (编辑框1.内容))
写 (#客户地址, 删全部空 (编辑框2.内容))
写 (#联系方式, 删全部空 (编辑框3.内容))
写 (#备注信息, 删全部空 (编辑框4.内容))
加入客户信息 ()
信息框 (“当前客户信息添加成功！”, 0, “提示！”)
销毁 ()
.如果真结束
.判断结束
.子程序 _编辑框4_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 ＝ #回车键)
_添加按钮_被单击 ()
’============================================================
.版本 2
.程序集 选择窗口程序集
.子程序 _选择客户_创建完毕
列表框1.清空 ()
置当前库 (“khxx”)
到首记录 ()
.判断循环首 (尾记录后 () ＝ 假)
.如果真 (读 (#客户姓名) ≠ “”)
列表框1.加入项目 (读 (#客户姓名), )
.如果真结束
跳过 ()
.判断循环尾 ()
.子程序 _列表框1_双击选择
.如果真 (列表框1.现行选中项 ＞ -1)
.判断开始 (操作状态 ＝ 真)
查询窗口.编辑框2.内容 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
.默认
修改窗口.编辑框1.内容 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
修改窗口.编辑框2.内容 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
.判断结束
销毁 ()
.如果真结束
.子程序 _编辑框1_内容被改变
.如果真 (删全部空 (编辑框1.内容) ≠ “”)
列表框1.清空 ()
置当前库 (“khxx”)
到首记录 ()
.判断循环首 (尾记录后 () ＝ 假)
.如果真 (寻找文本 (读 (#客户姓名), 删全部空 (编辑框1.内容), , 假) ＞ 0)
列表框1.加入项目 (读 (#客户姓名), )
.如果真结束
跳过 ()
.判断循环尾 ()
.如果真结束
‘===============================================================
.版本 2
.支持库 iext
.子程序 打开所有数据库
.如果真 (打开 (取运行目录 () ＋ “\data\khxx.edb”, , , , , “M2CRJGC”, ) ＝ 假)
信息框 (“打开失败，无法打开数据库，程序即将退出！”, 0, “警告！”)
全部关闭 ()
结束 ()
.如果真结束
.如果真 (打开 (取运行目录 () ＋ “\data\czjl.edb”, , , , , “M2CRJGC”, ) ＝ 假)
信息框 (“打开失败，无法打开数据库，程序即将退出！”, 0, “警告！”)
全部关闭 ()
结束 ()
.如果真结束
.子程序 加入客户信息
.局部变量 索引, 整数型
.局部变量 实际欠款, 小数型
.局部变量 实际付款, 小数型
显示列表.全部删除 ()
置当前库 (“khxx”)
到首记录 ()
.判断循环首 (尾记录后 () ＝ 假)
.如果真 (读 (#客户姓名) ≠ “”)
索引 ＝ 显示列表.插入表项 (-1, , , , , )
显示列表.置标题 (索引, 0, 读 (#客户姓名))
显示列表.置标题 (索引, 1, 读 (#客户地址))
显示列表.置标题 (索引, 2, 读 (#联系方式))
显示列表.置标题 (索引, 3, 到文本 (读 (#欠款金额)))
显示列表.置标题 (索引, 4, 读 (#备注信息))
.判断开始 (到小数 (读 (#欠款金额)) ＞ 0)
实际欠款 ＝ 实际欠款 ＋ 读 (#欠款金额)
.默认
实际付款 ＝ 实际付款 ＋ 读 (#欠款金额)
.判断结束
.如果真结束
跳过 ()
.判断循环尾 ()
信息提示.置文本 (0, “●累计应付￥:” ＋ 到文本 (实际付款) ＋ “元 ●累计应收￥:” ＋ 到文本 (实际欠款) ＋ “元”)
温馨提示：答案为网友推荐，仅供参考