| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 663 人关注过本帖
标题:字段的编号如何生成
只看楼主 加入收藏
baoshan00
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2018-9-3
结帖率:0
  已结贴   问题点数:20  回复次数:10   
字段的编号如何生成
字段的编号如何生成??
比如:2921010101--2921010130
搜索更多相关主题的帖子: 字段  编号  生成  
2019-04-22 22:08
xuminxz
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:9
帖 子:275
专家分:752
注 册:2011-5-8
  得分:4 
什么意思?什么叫字段的编号?
如果你问的是怎样生成编号,并放在字段中,在你上一个问题(考场编排中)中,已经有回答了呀

[此贴子已经被作者于2019-4-22 22:19编辑过]


dBase有人接盘了。
2019-04-22 22:12
baoshan00
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2018-9-3
  得分:0 
直接在表中用命令实现该如何?
2019-04-22 22:40
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:188
帖 子:7743
专家分:18971
注 册:2012-2-5
  得分:4 
回复 楼主 baoshan00
编号的生成规则是什么

坚守VFP最后的阵地
2019-04-23 01:22
schtg
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:27
帖 子:678
专家分:972
注 册:2012-2-29
  得分:4 
感觉象编制考号什么的,30个一段,对吗?
2019-04-23 07:26
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:358
帖 子:11444
专家分:42649
注 册:2006-5-13
  得分:4 
以下是引用baoshan00在2019-4-22 22:08:36的发言:

字段的编号如何生成??
比如:2921010101--2921010130

按照规律生成。

活到老,学到老! http://www.qs98.com E-mail:hu-jj@21cn.com
2019-04-23 08:56
baoshan00
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2018-9-3
  得分:0 
用什么命令来实现的,具体给命令代码谢谢
2019-04-24 09:32
xuminxz
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:9
帖 子:275
专家分:752
注 册:2011-5-8
  得分:0 
你不看回帖吗?上一个帖子中早就给你代码了呀、
[quote]以下是引用xuminxz在2019-4-18 21:54:32的发言:

2010年前写过一些考务管理的代码,其中计算机等级考试考务管理与你的类似。那是一个大系统中的一部分,给你没有用。相关其中部分改了下,看看能不能用。因为没有数据,没法调试。自已看看吧。
** ksxxb 考生信息表
** kmdm 科目代码
** xh 学号
*!*    zkzh 准考证号  
*!*    bj 班级(可以用班号代替)
*!*    kch 考场号 整数
*!*    zwh 座位号 整数(1-30)

**
SELECT distinct kmdm,COUNT(*) as kmrs FROM ksxxb INTO CURSOR kmtj  ORDER BY kmdm asc   && 如果BM大的在前用 desc 代替 ASC

FOR  i=1 TO RECCOUNT('kmtj')
    SELECT kmtj
    GO i
    ckmdm=ALLTRIM(kmdm)
    nkcs= INT(kmrs,30)
    nfb=MOD(kmrs,30) &&非标考场人数


    SELECT bj,COUNT(*) as bjrs FROM ksxxb GROUP by bj ORDER BY bjrs DESC INTO CURSOR bjtmp
    FOR ibjs=1 TO RECCOUNT('bjtmp')
        SELECT bjtmp
        GO ibjs
        cbj=ALLTRIM(bj)
        cbjrs=PADL(ALLTRIM(STR(bjrs)),3,'0')
        SELECT ksxxb
        REPLACE zkzh WITH  cbjrs FOR ALLTRIM(bj)==cbj AND kmdm=ckmdm  
    ENDFOR


    SELECT zkzh,xh,kch,zwh FROM ksxxb INTO CURSOR zkztmp WHERE kmdm=ckmdm ORDER BY zkzh desc,bj READWRITE

    SELECT zkztmp
    GO 1
    FOR j=1 TO nfb
        FOR k=1 TO nkcs+1
            REPLACE kch WITH  k,zwh WITH j
            skip
        ENDFOR
    ENDFOR
    FOR j=nfb+1 TO 30
        FOR k=1 TO nkcs
        REPLACE kch WITH  k,zwh WITH j
        skip
        ENDFOR
    ENDFOR
    SELECT zkztmp
    REPLACE zkzh WITH ckmdm +PADL(ALLTRIM(STR(kch)),3,'0')+PADL(ALLTRIM(STR(zwh)),2,'0') all  &&生成准考证
*民族代码+3位考场+加两位座号,如需要可在前面加年月等。
    irecc=RECCOUNT()
    FOR j=1 TO irecc
        SELECT zkztmp
        GO j
        cxh=ALLTRIM(xh)
        czkzh=zkzh
        ikch=kch
        izwh=zwh
        SELECT ksxxb
        LOCATE FOR ALLTRIM(xh)==cxh
        IF FOUND()
            REPLACE zkzh WITH czkzh,kch WITH ikch,zwh WITH izwh
        ELSE
            =MESSAGEBOX('程序出错!')
        ENDIF

dBase有人接盘了。
2019-04-25 07:47
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:358
帖 子:11444
专家分:42649
注 册:2006-5-13
  得分:0 
回复 7楼 baoshan00
没有现成的命令,要靠你自己写代码。如何写则要看你的生成规则,也就是你的具体要求。

活到老,学到老! http://www.qs98.com E-mail:hu-jj@21cn.com
2019-04-26 09:44
donotspam
Rank: 2
等 级:论坛游民
帖 子:53
专家分:77
注 册:2016-2-28
  得分:4 
需求不明确,大师也没招
2019-04-26 10:53







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027665 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved