كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل سنة

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If MsgBox("هل تريد إضافة سجل جديد ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "تنبيه") = MsgBoxResult.Cancel Then Exit Sub
    
    Dim maxId As Object
    Using Command As New OleDbCommand("SELECT MAX(IDD) FROM SCHOOL", Con)
        If Con.State = ConnectionState.Closed Then Con.Open()
        maxId = Command.ExecuteScalar()
        Con.Close()
    End Using
    
    Call SetState("Add")
    InfoBookmark = InfoManager.Position
    InfoManager.AddNew()
    
    If IsDBNull(maxId) Then
        TextBox1.Text = "1"
    Else
        TextBox1.Text = (Convert.ToInt32(maxId) + 1).ToString()
    End If
    
    Call Show_New_Year()
    TextBox3.Focus()
End Sub

Sub Show_New_Year()
    Dim currentYear As Integer = Date.Now.Year
    Dim latestYear As Integer = currentYear

    Dim dp As New OleDbDataAdapter("SELECT TOP 1 NEW_YEAR FROM SCHOOL ORDER BY NEW_YEAR DESC", Con)
    Dim dt As New DataTable
    dp.Fill(dt)
    
    If dt.Rows.Count = 0 Then
        TextBox2.Text = currentYear & " - " & "0001"
    Else
        Dim idall As String = dt.Rows(0)(0).ToString()
        idall = idall.Replace(" - ", "-")
        Dim strArr() As String = idall.Split("-"c)
        latestYear = Convert.ToInt32(strArr(0))
        
        If latestYear < currentYear Then
            TextBox2.Text = currentYear & " - " & "0001"
        Else
            TextBox2.Text = currentYear & " - " & (Convert.ToInt32(strArr(1)) + 1).ToString("0000")
        End If
    End If
End Sub

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If MsgBox("هل تريد إضافة سجل جديد ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "تنبيه") = MsgBoxResult.Cancel Then Exit Sub
    
    Dim maxId As Object
    Using Command As New OleDbCommand("SELECT MAX(IDD) FROM SCHOOL", Con)
        If Con.State = ConnectionState.Closed Then Con.Open()
        maxId = Command.ExecuteScalar()
        Con.Close()
    End Using
    
    Call SetState("Add")
    InfoBookmark = InfoManager.Position
    InfoManager.AddNew()
    
    If IsDBNull(maxId) Then
        TextBox1.Text = "1"
    Else
        TextBox1.Text = (Convert.ToInt32(maxId) + 1).ToString()
    End If
    
    Call Show_New_Year()
    TextBox3.Focus()
End Sub

Private Sub Show_New_Year()
    Dim currentYear As Integer = Date.Now.Year
    Dim latestYear As Integer = currentYear

    Dim dp As New OleDbDataAdapter("SELECT TOP 1 NEW_YEAR FROM SCHOOL ORDER BY NEW_YEAR DESC", Con)
    Dim dt As New DataTable
    dp.Fill(dt)
    
    If dt.Rows.Count = 0 Then
        TextBox2.Text = currentYear & " - " & "0001"
    Else
        Dim idall As String = dt.Rows(0)(0).ToString()
        idall = idall.Replace(" - ", "-")
        Dim strArr() As String = idall.Split("-"c)
        latestYear = Convert.ToInt32(strArr(0))
        
        If latestYear < currentYear Then
            TextBox2.Text = currentYear & " - " & "0001"
        Else
            TextBox2.Text = currentYear & " - " & (Convert.ToInt32(strArr(1)) + 1).ToString("0000")
        End If
    End If
End Sub

Private Sub SetState(state As String)
    Select Case state
        Case "Add"
            ' Enable controls for adding a new record
            TextBox1.Enabled = True
            TextBox2.Enabled = True
            TextBox3.Enabled = True
            ' Clear text boxes
            TextBox1.Text = String.Empty
            TextBox2.Text = String.Empty
            TextBox3.Text = String.Empty
            ' Other UI adjustments
            ButtonSave.Enabled = True
            ButtonCancel.Enabled = True
            ButtonEdit.Enabled = False
            ButtonDelete.Enabled = False
        Case "Edit"
            ' Enable controls for editing an existing record
            TextBox1.Enabled = False ' Assuming ID should not be changed
            TextBox2.Enabled = True
            TextBox3.Enabled = True
            ' Other UI adjustments
            ButtonSave.Enabled = True
            ButtonCancel.Enabled = True
            ButtonEdit.Enabled = False
            ButtonDelete.Enabled = True
        Case "View"
            ' Disable controls, view mode
            TextBox1.Enabled = False
            TextBox2.Enabled = False
            TextBox3.Enabled = False
            ' Other UI adjustments
            ButtonSave.Enabled = False
            ButtonCancel.Enabled = False
            ButtonEdit.Enabled = True
            ButtonDelete.Enabled = True
    End Select
End Sub