تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استفسار :- بخصوص تغيير اسم ال Button بعد الضغط
#1
السلام عليكم ورحمة الله

يسعد الله اوقاتكم

استفساري عن طريقه تغيير اسم ول Button  وفي نفس الوقت تغيير المهام

مثلا

اسم ال Button  
add

وعند الضغط يعمل المهام
INSERT INTO
وبعد تنزيل المعلومات يقوم بتغيير اسم Button  
الى UPDATE

وعند الضغط يعمل مهام 

SQL UPDATE



الفكرة باني عندي Button    بعد الضغط عليه يقوم بعمليه ال INSERT INTO
  وبعدها محتاج اني اعمل تحديث للمعلومات ان لزم الامر

ان شاءالله قدر اوصل الفكرة

وشكرا لكم
الرد
تم الشكر بواسطة: elgokr
#2
صباح الخير 

من وجهة نظرى  ... يستحسن يكون هناك 
زر للاضافة (يقوم بتهيئة الفورم للاضافة )
زر للتعديل والحفظ

تحياتى للجميع
الرد
تم الشكر بواسطة: dubai.eig , elgokr
#3
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   If sender.Text = "Add" Then
       Add()
       sender.Text = "Update"
   Else
       Update()
       sender.Text = "Add"
   End If
End Sub

Private Sub Add()
   MsgBox("Add")
End Sub

Private Sub Update()
   MsgBox("Update")
End Sub
الرد
تم الشكر بواسطة: dubai.eig , dubai.eig , mmali127 , mmali127 , elgokr , princelovelorn
#4
(16-09-18, 11:23 AM)mmali127 كتب : صباح الخير 

من وجهة نظرى  ... يستحسن يكون هناك 
زر للاضافة (يقوم بتهيئة الفورم للاضافة )
زر للتعديل والحفظ

تحياتى للجميع



اهلا بك شكرا على المشاركه

انا فكرة اعمل زر للاضافه وزر للتعديل 

بس قلت اذا في طريقه اخرى افضل

لان هم مجموعة ازرار للاضافه
   
الرد
تم الشكر بواسطة: 911 , 911 , elgokr
#5
فهمت عليك 

تمام كده يكون مشاركة استاذنا 911 تفيذك فى هذه الحالة
الرد
تم الشكر بواسطة: 911 , 911 , dubai.eig , dubai.eig , elgokr
#6
(16-09-18, 11:42 AM)911 كتب :
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   If sender.Text = "Add" Then
       Add()
       sender.Text = "Update"
   Else
       Update()
       sender.Text = "Add"
   End If
End Sub

Private Sub Add()
   MsgBox("Add")
End Sub

Private Sub Update()
   MsgBox("Update")
End Sub



تسلم على مشاركتك الكريمه

نعمل عمل الكود معاي بشكل ممتاز 

بس انا عندي مع كل زر ثلاث textbox
مثلا الزر الاولي
في
textbox1  textbox2   textbox3

ووقت الاضافه بيكون

   
كود :
       cmdx.Parameters.AddWithValue("@add1", TextBox1.Text)
       cmdx.Parameters.AddWithValue("@add2", TextBox2.Text)
       cmdx.Parameters.AddWithValue("@add3", TextBox3.Text)


وفي الزر الثاني
textbox4  textbox5   textbox6

ووقت الاضافه بيكون

   
كود :
       cmdx.Parameters.AddWithValue("@add1", TextBox4.Text)
       cmdx.Parameters.AddWithValue("@add2", TextBox5.Text)
       cmdx.Parameters.AddWithValue("@add3", TextBox6.Text)


يعني في هذه الحاله يجب ان اعمل

كود :
Private Sub Add1()
  MsgBox("Add")
End Sub

Private Sub Add2()
  MsgBox("Add")
End Sub

Private Sub Add3()
  MsgBox("Add")
End Sub

هل هناك طريقه مختصره والا اتوكل على الله واعمل Add1 Add2 Add3 

بارك الله فيك وشكرا من جديد

(16-09-18, 11:49 AM)mmali127 كتب : فهمت عليك 

تمام كده يكون مشاركة استاذنا 911 تفيذك فى هذه الحالة



