vb.net自动生成编号 vbnet代码生成器

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

相关问答

Q1: 如何在VB.NET中新增数据时添加自动编号的ID字段

这个是数据库自带的功能啊，设置字段类型为自动编号就行了。在保存数据的时候这个字段不用赋值，也不用出现在Insert语句里。

Q2: 急求！！！vb.net中如何实现数据表中编号按顺序自动生成

在建表vb.net自动生成编号的时候定义一个自增字段就可以vb.net自动生成编号了。

Q3: vb自动生成编号

没有实际vb.net自动生成编号的数据库表等vb.net自动生成编号，只能给你大概算法

在数据库中查询计划单号的前面几位是PL+yyyymmdd的最大值记录

如果没有返回值vb.net自动生成编号，则新编号是PL+yyyymmdd+0001

如果有返回值，取返回值的后四位，做加1处理，得到新编号

vb.net自动生成编号的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet代码生成器、vb.net自动生成编号的信息别忘了在本站进行查找喔。