Minggu, 30 Juni 2013



DATA RAWAT JALAN RUMAH SAKIT HAJI MEDAN


FROM MENU UTAMA













LISTING PROGRAM MENU UTAMA



Public Class Form1

    Private Sub RAWATIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RAWATIToolStripMenuItem.Click
        RAWAT.Show()
        RAWAT.MdiParent = Me
    End Sub
    Private Sub DOKTERToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DOKTERToolStripMenuItem.Click
        DOKTER.Show()
        DOKTER.MdiParent = Me
    End Sub

    Private Sub OBATToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OBATToolStripMenuItem.Click
        OBAT.Show()
        OBAT.MdiParent = Me
    End Sub

    Private Sub PASIENToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PASIENToolStripMenuItem.Click
        PASIEN.Show()
        PASIEN.MdiParent = Me
    End Sub

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

    Private Sub LDOKTERToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LDOKTERToolStripMenuItem.Click
        Form2.Show()
        Form2.MdiParent = Me
        Dim laporan As New CrystalReport1
        Form2.CrystalReportViewer1.ReportSource = laporan
    End Sub

    Private Sub LOBATToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LOBATToolStripMenuItem.Click
        Form3.Show()
        Form3.MdiParent = Me
        Dim laporan As New CrystalReport2
        Form3.CrystalReportViewer1.ReportSource = laporan
    End Sub

    Private Sub LPASIENToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LPASIENToolStripMenuItem.Click
        Form4.Show()
        Form4.MdiParent = Me
        Dim laporan As New CrystalReport4
        Form4.CrystalReportViewer1.ReportSource = laporan
    End Sub

    Private Sub LRAWATIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LRAWATIToolStripMenuItem.Click
        Form5.Show()
        Form5.MdiParent = Me
        Dim laporan As New CrystalReport5
        Form5.CrystalReportViewer1.ReportSource = laporan
    End Sub

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

    End Sub
End Class


DATABASE RAWAT JALAN

 

FORM RAWAT JALAN



LISTING PROGRAM RAWAT JALAN

Imports System.Data.OleDb
Public Class RAWAT
    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 TampilRecordRAWAT()
        ADP = New OleDbDataAdapter("SELECT * FROM RAWAT_I", DB)
        DS = New DataSet
        ADP.Fill(DS, "RAWAT_I")
        DataGridView1.DataSource = DS.Tables("RAWAT_I")
    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 = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        ComboBox3.Text = ""
        ComboBox4.Text = ""
        Call buttonbaru()
    End Sub
    Private Sub RAWAT_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Opendb()
        Call TampilRecordRAWAT()
        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 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 RAWAT_I Where NO_RAWAT='" & TextBox1.Text & "'"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows = True Then
                TextBox2.Text = DR.Item(3)
                TextBox3.Text = DR.Item(4)
                TextBox4.Text = DR.Item(5)
                TextBox5.Text = DR.Item(6)
                TextBox6.Text = DR.Item(10)
                ComboBox1.Text = DR.Item(2)
                ComboBox2.Text = DR.Item(7)
                ComboBox3.Text = DR.Item(9)
                ComboBox4.Text = DR.Item(8)
                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 buttonbaru()
        Call HapusText()
        TextBox1.Focus()
    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 HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click
        SQL = "DELETE *FROM RAWAT_I Where kode_p='" & TextBox1.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call BARU_Click(sender, e)
        Call TampilRecordRAWAT()
    End Sub

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
        SQL = "INSERT INTO RAWAT_I (NO_RAWAT, kode_P, nama_P, UMUR, KODE_D, NAMA_D, KODE_O, NAMA_O, KELURAHAN, DIAGNOSA_P)" & _
                            "Values ('" & TextBox1.Text & "','" & _
                                       ComboBox1.Text & "','" & _
                                       TextBox2.Text & "','" & _
                                       TextBox3.Text & "','" & _
                                       ComboBox2.Text & "','" & _
                                       TextBox4.Text & "','" & _
                                       ComboBox3.Text & "','" & _
                                       TextBox5.Text & "','" & _
                                       ComboBox4.Text & "','" & _
                                       TextBox6.Text & "')"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call BARU_Click(sender, e)
        Call TampilRecordRAWAT()
    End Sub

    Private Sub EDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT.Click
        SQL = "UPDATE RAWAT_I SET kode_P='" & ComboBox1.Text & "'," & _
                               "nama_P='" & TextBox2.Text & "'," & _
                               "UMUR='" & TextBox3.Text & "'," & _
                               "KODE_D='" & ComboBox2.Text & "'," & _
                               "NAMA_D='" & TextBox4.Text & "'," & _
                                "KODE_O='" & ComboBox3.Text & "'," & _
                               "NAMA_O='" & TextBox5.Text & "'," & _
                               "KELURAHAN='" & ComboBox4.Text & "'," & _
                               "DIAGNOSA_P='" & TextBox6.Text & "' " & _
                               "Where NO_RAWAT='" & TextBox1.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call BARU_Click(sender, e)
        Call TampilRecordRAWAT()
    End Sub
