Foxtable(狐表)用户栏目专家坐堂 → [原创]自动生成流水号


  共有192677人关注过本帖树形打印复制链接

主题:[原创]自动生成流水号

帅哥哟,离线,有人找我吗?
qwbd520
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:352 威望:0 精华:0 注册:2013/5/14 15:31:00
[原创]自动生成流水号  发帖心情 Post By:2013/7/22 7:43:00 [只看该作者]

   最近做的软件中经常要用到流水号,老是反复写重复代码 所以狠下心把它封装成了内部函数提供给大家参考

本来早就写好了,可是为了通用性测试了好久,再加上本人眼神不咋好,代码编辑器的字忒小了看得很是费劲图片点击可在新窗口打开查看


测试了外部数据源的Access 2000, SqlServer 2000/2005,内部数据表暂未测试(猜测跟Access差不多),大家可自行改造下,里面有示例代码··




以下内容只有回复后才可以浏览



[此贴子已经被作者于2013-7-22 7:45:22编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/7/22 7:48:00 [只看该作者]

新人新气象,顶顶更茁壮。

 回到顶部
帅哥哟,离线,有人找我吗?
qwbd520
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:352 威望:0 精华:0 注册:2013/5/14 15:31:00
  发帖心情 Post By:2013/7/22 7:52:00 [只看该作者]

图片点击可在新窗口打开查看这回复也太水了············

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/7/22 7:59:00 [只看该作者]

数据库很少是单机操作,基本上都离不开网络。

网络环境下的自动编号,有以下这么一段,缺了这一段,可能出现重复编号。

Do
    Key
= cmd1.ExecuteScalar()
'从后台获得顺序
   
cmd2.commandText = "Update [] Set [顺序] = " & (Key + 1) & " Where [顺序] = " & Key & " And [前缀] = '" & pf & "' And 表名 = '" & nm & "'"
    If
cmd2.ExecuteNonQuery() > 0 Then '更新顺序
        Exit Do
'更新成功则退出循环
    End If
Loop


 回到顶部
帅哥哟,离线,有人找我吗?
410109296
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:157 积分:2159 威望:0 精华:0 注册:2011/8/1 14:23:00
  发帖心情 Post By:2013/7/22 8:14:00 [只看该作者]

呵呵 赞一个

 


 回到顶部
帅哥哟,离线,有人找我吗?
qwbd520
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:352 威望:0 精华:0 注册:2013/5/14 15:31:00
  发帖心情 Post By:2013/7/22 8:22:00 [只看该作者]

呵呵····的确并发量大的时候会出现,以前是用事务的方式处理的,现在用foxtable不知道咋搞··图片点击可在新窗口打开查看,Update时候也是锁表这个好!你的实现方式是建立另外个表来保存流水号吗?

 回到顶部
帅哥哟,离线,有人找我吗?
rjh4078
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3370 积分:24858 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2013/7/22 8:24:00 [只看该作者]

悄悄的顶起

 回到顶部
帅哥哟,离线,有人找我吗?
qwbd520
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:352 威望:0 精华:0 注册:2013/5/14 15:31:00
  发帖心情 Post By:2013/7/22 8:26:00 [只看该作者]

能否帮忙改造下内部函数···············谢谢!!

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/7/22 8:30:00 [只看该作者]

自动编号,种类繁多,仅举几例:

1、大流水号,最常用,一直往后编。

2、年流水号,每年从头开始,有的每年自动更换一个字母前缀。

3、月流水号,每月从头开始。

4、日流水号,每日从头开始。

5、单据流水号,每张单据中的几条记录,按顺序编号。

6、单据号,一张单据可能有不同数量的记录,但一张单据就一个号。

有的有前缀,有的没有前缀,有的前缀固定,有的前缀自动变更。

 


 回到顶部
帅哥哟,离线,有人找我吗?
hrc11
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:285 积分:2874 威望:0 精华:0 注册:2011/8/30 17:40:00
  发帖心情 Post By:2013/7/22 8:57:00 [只看该作者]


 回到顶部
总数 488 1 2 3 4 5 6 7 8 9 10 下一页 ..49