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