VB6.0 怎么實現自動生成編號？

'調試通過。。。。。。。。。。。。

創(chuàng)新互聯是專業(yè)的克什克騰網站建設公司，克什克騰接單;提供做網站、網站制作,網頁設計,網站設計,建網站,PHP網站建設等專業(yè)做網站服務;采用PHP框架,可快速的進行克什克騰網站開發(fā)網頁制作和功能擴展;專業(yè)做搜索引擎喜愛的網站,專業(yè)的做網站團隊,希望更多企業(yè)前來合作!

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 "開發(fā)部"

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 中如何實現序列號注冊功能

思路是:

讀取電腦硬件的信息,用隨機數加工這些信息后在注冊表中做個記錄,用這個記錄生成注冊碼送回給你,你按特定的方法生成序列號,你的小程序收到序列號后還原成數據,數據比較注冊表中的記錄,如果正確就加入第二部分注冊的信息完成注冊.你的程序每次打開時,先比對硬件信息-第一注冊信息-第二注冊信息,看這三者是否統(tǒng)一,不統(tǒng)一的就是使用期軟件.

也可以省了第一注冊信息,直接發(fā)硬件信息給你生成序列號,其他的相同.

vb.net /C# 使用Access為數據庫 ID編號連續(xù)問題

這種問題一般不需要考慮，刪除就是刪除了，也不需要你去修改id以使它一定要連續(xù)

當前題目：vb.net生成順序編號,vb中順序文件
網站地址：http://chinadenli.net/article17/dsejddj.html

成都網站建設公司_創(chuàng)新互聯，為您提供網站排名、云服務器、面包屑導航、品牌網站制作、標簽優(yōu)化、用戶體驗

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