软件的单号生成问题 数据库是access

jerboa

[e].版本 2
.支持库 eDB

.子程序 处理单据编号, 文本型, , 单型：1=销售、2=？？
.参数 日期, 文本型
.参数 单型, 整数型
.局部变量 单据编号, 文本型
.局部变量 方式, 文本型
.局部变量 编号, 文本型

.判断开始 (单型 ＝ 1)
    方式 ＝ “XS”  ' 销售
.判断 (单型 ＝ 2 或 单型 ＝ 3)
    方式 ＝ “XD”  ' 销售订单
.判断 (单型 ＝ 5)
    方式 ＝ “KZ”
.判断 (单型 ＜ 1 或 单型 ＞ 9)
    信息框 (“单型错误，请联系管理员解决！”, 0, )
    方式 ＝ “”
.默认

.判断结束
编号 ＝ “0001”
单据编号 ＝ 方式 ＋ 日期 ＋ 编号
记录集.打开 (“SELECT 单据管理.单据编号 FROM 单据管理 WHERE (((单据管理.单据编号) = '” ＋ 单据编号 ＋ “'));”, #SQL语句, )
.判断循环首 (记录集.记录数量 ＞ 0)
    记录集.关闭 ()
    编号 ＝ 处理仨零 (到文本 (到整数 (编号) ＋ 1))
    单据编号 ＝ 方式 ＋ 日期 ＋ 编号
    记录集.打开 (“SELECT 单据管理.单据编号 FROM 单据管理 WHERE (((单据管理.单据编号) = '” ＋ 单据编号 ＋ “'));”, #SQL语句, )
.判断循环尾 ()
记录集.关闭 ()
返回 (单据编号)

.子程序 处理仨零, 文本型
.参数 文本, 文本型

.如果真 (到整数 (文本) ≥ 0 且 到整数 (文本) ＜ 10)
    文本 ＝ “000” ＋ 文本
.如果真结束
.如果真 (到整数 (文本) ≥ 10 且 到整数 (文本) ＜ 100)
    文本 ＝ “00” ＋ 文本
.如果真结束
.如果真 (到整数 (文本) ≥ 100 且 到整数 (文本) ＜ 1000)
    文本 ＝ “0” ＋ 文本
.如果真结束
返回 (文本)
[/e]