12-02-14, 03:45 AM
هذا كود البحث عن طريق الرقم واريد بجانبة البحث عن طريق الاسم ولكم جزير الشكر"
Private Sub btnsrch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsrch.Click
Try
''...............................
If txttiktno.Text.Trim = "" Then
MsgBox("أدخل رقم الموظف لاجراء البحث المطلوب", MsgBoxStyle.Information)
txttiktno.Focus()
btnsrch.Enabled = True
Exit SubQ
End If
If sqlcon.State = ConnectionState.Open Then
sqlcon.Close()
End If
'.....................................
search = ""
sql = ""
'.....................................
Dim FirstCont As Boolean = True
If txttiktno.Text <> "" Then 'اذا تكست البحث لا يساوي فاضي
If FirstCont = False Then
search = search & " hajz.ticket_no = " & txttiktno.Text & ""
Else
FirstCont = False
search = search & " hajz.ticket_no = " & txttiktno.Text & ""
End If
End If
sqlcon.Open()
classpro.FillDataGrid(DGpassnger, "select hajz.ticket_no,hajz.pass_name,sub_line.sub_name,hajz_date,journey.jor_date from hajz ,sub_line,journey where hajz.sub_no=sub_line.sub_no and journey.jor_no=hajz.jor_no and " & search)
DGpassnger.Columns(0).HeaderText = "رقم التذكره"
DGpassnger.Columns(1).HeaderText = "الاسم المسافر"
DGpassnger.Columns(2).HeaderText = "المسار"
DGpassnger.Columns(3).HeaderText = "تاريخ الحجز"
DGpassnger.Columns(4).HeaderText = "تاريخ الرحله"
Dim cmd As New SqlCommand()
cmd.Connection = sqlcon
Dim dr As SqlDataReader = cmd.ExecuteReader
If dr.HasRows Then 'في حالة قراءة البيانات
dr.Read() 'نفذ القراءة التالي
DGpassnger.DataSource = ds.Tables
Else
MsgBox("السجل المطلوب غير موجود", MsgBoxStyle.Exclamation, "تنبيه")
End If
If sqlcon.State = ConnectionState.Open Then
sqlcon.Close()
End If
Catch ex As Exception
End Try
End Sub
Private Sub btnsrch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsrch.Click
Try
''...............................
If txttiktno.Text.Trim = "" Then
MsgBox("أدخل رقم الموظف لاجراء البحث المطلوب", MsgBoxStyle.Information)
txttiktno.Focus()
btnsrch.Enabled = True
Exit SubQ
End If
If sqlcon.State = ConnectionState.Open Then
sqlcon.Close()
End If
'.....................................
search = ""
sql = ""
'.....................................
Dim FirstCont As Boolean = True
If txttiktno.Text <> "" Then 'اذا تكست البحث لا يساوي فاضي
If FirstCont = False Then
search = search & " hajz.ticket_no = " & txttiktno.Text & ""
Else
FirstCont = False
search = search & " hajz.ticket_no = " & txttiktno.Text & ""
End If
End If
sqlcon.Open()
classpro.FillDataGrid(DGpassnger, "select hajz.ticket_no,hajz.pass_name,sub_line.sub_name,hajz_date,journey.jor_date from hajz ,sub_line,journey where hajz.sub_no=sub_line.sub_no and journey.jor_no=hajz.jor_no and " & search)
DGpassnger.Columns(0).HeaderText = "رقم التذكره"
DGpassnger.Columns(1).HeaderText = "الاسم المسافر"
DGpassnger.Columns(2).HeaderText = "المسار"
DGpassnger.Columns(3).HeaderText = "تاريخ الحجز"
DGpassnger.Columns(4).HeaderText = "تاريخ الرحله"
Dim cmd As New SqlCommand()
cmd.Connection = sqlcon
Dim dr As SqlDataReader = cmd.ExecuteReader
If dr.HasRows Then 'في حالة قراءة البيانات
dr.Read() 'نفذ القراءة التالي
DGpassnger.DataSource = ds.Tables
Else
MsgBox("السجل المطلوب غير موجود", MsgBoxStyle.Exclamation, "تنبيه")
End If
If sqlcon.State = ConnectionState.Open Then
sqlcon.Close()
End If
Catch ex As Exception
End Try
End Sub