Minggu, 30 Juni 2013

SISTEM INFORMASI DATA DOKTER DAN PASIEN DI KLINIK PERMATA BUNDA MEDAN MENGGUNAKAN VB.NET 2008



SISTEM INFORMASI DATA DOKTER DAN PASIEN DI KLINIK PERMATA BUNDA MEDAN

 Bagian.2

Tampilan Data Ruangan




Listing Program Data Ruangan


Imports System.Data.OleDb
Public Class ruangan
    Dim SQL As String
    Sub buttonbaru()
        BARU.Enabled = True
        SIMPAN.Enabled = True
        EDIT.Enabled = False
        HAPUS.Enabled = False
        BATAL.Enabled = False
        KELUAR.Enabled = True
    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 buttonsimpan()
        BARU.Enabled = False
        SIMPAN.Enabled = True
        EDIT.Enabled = False
        HAPUS.Enabled = False
        BATAL.Enabled = True
        KELUAR.Enabled = False
    End Sub


    Sub HapusText()
        Call clearform(Me)
        Call buttonbaru()
    End Sub
    Private Sub ruangan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Opendb()
        Call HapusText()
        Call Tampilrecord("ruangan", DataGridView1)
    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 ruangan where kode='" & KODE.Text & "'"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()

            If DR.HasRows = True Then
                NAMA.Text = DR.Item(1)
                Call buttonedit()
                MsgBox("Data Berhasil Ditemukan...! ")
            Else
                xkode = KODE.Text
                Call HapusText()
                KODE.Text = xkode
                Call buttonsimpan()
            End If
            NAMA.Focus()
        End If
    End Sub
    Sub prosesDB(ByVal aktivitas As Byte)
        Select Case aktivitas
            Case 0
                SQL = "INSERT INTO ruangan(kode, Nama) " & _
                     " values('" & KODE.Text & "','" & _
                                    NAMA.Text & "')"
            Case 1
                SQL = "UPDATE ruangan SET Nama='" & NAMA.Text & "' " & _
                           " Where kode='" & KODE.Text & "'"
            Case 2
                SQL = "DELETE *FROM ruangan Where kode='" & KODE.Text & "'"


        End Select
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call HapusText()
        Call Tampilrecord("ruangan", DataGridView1)
    End Sub

    Private Sub BARU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BARU.Click
        Call HapusText()
        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 EDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT.Click
        Call prosesDB(1)
    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 BATAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BATAL.Click
        Call HapusText()
        KODE.Focus()
    End Sub

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

Tampilan Data Penyakit


  
 

Listing Program Dari Data penyakit

Imports System.Data.OleDb
Public Class penyakit
    Dim SQL As String
    Sub buttonbaru()
        BARU.Enabled = True
        SIMPAN.Enabled = True
        EDIT.Enabled = False
        HAPUS.Enabled = False
        BATAL.Enabled = False
        KELUAR.Enabled = True
    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 buttonsimpan()
        BARU.Enabled = False
        SIMPAN.Enabled = True
        EDIT.Enabled = False
        HAPUS.Enabled = False
        BATAL.Enabled = True
        KELUAR.Enabled = False
    End Sub


    Sub HapusText()
        Call clearform(Me)
        Call buttonbaru()
    End Sub

    Private Sub penyakit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Opendb()
        Call HapusText()
        Call Tampilrecord("penyakit", DataGridView1)
    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 penyakit where kode='" & KODE.Text & "'"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()

            If DR.HasRows = True Then
                NAMA.Text = DR.Item(1)
                Call buttonedit()
                MsgBox("Data Berhasil Ditemukan...! ")
            Else
                xkode = KODE.Text
                Call HapusText()
                KODE.Text = xkode
                Call buttonsimpan()
            End If
            NAMA.Focus()
        End If
    End Sub
    Sub prosesDB(ByVal aktivitas As Byte)
        Select Case aktivitas
            Case 0
                SQL = "INSERT INTO penyakit(kode, Nama) " & _
                     " values('" & KODE.Text & "','" & _
                                    NAMA.Text & "')"
            Case 1
                SQL = "UPDATE penyakit SET Nama='" & NAMA.Text & "' " & _
                           " Where kode='" & KODE.Text & "'"
            Case 2
                SQL = "DELETE *FROM penyakit Where kode='" & KODE.Text & "'"


        End Select
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call HapusText()
        Call Tampilrecord("penyakit", DataGridView1)
    End Sub

    Private Sub BARU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BARU.Click
        Call HapusText()
        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 EDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT.Click
        Call prosesDB(1)
    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 BATAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BATAL.Click
        Call HapusText()
        KODE.Focus()
    End Sub

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


