Membuat Aplikasi Penjualan Menggunakan JavaDeskripsi lengkap
Tugas UAS Algoritma & Pemrograman Universitas Pamulang GUI Pada MATLAB Yunan Mubarak Ramadani 2014140544 / 01TPLPC Regards: www.u9store.com www.u9media.asia www.fb.me/yunanmr ww…Deskripsi lengkap
Deskripsi lengkap
Deskripsi lengkap
Full description
Artikel singkat bagaimana membuat komponen secara sederhana dengan Delphi 6.Deskripsi lengkap
Full description
DELPHI - ORACLE
Full description
Cara membuat paket instalasi delphi dan mysql dengan Inno Setup dan SFX-ToolsDeskripsi lengkap
Deskripsi lengkap
sdfgh
ini adalah tutorial dasar mengenai perancangan game tangkap telur menggunakan DelphiDeskripsi lengkap
1. Membuat database tabel dan alias 2. Membuat dan menggunakan index, menggunakan sorting 1. 2. 3. 4. 5. 6. 7.
Table Fields, Calculated Fields, Lookup Table Searching, Filtering, Range Tabel Relations Bookmark Komponen dan bahasa SQL dinamik Fungsi agregat Report master detail
Video Tutorial [video]
Membuat Database
No
Action
1
Buka Database Desktop
Start -> Program -> Borland Delphi 7 -> Database Desktop
2
Buat Table baru
File->New>Table>Paradox 7
Faktur A 10 * Tanggal D Total N Sales_id A 10 Save as JUAL.DB
File->New>Table>Paradox 7
Faktur A 10 * Barang_ID A 10 * Jumlah N Save as JUALDETAIL.DB
File->New>Table>Paradox 7
Id A 10 * Barang A 10 Harga N Save As BARANG.DB
3
Isi Data Barang
File->Open>Table>BARANG.DB
MK010001 Indomie Kari Ayam 2,000.00 MK010002 Salam Mi 14,000.00
MK020001 Kacang Atom 3,400.00 MK020002 Kacang Asin 3,500.00 MN010001 Coffee Mix 5,000.00 MN010002 Fruit Tea 4,500.00 MN010003 Teh Botol 1,500.00 MN010004 Coca Cola 1,500.00 MN010005 Fanta 1,500.00 1.1.3. Membuat Window Menu Utama
No
Action
1
New Project
2
Save All
File-> New -> Application Unit Filename: menu.pas Project: jual Caption: Aplikasi Penjualan
3
Komponen BitBtn1
Tab Additional
Caption: Penjualan
4
Komponen BitBtn2
Tab Additional
Caption: Data Barang
5
Komponen BitBtn3
Tab Additional
Caption: Laporan
6
Komponen BitBtn4
Tab Additional
Caption: Keluar Kind: btClose
7
Komponen Form1
Name: frmMenuUtama
8
Event OnClick BitBtn1
FrmTransaksi.ShowModal
1.1.4. Membuat Window Transaksi Penjualan
1
No
Action New Form
File-> New -> Form
Save All Unit Filename: transaksi.pas Properti Name: frmTransaksi
Supaya jualdetail hanya menampilkan faktur yang dipilih pada tbJual
MasterSource: dsJual MasterField: klik [...]
DataField: Total
Faktur->Faktur , Add
18
Set FieldDefs tbJualDetail
Double click tbJualDetail
Add all Fields Field faktur: visible=false
19
Tambah field lookup Nama Barang
Double click tbJualDetail New Field
Name: NamaBarang Type: String Field Type: Lookup Key Field: Barang_id DataSet: tbBarang Lookup Key: Id result Field: Barang DisplayWidth: 30 nama variable: tbJualDetailNamaBarang
20
Tambah field lookup Harga
Double click tbJualDetail
Name: HargaBarang Type: Float
Barang
New Field
Field Type: Lookup Key Field: Barang_id DataSet: tbBarang Lookup Key: Id result Field: Harga nama variable: tbJualDetailHargaBarang
20
Tambah field calculated Total Harga Barang
Double click tbJualDetail New Field
Name: Total Type: Float Field Type: Calculated nama variable: tbJualDetailTotal
Susun Field tbDetail
Double click tbJualDetail susun field
Aktifkan semua table
Pilih semua table
Active: true
Coba jalankan
Klik tombol [+] untuk Insert F001
Insert beberapa items perhatikan total ± total belum berfungsi
Klik tombol [v] untuk mensave record 1.1.5. Menghitung Sub Total dan Total
1
No
Action Handler event onCalcField tbJualDetail
click tbJualDetail click event onCalcField
procedure TfrmTransaksi.tbJualDetailCalcFields(DataSet: TDataSet); begin tbJualDetailTotal.Value := tbJualDetailHargaBarang.Value * tbJualDetailJumlah.AsInteger; end;
2
Menghitung Total
Buat method TfrmTransaksi.
« published
HitungTotal()
procedure HitungTotal; « procedure TfrmTransaksi.HitungTotal; var TempTotal: Extended; PrevRecord: TBookmark; begin PrevRecord := tbJualDetail.GetBookmark; { returns nil if table is empty } try tbJualDetail.DisableControls; tbJualDetail.First; TempTotal := 0;{ use temp for efficiency } while not tbJualDetail.EOF do begin TempTotal := TempTotal + tbJualDetailTotal.Value; tbJualDetail.Next; end; tbJualTotal.Value := TempTotal; finally tbJualDetail.EnableControls; if PrevRecord <> nil then begin tbJualDetail.GoToBookmark(PrevRecord); tbJualDetail.FreeBookmark(PrevRecord); end; end; end;
