في الدرس القادم فيه شرح لحقل STATE
وبالنسبة لكود الاتصال الـ tYPE اجعله CONNECTION
والـ SCOPE اجعله APPLICATION
طبعا السير تبعي اسمه JORE غيره باسم السيرفر لديك
الدرس الثاني : تكملة شاشة الموردين ( تنظيف الشاشة - الاضافة والتعديل والحذف )
الأكواد المستخدمة في الدرس
كود :
'===== الترقيم التلقائي ===============
Public Function CODE_GENE(TBLNAME, ID_) As Integer
CODE_GENE = 0
Dim DT As New DataTable
Dim DA As New SqlClient.SqlDataAdapter("SELECT * FROM " & TBLNAME & " ORDER BY " & ID_ & "", SqlConn)
DA.Fill(DT)
If DT.Rows.Count <> 0 Then
Dim I = DT.Rows.Count - 1
CODE_GENE = Val(DT.Rows(I).Item(ID_))
End If
End Function
كود التنظيف :
كود :
'=========== تنظيف الشاشة
For I = 0 To GroupBox1.Controls.Count - 1
If TypeOf GroupBox1.Controls(I) Is TextBox Then GroupBox1.Controls(I).Text = ""
Next
For I = 0 To GroupBox2.Controls.Count - 1
If TypeOf GroupBox2.Controls(I) Is TextBox Then GroupBox2.Controls(I).Text = ""
Next
'============الترقيم التلقائي========
TXT_CODE.Text = CODE_GENE("IMPORTERS", "ID") + 1
'=============================================
ButtEdit.Enabled = False
ButtDelete.Enabled = False
DEBIT.Text = "0.000"
CREDIT.Text = "0.000"
TXT_MINES.Text = "0.000"
TXT_NAME.Select()
كود الحفظ :
كود :
'======== قيود الادخال ============
If TXT_NAME.Text = "" Then
MessageBox.Show("يرجى إدخال اسم المورد", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
TXT_NAME.Select()
Exit Sub
End If
If TXT_PHONE.Text = "" Then
MessageBox.Show("يرجى إدخال رقم هاتف المورد", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
TXT_PHONE.Select()
Exit Sub
End If
'============================ كود الحفظ =====================
Dim DT As New DataTable
Dim DA As New SqlClient.SqlDataAdapter("SELECT * FROM IMPORTERS WHERE IMP_NAME = '" & TXT_NAME.Text & "' OR IMP_PHONE = '" & TXT_PHONE.Text & "' ", SqlConn)
DA.Fill(DT)
If DT.Rows.Count > 0 Then
MessageBox.Show("المورد موجود مسبقاً", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Else
DT.Rows.Add()
Dim ADD_ As Integer = DT.Rows.Count - 1
DT.Rows(ADD_).Item("IMP_CODE") = TXT_CODE.Text
DT.Rows(ADD_).Item("IMP_NAME") = TXT_NAME.Text
DT.Rows(ADD_).Item("IMP_ADDRESS") = TXT_ADDRESS.Text
DT.Rows(ADD_).Item("IMP_PHONE") = TXT_PHONE.Text
DT.Rows(ADD_).Item("NOTES") = TXT_NOTES.Text
DT.Rows(ADD_).Item("COMPANY") = TXT_COMPANY.Text
DT.Rows(ADD_).Item("DEBIT") = Val(DEBIT.Text)
DT.Rows(ADD_).Item("CREDIT") = Val(CREDIT.Text)
DT.Rows(ADD_).Item("STATE") = True
Dim SAVE As New SqlClient.SqlCommandBuilder(DA)
DA.Update(DT)
DT.AcceptChanges()
MessageBox.Show("تمت عملية إضافة بيانات المورد بنجاح", "رسالة تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
ButtNew_Click(sender, e)
End If
كود التعديل :
كود :
If TXT_NAME.Text = "" Then
MessageBox.Show("يرجى إدخال اسم المورد", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
TXT_NAME.Select()
Exit Sub
End If
If TXT_PHONE.Text = "" Then
MessageBox.Show("يرجى إدخال رقم هاتف المورد", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
TXT_PHONE.Select()
Exit Sub
End If
'============================ كود الحفظ =====================
Dim DT As New DataTable
Dim DA As New SqlClient.SqlDataAdapter("SELECT * FROM IMPORTERS WHERE IMP_NAME = '" & TXT_NAME.Text & "' OR IMP_PHONE = '" & TXT_PHONE.Text & "' ", SqlConn)
DA.Fill(DT)
If DT.Rows.Count = 0 Then
MessageBox.Show("المورد غير موجود يرجى التأكد", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Else
Dim UPDATE As Integer = BindingContext(DT).Position
DT.Rows(UPDATE).Item("IMP_CODE") = TXT_CODE.Text
DT.Rows(UPDATE).Item("IMP_NAME") = TXT_NAME.Text
DT.Rows(UPDATE).Item("IMP_ADDRESS") = TXT_ADDRESS.Text
DT.Rows(UPDATE).Item("IMP_PHONE") = TXT_PHONE.Text
DT.Rows(UPDATE).Item("NOTES") = TXT_NOTES.Text
DT.Rows(UPDATE).Item("COMPANY") = TXT_COMPANY.Text
DT.Rows(UPDATE).Item("DEBIT") = Val(DEBIT.Text)
DT.Rows(UPDATE).Item("CREDIT") = Val(CREDIT.Text)
DT.Rows(UPDATE).Item("STATE") = True
Dim Save As New SqlClient.SqlCommandBuilder(DA)
DA.Update(DT)
DT.AcceptChanges()
MessageBox.Show("تمت عملية تعديل بيانات المورد بنجاح", "رسالة تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
ButtNew_Click(sender, e)
End If
كود الحذف :
كود :
If MessageBox.Show("هل ترغب في حذف بيانات المورد ؟", "رسالة تنبيه", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.No Then Exit Sub
'============================ كود الحفظ =====================
Dim DT As New DataTable
Dim DA As New SqlClient.SqlDataAdapter("SELECT * FROM IMPORTERS WHERE IMP_NAME = '" & TXT_NAME.Text & "' OR IMP_PHONE = '" & TXT_PHONE.Text & "' ", SqlConn)
DA.Fill(DT)
If DT.Rows.Count = 0 Then
MessageBox.Show("المورد غير موجود يرجى التأكد", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Else
Dim UPDATE As Integer = BindingContext(DT).Position
DT.Rows(UPDATE).Item("STATE") = False
Dim Save As New SqlClient.SqlCommandBuilder(DA)
DA.Update(DT)
DT.AcceptChanges()
MessageBox.Show("تمت عملية حذف بيانات المورد بنجاح", "رسالة تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
ButtNew_Click(sender, e)
End If