End Class


LAPORAN RAWAT JALAN

 
DATABASE PASIEN




FORM PASIEN


LISTING PROGRAM PASIEN 

Imports System.Data.OleDb
Public Class PASIEN
    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 TampilRecordpasien()
        ADP = New OleDbDataAdapter("SELECT * FROM PASIEN", DB)
        DS = New DataSet
        ADP.Fill(DS, "PASIEN")
        DataGridView1.DataSource = DS.Tables("PASIEN")
    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 = ""
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        ComboBox3.Text = ""
        ComboBox4.Text = ""
        Call buttonbaru()
    End Sub
    Private Sub PASIEN_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Opendb()
        Call buttonbaru()
        Call TampilRecordpasien()
        ComboBox1.Items.Add("JENIS KELAMIN")
        ComboBox1.Items.Add("LAKI-LAKI")
        ComboBox1.Items.Add("PEREMPUAN")
        ComboBox1.Items.Add("WARIA")
        ComboBox4.Items.Add("GOL DARAH")
        ComboBox4.Items.Add("O")
        ComboBox4.Items.Add("A")
        ComboBox4.Items.Add("B")
        ComboBox4.Items.Add("AB")
    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 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 PASIEN Where kode_P='" & 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)
                ComboBox1.Text = DR.Item(3)
                ComboBox2.Text = DR.Item(5)
                ComboBox3.Text = DR.Item(6)
                ComboBox4.Text = DR.Item(7)
                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()
        Call buttonbaru()
        TextBox1.Focus()
    End Sub

    Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click
        SQL = "DELETE *FROM PASIEN Where kode_p='" & TextBox1.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call BARU_Click(sender, e)
        Call TampilRecordpasien()
    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 SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
        SQL = "INSERT INTO PASIEN (kode_P, nama_P, JENIS_K, tempt_l, tgl_l, alamat, gol_darah)" & _
                        "Values ('" & TextBox1.Text & "','" & _
                                        TextBox2.Text & "','" & _
                                        ComboBox1.Text & "','" & _
                                        TextBox3.Text & "','" & _
                                        ComboBox3.Text & "','" & _
                                        ComboBox2.Text & "','" & _
                                        ComboBox4.Text & "')"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call BARU_Click(sender, e)
        Call TampilRecordpasien()
    End Sub

    Private Sub EDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT.Click
        SQL = "UPDATE PASIEN SET nama_p='" & TextBox2.Text & "'," & _
                               "jenis_k='" & ComboBox1.Text & "'," & _
                               "tempt_l='" & TextBox3.Text & "'," & _
                               "tgl_l='" & ComboBox2.Text & "'," & _
                               "alamat='" & ComboBox3.Text & "'," & _
                               "gol_darah='" & ComboBox4.Text & "' " & _
                               "Where kode_p='" & TextBox1.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call BARU_Click(sender, e)
        Call TampilRecordpasien()
    End Sub
End Class

 
LAPORAN PASIEN



DATABASE DOKTER


FORM DOKTER



LISTING PROGRAM DOKTER

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 = ""
        jenis_kelamin.Text = ""
        spesialisasi.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)
                jenis_kelamin.Text = DR.Item(3)
                TextBox3.Text = DR.Item(4)
                spesialisasi.Text = DR.Item(5)
                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()
        Call buttonbaru()
    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()
        jenis_kelamin.Items.Add("jenis kelamin")
        jenis_kelamin.Items.Add("laki-laki")
        jenis_kelamin.Items.Add("perempuan")
        jenis_kelamin.Items.Add("waria")
        spesialisasi.Items.Add("spesialisasi")
        spesialisasi.Items.Add("jantung")
        spesialisasi.Items.Add("paru-paru")
        spesialisasi.Items.Add("kandungan")
    End Sub
