Private Sub Combo1_Click()
Select Case Combo1.Text
Case “SURABAYA-JAKARTA”
Text1.Text = “01″
Text2.Text = “350000″
Case “SURABAYA-DENPASAR”
Text1.Text = “02″
Text2.Text = “100000″
Case “SURABAYA-BALIKPAPAN”
Text1.Text = “03″
Text2.Text = “400000″
Case “SURABAYA-MEDAN”
Text1.Text = “04″
Text2.Text = “500000″
Case “SURABAYA-LOMBOK”
Text1.Text = “05″
Text2.Text = “150000″
Case “SURABAYA-SOLO”
Text1.Text = “06″
Text2.Text = “100000″
Case “JAKARTA-SURABAYA”
Text1.Text = “07″
Text2.Text = “350000″
Case “DENPASAR-SURABAYA”
Text1.Text = “08″
Text2.Text = “100000″
Case “BALIKPAPAN-SURABAYA”
Text1.Text = “09″
Text2.Text = “400000″
Case “MEDAN-SURABAYA”
Text1.Text = “10″
Text2.Text = “500000″
Case “LOMBOK-SURABAYA”
Text1.Text = “11″
Text2.Text = “150000″
Case “SOLO-SURABAYA”
Text1.Text = “12″
Text2.Text = “100000″
Case “LAMPUNG-JAKARTA”
Text1.Text = “13″
Text2.Text = “300000″
Case “JAKARTA-LAMPUNG”
Text1.Text = “14″
Text2.Text = “300000″
End Select
End Sub

Private Sub Combo2_Click()
I = 0
Select Case Combo2.Text
Case “BISNIS”
Text1.Text = Text1.Text & “BSN” & “00″ & (I + 1)
Text2.Text = Text2.Text + 400000
Case “EKSEKUTIF”
Text1.Text = Text1.Text & “EKS” & “00″ & (I + 1)
Text2.Text = Text2.Text + 500000
Case “EKONOMI”
Text1.Text = Text1.Text & “EKM” & “00″ & (I + 1)
Text2.Text = Text2.Text + 15000
End Select
End Sub

Private Sub Combo3_Click()
Select Case Combo3.Text
Case “SURABAYA-JAKARTA”
Text8.Text = “01″
Text9.Text = “350000″
Case “SURABAYA-DENPASAR”
Text8.Text = “02″
Text9.Text = “100000″
Case “SURABAYA-BALIKPAPAN”
Text8.Text = “03″
Text9.Text = “400000″
Case “SURABAYA-MEDAN”
Text8.Text = “04″
Text9.Text = “500000″
Case “SURABAYA-LOMBOK”
Text8.Text = “05″
Text9.Text = “150000″
Case “SURABAYA-SOLO”
Text8.Text = “06″
Text9.Text = “100000″
Case “JAKARTA-SURABAYA”
Text8.Text = “07″
Text9.Text = “350000″
Case “DENPASAR-SURABAYA”
Text8.Text = “08″
Text9.Text = “100000″
Case “BALIKPAPAN-SURABAYA”
Text8.Text = “09″
Text9.Text = “400000″
Case “MEDAN-SURABAYA”
Text8.Text = “10″
Text9.Text = “500000″
Case “LOMBOK-SURABAYA”
Text8.Text = “11″
Text9.Text = “150000″
Case “SOLO-SURABAYA”
Text8.Text = “12″
Text9.Text = “100000″
Case “LAMPUNG-JAKARTA”
Text8.Text = “13″
Text9.Text = “300000″
Case “JAKARTA-LAMPUNG”
Text8.Text = “14″
Text9.Text = “300000″
End Select
End Sub

Private Sub Combo4_Click()
Select Case Combo4.Text
Case “BISNIS”
Text8.Text = Text8.Text & “BSN” & “00″ & (I + 1)
Text9.Text = Text9.Text + 400000
Case “EKSEKUTIF”
Text8.Text = Text8.Text & “EKS” & “00″ & (I + 1)
Text9.Text = Text9.Text + 500000
Case “EKONOMI”
Text8.Text = Text8.Text & “EKM” & “00″ & (I + 1)
Text9.Text = Text9.Text + 15000
End Select
Text10.Text = Text9.Text
End Sub

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

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

Private Sub Command11_Click()
Unload Me
End Sub

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

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

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

Private Sub Command6_Click()
Data2.Recordset.AddNew
Text4.Text = “001″
End Sub

Private Sub Command7_Click()
Combo3.Text = “”
Combo4.Text = “”
Text9.Text = “”
End Sub

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

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

Private Sub Form_Load()
Combo1.AddItem “SURABAYA-JAKARTA”
Combo1.AddItem “SURABAYA-DENPASAR”
Combo1.AddItem “SURABAYA-BALIKPAPAN”
Combo1.AddItem “SURABAYA-MEDAN”
Combo1.AddItem “SURABAYA-LOMBOK”
Combo1.AddItem “SURABAYA-SOLO”
Combo1.AddItem “JAKARTA-SURABAYA”
Combo1.AddItem “DENPASAR-SURABAYA”
Combo1.AddItem “BALIKPAPAN-SURABAYA”
Combo1.AddItem “MEDAN-SURABAYA”
Combo1.AddItem “LOMBOK-SURABAYA”
Combo1.AddItem “SOLO-SURABAYA”
Combo1.AddItem “LAMPUNG-JAKARTA”
Combo1.AddItem “JAKARTA-LAMPUNG”
Combo2.AddItem “BISNIS”
Combo2.AddItem “EKSEKUTIF”
Combo2.AddItem “EKONOMI”
Combo3.AddItem “SURABAYA-JAKARTA”
Combo3.AddItem “SURABAYA-DENPASAR”
Combo3.AddItem “SURABAYA-BALIKPAPAN”
Combo3.AddItem “SURABAYA-MEDAN”
Combo3.AddItem “SURABAYA-LOMBOK”
Combo3.AddItem “SURABAYA-SOLO”
Combo3.AddItem “JAKARTA-SURABAYA”
Combo3.AddItem “DENPASAR-SURABAYA”
Combo3.AddItem “BALIKPAPAN-SURABAYA”
Combo3.AddItem “MEDAN-SURABAYA”
Combo3.AddItem “LOMBOK-SURABAYA”
Combo3.AddItem “SOLO-SURABAYA”
Combo3.AddItem “LAMPUNG-JAKARTA”
Combo3.AddItem “JAKARTA-LAMPUNG”
Combo4.AddItem “BISNIS”
Combo4.AddItem “EKSEKUTIF”
Combo4.AddItem “EKONOMI”
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If
End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7.SetFocus
End If

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