自动生成编号源代码（自动生成编号函数）

今天给各位分享自动生成编号源代码的知识，其中也会对自动生成编号函数进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、Word怎么自动生成编号 Word自动生成编号方法
• 2、求autocad 自动编号的LSP代码
• 3、参考文献编号怎么自动生成
• 4、VB6.0 怎么实现自动生成编号？
• 5、VB在数据库中自动创建编号

Word怎么自动生成编号 Word自动生成编号方法

使用VBA，按Alt+F11键打开，插入一个新模块，输入代码，我只能让编号打印的时候累加，比如起始打印编号0001，打印第二张就变为0002，一直累加到9999，代码如下：

Sub 普通编号()

'

'

'

'

    Dim i As Integer

    Dim dy As Integer

    On Error Resume Next

    i = InputBox("请输入起始数", "起始数", 1) - 1

    dy = InputBox("请输入打印份数", "打印份数", 1)

    For dy = 1 To dy Step 1

    i = i + 1

    If i = 1000 Then

    Selection.TypeBackspace

    Selection.TypeBackspace

    Selection.TypeBackspace

    Selection.TypeBackspace

    Selection.TypeText Text:=i

    ActiveDocument.PrintOut

    Else

    If i = 100 Then

    Selection.TypeBackspace

    Selection.TypeBackspace

    Selection.TypeBackspace

    Selection.TypeBackspace

    Selection.TypeText Text:="0"  i

    ActiveDocument.PrintOut

    Else

    If i = 10 Then

    Selection.TypeBackspace

    Selection.TypeBackspace

    Selection.TypeBackspace

    Selection.TypeBackspace

    Selection.TypeText Text:="00"  i

    ActiveDocument.PrintOut

    Else

    Selection.TypeBackspace

    Selection.TypeBackspace

    Selection.TypeBackspace

    Selection.TypeBackspace

    Selection.TypeText Text:="000"  i

    ActiveDocument.PrintOut

    End If

    End If

    End If

    Next dy

End Sub

求autocad 自动编号的LSP代码

(defun c:bh (/ oce1 qz gg n1 zn h1 sxh1 p1)

(setq oce1 (getvar "cmdecho"))

(setvar "cmdecho" 0)

(command "style" "standard" "" 0 0.8 0 "n" "n")

(setq qz (getstring "\n请输入前缀相同的部分:(不要前缀回车) ") gg (getstring "\n请输入后缀相同的部分:(不要后缀回车) "))

(if (not (setq n1 (getint "\n请输入起始顺序号 1: ")))

(setq n1 1)

)

(if (not (setq zn (getint "\n请输入增加或减少的序数 +1: ")))

(setq zn 1)

)

(if (not (setq h1 (getreal "\n请指定文字高度 2.5: ")))

(setq h1 2.5)

)

(setq sxh1 (strcat qz (itoa n1) gg) p1 (getpoint "\n请指定起点: ")

)

(while (/= p1 nil)

(command "text" "tl" p1 h1 0 sxh1) ;应是左上tl 不是右上tr

(setq n1 (+ n1 zn) sxh1 (strcat qz (itoa n1) gg) p1 (getpoint p1 "\n请指定下一起点: "))

)

(setvar "cmdecho" oce1)

(princ)

)

参考文献编号怎么自动生成

参考文献编号自动生成的方法：

参考文献自动编号选中要编号的文献，然后点击工具栏中的“编号”工具（红色标记内），即可完成编号。选中文末的参考文献，点击段落中的编号，进行自定义给数字加个中括号，选择左对齐即可对参考文献选择中文字体，然后选用英文TimeNewRoman，最终参考文献就设置好了。

书写格式

1、参考文献标注的位置。

2、参考文献标标注方法和规则。

3、参考文献标标注的格式。

2007年8月20日在清华大学召开的“综合性人文社会科学学术期刊编排规范研讨会”决定，2008年起开始部分刊物开始执行新的规范“综合性期刊文献引证技术规范”。该技术规范概括了文献引证的“注释”体例和“著者—出版年”体例。

VB6.0 怎么实现自动生成编号？

'调试通过。。。。。。。。。。。。

Option Explicit

Dim idnum(2) As Long '主要保存用于自动增长的ID 一个部门存储一个，有多少部门有多少数组

Private Sub Combo1_Click()

Text1.Text = getNewID

End Sub

Private Sub Command1_Click()

'当我们保存记录时，需要让idnum+1 并且保存到文件中去

idnum(Combo1.ListIndex + 1) = idnum(Combo1.ListIndex + 1) + 1

Dim fname As String

If Right(App.Path, 1) = "\" Then

fname = App.Path "myid.txt"

Else

fname = App.Path "\myid.txt"

End If

Open fname For Output As #1

'每个部门的顺序要牢记 或者你改成ini读取方式

Print #1, "id=" CStr(idnum(1))

Print #1, "id=" CStr(idnum(2))

Close #1

End Sub

Private Sub Command2_Click()

Text1.Text = getNewID

End Sub

Private Sub DTPicker1_Change()

Text1.Text = getNewID

End Sub

Private Sub Form_Load()

On Error Resume Next

Command1.Caption = "保存编号"

Command2.Caption = "生成编号"

Combo1.AddItem "开发部"

Combo1.AddItem "质检部"

Combo1.ListIndex = 0

'自动增长id我主要通过记录到文件中来实现

'在程序初始化时判断当前目录有没有myid.txt 如果没有刚建立其内容为id=***，有的话刚把***读取出来

Dim fname As String

If Right(App.Path, 1) = "\" Then

fname = App.Path "myid.txt"

Else

fname = App.Path "\myid.txt"

End If

If Dir(fname) = "" Then

'说明文件不存在

Open fname For Output As #1

Print #1, "id=0"

Print #1, "id=0"

idnum(1) = 0

idnum(2) = 0

Close #1

Else

'文件存在读取id值

Open fname For Input As #1

Dim aline As String

Line Input #1, aline

idnum(1) = Val(Mid(aline, 4))

Line Input #1, aline

idnum(2) = Val(Mid(aline, 4))

Close #1

End If

End Sub

Private Function getNewID() As String

'第一步，得到部门编号

'你应该根据选择的部门名称查询到对应的部门编号，在此我省去查询数据库的过程，直接得到编号

Dim partid As String

partid = Format(Combo1.ListIndex + 1, "000")

Dim dataid As String

'此处日期的控制判断，你自己考虑解决吧

dataid = Format((DTPicker1.Value - CDate("2006-12-31")) \ 7 + 1, "000")

Dim addid As String

'超出范围自行控制

addid = Format(idnum(Combo1.ListIndex + 1) + 1, "000")

getNewID = partid dataid addid

End Function

VB在数据库中自动创建编号

1、可以直接利用数据库的自动编号字段，省心省力；

2、利用当前时间生成：

Format(Now(), "yyyymmddhhnnss"

3、用随机数生成，但有可能会出现相同的编号：

Randomize

Format(Rnd * 100000000, "00000000")

可以把2、3结合使用

比如在写入数据库时：

rs("编号") = Format(Now(), "yyyymmddhhnnss" Format(Rnd * 1000, "000")

关于自动生成编号源代码和自动生成编号函数的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。