Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearch.TextChanged
If Len(txtSearch.Text) > 9 Then
End If
If txtSearch.Text = "" Then
Dim Msg As String = "فضلاً ادخل السجل المدني الخاص بالعميل الذي تود البحث عن مواعيده"
MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
txtSearch.Focus()
Exit Sub
End If
Try
CMD = New OleDbCommand("SELECT qAllCustomer.CivilRegNum, qAllCustomer.FullName, qAllCustomer.MobileNum, qAllCustomer.BarwahNum, qAllCustomer.DateReg, qAllCustomer.DateReceipt FROM qAllCustomer where CivilRegNum like '%" & txtSearch.Text & "'", ApoSYSconn)
Dim da As New OleDbDataAdapter
da.SelectCommand = CMD
Dim dt As New DataTable
da.Fill(dt)
If dt.Rows.Count = 0 Then
MsgBox("لا يوجود سجلات لعملية البحث")
txtCRN.Text = ""
dgv1.DataSource = Nothing
Else
txtCRN.Text = dt.Rows(0)("CivilRegNum").ToString
txtFullName.Text = dt.Rows(0)("FullName").ToString
txtMobile.Text = dt.Rows(0)("MobileNum").ToString
dgv1.DataSource = dt
dgv1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
End If
'txtSearch.Text = ""
Catch ex As Exception
'MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearch.TextChanged
If Len(txtSearch.Text) > 9 Then
If txtSearch.Text = "" Then
Dim Msg As String = "فضلاً ادخل السجل المدني الخاص بالعميل الذي تود البحث عن مواعيده"
MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
txtSearch.Focus()
Exit Sub
End If
Try
CMD = New OleDbCommand("SELECT qAllCustomer.CivilRegNum, qAllCustomer.FullName, qAllCustomer.MobileNum, qAllCustomer.BarwahNum, qAllCustomer.DateReg, qAllCustomer.DateReceipt FROM qAllCustomer where CivilRegNum like '%" & txtSearch.Text & "'", ApoSYSconn)
Dim da As New OleDbDataAdapter
da.SelectCommand = CMD
Dim dt As New DataTable
da.Fill(dt)
If dt.Rows.Count = 0 Then
MsgBox("لا يوجود سجلات لعملية البحث")
txtCRN.Text = ""
dgv1.DataSource = Nothing
Else
txtCRN.Text = dt.Rows(0)("CivilRegNum").ToString
txtFullName.Text = dt.Rows(0)("FullName").ToString
txtMobile.Text = dt.Rows(0)("MobileNum").ToString
dgv1.DataSource = dt
dgv1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
End If
End If
'txtSearch.Text = ""
Catch ex As Exception
'MessageBox.Show(ex.Message)
End Try
End Sub(25-04-14, 06:40 PM)bumb كتب : [ -> ]شكلكم نسيتوني ياشباب او مليتو مني
