Private Sub txtKelas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim ssql As String
ssql = "select hargadasar from table1 where pesawat = '" & txtPesawat.Text & "' and dari='" & txtDari.Text & "' and tujuan='" & cboTujuan.Text & "' and class='" & txtKelas.Text & "'"
Set rs = cnn.Execute(ssql)
If Not rs.EOF Then
txtHarga.Text = rs!hargadasar
Else
txtHarga.Text = 0
End If
keyascii=0
End If
End Sub
yg lama di remark
Salam
Ronald Irawan
Pt. Sanghiang Perkasa
Gd. Graha Kirana Lt.5
Jl Yos Sudarso Kav.88
Jakarta
| "Frangky" <[EMAIL PROTECTED]>
Sent by: [email protected] 19/06/2006 01:18 PM
|
|
Teman-teman,
tolong perhatikan tabel dan kode dibawah ini.
Harga tiket Pesawat dari Denpasar ke Surabaya atau kota lain, harganya berbeda-beda dilihat jenis Kelas.
Pesawat Dari Tujuan Kelas Harga
Batavia DENPASAR SURABAYA A 450000
Batavia DENPASAR SURABAYA B 500000
Batavia DENPASAR SURABAYA C 550000
Batavia DENPASAR SEMARANG A 600000
Batavia DENPASAR SEMARANG B 650000
Batavia DENPASAR SEMARANG C 700000
If txtPesawat = rs.Fields("Pesawat") And txtDari = rs.Fields("Dari") And txtTujuan = rs.Fields("Tujuan") And txtKelas = rs.Fields("Class") Then
txtHarga = rs.Fields("Hargadasar")
Kalau pada form,
txtPesawat = Batavia
txtDari = DENPASAR
txtTujuan = Surabaya
txtKelas=A
maka txtHarga = 450000.
Masalahnya kalau pada form:
txtPesawat = Batavia
txtDari = DENPASAR
txtTujuan = SEMARANG
txtKelas=A
txtHarga tidak menampilkan harga tiket dari Denpasar ke SEMARANG. Yang harusnya menampilkan harga 600000 untuk Kelas A.
Untuk lebih jelasnya saya lampirkan file program yang saya buat.
Terimakasih kalau ada yang membantu.
[attachment "travel.rar" deleted by Ronald Irawan/IT/sanghiang]
