Membuat Program Pembayaran Pasien Sederhana Dengan Vb.Net

Membuat Program Pembayaran Pasien Sederhana Dengan Vb.Net, seperti kita ketahui banyak sekali program - program yang telah dihasikan oleh para programmer, tentu saja setiap program yang di buat di harapkan dapat membuat sebuah rekap data, memperbaiki sistem transaksi dan mempercepat proses pembuatan sebuah laporan yang di tujukan untuk atasan.

Dengan menggunakan visual basic .net kita dapat belajar membuat program - program tersebut, namun dalam proses belajar tentunya kita tidak dapat langsung membuat sebuah program yang kompleks karena semua progress belajar memiliki tahapan - tahapan tersendiri untuk dapat mengusainya.

Kali ini kita akan coba belajar membuat sebuah form yang dapat diguanakan untuk melakukan rekap pembayaran pasien yang hendak berobat dengan menggunakan visual basic .net atau vb.net. Anda dapat mengikuti langkah - langkah berikut untuk dapat membuat program pembayaran pasien sederhana tersebut.

Buatlah satu buah database dengan nama db_passien dan tabel dengan nama tb_pasien, kemudian anda setting setiap fild nya seperti yang di cantumkan pada tabel berikut ini.

Field	Type	Size	Key
kode	Text	12	*
nama	Text	30
biaya_periksa	Number
beli_obat	Number
pembayaran	Number

Jika sudah membuat database, selanjutnya jalankan program visual basic .net kita buat project baru dengan nama PembayaranPasien kemudian desain lah seperti gambar di atas, kemudian untuk name text box, button dan datagrid disesuaikan dengan source code di bawah ini, namun sebelum itu kita tambahkan dulu sebuah Module dengan memilih menu Project -> Module, dan berikan listing kode berikut pada module tersebut.

Source Kode Module

 
Imports System.Data.OleDb
Module Module1
    Public conn As OleDbConnection
    Public da As OleDbDataAdapter
    Public ds As DataSet
    Public cmd As OleDbCommand
    Public rd As OleDbDataReader
    Public str As String

    Public Sub Koneksi()
        str = "provider=microsoft.ace.oledb.12.0;data source=db_pasien.accdb"
        conn = New OleDbConnection(str)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
    End Sub
End Module

Kemudian kita tambahkan source code berikut pada form1, untuk menjalankan fungsi - fungsi yang akan digunakan pada form1.

Source Kode Form1

Imports System.Data.OleDb
Public Class Form1
    Sub kosong()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox1.Focus()
    End Sub

    Sub isi()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox1.Focus()
    End Sub

    Sub tampilPasien()
        Call Koneksi()
        da = New OleDbDataAdapter("Select * from tb_pasien", conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "tb_pasien")
        DataGridView1.DataSource = ds.Tables("tb_pasien")
        DataGridView1.Refresh()
    End Sub

    Sub autoGrid()
        DataGridView1.Columns(0).Width = 60
        DataGridView1.Columns(1).Width = 130
        DataGridView1.Columns(2).Width = 100
        DataGridView1.Columns(3).Width = 100
        DataGridView1.Columns(4).Width = 100

        DataGridView1.Columns(0).HeaderText = "Kode"
        DataGridView1.Columns(1).HeaderText = "Nama "
        DataGridView1.Columns(2).HeaderText = "Biaya Periksa"
        DataGridView1.Columns(3).HeaderText = "Biaya Obat"
        DataGridView1.Columns(4).HeaderText = "Total Bayar"
    End Sub

    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        TextBox5.Text = Val(TextBox3.Text) + Val(TextBox4.Text)
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        TextBox5.Enabled = False
        Call kosong()
        Call tampilPasien()
        Call Koneksi()
        Call autoGrid()
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Then
            MsgBox("Data belum lengkap")
            TextBox1.Focus()
            Exit Sub
        Else
            cmd = New OleDbCommand("Select * from  tb_pasien where kode='" & TextBox1.Text & "'", conn)
            rd = cmd.ExecuteReader
            rd.Read()
            If Not rd.HasRows Then
                Dim simpan As String = "insert into tb_pasien(kode,nama,biaya_periksa,beli_obat,pembayaran) values " & _
                    "('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
                cmd = New OleDbCommand(simpan, conn)
                cmd.ExecuteNonQuery()
                MsgBox("Simpan data sukses", MsgBoxStyle.Information, "Perhatian")
            End If
            Call tampilPasien()
            Call kosong()
            TextBox1.Focus()
        End If
    End Sub

    Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
        Me.Close()
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = "" Then
            MsgBox("Kode belum di isi")
            TextBox1.Focus()
            Exit Sub
        Else
            Dim ubah As String = "Update tb_pasien set " & _
                "nama='" & TextBox2.Text & "', " & _
                "biaya_periksa='" & TextBox3.Text & "', " & _
                "beli_obat='" & TextBox4.Text & "', " & _
                "pembayaran='" & TextBox5.Text & "' " & _
                "where kode='" & TextBox1.Text & "'"
            cmd = New OleDbCommand(ubah, conn)
            cmd.ExecuteNonQuery()
            MsgBox("Ubah data sukses", MsgBoxStyle.Information, "Perhatian")
            Call tampilPasien()
            Call kosong()
            TextBox1.Focus()
        End If

    End Sub
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text = "" Then
            MsgBox("Kode belum di isi")
            TextBox1.Focus()
            Exit Sub
        Else
            If MessageBox.Show("Yakin akan menghapus Kode " & TextBox1.Text & " ?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                cmd = New OleDbCommand("Delete * From tb_pasien where kode='" & TextBox1.Text & "'", conn)
                cmd.ExecuteNonQuery()
                Call kosong()
                Call tampilPasien()
            Else
                Call kosong()
            End If
        End If
    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Call kosong()
    End Sub

Private Sub DataGridView1_CellContentClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
        Dim i As Integer
        i = Me.DataGridView1.CurrentRow.Index
        With DataGridView1.Rows.Item(i)
            Me.TextBox1.Text = .Cells(0).Value
            Me.TextBox2.Text = .Cells(1).Value
            Me.TextBox3.Text = .Cells(2).Value
            Me.TextBox4.Text = .Cells(3).Value
            Me.TextBox5.Text = .Cells(4).Value
        End With
End Sub

Private Sub TextBox6_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
        cmd = New OleDbCommand("Select * from tb_pasien where kode like '%" & TextBox6.Text & "%' or nama like '%" & TextBox6.Text & "%'", conn)
        rd = cmd.ExecuteReader
        rd.Read()
        If rd.HasRows Then
            da = New OleDbDataAdapter("Select * from tb_pasien where kode like '%" & TextBox6.Text & "%' or nama like '%" & TextBox6.Text & "%'", conn)
            ds = New DataSet
            da.Fill(ds, "Dapat")
            DataGridView1.DataSource = ds.Tables("Dapat")
            DataGridView1.ReadOnly = True
        Else
            MsgBox("Data tidak ditemukan")
        End If
    End Sub
End Class

Terakhir anda jangan lupa untuk menyimpan database pada folder bin/debug project yang anda buat. Silahkan anda jalan program pembayaran pasien dengan visual basic .net tersebut kemudian lakukan test drive untuk mengetahui setiap kode telah berfungsi dengan baik. Selanjutnya anda dapat menjadikan program sederhana ini untuk pembuatan program yang lebih baik lagi. Terima kasih, semoga bermanfaat.

Download

Share this post