Notes

Imports System.Data
Imports System.Data.OleDb
Public Class hastakayit

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim baglanti As New OleDbConnection("Provider=Microsoft.JET.OleDb.4.0;Data Source=hastane1.mdb")
Dim komut1 As New OleDbCommand("Select * from hastalar where tc='" & TextBox1.Text & "'", baglanti)
baglanti.Open()
Dim dr As OleDbDataReader
dr = komut1.ExecuteReader
If dr.HasRows Then
MsgBox("TC zaten kayıtlı")
baglanti.Close()
Else
baglanti.Close()
Dim tc, ad, soyad, tel, sosguv, cinsiyet As String
tc = TextBox1.Text
ad = TextBox2.Text
soyad = TextBox3.Text
Dim d_tar As String = DateTimePicker1.Value.ToString
tel = MaskedTextBox1.Text
cinsiyet = ComboBox2.Text
sosguv = ComboBox1.Text
Dim komut As New OleDbCommand
komut.Connection = baglanti
komut.CommandText = "insert into hastalar (tc,ad,soyad,d_tar,tel,sosguv,cinsiyet) values ('" & tc & "','" & ad & "','" & soyad & "','" & d_tar & "','" & tel & "','" & sosguv & "','" & cinsiyet & "')"
baglanti.Open()
komut.ExecuteNonQuery()
baglanti.Close()
MsgBox("Kayıt Başarılı")
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim tc, ad, soyad, tel, sosguv, cinsiyet As String
Dim d_tar As String = DateTimePicker1.Value.ToString
tc = TextBox1.Text
ad = TextBox2.Text
soyad = TextBox3.Text
tel = MaskedTextBox1.Text
cinsiyet = ComboBox2.SelectedItem
sosguv = ComboBox1.SelectedItem
Dim baglanti As New OleDbConnection("Provider=microsoft.jet.oledb.4.0;Data Source=hastane1.mdb")
Dim komut As New OleDbCommand
komut.Connection = baglanti
komut.CommandText = "update hastalar set ad='" & ad & "',soyad='" & soyad & "',d_tar='" & d_tar & "',tel='" & tel & "',sosguv='" & sosguv & "',cinsiyet='" & cinsiyet & "' where tc='" & tc & "'"
baglanti.Open()
komut.ExecuteNonQuery()
baglanti.Close()
MsgBox("güncelleme tamamlandı")
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim tc As String
tc = TextBox1.Text
Dim baglanti As New OleDbConnection("Provider=microsoft.jet.oledb.4.0;Data Source=hastane1.mdb")
Dim komut As New OleDbCommand
komut.Connection = baglanti
komut.CommandText = "Delete * from hastalar where tc='" & tc & "'"
baglanti.Open()
komut.ExecuteNonQuery()
baglanti.Close()
MsgBox("kişi silme başarılı")
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim baglanti As New OleDbConnection("Provider=microsoft.jet.oledb.4.0;Data Source=hastane1.mdb")
Dim komut As New OleDbCommand("select * from hastalar where tc= '" & TextBox1.Text & "'", baglanti)
baglanti.Open()
Dim dr As OleDbDataReader
dr = komut.ExecuteReader
If dr.HasRows Then
Do While dr.Read()
TextBox2.Text = dr("ad")
TextBox3.Text = dr("soyad")
DateTimePicker1.Value = dr("d_tar")
MaskedTextBox1.Text = dr("tel")
ComboBox1.Text = dr("sosguv")
ComboBox2.Text = dr("cinsiyet")
Loop
baglanti.Close()
Else
baglanti.Close()
MsgBox("TC Bulunamadı.")
End If
End Sub

Private Sub HastaKayıtToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HastaKayıtToolStripMenuItem.Click
Me.Show()
doktorkayit.Hide()

End Sub

Private Sub DoktorKayıtToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DoktorKayıtToolStripMenuItem.Click
Me.Hide()
doktorkayit.Show()

End Sub

Private Sub ÇıkışToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÇıkışToolStripMenuItem.Click
Me.Hide()

End Sub
End Class