Khamis, 25 April 2013

PERANCANGAN DATA DOKTER MENGGUNAKAN VISUAL BASIC 2008





          

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:\vb2\data dokter.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()
        btnbaru.Enabled = True
        btnsimpan.Enabled = False
        btnhapus.Enabled = False
        btnbatal.Enabled = False
        btnkeluar.Enabled = True
    End Sub
    Sub buttonedit()
        btnbaru.Enabled = False
        btnsimpan.Enabled = False
        btnhapus.Enabled = True
        btnbatal.Enabled = True
        btnkeluar.Enabled = False
    End Sub
    Sub buttonsimpan()
        btnbaru.Enabled = False
        btnsimpan.Enabled = True
        btnhapus.Enabled = False
        btnbatal.Enabled = True
        btnkeluar.Enabled = False
    End Sub
    Sub hapusText()
        kodedokter.Text = ""
        namadokter.Text = ""
        jeniskelamin.Text = ""
        jeniskelamin.Text = ""
        alamat.Text = ""
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        aCall(Opendb())
        Call hapusText()
        Call Tampilrecorddokter()

        kodedokter.Items.Add("001")
        kodedokter.Items.Add("002")
        kodedokter.Items.Add("003")
        kodedokter.Items.Add("004")
        kodedokter.Items.Add("005")

        jeniskelamin.Items.Add("laki-laki")
        jeniskelamin.Items.Add("perempuan")

    End Sub

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
        Call hapusText()
        kodedokter.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, nama, jeniskelamin, alamat) " & _
                        " values('" & kodedokter.Text & "','" & _
                                      namadokter.Text & "','" & _
                                      jeniskelamin.Text & "','" & _
                                      alamat.Text & "')"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call Tampilrecorddokter()
    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()
        kodedokter.Focus()
    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='" & kodedokter.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call Tampilrecorddokter()
    End Sub

    Private Sub kodedokter_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kodedokter.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String
        If tombol = 13 Then
            SQL = "select * from dokter where kode='" & kodedokter.Text & "'"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows = True Then
                namadokter.Text = DR.Item(1)
                jeniskelamin.Text = DR.Item(2)
                alamat.Text = DR.Item(3)
                Call buttonedit()
                MsgBox("data ditemukan !")
            Else
                xkode = kodedokter.Text
                Call hapusText()
                kodedokter.Text = xkode
                Call buttonsimpan()
            End If
            namadokter.Focus()
        End If
    End Sub
   
End Class