Dibawah ini Saya telah membuat form Delphi.. di dalamnya lumayan lengkap codingnya...
di form ini ada cara pencarian ke tabel melalui editbox dan combobox
ada cara membuat nomor secara berurutan
dan ada pula cara menggunakan radio button dan checkBox..

4. Buatlah Form sbb:



Ketentuan:
1. Koneksikan 3 buah table ke tabelnya masing masing
Objek Name Database name/ alias Table name Datasource
Table1 Bus Tiket_delphi Bus -
Table2 Pemesan Tiket_delphi Pemesan -
Table3 Transaksi Tiket_delphi Transaksi -
Datasource Datasoucre1 - - transaksi
Grid1 Dataset=datasource1

2.Buat procedure aktif, nonaktif, kondisiawal, dan bersih
3.Saat form dijalankan semua objek kecuali CTambah tidak aktif
Form dalam kondisi awal : bersih nonaktif,ctambah.caption=&Tambah

4.di klik tambah form aktif dan nomor transaksi muncul otomatis berdasarkan jumlah data terakhir+1

5.kode pemesan di input dan di enter maka nama dan status pemesan tampil. Data diambil dari tabel pemesan

6.combo1 disi dengan kode bus dari tabel bus

7. Saat combo1 di pilih dan di klik nama bus dan jurusan akan muncul


9. pilih Biaya Tambahan
Jika bagasi=Rp.25.000
Jika Makan=Rp.50.000
Jika kedua-duanya=Rp.75.000

10. di input jumlah beli dan ditekan enter maka muncul subtotal,potongan,Jumlah bayar
Subtotal=harga*jumbel
Potongan jika member potongan=10% dari subtotal
Umum tidak dapat potongan
Jumlah bayar=(subtotal+Biaya Tambahan)-Potongan

11. Urutan pengerjaan
Klik tambah=> Input kode pemesan=>pilih kode Bus=>pilih jenis bus=>pilih biaya tambahan=>input Jumlah beli=>Simpan



Hasilnya sbb:




DOWNLOAD DI BAWAH INI

LATIHAN DELPHI PRA UAS

**PENTING
file download berupa file .Rar extract di path C.
di dalamnya terdapat form.coding,beserta tabel-tabelnya..
anda tinggal buat alias managernya lagi..sesuaikan dengan tempat penyimpanan tabelnya
--------------Trima Kasih---------------------