كلامك صحيح بارك الله فيك
الرد
تم الشكر بواسطة: 911 , elgokr , elgokr
#7


إذا كانت الأسطر كثيرة استخدم DataGridView بثلاث أعمدة TextBox وعمود رابع Button

وهذه كود الاستخدام إن شاء الله تكون واضحة
كود :
Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
   sender.EndEdit()
   If e.ColumnIndex = 3 Then
       Dim btn As DataGridViewButtonCell = sender.Item(e.ColumnIndex, e.RowIndex)
       If btn.FormattedValue = "Add" Then
           Add(sender.CurrentRow)
           'btn.Style.NullValue = "Update"
       Else
           Update(sender.CurrentRow)
           'btn.Style.NullValue = "Add"
       End If
   End If

End Sub

Private Sub Add(row As DataGridViewRow)
   row.Cells(3).Style.NullValue = "Update"
   Dim txt1 As String = TryCast(row.Cells(0).Value, String)
   Dim txt2 As String = TryCast(row.Cells(1).Value, String)
   Dim txt3 As String = TryCast(row.Cells(2).Value, String)
   MsgBox("Add Row: " & row.Index & vbNewLine & _
          "txt1: " & txt1 & vbNewLine & _
          "txt2: " & txt2 & vbNewLine & _
          "txt3: " & txt3)
End Sub

Private Sub Update(row As DataGridViewRow)
   row.Cells(3).Style.NullValue = "Add"
   Dim txt1 As String = TryCast(row.Cells(0).Value, String)
   Dim txt2 As String = TryCast(row.Cells(1).Value, String)
   Dim txt3 As String = TryCast(row.Cells(2).Value, String)
   MsgBox("Update Row: " & row.Index & vbNewLine & _
          "txt1: " & txt1 & vbNewLine & _
          "txt2: " & txt2 & vbNewLine & _
          "txt3: " & txt3)
End Sub
الرد
تم الشكر بواسطة: dubai.eig , dubai.eig , elgokr , elgokr
#8
(16-09-18, 01:32 PM)911 كتب :

إذا كانت الأسطر كثيرة استخدم DataGridView بثلاث أعمدة TextBox وعمود رابع Button

وهذه كود الاستخدام إن شاء الله تكون واضحة
كود :
Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
   sender.EndEdit()
   If e.ColumnIndex = 3 Then
       Dim btn As DataGridViewButtonCell = sender.Item(e.ColumnIndex, e.RowIndex)
       If btn.FormattedValue = "Add" Then
           Add(sender.CurrentRow)
           'btn.Style.NullValue = "Update"
       Else
           Update(sender.CurrentRow)
           'btn.Style.NullValue = "Add"
       End If
   End If

End Sub

Private Sub Add(row As DataGridViewRow)
   row.Cells(3).Style.NullValue = "Update"
   Dim txt1 As String = TryCast(row.Cells(0).Value, String)
   Dim txt2 As String = TryCast(row.Cells(1).Value, String)
   Dim txt3 As String = TryCast(row.Cells(2).Value, String)
   MsgBox("Add Row: " & row.Index & vbNewLine & _
          "txt1: " & txt1 & vbNewLine & _
          "txt2: " & txt2 & vbNewLine & _
          "txt3: " & txt3)
End Sub

Private Sub Update(row As DataGridViewRow)
   row.Cells(3).Style.NullValue = "Add"
   Dim txt1 As String = TryCast(row.Cells(0).Value, String)
   Dim txt2 As String = TryCast(row.Cells(1).Value, String)
   Dim txt3 As String = TryCast(row.Cells(2).Value, String)
   MsgBox("Update Row: " & row.Index & vbNewLine & _
          "txt1: " & txt1 & vbNewLine & _
          "txt2: " & txt2 & vbNewLine & _
          "txt3: " & txt3)
End Sub

احسنت استاذي طريقتك فعلا بتسهل عليه  وبتختصر لي الطريق

بس طلع لي مشكله  ما عرفت اضبطها كيف اكتب اسم البوت

   

هو بعد الضغط يتغير الاسم

   


وشكرا لك

