TUGAS BAHASA PEMROGRAMAN Buatlah sebuah project baru (simpan file project dengan nama Tugas-NamaAnda) untuk mengakses database inventori.mdb yang sudah Anda peroleh sebelumnya. Dalam database tersebut sudah dibuatkan tabel-tabel dan query yang duiperlukan. Berdasarkan database tersebut buatkan sebuah form di bawah ini (simpan file form dengan nama Pembelian-NamaAnda). Selain form tersebut, tambahkan objek module yang mempunyai fungsi-fungsi untuk koneksi ke database. File-file project, form, module dan database disimpan dalam sebuah folder, kemudian dizip dan dikumpulkan melalui email paling lambat tanggal 28 Januari 2011 jam 11.00 WIB. Berikut adalah tampailan desain form tersebut beserta properti tiap objeknya. Desain objek (beserta propertinya) tampak pada tab pertama objek SSTab. SSTab1
Name =TxtJnsTrans DataField=JenisTrans Datasource=Adodc1 Name =TxtNoTrans DataField=Notrans Datasource=Adodc1 Name =TxtTglTrans DataField=TglTrans Datasource=Adodc1 Name =Adodc1
Name =TxtKode DataField=Kode Datasource=Adodc1 Name =TxtNama Locked=True DataField=Nama Datasource=Adodc1 Name =CmdCancel Enabled=False Name =CmdSave Enabled=False
Name =Datagrid1 Name =CmdAdd
Desain objek (beserta propertinya) tampak pada tab kedua objek SSTab.
TxtNamaBrg
Datagrid3
cmdAddBarang Datagrid2
Adodc2
TxtJumlah Adodc3
[email protected]
Kent-2010
Desain form di atas digunakan untuk memebuat user interface entri data pembelian barang. Perhatikan ketentutan-ketentuan atau keterangan di bawah ini. Lihat petunjuk perintah yang harus dibuat berikut ini (isi bagian titik dengan perintah yang tepat) : 1. Saat form load, secara otomatis akan menampilkan data master pembelian dalam datagrid1. Data pembelian yang ditampilkan yaitu bersumber dari query qMasterTrans. Private Sub Form_Load() 'Panggil proseder yang namanya KoneksiMdb yg ada pada Module ........................................................ 'Buat sql statement untuk menampilkan semua field dari quary qMasterTrans. ........................................................ 'Panggil prosedur tutup record ........................................................ 'Buka recordset sesuai sql statement di atas pada objek rs ........................................................ 'Buat perintah untuk menentukan recordset objek Adodc1 dengan rs ........................................................ 'Buat perintah untuk mengisi objek datagrid1 sesuai dengan record yg dibuka pada objek rs 'atau menentukan datasource datagrid1 dengan rs ........................................................ End Sub 2. Pada saat tab kedua/Detil Pembelian (objek SSTab1) di klik, tampilkan detil transaksi pembelian barang (sumber data yang digunakan adalah query qDetilTransaksi) pada objek datagrid3 serta tampilkan daftar barang (sumber data yang digunakan tabel Barang) pada objek datagrid2. Private Sub SSTab1_Click(PreviousTab As Integer) 'Buat sql statement untuk menampilkan Field KodeBrg, NamaBrg, Stock, HargaJual dari tabel barang ........................................................ 'Panggil prosedur tutup record ........................................................ 'Buka recordset sesuai sql statement di atas pada objek rs ........................................................ 'Buat perintah untuk mengisi objek datagrid2 sesuai dengan record yg dibuka pada objek rs ........................................................ 'Buat sql statement untuk menampilkan seluruh field dari Query qDetilTransaksi 'yang mempunyai nomor transaksi sama dengan pada objek datagrid1 kolom ke-1 ........................................................ ........................................................
[email protected]
Kent-2010
'Panggil prosedur tutup record ........................................................ 'Buka recordset sesuai sql statement di atas pada objek rs ........................................................ 'Buat perintah untuk mengisi objek datagrid3 sesuai dengan record yg dibuka pada objek rs ........................................................ End Sub 3. Pada objek txtNamaBrg digunakan untuk mencari nama barang. Jika terjadi perubahan pada isi objek tersebut maka akan menampilkan data barang sesuai yang diminta user. Private Sub txtNamaBrg_Change() 'Buat sql statement untuk menampilkan Field KodeBrg, NamaBrg, Stock, HargaJual dari tabel barang 'yang nama barangnya mengandung karakter pada objek txtNamaBrg ........................................................ ........................................................ 'Panggil prosedur tutup record ........................................................ 'Buka recordset sesuai sql statement di atas pada objek rs ........................................................ 'Buat perintah untuk mengisi objek datagrid2 sesuai dengan record yg dibuka pada objek rs ........................................................ End Sub 4. Tombol Tambah (objek cmdAdd) pada tab pertama (master pembelian), digunakan untuk menambah record baru pada tabel Transaksi. Private Sub cmdAdd_Click() 'Berikan perintah untuk menambah record baru (dari objek adodc1) ........................................................ 'berikan perintah untuk mengisi text box txtJnstrans dengan kode pembelian yaitu 1 ........................................................ 'berikan perintah untuk mengubah properti objek cmdSave dan cmdCancel menjadi Enabled, ’serta objek cmdAdd menjadi tidak Enabled ........................................................ End Sub 5. Tombol Simpan (objek cmdSave) digunakan untuk menyimpan record baru pada transaksi pembelian. 'Berikan perintah untuk menyimpan record baru pembelian(dari objek adodc1) ........................................................
[email protected]
Kent-2010
'berikan perintah untuk mengubah properti objek cmdSave dan cmdCancel menjadi tidak ‘enabled, serta objek cmdAdd menjadi enabled ........................................................ ........................................................ ........................................................ 'Buat sql statement untuk menampilkan semua field dari quary qMasterTrans. ........................................................ 'Panggil prosedur tutup record ........................................................ 'Buka recordset sesuai sql statement di atas pada objek rs ........................................................ 'Buat perintah untuk menentukan recordset objek Adodc1 dengan rs ........................................................ 'Buat perintah untuk mengisi objek datagrid1 sesuai dengan record yg dibuka pada objek rs 'atau menentukan datasource datagrid1 dengan rs ........................................................ 6. Tombol Batal (objek cmdCancel) digunakan untuk membatalkan penambahan record baru. Private Sub cmdCancel_Click() 'Berikan perintah untuk membatalkan record baru pembelian(dari objek adodc1) ........................................................ 'berikan perintah untuk mengubah properti objek cmdSave dan cmdCancel menjadi tidak enabled, serta objek cmdAdd menjadi enabled ........................................................ ........................................................ ........................................................ End Sub 7. Tombol Tambah (objek cmdAddBarang pada tab 2) digunakan untuk menambah record baru pada tabel DetilTrans sesuai NoTrans yang dipilih pada datagrid1 dan kode barang yang diplih pada datagrid2, hasilnya ditampilkan dalam datagrid3. Private Sub cmdAddBarang_Click() 'Berikan perintah dengan inputbox untuk meminta user masukan jumlah barang (simpan di variabel jum) ........................................................ 'Berikut perintah-perintah untuk menambah record baru pada tabel DetilTrans melalui objek Adodc2 'Berikan perintah menambah record baru pada objek adodc2 ........................................................ 'Field NoTrans (objek adodc2) diisi dengan NoTrans yang dipilih dalam objek datagrid1 kolom-0 ........................................................
[email protected]
Kent-2010
'Field KodeBrg (objek adodc2) diisi dengan KoDeBrg yang dipilih dalam objek datagrid2 kolom-0 ........................................................ 'Field HrgSatuan (objek adodc2) diisi dengan nilai HargaJual dari tabel barang berdasar kode ’barang yg dipilih pada datagrid2 kolom-3 ........................................................ 'Field Jumlah (objek adodc2) diisi dengan nilai yang ada di variabel jum ........................................................ 'Field Total (objek adodc2) diisi dengan perkalian jum * HargaSat (pada datagrid2 kolom-3) ........................................................ 'simpan/update hasil rekam data di atas melalui objek adodc2 ........................................................ ’panggil event click objek sstab1 ........................................................ End Sub Bonus: khusus untuk text box total harga, buatkan perintah untuk menampilkan total harga berdasarkan jumlah kolom total pada datagrid3 (simpan di objek sstab click atau buat prosedur). Berikut adalah contoh tampilan program ketika dijalankan :
[email protected]
Kent-2010