Nama : Nurafifah Dwi Putri Aulia
Npm : 15116567
Kelas : 1ka03


Private Sub Timer1_Timer()
Form3.Show
Unload Me
End Sub


Private Sub Command1_Click()
Form6.Show
'Menampilkan Form6 ketika Command Button diklik.
Unload Me
'Menutup Form3 ketika Form6 terbuka
End Sub

Private Sub Command2_Click()
Form5.Show
'Menampilkan form5 ketika command button diklik.
Unload Me
'menutup form3 ketika form5 terbuka
End Sub


Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0) = Text3.Text
Adodc1.Recordset.Fields(1) = Text1.Text
Adodc1.Recordset.Fields(2) = Text4.Text
Adodc1.Recordset.Fields(3) = Text5.Text
Adodc1.Recordset.Update

MsgBox ("Silakan Login"), vbInformation, "WARNING!"


End Sub

Private Sub Command2_Click()
Form3.Show
'Menampilkan form3 ketika command button diklik.
Unload Me
'menutup form6 ketika form3 terbuka
End Sub


Private Sub Command1_Click()
If conn.State = 1 Then conn.Close
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\dell\Desktop\username.mdb;Persist Security Info=False"

If RS.State = 1 Then RS.Close
RS.Open "select * from login where username= '" & Text1.Text & "' And password = '" & Text2.Text & "'", conn, 3, 3
If Not RS.EOF Then
MsgBox ("BERHASIL"), vbinformation, “Pesan”
Form1.Show
Unload Me
Else
MsgBox ("password dan username salah"), vbInformation, "WARNING!"
End If
End Sub

Private Sub Command2_Click()
Form3.Show
Unload Me
End SubPrivate Sub Command1_Click()
If conn.State = 1 Then conn.Close
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\dell\Desktop\username.mdb;Persist Security Info=False"

If RS.State = 1 Then RS.Close
RS.Open "select * from login where username= '" & Text1.Text & "' And password = '" & Text2.Text & "'", conn, 3, 3
If Not RS.EOF Then
MsgBox "BERHASIL"
Form1.Show
Unload Me
Else
MsgBox ("password dan username salah"), vbInformation, "WARNING!"
End If
End Sub

Private Sub Command2_Click()
Form3.Show
Unload Me
End Sub


Private Sub Command1_Click()
Form2.Show
'Menampilkan form2 ketika command button diklik.
Unload Me
'menutup form1 ketika form2 terbuka
End Sub

Private Sub Command2_Click()
Form7.Show
'Menampilkan form7 ketika command button diklik.
Unload Me
'menutup form1 ketika form7 terbuka
End Sub

Private Sub Command3_Click()
Form9.Show
'Menampilkan form9 ketika command button diklik.
Unload Me
'menutup form1 ketika form9 terbuka
End Sub

Private Sub Command4_Click()
Form3.Show
Unload Me
End Sub


Private Sub Command1_Click()
Text1.Text = Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text)
End Sub

Private Sub Command10_Click()
If Text14.Text = "1" Then
Text7.Text = 40000
ElseIf Text14.Text = "2" Then
Text7.Text = 80000
ElseIf Text14.Text = "3" Then
Text7.Text = 120000
ElseIf Text14.Text = "4" Then
Text7.Text = 160000
ElseIf Text14.Text = "5" Then
Text7.Text = 200000
End If
End Sub

Private Sub Command2_Click()
Text2.Text = Val(Text6.Text) + Val(Text7.Text) + Val(Text8.Text)
End Sub

Private Sub Command11_Click()

If Text13.Text = "1" Then
Text8.Text = 40000
ElseIf Text13.Text = "2" Then
Text8.Text = 80000
ElseIf Text13.Text = "3" Then
Text8.Text = 120000
ElseIf Text13.Text = "4" Then
Text8.Text = 160000
ElseIf Text13.Text = "5" Then
Text8.Text = 200000
End If
End Sub

Private Sub Command3_Click()
Form1.Show
'Menampilkan form1 ketika command button diklik.
Unload Me
'menutup form2 ketika form1 terbuka
End Sub

Private Sub Command4_Click()
MsgBox "Permintaan Anda telah berhasil!", vbInformation, "pesan"
End Sub
Private Sub Command5_Click()
Text9.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command6_Click()
If Text12.Text = "1" Then
Text3.Text = 30000
ElseIf Text12.Text = "2" Then
Text3.Text = 60000
ElseIf Text12.Text = "3" Then
Text3.Text = 90000
ElseIf Text12.Text = "4" Then
Text3.Text = 120000
ElseIf Text12.Text = "5" Then
Text3.Text = 150000
End If
End Sub

Private Sub Command7_Click()
If Text11.Text = "1" Then
Text4.Text = 35000
ElseIf Text11.Text = "2" Then
Text4.Text = 70000
ElseIf Text11.Text = "3" Then
Text4.Text = 105000
ElseIf Text11.Text = "4" Then
Text4.Text = 140000
ElseIf Text11.Text = "5" Then
Text4.Text = 175000
End If
End Sub

Private Sub Command8_Click()
If Text10.Text = "1" Then
Text5.Text = 35000
ElseIf Text10.Text = "2" Then
Text5.Text = 70000
ElseIf Text10.Text = "3" Then
Text5.Text = 105000
ElseIf Text10.Text = "4" Then
Text5.Text = 140000
ElseIf Text10.Text = "5" Then
Text5.Text = 175000
End If
End Sub

Private Sub Command9_Click()
If Text15.Text = "1" Then
Text6.Text = 35000
ElseIf Text15.Text = "2" Then
Text6.Text = 70000
ElseIf Text15.Text = "3" Then
Text6.Text = 105000
ElseIf Text15.Text = "4" Then
Text6.Text = 140000
ElseIf Text15.Text = "5" Then
Text6.Text = 175000
End If
End Sub