عرفت كيف اكتب الاسم على الButton   Rolleyes
الرد
تم الشكر بواسطة: elgokr
#9
الحمدالله كل ضبط تمام

بس واجهتني مشكله 

عندما اضغط Add  
لاول مربع يضيف المعلومات ويطلع لي رقم ال id   ---  رقم الاي دي احتاج له في عمليه التحديث 



   

اما في المربع الثاني او الثالث ما يضيف لي المعلومات في القاعده

   

هذا الكود كامل

يمكن في خلل في الكود  ما عرفت اضبطه

كود :
    Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       conx = New SQLiteConnection(String.Format("Data Source= C:\LOG\{0}\DB{1}.s3db", strca, Opencon))

       cmdx = New SQLiteCommand("INSERT INTO DBQTC (d1, d2, d3) Values (@d1,@d2,@d3)") With {
           .Connection = conx
       }

   End Sub


Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
       sender.EndEdit()
       If e.ColumnIndex = 3 Then
           Dim btn As DataGridViewButtonCell = sender.Item(e.ColumnIndex, e.RowIndex)
           If btn.FormattedValue = "Add" Then
               Add(sender.CurrentRow)
               'btn.Style.NullValue = "Update"
           Else
               UpdateX1(sender.CurrentRow)
               'btn.Style.NullValue = "Add"
           End If
       End If

   End Sub

   Private Sub Add(row As DataGridViewRow)

   

       row.Cells(3).Style.NullValue = "Update"
       Dim txt1 As String = TryCast(row.Cells(0).Value, String)
       Dim txt2 As String = TryCast(row.Cells(1).Value, String)
       Dim txt3 As String = TryCast(row.Cells(2).Value, String)

       conx.Open()
 cmdx.Parameters.AddWithValue("@d1", txt1)
       cmdx.Parameters.AddWithValue("@d2", txt2)

       cmdx.Parameters.AddWithValue("@d3", txt3)

     
       '------------------------------------
       cmdx.CommandText = "SELECT last_insert_rowid()"

       NewID = cmdx.ExecuteScalar()
 
       MsgBox(NewID)
   

       MsgBox("Add Row: " & row.Index & vbNewLine &
         "txt1: " & txt1 & vbNewLine &
         "txt2: " & txt2 & vbNewLine &
         "txt3: " & txt3)

       conx.Close()

   End Sub

   Private Sub UpdateX1(row As DataGridViewRow)
       row.Cells(3).Style.NullValue = "Add"
       Dim txt1 As String = TryCast(row.Cells(0).Value, String)
       Dim txt2 As String = TryCast(row.Cells(1).Value, String)
       Dim txt3 As String = TryCast(row.Cells(2).Value, String)


           Dim UPDATPONT As New SQLiteConnection(String.Format("Data Source= C:\LOG\{0}\DB{1}.s3db", strca, Opencon))


           Dim cmdlidXX As New SQLiteCommand("UPDATE DBQTC SET d1=@d1,d2=@d2, d3=@d3 WHERE id=@id ", UPDATPONT)
           UPDATPONT.Open()
           cmdx.Parameters.AddWithValue("@d1",txt1)
           cmdx.Parameters.AddWithValue("@d2", txt1)

           cmdx.Parameters.AddWithValue("@d3", txt1)

           cmdlidXX.Parameters.AddWithValue("@id", NewID)

     

           cmdlidXX.ExecuteNonQuery()


       MsgBox("Update Row: " & row.Index & vbNewLine &
         "txt1: " & txt1 & vbNewLine &
         "txt2: " & txt2 & vbNewLine &
         "txt3: " & txt3)
       MsgBox(NewID)

   End Sub


بارك الله فيكم
الرد
تم الشكر بواسطة: elgokr
#10
كود :
Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   conx = New SQLiteConnection(String.Format("Data Source= C:\LOG\{0}\DB{1}.s3db", strca, Opencon))
   cmdx.Connection = conx

