SISTEM INFORMASI DATA DOKTER R.S CINTA ABADI

1.FORM MENU

Public Class Form1

    Private Sub DATADOKTERToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATADOKTERToolStripMenuItem.Click

        rini.Show()

    End Sub

    Private Sub KELUARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUARToolStripMenuItem.Click

        End

    End Sub

End Class

        2.    FORM INPUT

LISTING PROGRAM INPUT

Imports MySql.Data.MySqlClient

Public Class rini

    Public db As New MySql.Data.MySqlClient.MySqlConnection

    Public sql As String

    Public cmd As MySqlCommand

    Public rs As MySqlDataReader

    Sub opendb()

        sql = "server=localhost;uid=root;pwd;database=penjualan7"

        Try

            db.ConnectionString = sql

            db.Open()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub bersih()

        kddokter.Text = ""

        nmdokter.Text = ""

        alamat.Text = ""

        telp.Text = ""

        rubahbutton(True, False, False, False, False, True)

        kddokter.Enabled = True

    End Sub

    Sub rubahbutton(ByVal btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean, ByVal btn6 As Boolean)

        btnbaru.Enabled = btn1

        btnsimpan.Enabled = btn2

        btnedit.Enabled = btn3

        btnhapus.Enabled = btn4

        btnbatal.Enabled = btn5

        btnkeluar.Enabled = btn6

    End Sub

    Sub buattable()

        lv.Columns.Add("Kode dokter", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Nama dokter", 180, HorizontalAlignment.Left)

        lv.Columns.Add("Alamat", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Telepon", 100, HorizontalAlignment.Left)

        lv.GridLines = True

        lv.FullRowSelect = True

        lv.View = View.Details

    End Sub

    Sub isitable()

        lv.Items.Clear()

        sql = "select * from obat9"

        cmd = New MySqlCommand(sql, db)

        rs = cmd.ExecuteReader

        Try

            While rs.Read

                Dim lst As New ListViewItem

                lst.Text = rs("kode_dokter")

                lst.SubItems.Add(rs("nama_dokter"))

                lst.SubItems.Add(rs("alamat"))

                lst.SubItems.Add(rs("telepon"))

                lv.Items.Add(lst)

            End While

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

    Sub prosesdb(ByVal log As Integer)

        Dim pesan As String = ""

        Select Case log

            Case 0

                sql = "insert into obat9 values(kode_dokter,nama_dokter,alamat,telepon)" & _

                "values('" & kddokter.Text & _

                "','" & nmdokter.Text & _

                "','" & alamat.Text & _

                "','" & telp.Text & _

                pesan = "data telah tersimpan"

            Case 1

                sql = "update obat9 set nama_dokter='" & nmdokter.Text & "'," & _

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

                "telepon='" & telp.Text & "'," & _

                "where kode_dokter='" & kddokter.Text & "'"

                pesan = "data telah terupdate"

            Case 2

                sql = "delete from obat9 where kode_dokter='" & kddokter.Text & "'"

                pesan = "data telah dihapus"

        End Select

        Try

            cmd = New MySqlCommand(sql, db)

            cmd.ExecuteNonQuery()

            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmsi")

            Call bersih()

            Call isitable()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub showdb()

        rs.Read()

        kddokter.Text = rs("kode_dokter")

        nmdokter.Text = rs("nama_dokter")

        alamat.Text = rs("alamat")

        telp.Text = rs("telepon")

        rubahbutton(False, False, True, True, True, False)

        btnsimpan.text = "edit"

        kddokter.Enabled = False

    End Sub

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

        Call opendb()

        Call bersih()

        Call buattable()

        Call isitable()

    End Sub

    Private Sub baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

        Call bersih()

        kddokter.Focus()

    End Sub

    Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Call bersih()

        kddokter.Focus()

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        Dim x As String

        x = MsgBox("anda yakin akan menghapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")

        If x = vbYes Then

            Call prosesdb(2)

        End If

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        If btnsimpan.text = "simpan" Then prosesdb(0) Else prosesdb(1)

    End Sub

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

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            Dim x As String

            If kddokter.Text = "" Then

                MsgBox("isi Kode dokter terlebih dahulu")

            Else

                sql = "select * from obat9 where kode_dokter='" & kddokter.Text & "'"

                cmd = New MySqlCommand(sql, db)

                rs = cmd.ExecuteReader

                Try

                    Call showdb()

                Catch ex As Exception

                    x = kddokter.Text

                    bersih()

                    kddokter.Text = x

                    rubahbutton(False, True, False, False, True, False)

                    btnsimpan.Text = "simpan"

                End Try

                nmdokter.Focus()

                rs.Close()

            End If

        End If

    End Sub

    Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBATAL.Click

    End Sub

End Class

3.TAMPILAN FORM CETAK LAPORAN

                                

                             DEMIKIANLAH HASIL POSTINGAN SAYA

NAMA : RINI MARTAULI SIAHAAN

NPM    : 1102068