Sebelum anda memasuki apikasi VB apotek anda harus login terlebih dahulu.
Langkah 1 :
Buatlah 4 command button untuk mengisi daftar Password,User,Login,Clear dan Exit.
Langkah 2 :
Buatlah 2 text box untuk mengisi tampilan dari Password dan User.
Langkah 3 :
Masukkan Image untuk gambar Login.
Langkah 4 :
Codinglah aplikasi Login tersebut.
Penjelasan Coding :
Private Sub Command1_Click()
If Text1.Text = "admin" And Text2.Text = "password" Then
Form2transaksi.Show
Unload Me
Else
MsgBox "Maaf Yang anda Masukkan Salah!!"
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= 97 And KeyAscii <= 122 Or KeyAscii = 13 Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) Then
KeyAscii = 0
End If
If KeyAscii = 13 Then
If Text1.Text = "" Then
Text1.SetFocus
Else
Text2.SetFocus
End If
End If
End Sub
Private Sub text2_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= 97 And KeyAscii <= 122 Or KeyAscii = 13 Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) Then
KeyAscii = 0
End If
If KeyAscii = 13 Then
If Text2.Text = "" Then
Text2.SetFocus
Else
Command1.SetFocus
End If
End If
End Sub
Private Sub cmdproses_Click()
If Combo1.Text = "analsik" Then
text4.Text = 5000 * Val(text1.Text)
ElseIf Combo1.Text = "Antalgin" Then
text4.Text = 2000 * Val(text1.Text)
ElseIf Combo1.Text = "Bodrex" Then
text4.Text = 1000 * Val(text1.Text)
ElseIf Combo1.Text = "entrostop" Then
text4.Text = 1500 * Val(text1.Text)
ElseIf Combo1.Text = "feminax" Then
text4.Text = 2500 * Val(text1.Text)
End If
If Combo2.Text = "albothyl" Then
text6.Text = 20000 * Val(text5.Text)
ElseIf Combo2.Text = "biolysin" Then
text6.Text = 10000 * Val(text5.Text)
ElseIf Combo2.Text = "curcumaplus" Then
text6.Text = 14550 * Val(text5.Text)
ElseIf Combo2.Text = "hufagrip" Then
text6.Text = 15000 * Val(text5.Text)
ElseIf Combo2.Text = "laserin" Then
text6.Text = 12500 * Val(text5.Text)
End If
If Combo3.Text = "diapet" Then
text2.Text = 2000 * Val(text3.Text)
ElseIf Combo3.Text = "captopril" Then
text2.Text = 5000 * Val(text3.Text)
ElseIf Combo3.Text = "sangobion" Then
text2.Text = 5000 * Val(text3.Text)
ElseIf Combo3.Text = "fatigon" Then
text2.Text = 4000 * Val(text3.Text)
ElseIf Combo3.Text = "supravit" Then
text2.Text = 16000 * Val(text3.Text)
End If
txttotal.Text = Val(text2.Text) + Val(text4.Text) + Val(text6.Text)
txtkembalian.Text = Val(txtpembayaran.Text) - Val(txttotal.Text)
End Sub
Private Sub Command3_Click()
If text2.Text & text4.Text & text6.Text Then
txttotal.Text = Val(text2.Text) + Val(text4.Text) + Val(text6.Text)
Else
txttotal.Text = ""
End If
End Sub
Private Sub Command1_Click()
text1.Text = ""
text2.Text = ""
text3.Text = ""
text4.Text = ""
text5.Text = ""
text6.Text = ""
txttotal.Text = ""
txtpembayaran.Text = ""
txtkembalian.Text = ""
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Combo1.AddItem "analsik"
Combo1.AddItem "antalgim"
Combo1.AddItem "bodrex"
Combo1.AddItem "entrostop"
Combo1.AddItem "feminax"
Combo2.AddItem "albothyl"
Combo2.AddItem "biolysin"
Combo2.AddItem "curcumaplus"
Combo2.AddItem "hufagrip"
Combo2.AddItem "kiranti"
Combo2.AddItem "laserin"
Combo3.AddItem "diapet"
Combo3.AddItem "captropil"
Combo3.AddItem "sangobiono"
Combo3.AddItem "fatigon"
Combo3.AddItem "supravit"
Combo4.AddItem "2 * sehari 1 tablet"
Combo4.AddItem "1 * sehari 1 tablet"
Combo4.AddItem "2 * sehari 1 tablet"
Combo4.AddItem "1 * sehari 1 tablet"
Combo4.AddItem "1 * sehari 1 tablet"
Combo5.AddItem "2 * sehari 1 tetes"
Combo5.AddItem "3 * sehari 1 sendok"
Combo5.AddItem "2 * sehari 1 sendok"
Combo5.AddItem "1 * sehari 1 sendok"
Combo5.AddItem "1 * sehari 1 sendok"
Combo6.AddItem "2 * sehari 1 kapsul"
Combo6.AddItem "1 * sehari 2 kapsul"
Combo6.AddItem "3 * sehari 1 kapsul"
Combo6.AddItem "1 * sehari 1 kapsul"
Combo6.AddItem "2 * sehari 1 kapsul"
Combo7.AddItem "113487"
Combo7.AddItem "114789"
Combo7.AddItem "119871"
Combo7.AddItem "113425"
Combo7.AddItem "115623"
Combo8.AddItem "114789"
Combo8.AddItem "114789"
Combo8.AddItem "114789"
Combo8.AddItem "114789"
Combo8.AddItem "114789"
Combo7.AddItem "114789"
Combo7.AddItem "114789"
Combo7.AddItem "114789"
Combo7.AddItem "114789"
Combo7.AddItem "114789"
End Sub
