09-05-14, 06:46 PM
align*=left]
[/align]
كود :
Imports System.Data.SqlClient
Imports System.Globalization
Public Class ser
Dim sqlcon As New SqlConnection(" data source = ABDALRAHMAN-PC\SQLEXPRESS; initial catalog = medical ; integrated security = true")
Dim sqlstatment As String
Dim sql1 As String
Dim winclass As New Class1
Private Sub ser_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
winclass.Fillcombobox(cbojob, " jobs", "jobname", "jobid", " ")
cbojob.SelectedIndex = -1
End Sub
Private Sub btnquery1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnquery1.Click
btnquery1.Enabled = False
btnnewquery1.Enabled = True
If txtquery1.Text.Trim = "" Then
MsgBox("ادخل الاسم للبحث ", MsgBoxStyle.Exclamation)
txtquery1.Focus()
lblerror.Text = (" ادخل الاسم للبحث ")
lblerror.ForeColor = Color.Red
Exit Sub
End If
If sqlcon.State = ConnectionState.Open Then
sqlcon.Close()
End If
'---------------------------------------------------
sqlstatment = " "
sql1 = " "
Dim firstcont As Boolean = True
If txtquery1.Text <> " " Then
If firstcont = False Then
sqlstatment = sqlstatment & " patient.name + patient.tellike '%" & txtquery1.Text & "%'"
Else
firstcont = False
sqlstatment = sqlstatment & " patient.name + patient.tel like '%" & txtquery1.Text & "%'"
End If
End If
sqlcon.Open()
sql1 = " Select * from patient where " & sqlstatment
Dim cmd As New SqlCommand(sql1)
cmd.Connection = sqlcon
Dim dr As SqlDataReader = cmd.ExecuteReader
If dr.HasRows Then
dr.Read()
txtrec1.Text = dr.Item("id")
txtren.Text = dr.Item("name")
txtname.Text = dr.Item("name")
txtid.Text = dr.Item("id")
cbojob.SelectedValue = dr.Item("jobid")
txtdate.MyText = dr.Item("date")
txttel.Text = dr.Item("tel")
txtphone.Text = dr.Item("phone")
txtaddress.Text = dr.Item("address")
txtcomment.Text = dr.Item("comments")
cboage.SelectedText = dr.Item("age")
cbogender.SelectedText = dr.Item("gender")
cbomerital.SelectedText = dr.Item("merital")
sqlcon.Close()
btnenabled1.Enabled = True
Else
lblerror.BackColor = Color.Red
lblerror.ForeColor = Color.White
lblerror.Text = "الاسم غير موجود "
sqlcon.Close()
End If
End Sub
Private Sub btnnewquery1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnewquery1.Click
btnquery1.Enabled = True
btnnewquery1.Enabled = False
cleartext()
'btnsaveupdate1.Enabled = True
sqlcon.Open()
End Sub
Private Sub cleartext()
txtname.Text = " "
txtquery1.Text = " "
txtid.Text = " "
txtaddress.Text = " "
txtcomment.Text = " "
txtdate.MyDay = " "
txtdate.MyMonth = " "
txtdate.MyYear = " "
txttel.Text = " "
txtphone.Text = " "
cboage.Text = " "
cbogender.Text = " "
cbojob.SelectedIndex = -1
cbomerital.Text = " "
lblerror.Visible = False
End Sub
Private Sub enabledtext()
txtname.Enabled = True
txtid.Enabled = True
txtdate.Enabled = True
txtaddress.Enabled = True
txtcomment.Enabled = True
txtphone.Enabled = True
txttel.Enabled = True
cboage.Enabled = True
cbogender.Enabled = True
cbojob.Enabled = True
cbomerital.Enabled = True
sqlcon.Close()
End Sub
Private Sub btnenabled1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenabled1.Click
enabledtext()
btnsaveupdate1.Enabled = True
End Sub
Private Sub btnsaveupdate1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsaveupdate1.Click
Dim updateok As Boolean = winclass.SQLExciute(" update patient set name= '" & txtname.Text & "',comments='" & txtcomment.Text & "' where id= " & txtrec1.Text & "")
If updateok = True Then
lblerror.Text = (" تمت عملية تعديل البيانات ")
lblerror.BackColor = Color.Green
lblerror.ForeColor = Color.White
btnsaveupdate1.Enabled = False
Else
MsgBox("خطأ فى عملية تعديل البيانات ", MsgBoxStyle.Critical)
End If
End Sub
Private Sub txtquery1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtquery1.TextChanged
End Sub
End Class[/align]
