序号问题

npzjf

软件每天第一次打开序号是1，在同一天内序号是递增的。第二天打开软件序号又重新是1，要怎么写？

玩神

.版本 2
.支持库 eDB

.子程序 编号日期日期改变
.局部变量 N, 整数型

编号日期 ＝ 取现行时间 ()
N ＝ (取年份 (编号日期) ％ 100) × 10000 ＋ 取月份 (编号日期) × 100 ＋ 取日 (编号日期)
最后日期 ＝ 到文本 (N)
最后编号 ＝ 0

.子程序 自动编号

记录集2.置连接 (_启动窗口.启动数据库连接)
记录集2.打开 (“select * from 挂号表”, #SQL语句, )
记录集2.到尾记录 ()
记录集2.读日期时间 (“挂号日期”, 最后日期)
记录集2.读文本 (“挂号编号”, 最后编号)
记录集2.关闭 ()
编号日期 ＝ (取年份 (最后日期) ％ 100) × 10000 ＋ 取月份 (最后日期) × 100 ＋ 取日 (最后日期)
当前日期 ＝ (取年份 (取现行时间 ()) ％ 100) × 10000 ＋ 取月份 (取现行时间 ()) × 100 ＋ 取日 (取现行时间 ())
.如果 (记录集2.记录数量 ≤ 0)
    编号标签.标题 ＝ 到文本 (当前日期) ＋ “0001”
    记录集2.关闭 ()
.否则

.如果结束
.如果 (编号日期 ＝ 当前日期)
    最后编号 ＝ 到文本 (到整数 (最后编号) ＋ 1)
    编号标签.标题 ＝ 到文本 (最后编号)
.否则
    编号标签.标题 ＝ 到文本 (当前日期) ＋ “0001”
.如果结束

以前写的！你参考下！

鹊聪软件

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
序号	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

序号 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\config.ini”, “config”, “序号”, )) ＋ 1
如果真 (读配置项 (取运行目录 () ＋ “\config.ini”, “config”, “day”, ) ≠ 到文本 (取日 (取现行时间 ())))
写配置项 (取运行目录 () ＋ “\config.ini”, “config”, “day”, 到文本 (取日 (取现行时间 ())))
序号 ＝ 1
写配置项 (取运行目录 () ＋ “\config.ini”, “config”, “序号”, 到文本 (序号))
调试输出 (序号)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 序号, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 序号 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\config.ini”, “config”, “序号”, )) ＋ 1<br /> .如果真 (读配置项 (取运行目录 () ＋ “\config.ini”, “config”, “day”, ) ≠ 到文本 (取日 (取现行时间 ())))<br />     写配置项 (取运行目录 () ＋ “\config.ini”, “config”, “day”, 到文本 (取日 (取现行时间 ())))<br />     序号 ＝ 1<br /> .如果真结束<br /> 写配置项 (取运行目录 () ＋ “\config.ini”, “config”, “序号”, 到文本 (序号))<br /> 调试输出 (序号)

然后

判断系统时间就好了

然后

给你个思路，把系统时间保存起来，程序运行前进行判断，如果时间相等就递增，不相等就为1

红神大大

玩神 发表于 2016-8-26 10:56
.版本 2
.支持库 eDB

连接数据库啊