Tampilan Data Lengkap Pasien

 


Listing Program Dari Data Lengkap Pasien


Imports System.Data.OleDb
Public Class DataLengkapPasien
    Public CMD As OleDbCommand
    Public ADP As OleDbDataAdapter
    Public DR As OleDbDataReader
    Public DS As New DataSet
    Dim SQL As String
    Sub buttonbaru()
        BARU.Enabled = True
        SIMPAN.Enabled = True
        EDIT.Enabled = False
        HAPUS.Enabled = False
        BATAL.Enabled = False
        KELUAR.Enabled = True
    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 buttonsimpan()
        BARU.Enabled = False
        SIMPAN.Enabled = True
        EDIT.Enabled = False
        HAPUS.Enabled = False
        BATAL.Enabled = True
        KELUAR.Enabled = False
    End Sub


    Sub HapusText()
        Call clearform(Me)
        Call buttonbaru()
    End Sub


    Private Sub DataLengkapPasien_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        JKEL.Items.Add("pria")
        JKEL.Items.Add("wanita")
        GOLDAR.Items.Add("A")
        GOLDAR.Items.Add("B")
        GOLDAR.Items.Add("AB")
        GOLDAR.Items.Add("O")
        Call Opendb()
        Call HapusText()
        Call Tampilrecord("laplengkap", DataGridView1)
        Call tampilkodedokter()
        Call tampilkoderuangan()
        Call tampilkodepenyakit()

    End Sub

    Sub tampilkodedokter()
        KDDOKTER.Items.Clear()
        SQL = "Select*from dokter"
        CMD = New OleDbCommand(SQL, DB)
        DR = CMD.ExecuteReader

        While DR.Read
            KDDOKTER.Items.Add(DR("kode"))

        End While
        DR.Close()

    End Sub
    Sub tampilkoderuangan()
        KDRUANGAN.Items.Clear()
        SQL = "Select*from ruangan"
        CMD = New OleDbCommand(SQL, DB)
        DR = CMD.ExecuteReader

        While DR.Read
            KDRUANGAN.Items.Add(DR("kode"))

        End While
        DR.Close()

    End Sub
    Sub tampilkodepenyakit()
        KDPENYAKIT.Items.Clear()
        SQL = "Select*from penyakit"
        CMD = New OleDbCommand(SQL, DB)
        DR = CMD.ExecuteReader

        While DR.Read
            KDPENYAKIT.Items.Add(DR("kode"))

        End While
        DR.Close()

    End Sub


 
    Sub prosesDB(ByVal aktivitas As Byte)
        Select Case aktivitas
            Case 0
                SQL = "INSERT INTO laplengkap(kode, Nama, umur, temla, alamat, kodedokter, koderuangan, kodepenyakit, jkel, goldar, telpon, status,  pekerjaan) " & _
                     " values('" & kdpasien.Text & "','" & _
                                    UMUR.Text & "','" & _
                                    TEMLA.Text & "','" & _
                                    ALAMAT.Text & "','" & _
                                    KDDOKTER.Text & "','" & _
                                    KDRUANGAN.Text & "','" & _
                                    KDPENYAKIT.Text & "','" & _
                                    JKEL.Text & "','" & _
                                    GOLDAR.Text & "','" & _
                                    TELPON.Text & "','" & _
                                    STATUS.Text & "','" & _
                                    PEKERJAAN.Text & "')"
            Case 1
                SQL = "UPDATE laplengkap SET Nama='" & PASIEN.Text & "'," & _
                           " umur='" & UMUR.Text & "'," & _
                           "temla='" & TEMLA.Text & "'," & _
                            " alamat='" & ALAMAT.Text & "'," & _
                           "dokter='" & KDDOKTER.Text & "'," & _
                           "ruangan='" & KDRUANGAN.Text & "'," & _
                           " penyakit='" & KDPENYAKIT.Text & "'," & _
                           " jkel='" & JKEL.Text & "'," & _
                           "goldar='" & GOLDAR.Text & "'," & _
                           "telpon='" & TELPON.Text & "'," & _
                           " status='" & STATUS.Text & "' " & _
                           " pekerjaan='" & PEKERJAAN.Text & "' " & _
                           " Where kode='" & kdpasien.Text & "'"
            Case 2
                SQL = "DELETE *FROM laplengkap Where kode='" & kdpasien.Text & "'"


        End Select
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call HapusText()
        Call Tampilrecord("laplengkap", DataGridView1)
    End Sub

    Private Sub BARU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BARU.Click
        Call HapusText()
        KDPASIEN.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 EDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT.Click
        Call prosesDB(1)
    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 BATAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BATAL.Click
        Call HapusText()
        KDDOKTER.Focus()
    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 KDDOKTER_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDDOKTER.SelectedIndexChanged
        SQL = "SELECT*FROM dokter Where kode='" & KDDOKTER.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        DR = CMD.ExecuteReader
        If DR.HasRows Then
            DR.Read()
            DOKTER.Text = DR("nama")

        End If
    End Sub

    Private Sub KDRUANGAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDRUANGAN.SelectedIndexChanged
        SQL = "SELECT*FROM ruangan Where kode='" & KDRUANGAN.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        DR = CMD.ExecuteReader
        If DR.HasRows Then
            DR.Read()
            RUANGAN.Text = DR("nama")

        End If
    End Sub

    Private Sub KDPENYAKIT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDPENYAKIT.SelectedIndexChanged
        SQL = "SELECT*FROM penyakit Where kode='" & KDPENYAKIT.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        DR = CMD.ExecuteReader
        If DR.HasRows Then
            DR.Read()
            PENYAKIT.Text = DR("nama")

        End If
    End Sub

    Private Sub KDPASIEN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        SQL = "SELECT*FROM pasien Where kode='" & kdpasien.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        DR = CMD.ExecuteReader
        If DR.HasRows Then
            DR.Read()
            PASIEN.Text = DR("nama")

        End If
    End Sub

    Private Sub kdpasien_keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kdpasien.KeyPress
        Dim Tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String
        Dim xkd As String = ""
        Dim xkoderuangan As String = ""
        Dim xkodepenyakit As String = ""
        If Tombol = 13 Then
            SQL = "SELECT *FROM laplengkap where kode='" & kdpasien.Text & "'"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()

            If DR.HasRows = True Then
                kdpasien.Text = DR.Item("kode")
                PASIEN.Text = DR.Item("nama")
                UMUR.Text = DR.Item("umur")
                TEMLA.Text = DR.Item("temla")
                ALAMAT.Text = DR.Item("alamat")
                xkd = DR.Item("kodedokter")
                KDRUANGAN.Text = DR.Item("koderuangan")
                KDPENYAKIT.Text = DR.Item("kodepenyakit")
                JKEL.Text = DR.Item("jkel")
                GOLDAR.Text = DR.Item("goldar")
                TELPON.Text = DR.Item("telpon")
                STATUS.Text = DR.Item("status")
                PEKERJAAN.Text = DR.Item("pekerjaan")
                Call buttonedit()
                MsgBox("Data Berhasil Ditemukan...! ")
            Else
                xkode = kdpasien.Text
                Call HapusText()
                kdpasien.Text = xkode
                Call buttonsimpan()
            End If

            DR.Close()
            KDDOKTER.Text = xkd
            KDRUANGAN.Text = xkoderuangan
            KDPENYAKIT.Text = xkodepenyakit
        End If
    End Sub
End Class



Tampilan CrystalReport1


 



Tampilan Cetak Dari Crystal Report


 


Tampilan Database Access Dari Sistem Informasi Data Dokter Dan Pasien Di klinik Permata Bunda Medan Menggunakan VB.Net 2008.


 


 


 


 




Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)