Pengolahan Data Dokter Dari Rumah Sakit Haji

 

Saya di sini masih dalam tahap pembelajaran atau tahap pemahaman membuat program sendiri, jadi dalam program database saya ini mungkin ada atau kurang menarik untuk di lihat.

tapi inilah yang saya bisa perbuat dan Saya kerjakan dengan sebisa dan semampuh saya.

Di dalam program saya ini daya membuat tentang pengolahan data Dokter dari rumah sakit Haji, yang Datanya saya dapat dari Tugas Akhir kakak seperkukliahan saya.

Desainnya seperti di bawah ini:

 

Listing Program di Bawah Ini:

Imports System.Data.OleDb

Public Class DOKTER

    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:\vb5\Database11.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub TampilRecorddokter()

        ADP = New OleDbDataAdapter("SELECT * FROM dokter", DB)

        DS = New DataSet

        ADP.Fill(DS, "dokter")

        DataGridView1.DataSource = DS.Tables("dokter")

    End Sub

    Sub buttonbaru()

        BARU.Enabled = True

        SIMPAN.Enabled = False

        EDIT.Enabled = False

        HAPUS.Enabled = False

        BATAL.Enabled = False

        KELUAR.Enabled = True

    End Sub

    Sub buttonsimpan()

        BARU.Enabled = False

        SIMPAN.Enabled = True

        EDIT.Enabled = False

        HAPUS.Enabled = False

        BATAL.Enabled = True

        KELUAR.Enabled = False

    End Sub

    Sub buttonedit()

        BARU.Enabled = False

        SIMPAN.Enabled = False

        EDIT.Enabled = True

        HAPUS.Enabled = True

        BATAL.Enabled = True

        KELUAR.Enabled = False

    End Sub

    Sub HapusText()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        Call buttonbaru()

    End Sub

    Private Sub KELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUAR.Click

        Me.Close()

    End Sub

    Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click

        SQL = "DELETE *FROM dokter Where kode_dokter='" & TextBox1.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call BARU_Click(sender, e)

        Call TampilRecorddokter()

    End Sub

    Private Sub BARU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BARU.Click

        Call HapusText()

        TextBox1.Focus()

    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "SELECT * FROM dokter Where kode_dokter='" & TextBox1.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                TextBox2.Text = DR.Item(2)

                TextBox3.Text = DR.Item(4)

                TextBox4.Text = DR.Item(6)

                Call buttonedit()

                MsgBox("YE YE YE DATA DITEMUKAN!")

            Else

                xkode = TextBox1.Text

                Call HapusText()

                TextBox1.Text = xkode

                Call buttonsimpan()

            End If

            TextBox2.Focus()

        End If

    End Sub

    Private Sub BATAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BATAL.Click

        Call HapusText()

        TextBox1.Focus()

    End Sub

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click

        SQL = "INSERT INTO dokter (kode_dokter, nama_dokter, jenis_kelamin, telpn, spesialisasi, tarif)" & _

                        "Values ('" & TextBox1.Text & "','" & _

                                        TextBox2.Text & "','" & _

                                        jenis_kelamin.Text & "','" & _

                                        TextBox3.Text & "','" & _

                                        spesialisasi.Text & "','" & _

                                        TextBox4.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call BARU_Click(sender, e)

        Call TampilRecorddokter()

    End Sub

    Private Sub EDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT.Click

        SQL = "UPDATE dokter SET nama_dokter='" & TextBox2.Text & "'," & _

                                "jenis_kelamin='" & jenis_kelamin.Text & "'," & _

                                "telpn='" & TextBox3.Text & "'," & _

                                "spesialisasi='" & spesialisasi.Text & "'," & _

                                "tarif='" & TextBox4.Text & "' " & _

                                "Where kode_dokter='" & TextBox1.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call BARU_Click(sender, e)

        Call TampilRecorddokter()

    End Sub

    Private Sub DOKTER_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call Opendb()

        Call HapusText()

        Call TampilRecorddokter()

        Call buttonbaru()

        jenis_kelamin.Items.Add("jenis kelamin")

        spesialisasi.Items.Add("spesialisasi")

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jenis_kelamin.SelectedIndexChanged

        If jenis_kelamin.Text = "jenis kelamin" Then

            jenis_kelamin.Items.Add("laki-laki")

            jenis_kelamin.Items.Add("perempuan")

            jenis_kelamin.Items.Add("waria")

        End If

    End Sub

    Private Sub spesialisasi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles spesialisasi.SelectedIndexChanged

        If spesialisasi.Text = "spesialisasi" Then

            spesialisasi.Items.Add("jantung")

            spesialisasi.Items.Add("paru-paru")

            spesialisasi.Items.Add("kandungan")

        End If

    End Sub

End Class