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

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

创新互联是专业的克什克腾网站建设公司，克什克腾接单;提供做网站、网站制作,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行克什克腾网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

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.NET中DATAGRIDVIEW做排名（要序号）求助！！！

第一种方式：手动设置，设置列允许重新排列，这样在单击datagridview的列名时，就会自动排序

第二种方式：自动排序，想要按那列排序，就设置那列的SortMode的属性为：Programmatic

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

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

VB.net 中如何实现序列号注册功能

思路是:

读取电脑硬件的信息,用随机数加工这些信息后在注册表中做个记录,用这个记录生成注册码送回给你,你按特定的方法生成序列号,你的小程序收到序列号后还原成数据,数据比较注册表中的记录,如果正确就加入第二部分注册的信息完成注册.你的程序每次打开时,先比对硬件信息-第一注册信息-第二注册信息,看这三者是否统一,不统一的就是使用期软件.

也可以省了第一注册信息,直接发硬件信息给你生成序列号,其他的相同.

vb.net /C# 使用Access为数据库 ID编号连续问题

这种问题一般不需要考虑，删除就是删除了，也不需要你去修改id以使它一定要连续

文章标题：vb.net生成顺序编号,vb中顺序文件
URL地址：http://kswjz.com/article/dsejddj.html