tugas vb 4

Private Sub Command1_Click()
Data1.Recordset.AddNew
Text1.SetFocus
End Sub

Private Sub Command10_Click()
Data2.Recordset.AddNew
End Sub

Private Sub Command11_Click()
End
End Sub

Private Sub Command2_Click()
Data1.Recordset.Edit
End Sub

Private Sub Command3_Click()
Data1.Recordset.Update
End Sub

Private Sub Command4_Click()
Data1.Recordset.Delete
End Sub

Private Sub Command5_Click()
Dim Kt As String
If Cmbrute.Text = “SURABAYA – JAKARTA” And Cmbkls.Text = “BISNIS” Then
Text1.Text = “01BSN001”
Text2.Text = “1000000”
ElseIf Cmbrute.Text = “SURABAYA – JAKARTA” And Cmbkls.Text = “EKSEKUTIF” Then
Text1.Text = “02EKS002”
Text2.Text = “750000”
ElseIf Cmbrute.Text = “SURABAYA – JAKARTA” And Cmbkls.Text = “EKONOMI” Then
Text1.Text = “03EK0003”
Text2.Text = “500000”
ElseIf Cmbrute.Text = “SURABAYA – DENPASAR” And Cmbkls.Text = “BISNIS” Then
Text1.Text = “01BSN001”
Text2.Text = “2000000”
ElseIf Cmbrute.Text = “SURABAYA – DENPASAR” And Cmbkls.Text = “EKSEKUTIF” Then
Text1.Text = “02EKS002”
Text2.Text = “1550000”
ElseIf Cmbrute.Text = “SURABAYA – DENPASAR” And Cmbkls.Text = “EKONOMI” Then
Text1.Text = “03EK0003”
Text2.Text = “1000000”
ElseIf Cmbrute.Text = “SURABAYA – BALIKPAPAN” And Cmbkls.Text = “BISNIS” Then
Text1.Text = “01BSN001”
Text2.Text = “2300000”
ElseIf Cmbrute.Text = “SURABAYA – BALIKPAPAN” And Cmbkls.Text = “EKSEKUTIF” Then
Text1.Text = “02EKS002”
Text2.Text = “1050000”
ElseIf Cmbrute.Text = “SURABAYA – BALIKPAPAN” And Cmbkls.Text = “EKONOMI” Then
Text1.Text = “03EK0003”
Text2.Text = “1000000”
ElseIf Cmbrute.Text = “SURABAYA – LOMBOK” And Cmbkls.Text = “BISNIS” Then
Text1.Text = “01BSN001”
Text2.Text = “1500000”
ElseIf Cmbrute.Text = “SURABAYA – LOMBOK” And Cmbkls.Text = “EKSEKUTIF” Then
Text1.Text = “02EKS002”
Text2.Text = “1250000”
ElseIf Cmbrute.Text = “SURABAYA – LOMBOK” And Cmbkls.Text = “EKONOMI” Then
Text1.Text = “03EK0003”
Text2.Text = “1000000”
ElseIf Cmbrute.Text = “SURABAYA – SOLO” And Cmbkls.Text = “BISNIS” Then
Text1.Text = “01BSN001”
Text2.Text = “1000000”
ElseIf Cmbrute.Text = “SURABAYA – SOLO” And Cmbkls.Text = “EKSEKUTIF” Then
Text1.Text = “02EKS002”
Text2.Text = “750000”
ElseIf Cmbrute.Text = “SURABAYA – SOLO” And Cmbkls.Text = “EKONOMI” Then
Text1.Text = “03EK0003”
Text2.Text = “500000”
ElseIf Cmbrute.Text = “JAKARTA – SURABAYA” And Cmbkls.Text = “BISNIS” Then
Text1.Text = “01BSN001”
Text2.Text = “1000000”
ElseIf Cmbrute.Text = “JAKARTA – SURABAYA” And Cmbkls.Text = “EKSEKUTIF” Then
Text1.Text = “02EKS002”
Text2.Text = “850000”
ElseIf Cmbrute.Text = “JAKARTA – SURABAYA” And Cmbkls.Text = “EKONOMI” Then
Text1.Text = “03EK0003”
Text2.Text = “600000”
ElseIf Cmbrute.Text = ” DENPASAR – SURABAYA” And Cmbkls.Text = “BISNIS” Then
Text1.Text = “01BSN001”
Text2.Text = “3000000”
ElseIf Cmbrute.Text = “DENPASAR – SURABAYA” And Cmbkls.Text = “EKSEKUTIF” Then
Text1.Text = “02EKS002”
Text2.Text = “2750000”
ElseIf Cmbrute.Text = ” DENPASAR – SURABAYA ” And Cmbkls.Text = “EKONOMI” Then
Text1.Text = “03EK0003”
Text2.Text = “1500000”
ElseIf Cmbrute.Text = ” BALIKPAPAN – SURABAYA ” And Cmbkls.Text = “BISNIS” Then
Text1.Text = “01BSN001”
Text2.Text = “1000000”
ElseIf Cmbrute.Text = “BALIKPAPAN – SURABAYA” And Cmbkls.Text = “EKSEKUTIF” Then
Text1.Text = “02EKS002”
Text2.Text = “750000”
ElseIf Cmbrute.Text = “BALIKPAPAN – SURABAYA ” And Cmbkls.Text = “EKONOMI” Then
Text1.Text = “03EK0003”
Text2.Text = “500000”
ElseIf Cmbrute.Text = ” MEDAN – SURABAYA” And Cmbkls.Text = “BISNIS” Then
Text1.Text = “01BSN001”
Text2.Text = “5000000”
ElseIf Cmbrute.Text = “MEDAN – SURABAYA” And Cmbkls.Text = “EKSEKUTIF” Then
Text1.Text = “02EKS002”
Text2.Text = “4750000”
ElseIf Cmbrute.Text = “MEDAN -SURABAYA” And Cmbkls.Text = “EKONOMI” Then
Text1.Text = “03EK0003”
Text2.Text = “3500000”
ElseIf Cmbrute.Text = “LOMBOK -SURABAYA” And Cmbkls.Text = “BISNIS” Then
Text1.Text = “01BSN001”
Text2.Text = “1200000”
ElseIf Cmbrute.Text = “LOMBOK – SURABAYA” And Cmbkls.Text = “EKSEKUTIF” Then
Text1.Text = “02EKS002”
Text2.Text = “755000”
ElseIf Cmbrute.Text = “LOMBOK – SURABAYA” And Cmbkls.Text = “EKONOMI” Then
Text1.Text = “03EK0003”
Text2.Text = “550000”
ElseIf Cmbrute.Text = “SOLO – SURABAYA” And Cmbkls.Text = “BISNIS” Then
Text1.Text = “01BSN001”
Text2.Text = “700000”
ElseIf Cmbrute.Text = “SOLO – SURABAYA” And Cmbkls.Text = “EKSEKUTIF” Then
Text1.Text = “02EKS002”
Text2.Text = “500000”
ElseIf Cmbrute.Text = “SOLO – SURABAYA” And Cmbkls.Text = “EKONOMI” Then
Text1.Text = “03EK0003”
Text2.Text = “250000”
ElseIf Cmbrute.Text = “LAMPUNG – JAKARTA” And Cmbkls.Text = “BISNIS” Then
Text1.Text = “01BSN001”
Text2.Text = “1000000”
ElseIf Cmbrute.Text = “LAMPUNG – JAKARTA” And Cmbkls.Text = “EKSEKUTIF” Then
Text1.Text = “02EKS002”
Text2.Text = “500000”
ElseIf Cmbrute.Text = “LAMPUNG – JAKARTA” And Cmbkls.Text = “EKONOMI” Then
Text1.Text = “03EK0003”
Text2.Text = “200000”
ElseIf Cmbrute.Text = “JAKARTA – LAMPUNG” And Cmbkls.Text = “BISNIS” Then
Text1.Text = “01BSN001”
Text2.Text = “1000000”
ElseIf Cmbrute.Text = “JAKARTA – LAMPUNG” And Cmbkls.Text = “EKSEKUTIF” Then
Text1.Text = “02EKS002”
Text2.Text = “500000”
ElseIf Cmbrute.Text = “JAKARTA – LAMPUNG” And Cmbkls.Text = “EKONOMI” Then
Text1.Text = “03EK0003”
Text2.Text = “200000”

