Aplikasi Apotek (Tugas UTS)

Public Class Cover

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
obat.Show()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
dataobat.Show()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
bayar.Show()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
kasir.Show()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Close()
End Sub
End Class

Public Class obat
Dim isitext(4) As String
Dim listitem As ListViewItem

Private Sub obat_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call tampilan()
End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Save"
Button2.Visible = False
Button3.Visible = False
Button4.Text = "Cancel"
TextBox1.Focus()
Else
isitext(0) = Trim(TextBox1.Text)
isitext(1) = Trim(TextBox2.Text)
isitext(2) = Trim(TextBox3.Text)
isitext(3) = Trim(TextBox4.Text)
listitem = New ListViewItem(isitext)
ListView1.Items.Add(listitem)
Call bersih()
TextBox1.Focus()
End If
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Close" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
End Sub
Sub normal()
Button1.Text = "Input"
Button1.Visible = True
Button2.Text = "Edit"
Button2.Visible = True
Button3.Text = "Delete"
Button3.Visible = True
Button4.Text = "Close"
End Sub
Sub tampilan()
ListView1.View = View.Details
ListView1.Columns.Add("Kode Obat", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama Obat", 150, HorizontalAlignment.Left)
ListView1.Columns.Add("Jenis Obat", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Harga Obat", 100, HorizontalAlignment.Left)
End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "Edit" Then
Button2.Text = "Save"
Button1.Visible = False
Button3.Visible = False
Button4.Text = "Cancel"
TextBox1.Focus()
End If
End Sub
End Class

Public Class dataobat
Dim isitext(4) As String
Dim listitem As ListViewItem
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
isitext(0) = Trim(TextBox1.Text)
isitext(1) = Trim(TextBox2.Text)
isitext(2) = Trim(TextBox3.Text)
isitext(3) = Trim(TextBox4.Text)
listitem = New ListViewItem(isitext)

ListView1.Items.Add(listitem)
Call bersih()
TextBox1.Focus()
End Sub
Sub tampilan()
ListView1.View = View.Details
ListView1.Columns.Add("Kode Obat", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama Obat", 150, HorizontalAlignment.Left)
ListView1.Columns.Add("Jenis Obat", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Harga Obat", 100, HorizontalAlignment.Left)
End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub

Private Sub dataobat_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call tampilan()
Call bersih()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "Close" Then
Me.Close()
Else
Call bersih()
End If
End Sub
End Class

Public Class bayar
Dim isitext(8) As String
Dim listitem As ListViewItem

Private Sub bayar_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call preview()
End Sub
Private Sub bayar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Save"
Button2.Visible = False
Button3.Visible = False
Button4.Text = "Cancel"
TextBox1.Focus()
Else
isitext(0) = Trim(TextBox1.Text)
isitext(1) = Trim(TextBox2.Text)
isitext(2) = Trim(TextBox3.Text)
isitext(3) = Trim(TextBox4.Text)
isitext(4) = Trim(TextBox5.Text)
isitext(5) = Trim(TextBox6.Text)
isitext(6) = Trim(DateTimePicker1.Value)
isitext(7) = Trim(TextBox7.Text)
listitem = New ListViewItem(isitext)
ListView1.Items.Add(listitem)
Call bersih()
TextBox1.Focus()
End If
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Close" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
End Sub
Sub normal()
Button1.Text = "Input"
Button1.Visible = True
Button2.Text = "Edit"
Button2.Visible = True
Button3.Text = "Delete"
Button3.Visible = True
Button4.Text = "Close"
End Sub
Sub preview()
ListView1.View = View.Details
ListView1.Columns.Add("No. Nota", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No. Resep", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Kode Obat", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama Obat", 150, HorizontalAlignment.Center)
ListView1.Columns.Add("Kode Pasien", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama Pasien", 150, HorizontalAlignment.Center)
ListView1.Columns.Add("Tanggal Bayar", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Total", 100, HorizontalAlignment.Center)
End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "Edit" Then
Button2.Text = "Save"
Button1.Visible = False
Button3.Visible = False
Button4.Text = "Cancel"
TextBox1.Focus()
End If
End Sub
End Class

Public Class kasir
Dim isitext(2) As String
Dim listitem As ListViewItem
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Save"
Button2.Visible = False
Button3.Visible = False
Button4.Text = "Cancel"
TextBox1.Focus()
Else
isitext(0) = Trim(TextBox1.Text)
isitext(1) = Trim(TextBox2.Text)
listitem = New ListViewItem(isitext)
ListView1.Items.Add(listitem)
Call bersih()
TextBox1.Focus()
End If
End Sub
Sub normal()
Button1.Text = "Input"
Button1.Visible = True
Button2.Text = "Edit"
Button2.Visible = True
Button3.Text = "Delete"
Button3.Visible = True
Button4.Text = "Close"
End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Close" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
End Sub
Sub tampilan()
ListView1.View = View.Details
ListView1.Columns.Add("Kode Kasir", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama Kasir", 150, HorizontalAlignment.Left)
End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub

Private Sub kasir_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call tampilan()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "Edit" Then
Button2.Text = "Save"
Button1.Visible = False
Button3.Visible = False
Button4.Text = "Cancel"
TextBox1.Focus()
End If
End Sub
End Class