تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل كود واسف انه كود كبير
#1
Thumbs Up 
كود :
Imports System.Data.OleDb
Imports System.Data


Public Class folderadd
Dim da As OleDbDataAdapter
Dim sqlstr As String
Public a As Integer

Sub amount()
txtamount.Text = Val(txtqty.Text) * Val(txtprice.Text)
End Sub
Dim dt As New DataTable
Sub sorse()
dt.Columns.Add("رقم الصنف")
dt.Columns.Add("اسم الصنف")
dt.Columns.Add("الكميه")
dt.Columns.Add("سعر الشراء")
dt.Columns.Add("الاجمالى")
dgvprodac.DataSource = dt
dgvprodac.Columns(0).Width = txtid.Width
dgvprodac.Columns(1).Width = txtlabel.Width
dgvprodac.Columns(2).Width = txtprice.Width
dgvprodac.Columns(3).Width = txtqty.Width
dgvprodac.Columns(4).Width = txtamount.Width
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim frm As New frlko
frm.ShowDialog()
txtcusid.Text = frm.dgvcust.CurrentRow.Cells(0).Value
txtfullname.Text = frm.dgvcust.CurrentRow.Cells(1).Value
txttell.Text = frm.dgvcust.CurrentRow.Cells(2).Value
End Sub
Private Sub folderadd_Load(sender As Object, e As EventArgs) Handles MyBase.Load

txtsailman.Text = fullname
sorse()


Try
a = 0
a = txtnamper.Text


Catch ex As Exception
MsgBox(ex.Message)
End Try

Try
con.Open()
sqlstr = "Select IIF(MAX(Id) IS NULL,0,MAX(Id)) + 1 AS maxId from TAB_OLDER"
cmd = New OleDbCommand(sqlstr, con)
txtnamper.Text = cmd.ExecuteScalar()
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try


End Sub
Sub clear()
txtid.Clear()
txtlabel.Clear()
txtprice.Clear()
txtqty.Clear()
txtamount.Clear()
txtid.Focus()
End Sub
Private Sub txtid_KeyDown(sender As Object, e As KeyEventArgs) Handles txtid.KeyDown
Try
If e.KeyCode = Keys.Enter Then
'get product infos
cmd = New OleDb.OleDbCommand("select label, PRICE from tab_pro where id = " & txtid.Text, con)
con.Open()
Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
txtlabel.Text = dr(0)
txtprice.Text = dr(1)
txtqty.Focus()
Else
MsgBox("تحقق من المنتج", MsgBoxStyle.Exclamation, "تنبيه")
clear()
End If
dr.Close()
End If
Catch ex As Exception
Exit Sub
Finally
con.Close()
End Try
End Sub
Private Sub txtprice_TextChanged(sender As Object, e As EventArgs) Handles txtqty.TextChanged, txtprice.TextChanged
Try
amount()
Catch ex As Exception
Exit Sub
End Try
End Sub
Private Sub txtqty_KeyDown(sender As Object, e As KeyEventArgs) Handles txtqty.KeyDown
If e.KeyCode = Keys.Enter Then
Dim raw As DataRow = dt.NewRow
raw(0) = txtid.Text
raw(1) = txtlabel.Text
raw(2) = txtqty.Text
raw(3) = txtprice.Text
raw(4) = txtamount.Text
dt.Rows.Add(raw)
Me.dgvprodac.DataSource = dt
clear()
End If
End Sub
Private Sub btndelet_Click(sender As Object, e As EventArgs) Handles btndelet.Click
Try
dgvprodac.Rows.RemoveAt(dgvprodac.CurrentRow.Index)
Catch ex As Exception
End Try
End Sub
Private Sub btndeletall_Click(sender As Object, e As EventArgs) Handles btndeletall.Click
dt.Rows.Clear()
Me.dgvprodac.DataSource = dt
End Sub
Private Sub dgvprodac_DoubleClick(sender As Object, e As EventArgs) Handles dgvprodac.DoubleClick
Try
txtid.Text = Me.dgvprodac.CurrentRow.Cells(0).Value
txtlabel.Text = Me.dgvprodac.CurrentRow.Cells(1).Value
txtqty.Text = Me.dgvprodac.CurrentRow.Cells(2).Value
txtprice.Text = Me.dgvprodac.CurrentRow.Cells(3).Value
txtamount.Text = Me.dgvprodac.CurrentRow.Cells(4).Value
dgvprodac.Rows.RemoveAt(dgvprodac.CurrentRow.Index)
Catch ex As Exception
Exit Sub
End Try
End Sub
Sub MySub()
Dim f As New folder
sqlstr = "Select IIF(MAX(Id) IS NULL,0,MAX(Id)) + 1 AS maxId from TAB_OLDER"
End Sub
Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
Dim cmd As New OleDbCommand(String.Empty, con)
Dim ss As String
con.Open()
For Each r As DataGridViewRow In dgvprodac.Rows
Dim ad As Integer = Val(r.Cells(0).Value)
Dim txt As Integer = Val(r.Cells(2).Value)
cmd.CommandText = String.Format(" UPDATE [tab_pro] SET [qty] = qty +{0} WHERE [id] = {1} ", txt, ad)
cmd.ExecuteNonQuery()
Next
Try


