SISTEM INFORMASI DATA DOKTER DAN PASIEN DI KLINIK PERMATA BUNDA MEDAN

Imports System.Data.OleDb
Public Class Form1
    Public DB As OleDbConnection
    Public CMD As OleDbCommand
    Public ADP As OleDbDataAdapter
    Public DR As OleDbDataReader
    Public DS As New DataSet
    Dim SQL As String
    Public Sub OpenDB()
        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =C:\VB3\daftarpasien.mdb"
        DB = New OleDbConnection(LOKASI)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If
    End Sub
    Sub Tampildokter()
        ADP = New OleDbDataAdapter("SELECT * FROM dokter", DB)
        DS = New DataSet
        ADP.Fill(DS, "dokter")
        DataGridView1.DataSource = DS.Tables("dokter")
    End Sub
    Sub ButtonBaru()
        btnbaru.Enabled = True
        btnsimpan.Enabled = False
        btnhapus.Enabled = False
        btnbatal.Enabled = False
        btnkeluar.Enabled = True
    End Sub

    Sub ButtonSimpan()
        btnBaru.Enabled = False
        btnSimpan.Enabled = True
        btnhapus.Enabled = True
        btnBatal.Enabled = True
        btnkeluar.Enabled = False
    End Sub
    Sub Buttonedit()
        btnbaru.Enabled = False
        btnsimpan.Enabled = False
        btnhapus.Enabled = True
        btnbatal.Enabled = True
        btnkeluar.Enabled = False

    End Sub
    Sub HapusText()
        kode.Text = ""
        nama.Text = ""
        alamat.Text = ""
        jenis_kelamin.Text = ""
        telpon.Text = ""
        spesialis.Text = ""
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        jenis_kelamin.Items.Add("wanita")
        jenis_kelamin.Items.Add("pria")
        spesialis.Items.Add("THT")
        spesialis.Items.Add("Kandungan")
        spesialis.Items.Add("Gigi")
        spesialis.Items.Add("anak")
        Call OpenDB()
        Call HapusText()
        Call Tampildokter()
    End Sub
   

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
        Call HapusText()
        kode.Focus()
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        SQL = "INSERT INTO dokter(Kode_Dokter, Nama_Dokter, alamat, jenis_kelamin,telpon,spesialis) " & _
                     " values('" & kode.Text & "','" & _
                                   nama.Text & "','" & _
                                   alamat.Text & "','" & _
                                   jenis_kelamin.Text & "','" & _
                                   telpon.Text & "','" & _
                                   spesialis.Text & "')"


        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call Tampildokter()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        SQL = "DELETE from dokter where kode_Dokter='" & kode.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call Tampildokter()
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Call HapusText()
        kode.Focus()
    End Sub

    Private Sub kode_keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kode.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String
        If tombol = 13 Then
            SQL = "SELECT * FROM dokter Where Kode_Dokter='" & kode.Text & "'"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows = True Then
                nama.Text = DR.Item(1)
                alamat.Text = DR.Item(2)
                jenis_kelamin.Text = DR.Item(3)
                telpon.Text = DR.Item(4)
                spesialis.Text = DR.Item(5)
                MsgBox("Data Ditemukan !")
            Else
                xkode = kode.Text
                Call HapusText()
                kode.Text = xkode
                Call ButtonSimpan()
            End If
            nama.Focus()
        End If
    End Sub

    Private Sub spesialis_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles spesialis.SelectedIndexChanged
        If spesialis.Text = "THT" Then
            jenis_kelamin.Items.Add("wanita")
        End If
        If spesialis.Text = "Kandungan" Then
            jenis_kelamin.Items.Add("wanita")
        End If

        If spesialis.Text = "Gigi" Then
            jenis_kelamin.Items.Add("Pria")

        End If
        If spesialis.Text = "Anak" Then
            jenis_kelamin.Items.Add("wanita")
        End If
    End Sub
End Class