21-05-18, 06:47 PM
(21-05-18, 03:19 PM)ahmedmansour كتب : [ -> ]https://www.youtube.com/watch?v=6nt1zhmh...5lR3RgOTyQ
راجع هذا الدرس
شكرا بارك الله فيك
الصفحات : 1 2
شكرا بارك الله فيك
30-10-18, 01:34 AM
يعطيك العافيه الترقيم اللي في الدرس
سهل وعارفه لكن الرقم الفردي يتغير مع كل سنه فقط والرقم اللي في اليمين يزيد مع كل سجل
فكرتي مختلفه نوعاً ماء
سهل وعارفه لكن الرقم الفردي يتغير مع كل سنه فقط والرقم اللي في اليمين يزيد مع كل سجل
فكرتي مختلفه نوعاً ماء
02-06-24, 11:34 AM
(21-05-18, 04:22 AM)حريف برمجة كتب : [ -> ]مرحبا مره أخرى اخي عبدالعزيز ،، ولك بالمثل وأكثر حتى ترضى ،، وشكراً على دعواتك لي
بخصوص الخطأ لن يحدث إلا في الحالة التي تكلمت عنها انا فقط .
بمعنى حالتك لو قمت بادخال الترقيم يدوي عادي لن يحدث خطأ اذا التزمت بتنسيق الترقيم السنوي .
بالنسبة للحل سوف ازودك به عندما اهدأ شوي واكون مهيأ لاستنتاج الحل .
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
هذا هو التعديل المناسب لمن يهمه الامر
02-06-24, 03:08 PM
اين SetState("Add")
02-06-24, 03:55 PM
(02-06-24, 03:08 PM)atefkhalf2004 كتب : [ -> ]اين SetState("Add")
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
02-06-24, 08:25 PM
شكرا لك وجاري التجربة
الصفحات : 1 2