Latihan Form PBD Praktek

Latihan Form PBD Praktek

1.Buat database Coba

2.Buat tabel barang dan supplier

mysql> create database coba;

Query OK, 1 row affected (0.09 sec)

mysql> use coba;

Database changed

mysql> create table barang(kdbrg char(10),nmbrg char (30),satuan char(25),harga

int(8),primary key(kdbrg));

Query OK, 0 rows affected (0.25 sec)

mysql> create table supplier(kdsuppl char(10),nmsuppl char(35),almtsuppl char(35

),kotasuppl char(35),primary key(kdsuppl));

Query OK, 0 rows affected (0.11 sec)

mysql> insert into barang values('001','Buku','Biji',2000);

Query OK, 1 row affected (0.07 sec)

mysql> insert into supplier values('S001','Bambang','Jl Mawar 90','Pekalongan');

Query OK, 1 row affected (0.02 sec)

3.Atur ODBCnya

->Klik Start->Control Panel->Administrative tools->Data Source(ODBC)

Maka akan muncul kotak seperti ini:

->Pilih add->MySql  ODBC  5.1 driver

 4.Isi Data Source name dengan Coba

Isi user=root

Isi Password=root

Pilih database yg telah anda buat tadi=coba

Setelah itu test,Jika success maka dilanjutkan ke VB

5.Buka Vbnya->pilih standar exe lalu buat form sebagai berikut:

Dengan menggunakan label,textbox dan tombol

Caption	Name
Kode Barang	lblkode
Nama Barang	lblnama
Satuan	lblsatuan
Harga	lblharga
Add New	cmdadd
Save	cmdsave
Delete	cmddelete
Quit	cmdquit

Text	Name	Tab Index
Kosong(Text1)	txtkode	1
Kosong(Text2)	txtnama	2
Kosong(Text3)	txtsatuan	3
Kosong(Text4)	txtharga	4

->Klik Project->Component

Pilih Microsoft ADO DATA Control 6.0(OLEDB) dan Microsoft DataGrid Control 6.0(OLEDB)

Tampilan Tollbox setelah ditambahkan 2 item:

6.Buat ADO DATA dan DATAGRID seperti dibawah ini:

->Klik kana ADODC1->Properties

->Pilih Use ODBC Data Source Name->Pilih Data Source name yg telah dibuat tadi yaitu “Coba”->Apply

->Kemudian Pilih tab Record Source

->Command Type=2-adCmdTable

->Table or Stored Procedure Name=barang->Apply

Atur Properties textbox seperti dibawah ini:

Name	Data Source	Data Field
Txtkode	Adodc1	kdbrg
Txtnama	Adodc1	nmbrg
Txtsatuan	Adodc1	satuan
Txtharga	Adodc1	Harga
DataGrid1	Adodc1	(Kosong)

Lalu klik kanan pada DataGrid1->Pilih Retrieve Fields->Yes

Database telah conect dengan VB,Tinggal kita menambahkan syntak” pada 4 tombol di bawahnya,Klik 2kali pada tombol,lalu masukkan syntak di bawah ini sesuai nama tombol:

Name	Syntak
cmdadd	Adodc1.Recordset.AddNew
cmdsave	Adodc1.Recordset.Save
cmddelete	Adodc1.Recordset.Delete
cmdquit	Unload me

Gambar Form yg Sudah jadi

Tinggal membuat form Supplier,langkahnya sama seperti diatas.

^_^