Yuk..!! Belajar Pemrograman Visual Basic Dot Net Di Mesran.Net

Juni 2,2013 By: Sukesi
Sistem Informasi Data Dokter Dan Pasien Di Klinik Permata Bunda Medan




Private Sub datadokterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles datadokterToolStripMenuItem.Click
        form3.Show()
    End Sub
Private Sub laporanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles laporanToolStripMenuItem.Click
        Dim laporan As New Rptdokter
        cetak.CrystalReportViewer1.ReportSource = laporan
        cetak.Show()
        End Sub
    Private Sub keluarprogramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluarprogramToolStripMenuItem.Click
        End
    End Sub
   
   



Imports MySql.Data.MySqlClient
Public Class Form1
    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=dokter"
        Try
            db.ConnectionString = sql
            db.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Sub bersih()
        kode.Text = ""
        nama.Text = ""
        alamat.Text = ""
        jkel.Text = ""
        telpon.Text = ""
        spesialis.Text = ""
        rubbahbutton(True, True, False, False, True)
        kode.Enabled = True


    End Sub
    Sub rubbahbutton(ByVal btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean)
        baru.Enabled = btn1
        simpan.Enabled = btn2
        hapus.Enabled = btn3
        batal.Enabled = btn4
        keluar.Enabled = btn5

    End Sub
    Sub buattabel()
        Lv.Columns.Add("kode", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("nama", 180, HorizontalAlignment.Left)
        Lv.Columns.Add("alamat", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("jenisk", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("telpon", 160, HorizontalAlignment.Left)
        Lv.Columns.Add("spesialis", 240, HorizontalAlignment.Left)
        Lv.GridLines = True
        Lv.View = View.Details

    End Sub

    Sub isitabel()
        Lv.Items.Clear()
        sql = "select*from dokter1"
        cmd = New MySqlCommand(sql, db)
        rs = cmd.ExecuteReader
        Try
            While rs.Read
                Dim lst As New ListViewItem
                lst.Text = rs("kode")
                lst.SubItems.Add(rs("nama"))
                lst.SubItems.Add(rs("alamat"))
                lst.SubItems.Add(rs("jenisk"))
                lst.SubItems.Add(rs("telpon"))
                lst.SubItems.Add(rs("spesialis"))
                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 dokter1(kode,nama,alamat,jenisk,telpon,spesialis)" & _
                "values('" & kode.Text & _
                "','" & nama.Text & _
                "','" & alamat.Text & _
                "','" & jkel.Text & _
                "','" & telpon.Text & _
                "','" & spesialis.Text & "')"
                pesan = "data telah tersimpan"
            Case 1
                sql = "update dokter1 set nama='" & nama.Text & "'," & _
                "alamat='" & alamat.Text & "'," & _
                "jenisk='" & jkel.Text & "' " & _
                "telpon='" & telpon.Text & "'" & _
                "spesialis='" & spesialis.Text & "'," & _
                "where kode='" & kode.Text & "'"
                pesan = "data telah terupdate"
            Case 2
                sql = "delete from dokter1 where kode='" & kode.Text & "'"
                pesan = "data telah di hapus"

      End Select
        Try
            cmd = New MySqlCommand(sql, db)
            cmd.ExecuteNonQuery()
            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmasi")
            Call bersih()
            Call isitabel()
        Catch ex As Exception
            MessageBox.Show(ex.Message)

        End Try
    End Sub
    Sub showdb()
        rs.Read()
        kode.Text = rs("kode")
        nama.Text = rs("nama")
        alamat.Text = rs("alamat")
        jkel.Text = rs("jenisk")
        spesialis.Text = rs("spesialis")
        rubbahbutton(False, True, True, True, False)
        simpan.Text = "edit"
        kode.Enabled = False

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        jkel.Items.Add("pria")
        jkel.Items.Add("wanita")
        Call opendb()
        Call bersih()
        Call buattabel()
        Call isitabel()
    End Sub

    Private Sub baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles baru.Click
        Call bersih()
        kode.Focus()
    End Sub

    Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
        Call bersih()
        kode.Focus()
    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        Call prosesdb(0)
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        Call prosesdb(2)
    End Sub

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



Demikian Postingan Dari Saya Nama: Sukesi,Npm:1102138
Selamat Belajar VB.Net