Private Sub Command12_Click()
Form11.Label7 = Text3.Text
Form11.Label9 = Text4.Text
Form11.Label11 = Text5.Text
Form11.Label3 = Text1.Text

Form11.Label16 = Text6.Text
Form11.Label17 = Text7.Text
Form11.Label18 = Text8.Text
Form11.Label19 = Text2.Text
Form11.Text1 = Text9.Text

Form11.Show
Unload Me

End Sub


Private Sub Command1_Click()
Form1.Show
'Menampilkan form1 ketika command button diklik.
Unload Me
'menutup form7 ketika form1 terbuka

End Sub
Private Sub Command2_Click()
MsgBox "Pemesanan Anda telah berhasil, silakan klik tombol pemesanan untuk melihat pesanan Anda!", vbInformation, "pesan"
End Sub
Private Sub Command3_Click()
Text9.Text = Val(Text4.Text) * Val(Text8.Text)
End Sub

Private Sub Command4_Click()
Form10.Text1 = Text1.Text
Form10.Text2 = Text2.Text
Form10.Text3 = Text6.Text
Form10.Text4 = Text7.Text
Form10.Text5 = Text3.Text
Form10.Text6 = Text4.Text
Form10.Text7 = Text8.Text
Form10.Text8 = Text9.Text
Form10.Text10 = Text5.Text
Form10.Show
Unload Me

End Sub
Private Sub Command5_Click()
Text7.Text = Val(Text6.Text) * Val(Text2.Text)
End Sub
Private Sub Command7_Click()
Text5.Text = Val(Text7.Text) + Val(Text9.Text)
End Sub



Private Sub CmdDelete_Click(Index As Integer)
PESAN = MsgBox("APAKAH ANDA YAKIN??", vbInformation + vbYesNo, "WARNING")
If PESAN = vbYes Then
Adodc1.Recordset.Delete
Else
'TAMBAHKAN KONDISI YANG DIINGINKAN'
End If
End Sub
Private Sub CmdHapus_Click()
PESAN = MsgBox("APAKAH ANDA YAKIN??", vbInformation + vbYesNo, "WARNING")
If PESAN = vbYes Then
Adodc2.Recordset.Delete
Else
'TAMBAHKAN KONDISI YANG DIINGINKAN'
End If
End Sub
Private Sub Command1_Click()
Text9.Text = Val(Text10.Text)
End Sub
Private Sub Command2_Click()
Form7.Show
Unload Me
End Sub
Private Sub Command3_Click()
Form9.Show
Unload Me
End Sub
Private Sub Command7_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!Nama_Makanan = Text1.Text
Adodc1.Recordset!Harga = Text2.Text
Adodc1.Recordset!Jumlah = Text3.Text
Adodc1.Recordset!Total = Text4.Text
Adodc1.Recordset.Update
DataGrid1.Refresh

Adodc2.Recordset.AddNew
Adodc2.Recordset!Nama_Makanan = Text5.Text
Adodc2.Recordset!Harga = Text6.Text
Adodc2.Recordset!Jumlah = Text7.Text
Adodc2.Recordset!Total = Text8.Text
Adodc2.Recordset.Update
DataGrid2.Refresh
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

TASK 5: ADVERB CLAUSES

1.        ___________ they are tropical birds, parrots can live in temperate or even cold climates. A. Despite B. Even though C. Nevertheless D. But 2.       Natural silk is still highly prized _______ similar artificial fabrics. A. although is available B. despite there are available C. in spite of the availability of D. even though an availability of 3.       The president of the United States appoints the cabinet members, ______ appointments are subject to Senate approval. A. their B. with their C. because their D. but their 4.       The prisoners were prevented from speaking to reporters because ______. A. not wanting the story in the papers B. the story in the papers the superintenden t did not want C. the public to hear the story D. the superintendent did not want the story in the papers 5.       _...
Baca selengkapnya

TASK 2: INCOMPLETE INDEPENDENT CLAUSES PART 2

1.     ________ by cosmic rays. (A)    The earth is constantly bombarded (B)    Bombarded constantly, the earth (C)    Bombarding the earth constantly (D)    The earth's constant bombardment Answer: (A) The earth is constantly bombarded 2.     ________ primary colors are red, blue, and yellow. (A) There are three (B) The three (C) Three of them (D) That the three Answer: (B) The three 3.     ______who was elected the first woman mayor of Chicago in 1979. (A) It was Jane Byrne (B) Jane Byrne (C) That Jane Byrne (D) When Jane Byrne Answer: (A) It was Jane Byrne 4.     Every computer consists of a number of systems ______ together. (A) by working (B) work (C) they work (D) that work Answer: (D) that work 5.     On the Moon, ______ air because the Moon's gravitational field is too weak to retain an atmosphere. (A) th...
Baca selengkapnya

TASK 1: INCOMPLETE INDEPENDENT CLAUSES PART I

1.     In the United States, _________ is generally the responsibility of municipal governments.           (A) for water treatment           (B) water treatment           (C) where water treatment           (D) in which water treatment answer : (B) Water treatment 2.     Crop rotation _________ of preserving soil fertility. (A) it is one method (B) one method (C) a method is one (D) is one method answer: (D) is one method 3.     ___________ the dollar as its monetary unit in 1878. (A) Canada adopted (B) Adopted by Canada, (C) It was adopted by Canada (D) The Canadian adoption of answer: (A) Canada adopted 4 .     __________ almost impossible to capture the beauty of the aurora borealis in     photographs. (A) Being (B) His (C) There is (D) Is answer: (C) Ther...
Baca selengkapnya