End Class
        


LAPORAN DOKTER




DATABASE OBAT




FORM OBAT


LISTING PROGRAM OBAT

Imports System.Data.OleDb
Public Class OBAT
    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 TampilRecordOBAT()
        ADP = New OleDbDataAdapter("SELECT * FROM OBAT", DB)
        DS = New DataSet
        ADP.Fill(DS, "OBAT")
        DataGridView1.DataSource = DS.Tables("OBAT")
    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 = ""
        TextBox5.Text = ""
        Call buttonbaru()
    End Sub
    Private Sub OBAT_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Opendb()
        Call buttonbaru()
        Call TampilRecordOBAT()
    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 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 OBAT Where kode_O='" & 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(3)
                TextBox4.Text = DR.Item(4)
                TextBox5.Text = DR.Item(5)
                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 buttonbaru()
        TextBox1.Focus()
    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 HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click
        SQL = "DELETE *FROM OBAT Where kode_O='" & TextBox1.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call BARU_Click(sender, e)
        Call TampilRecordOBAT()
    End Sub

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
        SQL = "INSERT INTO OBAT (kode_O, nama_O, SATUAN, KEMASAN, HARGA)" & _
                      "Values ('" & TextBox1.Text & "','" & _
                                      TextBox2.Text & "','" & _
                                      TextBox3.Text & "','" & _
                                      TextBox4.Text & "','" & _
                                      TextBox5.Text & "')"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call BARU_Click(sender, e)
        Call TampilRecordOBAT()
    End Sub

    Private Sub EDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT.Click
        SQL = "UPDATE OBAT SET nama_O='" & TextBox2.Text & "'," & _
                                "SATUAN='" & TextBox3.Text & "'," & _
                                "KEMASAN='" & TextBox4.Text & "'," & _
                                "HARGA='" & TextBox5.Text & "' " & _
                                "Where kode_O='" & TextBox1.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call BARU_Click(sender, e)
        Call TampilRecordOBAT()
    End Sub
End Class


LAPORAN OBAT



LISTING PROGRAM LAPORAN

Public Class Form1

    Private Sub RAWATIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RAWATIToolStripMenuItem.Click
        RAWAT.Show()
        RAWAT.MdiParent = Me
    End Sub
    Private Sub DOKTERToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DOKTERToolStripMenuItem.Click
        DOKTER.Show()
        DOKTER.MdiParent = Me
    End Sub

    Private Sub OBATToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OBATToolStripMenuItem.Click
        OBAT.Show()
        OBAT.MdiParent = Me
    End Sub

    Private Sub PASIENToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PASIENToolStripMenuItem.Click
        PASIEN.Show()
        PASIEN.MdiParent = Me
    End Sub

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

    Private Sub LDOKTERToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LDOKTERToolStripMenuItem.Click
        Form2.Show()
        Form2.MdiParent = Me
        Dim laporan As New CrystalReport1
        Form2.CrystalReportViewer1.ReportSource = laporan
    End Sub

    Private Sub LOBATToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LOBATToolStripMenuItem.Click
        Form3.Show()
        Form3.MdiParent = Me
        Dim laporan As New CrystalReport2
        Form3.CrystalReportViewer1.ReportSource = laporan
    End Sub

    Private Sub LPASIENToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LPASIENToolStripMenuItem.Click
        Form4.Show()
        Form4.MdiParent = Me
        Dim laporan As New CrystalReport4
        Form4.CrystalReportViewer1.ReportSource = laporan
    End Sub

    Private Sub LRAWATIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LRAWATIToolStripMenuItem.Click
        Form5.Show()
        Form5.MdiParent = Me
        Dim laporan As New CrystalReport5
        Form5.CrystalReportViewer1.ReportSource = laporan
    End Sub

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

    End Sub
End Class
Diposting oleh di 1 komentar:
Langganan: Postingan (Atom)