End If
End Sub

Private Sub Command6_Click()
Data2.Recordset.Delete
End Sub

Private Sub Command8_Click()
Data2.Recordset.AddNew
End Sub

Private Sub Command9_Click()
Data2.Recordset.Delete
End Sub

Private Sub Form_Load()
Cmbrute.AddItem “SURABAYA – JAKARTA”
Cmbrute.AddItem “SURABAYA – DENPASAR”
Cmbrute.AddItem “SURABAYA – BALIKPAPAN”
Cmbrute.AddItem “SURABAYA -MEDAN”
Cmbrute.AddItem “SURABAYA – LOMBOK”
Cmbrute.AddItem “SURABAYA – SOLO”
Cmbrute.AddItem “JAKARTA – SURABAYA”
Cmbrute.AddItem “DENPASAR – SURABAYA”
Cmbrute.AddItem “BALIPAPAN -SURABAYA”
Cmbrute.AddItem “MEDAN – SURABAYA”
Cmbrute.AddItem “LOMBOK – SURABAYA”
Cmbrute.AddItem “SOLO – SURABAYA”
Cmbrute.AddItem “LAMPUNG – JAKARTA”
Cmbrute.AddItem “JAKARTA – LAMPUNG”
Cmbkls.AddItem “BISNIS”
Cmbkls.AddItem “EKSEKUTIF”
Cmbkls.AddItem “EKONOMI”
End Sub

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s