Process Control Berikut merupakan syntax proses dan sql queries yang terdapat dalam program ‘ReserveKA’. Tujuan kalian adalah untuk memeriksa apakah ada kesalahan proses atau kesalahan syntax sql (baik penulisan queries maupun data yang digunakan)
1. frmDataKA Form – Form Data KA
txtKodeKA
txtNamaKA cmdTambah cmdHapus
cboKelas
txtJmlDuduk
txtJenisKA
cmdEdit
Private Sub cmdEdit_Click() update mt_kereta_api set namaka = ‘txtNamaKA’ , jeniska = 'txtJenisKA', totaltmpddk = 'txtJmlDuduk', kelas = 'cboKelas.Text’, where kodeka = 'txtKodeKA' End Sub Private Sub cmdHapus_Click() delete from mt_kereta_api where kodeka = 'txtKodeKA' End Sub Private Sub cmdTambah_Click() insert into mt_kereta_api (kodeka, namaka, jeniska, totaltmpddk, kelas) values ('txtKodeKA', 'txtNamaKA', 'txtJenisKA', 'txtJmlDuduk', 'cboKelas.Text') End Sub
Private Sub Form_Activate() select kodeka as [Kode KA], namaka as [Nama KA], jeniska as [Jenis KA], totaltmpddk as [Total Tempat Duduk], kelas as [Kelas] from mt_kereta_api End Sub
2. frmPelanggan – Form Pelanggan
txtKodeCust
txtNamaCust
txtAlmCust
cmdTambah
cmdUbah cmdHapus txtKota txtTelp
txtKodePos
Private Sub cmdHapus_Click() delete mt_pelanggan where kodeplgn = 'txtKodePlgn' End Sub Private Sub cmdTambah_Click() insert into mt_pelanggan (kodeplgn, namaplgn, alamatplgn, kotaplgn, kodeposplgn, notelpplgn) values ('txtKodeCust', 'txtNamaCust', 'txtAlmCust', 'txtKota', 'txtKodePos', 'txtTelp' End Sub Private Sub cmdUbah_Click() update mt_pelanggan set kodeplgn = 'txtKodeCust', namaplgn = 'txtNamaCust', alamatplgn = 'txtAlmCust', kotaplgn = 'txtKota', kodeposplgn = 'txtKodePos', notelpplgn = 'txtTelp' where kodeplgn = 'txtKodeCust' End Sub
Private Sub Form_Activate() select * from mt_pelanggan order by kodeplgn End Sub Private Sub Form_Load() select * from mt_pelanggan order by kodeplgn End Sub
3. frmJurusan – Form Jurusan txtKodeJur cboRute
txtKodeKA txtNamaKA txtKelas txtTarif
cmdTambah
cmdUbah
Private Sub cmdTambah_Click() insert into mt_jurusan (kodejur, jurusan, kodeka, namaka, kelas, tarif) values ('txtKodeJur', 'cboRute', 'txtKodeKA', 'txtNamaKA', 'txtKelas', 'txtTarif') End Sub Private Sub cmdUbah_Click() update mt_jurusan set tarif = 'txtTarif' where kodeka = 'txtKodeKA' End Sub Private Sub txtKodeKA_LostFocus() select * from mt_kereta_api where kodeka = 'txtKodeKA' txtNamaKA = rs!namaka txtKelas = rs!kelas End Sub
4. frmPesan – Form Pemesanan txtKodePesan
cboTgl
cboBln
cboThn txtKodePlgn txtNamaPlgn
cmdPesan
cboRute cboThn2 cboBln2 cboTgl2
txtTarif
txtSisaBayar
txtNamaKA
txtKodeKA
cboKelas
txtUangMuka Private Sub cmdPesan_Click() insert into mt_transaksi (kodepesan, tglpesan, kodeplgn, namaplgn, jurusan, tglberangkat, kelas, kodeka, namaka, uangmuka, status, tarif) values ('txtKodePesan', 'cboTgl.Text / cboBln.Text / cboThn.Text', 'txtKodePlgn' ,'txtNamaPlgn', 'cboRute.Text', 'cboTgl2.Text / cboBln2.Text / cboThn2.Text', 'cboKelas.Text', 'txtKodeKA', 'txtNamaKA', 'txtUangMuka', 'Booking', 'txtTarif') End Sub Private Sub txtKodeKA_LostFocus() select * from mt_kereta_api where kodeka = 'txtKodeKA' txtNamaKA = rs!jeniska rs.close select * from mt_jurusan where jurusan = 'cboRute' and kodeka = 'txtKodeKA' txtTarif = rs!tarif txtTarif = txtTarif * 0.07 txtUangMuka = txtTarif * 0.07 txtSisaBayar = txtTarif – (txtTarif * 0.1) End Sub Private Sub txtKodePlgn_LostFocus() select * from mt_pelanggan where kodeplgn = 'txtKodePlgn' txtNamaPlgn = rs!namaplgn End Sub
5. frmJual – Form Penjualan txtKodePesan txtTglPesan txtTglBerangkat txtnamaPlgn txtNamaKA txtRute txtTarif txtUangMuka txtSisa
status
cmdSimpan
Private Sub cmdSimpan_Click() update mt_transaksi set status = 'status' where kodepesan = 'txtKodePesan' End Sub Private Sub txtKodePesan_LostFocus() select * from mt_transaksi where kodepesan = 'txtKodePesan' txtTglPesan = rs!tglpesan txtTglBerangkat = rs!tglberangkat txtNamaPlgn = rs!namaplgn txtNamaKA = rs!namaka txtRute = rs!jurusan txtTarif = rs!tarif txtUangMuka = rs!uangmuka txtSisa = Val(rs!tarif - (rs!tarif * 0.05)) End Sub
6. frmLapRute – Laporan Rute Perjalanan dasar
cboRute / txtCari
cmdCari
Private Sub cmdCari_Click() If dasar = "jurusan" Then select mt_kereta_api.kodeka as [Kode KA], mt_kereta_api.namaka as [Nama KA], mt_kereta_api.jeniska as [Jenis KA], mt_kereta_api.kelas as [Kelas KA], mt_jurusan.jurusan as [Rute KA], mt_jurusan.tarif as [Tarif KA], mt_kereta_api.totaltmpddk as [Total Duduk] from mt_kereta_api, mt_jurusan where mt_jurusan.kodeka = mt_kereta_api.kodeka and mt_jurusan.jurusan = 'cboRute' select count(*) from mt_kereta_api, mt_jurusan where mt_jurusan.kodeka = mt_kereta_api.kodeka and mt_jurusan.jurusan = 'cboRute' End If
If dasar = "namaka" Then select mt_kereta_api.kodeka as [Kode KA], mt_kereta_api.namaka as [Nama KA], mt_kereta_api.jeniska as [Jenis KA], mt_kereta_api.kelas as [Kelas KA], mt_jurusan.jurusan as [Rute KA], mt_jurusan.tarif as [Tarif KA], mt_kereta_api.totaltmpddk as [Total Duduk] from mt_kereta_api, mt_jurusan where mt_jurusan.kodeka = mt_kereta_api.kodeka and mt_jurusan.namaka like '%txtCari %' select count(*) from mt_kereta_api, mt_jurusan where mt_jurusan.kodeka = mt_kereta_api.kodeka and mt_jurusan.namaka like '%txtCari%' End If
If dasar = "kodeka" Then select mt_kereta_api.kodeka as [Kode KA], mt_kereta_api.namaka as [Nama KA], mt_kereta_api.jeniska as [Jenis KA], mt_kereta_api.kelas as [Kelas KA], mt_jurusan.jurusan as [Rute KA], mt_jurusan.tarif as [Tarif KA], mt_kereta_api.totaltmpddk as [Total Duduk] from mt_kereta_api, mt_jurusan where mt_jurusan.kodeka = mt_kereta_api.kodeka and mt_jurusan.kodeka like '%txtCari%' select count(*) from mt_kereta_api, mt_jurusan where mt_jurusan.kodeka = mt_kereta_api.kodeka and mt_jurusan.kodeka like '%txtCari%' End If
If dasar = "kelas" Then select mt_kereta_api.kodeka as [Kode KA], mt_kereta_api.namaka as [Nama KA], mt_kereta_api.jeniska as [Jenis KA], mt_kereta_api.kelas as [Kelas KA], mt_jurusan.jurusan as [Rute KA], mt_jurusan.tarif as [Tarif KA], mt_kereta_api.totaltmpddk as [Total Duduk] from mt_kereta_api, mt_jurusan where mt_jurusan.kodeka = mt_kereta_api.kodeka and mt_kereta_api.kelas ='cboKelas' select count(*) from mt_kereta_api, mt_jurusan where mt_jurusan.kodeka = mt_kereta_api.kodeka and mt_kereta_api.kelas = 'cboKelas' End If
7. frmLapPelanggan – Form Laporan pelanggan dasar
txtCari
cmdCari
Private Sub cmdCari_Click() If dasar = "kode" Then select mt_pelanggan.namaplgn as [Nama Pelanggan], mt_transaksi.tglpesan as [Tanggal Pesan], mt_transaksi.tglberangkat as [Tanggal Ber angkat], mt_transaksi.jurusan as [Jurusan], mt_transaksi.namaka as [Nama KA], mt_transaksi.status as [Status] from mt_pelanggan, mt_transaksi where mt_transaksi.kodeplgn = mt_pelanggan.kodeplgn and mt_transaksi.kodeplgn = 'txtCari' select count(*) from mt_pelanggan, mt_transaksi where mt_transaksi.kodeplgn = mt_pelanggan.kodeplgn and mt_transaksi.kodeplgn = 'txtCari' End If If dasar = "nama" Then select mt_pelanggan.namaplgn as [Nama Pelanggan], mt_transaksi.tglpesan as [Tanggal Pesan], mt_transaksi.tglberangkat as [Tanggal Berangkat], mt_transaksi.jurusan as [Jurusan], mt_transaksi.namaka as [Nama KA], mt_transaksi.status as [Status] from mt_pelanggan, mt_transaksi where mt_pelanggan.kodeplgn = mt_transaksi.kodeplgn and mt_transaksi.namaplgn like '%txtCari%' rs1.Open "select count(*) from mt_pelanggan, mt_transaksi where mt_pelanggan.kodeplgn=mt_transaksi.kodeplgn and mt_transaksi.namaplgn like '%txtCari%' End If End Sub
8. frmLapTransaksi – Laporan Transaksi cboPeriode
cmdCari
dasar
Private Sub cmdCari_Click() If dasar = "Lunas" Then select kodepesan as [Kode Pesan], tglpesan as [Tgl Pesan], tglberangkat as [Tgl Berangkat], namaplgn as [Nama Pelanggan], namaka as [Nama KA], Jurusan, Tarif as [Bayar], Status from mt_transaksi where status = 'Lunas' and tglBerangkat like '%cboPeriode%' End If If dasar = "Booking" Then select kodepesan as [Kode Pesan], tglpesan as [Tgl Pesan], tglberangkat as [Tgl Berangkat], namaplgn as [Nama Pelanggan], namaka as [Nama KA], Jurusan, Tarif as [Bayar], Status from mt_transaksi where status = 'Booking' and tglBerangkat like '%cboPeriode%' End If If dasar = "Batal" Then select kodepesan as [Kode Pesan], tglpesan as [Tgl Pesan], tglberangkat as [Tgl Berangkat], namaplgn as [Nama Pelanggan], namaka as [Nama KA], Jurusan, Tarif as [Bayar], Status from mt_transaksi where status = 'Batal' and tglBerangkat like '%cboPeriode%' End If If dasar = "Semua" Then select kodepesan as [Kode Pesan], tglpesan as [Tgl Pesan], tglberangkat as [Tgl Berangkat], namaplgn as [Nama Pelanggan], namaka as [Nama KA], Jurusan, Tarif as [Bayar], Status from mt_transaksi where tglBerangkat like '%cboPeriode%' End If If dasar = "Lunas" Then select count(*) from mt_transaksi where status = 'Lunas' and tglBerangkat like '%cboPeriode%' select sum (tarif) as TotalTarif from mt_transaksi where status='Lunas' and tglBerangkat like '%cboPeriode%' End If If dasar = "Booking" Then select count(*) from mt_transaksi where status = 'Booking' and tglBerangkat like '%cboPeriode%' select sum (tarif) as TotalTarif from mt_transaksi where status = 'Booking' and tglBerangkat like '%cboPeriode%' End If If dasar = "Batal" Then select count(*) from mt_transaksi where status = 'Batal' and tglBerangkat like '%cboPeriode%' select sum (tarif) as TotalTarif from mt_transaksi where status = 'Batal' and tglBerangkat like '%cboPeriode%' End If
If dasar = "Semua" Then select count (*) from mt_transaksi where tglBerangkat like '%cboPeriode%' select sum (tarif) as TotalTarif from mt_transaksi where tglBerangkat like '%cboPeriode%' End If txtTotalTarif = rs!totaltarif * 0.93 End Sub