05-03-18, 03:42 PM
السلام عليكم ورحمه الله
عندي مشكلة بالكمبوبوكس لما اختار سجل المفترض يظهرلي نص يظهر رقم وانا مسوي displayMember لكن بالاستدعاء يظهر الرقم
المفترض لما اختار السجل يظهر اسم القسم لكن يظهرلي رقمه
ومشكلة ثانية لما يجلب البيانات مايجيب نفس رقم القسم يختار اول اندكس مثلا رقم 1 والرقم المفترض هو 4 مما يسبب لخبطة خاصة اذا كان فيه اكثر من كمبو بوكس من عدة جداول
حاولت ارفق المثال بس ماضبط مادري وش المشكلة
كود اختيار السجل
وهذا زر كود الاضافة بالاسفل
وكود التعديل
وكود الحذف
وكود تفريغ الادوات اسمه newInfor()
وشكرا لكم جميعا
عندي مشكلة بالكمبوبوكس لما اختار سجل المفترض يظهرلي نص يظهر رقم وانا مسوي displayMember لكن بالاستدعاء يظهر الرقم
PHP كود :
FillDepartments()
cmbDep.DataSource = dtdepa
cmbDep.DisplayMember = "DepName"
cmbDep.ValueMember = "id"
المفترض لما اختار السجل يظهر اسم القسم لكن يظهرلي رقمه
ومشكلة ثانية لما يجلب البيانات مايجيب نفس رقم القسم يختار اول اندكس مثلا رقم 1 والرقم المفترض هو 4 مما يسبب لخبطة خاصة اذا كان فيه اكثر من كمبو بوكس من عدة جداول
حاولت ارفق المثال بس ماضبط مادري وش المشكلة
كود اختيار السجل
PHP كود :
'زر اختيار
id = DataGridView1.CurrentRow.Cells(0).Value
cmbEmp.Text = DataGridView1.CurrentRow.Cells(1).Value
cmbDep.Text = DataGridView1.CurrentRow.Cells(2).Value
cmbCer.Text = DataGridView1.CurrentRow.Cells(3).Value
txtSalary.Text = DataGridView1.CurrentRow.Cells(4).Value
dtpDateNomin.Value = DataGridView1.CurrentRow.Cells(5).Value
txtExperience.Text = DataGridView1.CurrentRow.Cells(6).Value
txtPhone.Text = DataGridView1.CurrentRow.Cells(7).Value
وهذا زر كود الاضافة بالاسفل
PHP كود :
'زر اضافة
dt.Rows.Add()
Dim last As Integer = dt.Rows.Count - 1
dt.Rows(last).Item("infoEmpID") = cmbEmp.SelectedValue
dt.Rows(last).Item("infoCertID") = cmbCer.SelectedValue
dt.Rows(last).Item("infoDepID") = cmbDep.SelectedValue
dt.Rows(last).Item("infoExpe") = txtExperience.Text
dt.Rows(last).Item("infoPhone") = txtPhone.Text
dt.Rows(last).Item("infoSalary") = txtSalary.Text
dt.Rows(last).Item("infoNomin") = dtpDateNomin.Value
Dim save As New OleDbCommandBuilder(da)
da.Update(dt)
dt.AcceptChanges()
MessageBox.Show("تمت الاضافة بنجاح")
Filldgv()
newInfor()
وكود التعديل
PHP كود :
Dim str As String = "Update informations set infoEmpID=@infoEmpID,infoDepID=@infoDepID,infoCertID=@infoCertID,infoSalary=@infoSalary,infoNomin=@infoNomin,infoExpe=@infoExpe,infoPhone=@infoPhone where id= " & DataGridView1.CurrentRow.Cells(0).Value
cmd = New OleDbCommand(str, con)
cmd.Parameters.Add(New OleDbParameter("@infoEmpID", OleDbType.Integer)).Value = cmbEmp.SelectedValue
cmd.Parameters.Add(New OleDbParameter("@infoDepID", OleDbType.Integer)).Value = cmbDep.SelectedValue
cmd.Parameters.Add(New OleDbParameter("@infoCertID", OleDbType.Integer)).Value = cmbCer.SelectedValue
cmd.Parameters.Add(New OleDbParameter("@infoSalary", OleDbType.Currency)).Value = txtSalary.Text
cmd.Parameters.Add(New OleDbParameter("@infoNomin", OleDbType.Date)).Value = dtpDateNomin.Value
cmd.Parameters.Add(New OleDbParameter("@infoExpe", OleDbType.VarChar)).Value = txtExperience.Text
cmd.Parameters.Add(New OleDbParameter("@infoPhone", OleDbType.VarChar)).Value = txtPhone.Text
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("تم التعديل بنجاح")
Filldgv()
newInfor()
وكود الحذف
PHP كود :
'زر حذف
Dim msg As String = String.Format("هل أنت متأكد من حذف القسم {0}", DataGridView1.CurrentRow.Cells(1).Value.ToString())
If (MessageBox.Show(msg, "تأكيد الحذف", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2, MessageBoxOptions.RightAlign)) <> Windows.Forms.DialogResult.Yes Then Return
'رسالة عبارة عن سؤال اذا اختار نعم تم الحذف اذا لا لم تتم عملية الحذف
Dim cmd As New OleDbCommand("delete from informations where id= " & DataGridView1.CurrentRow.Cells(0).Value, con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show(" تمت عملية حذف البيانات بنجاح ", "تم الحذف", MessageBoxButtons.OK, MessageBoxIcon.Information)
وكود تفريغ الادوات اسمه newInfor()
PHP كود :
'تفريغ الادوات
cmbEmp.Text = ""
cmbCer.Text = ""
cmbDep.Text = ""
txtExperience.Text = ""
txtPhone.Text = ""
txtSalary.Text = ""
dtpDateNomin.Value = Now.Date
وشكرا لكم جميعا