End Sub


Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
   sender.EndEdit()
   If e.ColumnIndex = 3 Then
       Dim btn As DataGridViewButtonCell = sender.Item(e.ColumnIndex, e.RowIndex)
       If btn.FormattedValue = "Add" Then
           Add(sender.CurrentRow)
           'btn.Style.NullValue = "Update"
       Else
           UpdateX1(sender.CurrentRow)
           'btn.Style.NullValue = "Add"
       End If
   End If

End Sub

Private Sub Add(row As DataGridViewRow)

   Dim txt1 As String = TryCast(row.Cells(0).Value, String)
   Dim txt2 As String = TryCast(row.Cells(1).Value, String)
   Dim txt3 As String = TryCast(row.Cells(2).Value, String)

   cmdx.CommandText = "INSERT INTO DBQTC (d1, d2, d3) Values (@d1,@d2,@d3)"
   cmdx.Parameters.Clear()
   cmdx.Parameters.AddWithValue("@d1", txt1)
   cmdx.Parameters.AddWithValue("@d2", txt2)
   cmdx.Parameters.AddWithValue("@d3", txt3)

   If conx.State <> ConnectionState.Open Then conx.Open()
   '------------------------------------

   Dim ret As Integer = cmdx.ExecuteNonQuery()

   If ret > 0 Then
       cmdx.CommandText = "SELECT last_insert_rowid()"
       Dim id As Integer = cmdx.ExecuteScalar()

       row.Tag = id

       MsgBox("تمت الإضافة بنجاح")
       row.Cells(3).Style.NullValue = "Update"
   End If

   '------------------------------------
   conx.Close()

End Sub

Private Sub UpdateX1(row As DataGridViewRow)

   Dim txt1 As String = TryCast(row.Cells(0).Value, String)
   Dim txt2 As String = TryCast(row.Cells(1).Value, String)
   Dim txt3 As String = TryCast(row.Cells(2).Value, String)

   Dim id As String = Val(row.Tag)

   cmdx.CommandText = "UPDATE DBQTC SET d1=@d1,d2=@d2, d3=@d3 WHERE id=@id "
   cmdx.Parameters.Clear()
   cmdx.Parameters.AddWithValue("@d1", txt1)
   cmdx.Parameters.AddWithValue("@d2", txt2)
   cmdx.Parameters.AddWithValue("@d3", txt3)

   cmdx.Parameters.AddWithValue("@id", id)



   If conx.State <> ConnectionState.Open Then conx.Open()
   Dim ret As Integer = cmdx.ExecuteNonQuery()
   conx.Close()

   If ret > 0 Then
       MsgBox("تم التحديث بنجاح")
       row.Cells(3).Style.NullValue = "Add"
   End If

End Sub
الرد
تم الشكر بواسطة: dubai.eig , dubai.eig , elgokr , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بخصوص ال update فى الاكسس mostafa nada 8 163 منذ 3 ساعة مضت
آخر رد: mostafa nada
  [سؤال] تغيير الطابعه الافتراضيه عند الطباعه allo5_800 2 39 منذ 10 ساعة مضت
آخر رد: allo5_800
  استفسار بشأن جدول العملات alfaiz678 5 85 اليوم, 03:59 AM
آخر رد: ay.alhaj
  [سؤال] استفسار عن مشكلة في كود لايجاد العملاء الغير موجودين بجدول الدفع ahmedmansour 20 692 أمس, 02:55 PM
آخر رد: ahmedmansour
  سؤال بخصوص حفظ قيمة في الكومبو بوكس abdullhadi999 7 145 أمس, 02:52 PM
آخر رد: elgokr
  استفسار فراس الغزي 1 55 أمس, 01:56 AM
آخر رد: asemshahen5
  [VB.NET] استفسار :- بخصوص ال textbkx dubai.eig 1 46 16-11-18, 04:17 PM
آخر رد: rmnr
  سؤال بخصوص طباعة الكريستال ريبورت Emam emam 10 171 14-11-18, 04:52 PM
آخر رد: Emam emam
  [VB.NET] استفسار :- بخصوص select top 10 dubai.eig 2 64 13-11-18, 09:11 AM
آخر رد: dubai.eig
  [VB.NET] استفسار في برمجة سجيلات الدخول للبرنامج فراس الغزي 1 37 13-11-18, 01:50 AM
آخر رد: mero5000

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم