'调试通过。。。。。。。。。。。。
创新互联是专业的克什克腾网站建设公司，克什克腾接单;提供做网站、网站制作,网页设计,网站设计,建网站,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
第一种方式：手动设置，设置列允许重新排列，这样在单击datagridview的列名时，就会自动排序
第二种方式：自动排序，想要按那列排序，就设置那列的SortMode的属性为：Programmatic
这个是数据库自带的功能啊，设置字段类型为自动编号就行了。在保存数据的时候这个字段不用赋值，也不用出现在Insert语句里。
思路是:
读取电脑硬件的信息,用随机数加工这些信息后在注册表中做个记录,用这个记录生成注册码送回给你,你按特定的方法生成序列号,你的小程序收到序列号后还原成数据,数据比较注册表中的记录,如果正确就加入第二部分注册的信息完成注册.你的程序每次打开时,先比对硬件信息-第一注册信息-第二注册信息,看这三者是否统一,不统一的就是使用期软件.
也可以省了第一注册信息,直接发硬件信息给你生成序列号,其他的相同.
这种问题一般不需要考虑，删除就是删除了，也不需要你去修改id以使它一定要连续