'cmd = New OleDbCommand(sqlstr, con)
ss = "INSERT INTO [tab_older] ([date], [sailman],[ID]) VALUES (@date, @sailman, @ID)"
Dim md As New OleDbCommand(ss, con)
cmd.Parameters.AddWithValue("@date", dtolder.Value.Date)
cmd.Parameters.AddWithValue("@sailman", txtsailman.Text)
cmd.Parameters.AddWithValue("@ID", txtnamper.Text)
'con.Open()
cmd.ExecuteNonQuery()
'con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
con.Close()
MsgBox("تم حفظ الفاتوره")
dt.Rows.Clear()
MySub()





End Sub
الرد
تم الشكر بواسطة:
#2
أخي نبيل

تفضل التعديل وذلك بمعرفة قيمة Id بعد تنفيذ الإضافة مباشرة
PHP كود :
   'con.Open()
    ss = "INSERT INTO [tab_older] ([date], [sailman],[ID]) VALUES (@date, @sailman, @ID)"
    Dim md As New OleDbCommand(ss, con)
    md.Parameters.AddWithValue("@date", dtolder.Value.Date)
    md.Parameters.AddWithValue("@sailman", txtsailman.Text)
    md.Parameters.AddWithValue("@ID", txtnamper.Text)
    md.ExecuteNonQuery()

    md.CommandText = "SELECT @@IDENTITY"
    Dim id As Integer = md.ExecuteScalar
    MsgBox(id)
    '
con.Close() 

هناك اشكالية في الكود الذي لديك، فأنت قمت بتعريف md وcmd
راجع الكود جيدا
الرد
تم الشكر بواسطة: نبيل كونكت , نبيل كونكت


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طلب تعديل علي كود تفعيل وحفظ التفعيل ScreamVoice 13 274 11-10-18, 05:43 PM
آخر رد: ScreamVoice
  [VB.NET] مساعده :- في تعديل كود الطباعه dubai.eig 9 206 11-10-18, 02:34 PM
آخر رد: عبدالله الدوسري
  تعديل كود بحث بسيط dasktop 5 123 05-10-18, 12:43 AM
آخر رد: elgokr
  [سؤال] محتاج تعديل بسيط في كود ScreamVoice 7 125 04-10-18, 06:41 AM
آخر رد: ScreamVoice
  سؤال حول تعديل على نص trakktour 5 119 01-10-18, 02:57 AM
آخر رد: rnmr
  احد يساعدني في تعديل هذا الكود nagoma 0 45 29-09-18, 12:06 AM
آخر رد: nagoma
  تعديل بسيط dasktop 4 128 25-09-18, 10:50 AM
آخر رد: elgokr
  تعديل بسيط dasktop 1 90 11-09-18, 02:53 AM
آخر رد: elgokr
  طلب مساعدة في عدم تحديث البيانات في الداتا جريد فيو عند الضغط على زر تعديل essawq 9 233 05-09-18, 11:22 PM
آخر رد: essawq
  الرجاء تعديل علا المثال التالي لعرض ملف هيكس في ليست بوكس wolf1120 17 464 22-08-18, 10:18 PM
آخر رد: elgokr

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


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