000000001 и т. Д. Как уникальный ID

Question

Добрый день. Я создаю программу, которая имеет следующие модули, и они:

Заявка на покупку, заказ на поставку, получение товаров и запасы, и у них есть инициалы PR, PO, RI и SR соответственно. Теперь, почему я это сказал? из-за этого.

Каждый модуль, который я сказал ранее, имеет собственные транзакции, и каждая транзакция имеет свой собственный ссылочный номер или данные, которые будут использоваться как уникальный идентификатор.

Теперь мой вопрос заключается в изображении ниже

Как я могу добиться этого? (Желательно отобразить его в текстовом поле) Я хочу, чтобы этот вид уникального идентификатора для каждого модуля у меня есть.

Серьезно, я не знаю, как это сделать, потому что это мой первый раз, когда я это делаю.

Если для этого есть pro и con, его все в порядке, я задаю для этого параметры.

Я надеюсь, что кто-то мне поможет.

Answer 1

Это мой ответ на мой вопрос, но в любом случае TYSM для тех комментаторов, которые не отвечали на мой вопрос, вместо этого дают мне отрицательный код.

Извините, ребята Мне действительно нужен этот код, и для тех, кто хочет этот код здесь.

Dim con As MySqlConnection = New MySqlConnection("Your MySQL Connection") 
     Dim cmd As MySqlCommand = New MySqlCommand("select Max(Column_Of_Unique_ID) as UniqueValue from TableName", con) 
     Dim reader As MySqlDataReader 
     con.Open() 
     reader = cmd.ExecuteReader 
     Try 
      While reader.Read 

       'If its Purchase Order then PO 
       'If its Purchase Requisition then PR 
       'If its Receiving Items then RI 
       'If its Stock Requisition then SR 

       TextBox1.Text = reader.GetString("UniqueValue") 
       TextBox1.Text = TextBox1.Text.Replace("PO", "").Trim() 
       TextBox1.Text = TextBox1.Text + 1 
       If TextBox1.Text.Length = 1 Then 
        TextBox1.Text = "PO" & "0000000" & TextBox1.Text 
       ElseIf TextBox1.Text.Length = 2 Then 
        TextBox1.Text = "PO" & "000000" & TextBox1.Text 
       ElseIf TextBox1.Text.Length = 3 Then 
        TextBox1.Text = "PO" & "00000" & TextBox1.Text 
       ElseIf TextBox1.Text.Length = 4 Then 
        TextBox1.Text = "PO" & "0000" & TextBox1.Text 
       ElseIf TextBox1.Text.Length = 5 Then 
        TextBox1.Text = "PO" & "000" & TextBox1.Text 
       ElseIf TextBox1.Text.Length = 6 Then 
        TextBox1.Text = "PO" & "00" & TextBox1.Text 
       ElseIf TextBox1.Text.Length = 7 Then 
        TextBox1.Text = "PO" & "0" & TextBox1.Text 
       ElseIf TextBox1.Text.Length = 8 Then 
        TextBox1.Text = "PO" & TextBox1.Text 
       End If 
      End While 
     Catch 
      TextBox1.Text = "PO00000001" 
     End Try