Modul 6. Membuat Form Anggota pada Delphi 7.0

Program Aplikasi Perpustakaan dengan Delphi + Ms. Access

Ahmad Rizal Abidin, M.Kom

Karena project Prjpustaka sebelumnya sudah dibuat, pada modul 4. Membuat menu, maka pada kesempatan ini adalah melengkapi frmanggota yaitu dengan cara:

1. Mengaktifkan Delphi 7.0 dengan cara, klik Start, Klik All Program, Klik Borland Delphi 7, Klik Delphi 7.

2. Klik menu File, klik Open Project, tentukan folder tempat anda menyimpan project PRjpustaka, lalu klik prjpustaka dan klik open

3. Klik Menu file, Klik New, klik form, ganti caption pada properties dengan Input Data Anggota, dan pada name ketikkan frmanggota.

4. Klik menu View, lalu klik forms dan double klik frmenu, klik file pada frmmenu, klik anggota dan ketikkan :

frmanggota.show;

5. Klik menu View, lalu klik forms dan double klik frmanggota, lengkapi form tersebut seperti gambar berikut :

Gambar 1. Membuat form anggota

Catatan :

Form diatas terdiri dari :

Palette standard : Label, Edit, Button dan RadioGroup (items diisi dengan laki-laki dan perempuan, column diisi dengan 2)

Palette Data controls : DBGrid

Palette ADO : Ado Connection

Palette DataAcces : DataSource

Palette Win32 : DatetimePicker

6. Mengkoneksikan database

Klik ADOQuery1 pada Form, klik ConnectionString (…), klik Build, Klik Microsoft Office 12.0 Acces Database Engine OLEDB Provider (untuk office 2007) tetapi kalau menggunakan office XP dapat dipilih Microsoft jet OLEDB 4.0, test connection

Dan klik next, pada data source ketikkan : D:\perpustakaan\perpustakaan.accdb, dan yang terakhir klik test connection.

Gambar 2. mengkoneksikan Database M. Access

7. apabila test connection tampil keterangan tes connection succeeded, maka koneksinya sudah benar, tutup semua windows koneksi dengan cara klik OK. kembali ke frmanggota.

8. Masih pada Adoquery1, klik SQL pada properties, lalu ketikkan :

select * From anggota

Dan Klik Active pada properties ganti false menjadi true.

9. Mengaktifkan DataSource, yaitu dengan cara klik Datasource pada form anggota, lalu klik Dataset pilih Adoquery1

10. Mengkoneksikan DBGrid dengan Data, yaitu dengan cara klik DBGrid, lalu klik Datasource dan pilih datasource1

11. Membuat koding pada pada radiogroup dengan cara dauble klik radiogroup lalu ketik listing berikut :

procedure TForm2.RadioGroup1Click(Sender: TObject);
begin
if radiogroup1.ItemIndex = 0 then
jenis := 'L'
else
jenis := 'P';
end;

12. Membuat Koding program pada tombol Insert, double klik tombol insert ketikkan listing berikut :

procedure TFrmanggota.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.Add ('insert into anggota(idanggota,nama,tgl_lhr,jenis) values ("'+ edit1.text +'","'+edit2.text+'","'+jenis+'","'+datetostr(datetimepicker1.date)+'")');
adoquery1.ExecSQL;
adoquery1.SQL.Clear;
adoquery1.SQL.add('Select * from anggota');
adoquery1.Open;
edit1.text =’’;
kosong;
end;

13. Membuat Koding program pada tombol update, double klik tombol update ketikkan listing berikut :

procedure TFrmanggota.Button2Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('update anggota set nama ="'+ edit2.Text +'", jenis="'+ jenis +'", tgl_lhr =”’+ datetostr(datetimepicker1.date) +’” where id_anggota ="'+ edit1.Text +'"');
adoquery1.ExecSQL;
adoquery1.SQL.clear;
adoquery1.SQL.Add('Select * from anggota');
adoquery1.Open;
edit1.text =’’;
kosong;
end;

14. Membuat Koding program pada tombol Delete, double klik tombol delete ketikkan listing berikut :

procedure TFrmanggota.Button3Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('delete from anggota where idanggota ="'+ edit1.Text +'"');
adoquery1.ExecSQL;
adoquery1.SQL.clear;
adoquery1.SQL.Add('Select * from anggota');
adoquery1.Open;
edit1.text =’’;
kosong;
end;

15. Membuat Koding program pada tombol close, double klik tombol close ketikkan listing berikut :

procedure TFrmanggota.Button4Click(Sender: TObject);
begin
frmanggota.Close;
end;

16. Membuat koding untuk filter pada edit1, apabila dimasukkan data dan ternyata data tersebut sudah ada maka akan ditampilkan datanya tetapi kalau belum ada maka kursor akan bergerak ke edit2. adapun caranya adalah klik edit1, lalu klik Events pada object inspector dan double klik pada Onkeypress, lalu ketik listing berikut :

procedure TFrmanggota.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from anggota where idanggota ="'+ edit1.Text +'"');
adoquery1.open;
if not adoquery1.Eof then
begin
edit2.Text := adoquery1.Fields[1].AsString;
edit3.Text := adoquery1.Fields[2].AsString;
if adoquery1.Fields[3].AsString = 'L' then
radiogroup1.ItemIndex :=0
else
radiogroup1.ItemIndex :=1;
datetimepicker1.DateTime := adoquery1.Fields[4].AsDateTime;
end
else
edit2.SetFocus;
end;
end;

17. Membuat procedure kosong, ketik listing berikut :

procedure TFrmanggota.kosong();
begin
edit2.text :='';
end;

18. Pada form Active (OnActive) ketik listing berikut :

procedure TFrmanggota.FormActivate(Sender: TObject);
begin
edit1.text ='';
kosong;

@Ahmad
Selamat MEncOba…

Materi yang berhubungan :
Modul 1. Dasar Pemograman Delphi 7
Modul 2. Alur Program Delphi 7.0
Modul 3. Membuat Database dengan Menggunakan Microsoft Acces 2007
Modul 4. Membuat Menu Pada Delphi 7.0
Modul 5. Membuat Form Penerbit pada Delphi 7.0
Modul 6. Membuat Form Anggota pada Delphi 7.0
Modul 7. Membuat Form Buku pada Delphi 7.0
Modul 8. Membuat Form Transaksi Peminjaman Buku pada Delphi 7.0
Modul 9. Membuat Form Transaksi Pengembalian Buku pada Delphi 7.0 + MS. Access 2007
Modul 10. Membuat Nomor peminjaman secara otomatis pada Form Transaksi Peminjaman Buku pada Delphi 7.0 + MS. Access 2007
Modul 11. Membuat Report dengan Rave
Modul 12. Membuat Report dengan Rave + Delphi 7

Advertisements

Modul 5. Membuat Form Penerbit pada Delphi 7.0

Program Aplikasi Perpustakaan dengan Delphi + Ms. Access

Ahmad Rizal Abidin, M.Kom

Karena project Prjpustaka sebelumnya sudah dibuat, pada pada modul 4. Membuat Menu utama maka pada kesempatan ini adalah melengkapi frmpenerbit yaitu dengan cara:

1. Mengaktifkan Delphi 7.0 dengan cara, klik Start, Klik All Program, Klik Borland Delphi 7, Klik Delphi 7.

2. Klik menu File, klik Open Project, tentukan folder tempat anda menyimpan project PRjpustaka, lalu klik prjpustaka dan klik open

3. Klik menu View, lalu klik forms dan double klik frmpenerbit, lengkapi form tersebut seperti gambar berikut :

Gambar 1. Membuat form penerbit

Catatan :

Form diatas terdiri dari :

Palette standard : Label, Edit dan Button

Palette Data controls : DBGrid

Palette ADO : Ado Connection

Palette DAtaAcces : DataSource

4. Mengkoneksikan database

Klik ADOQuery1 pada Form, klik ConnectionString (…), klik Build, Klik Microsoft Office 12.0 Acces Database Engine OLEDB Provider (untuk office 2007) tetapi kalau menggunakan office XP dapat dipilih Microsoft jet OLEDB 4.0, test connection

Dan klik next, pada data source ketikkan : D:\perpustakaan\perpustakaan.accdb, dan yang terakhir klik test connection.

Gambar 2. mengkoneksikan Database M. Access

5. apabila test connection tampil keterangan tes connection succeeded, maka koneksinya sudah benar, tutup semua windows koneksi dengan cara klik OK. kembali ke frmpenerbit.

6. Masih pada Adoquery1, klik SQL pada properties, lalu ketikkan select * From penerbit. Dan Klik Active pada properties ganti false menjadi true.

7. Mengaktifkan DataSource, yaitu dengan cara klik Datasource pada form penerbit, lalu klik Dataset pilih Adoquery1

8. Mengkoneksikan DBGrid dengan Data, yaitu dengan cara klik DBGrid, lalu klik Datasource dan pilih datasource1

9. Membuat Koding program pada tombol Insert, double klik tombol insert ketikkan listing berikut :

procedure TFrmpenerbit.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.Add ('insert into penerbit(id_penerbit,penerbit,alamat) values ("'+ edit1.text +'","'+edit2.text+'","'+edit3.text+'")');
adoquery1.ExecSQL;
adoquery1.SQL.Clear;
adoquery1.SQL.add('Select * from penerbit');
adoquery1.Open;
edit1.text =’’;
kosong;
end;

10. Membuat Koding program pada tombol update, double klik tombol update ketikkan listing berikut :

<p>procedure TFrmpenerbit.Button2Click(Sender: TObject);</p>
<p>begin</p>
<p>adoquery1.Close;</p>
<p>adoquery1.SQL.Clear;</p>
<p>adoquery1.SQL.add('update penerbit set penerbit ="'+ edit2.Text +'", alamat="'+ edit3.Text +'" where id_penerbit ="'+ edit1.Text +'"');</p>
<p>adoquery1.ExecSQL;</p>
<p>adoquery1.SQL.clear;</p>
<p>adoquery1.SQL.Add('Select * from penerbit');</p>
<p>adoquery1.Open;</p>
<p>edit1.text =’’;</p>
<p>kosong;</p>
<p>end;</p>

11. Membuat Koding program pada tombol Delete, double klik tombol delete ketikkan listing berikut :

<p>procedure TFrmpenerbit.Button3Click(Sender: TObject);</p>
<p>begin</p>
<p>adoquery1.Close;</p>
<p>adoquery1.SQL.Clear;</p>
<p>adoquery1.SQL.add('delete from penerbit where id_penerbit ="'+ edit1.Text +'"');</p>
<p>adoquery1.ExecSQL;</p>
<p>adoquery1.SQL.clear;</p>
<p>adoquery1.SQL.Add('Select * from penerbit');</p>
<p>adoquery1.Open;</p>
<p>edit1.text =’’;</p>
<p>kosong;</p>
<p>end;</p>

12. Membuat Koding program pada tombol close, double klik tombol close ketikkan listing berikut :

<p>procedure TFrmpenerbit.Button4Click(Sender: TObject);</p>
<p>begin</p>
<p>frmpenerbit.Close;</p>
<p>end;</p>

13. Membuat koding untuk filter pada edit1, apabila dimasukkan data dan ternyata data tersebut sudah ada maka akan ditampilkan datanya tetapi kalau belum ada maka kursor akan bergerak ke edit2. adapun caranya adalah klik edit1, lalu klik Events pada object inspector dan double klik pada Onkeypress, lalu ketik listing berikut :

<p>procedure TFrmpenerbit.Edit1KeyPress(Sender: TObject; var Key: Char);</p>
<p>begin</p>
<p>if key=#13 then</p>
<p>begin</p>
<p>adoquery1.Close;</p>
<p>adoquery1.SQL.Clear;</p>
<p>adoquery1.SQL.add('select * from penerbit where id_penerbit ="'+ edit1.Text +'"');</p>
<p>adoquery1.open;</p>
<p>if not adoquery1.Eof then</p>
<p>begin</p>
<p>  edit2.Text := adoquery1.Fields[1].AsString;</p>
<p>  edit3.Text := adoquery1.Fields[2].AsString;</p>
<p>end</p>
<p>else</p>
<p>  edit2.SetFocus;</p>
<p>end;</p>
<p>end;</p>

14. Membuat procedure kosong, ketik listing berikut :

<p>procedure TFrmpenerbit.kosong();</p>
<p>begin</p>
<p>edit2.text :='';</p>
<p>edit3.text :='';</p>
<p>end;</p>

15. Pada form Active (OnActive) ketik listing berikut :

<p>procedure TFrmpenerbit.FormActivate(Sender: TObject);</p>
<p>begin</p>
<p>edit1.text ='';</p>
<p>kosong;</p>
<p>@Ahmad</p>
<p>Selamat Mencoba…</p>

@Ahmad
Selamat MEncOba…

Materi yang berhubungan :
Modul 1. Dasar Pemograman Delphi 7
Modul 2. Alur Program Delphi 7.0
Modul 3. Membuat Database dengan Menggunakan Microsoft Acces 2007
Modul 4. Membuat Menu Pada Delphi 7.0
Modul 5. Membuat Form Penerbit pada Delphi 7.0
Modul 6. Membuat Form Anggota pada Delphi 7.0
Modul 7. Membuat Form Buku pada Delphi 7.0
Modul 8. Membuat Form Transaksi Peminjaman Buku pada Delphi 7.0
Modul 9. Membuat Form Transaksi Pengembalian Buku pada Delphi 7.0 + MS. Access 2007
Modul 10. Membuat Nomor peminjaman secara otomatis pada Form Transaksi Peminjaman Buku pada Delphi 7.0 + MS. Access 2007
Modul 11. Membuat Report dengan Rave
Modul 12. Membuat Report dengan Rave + Delphi 7

Modul 4. Membuat Menu Pada Delphi 7.0

Program Aplikasi Perpustakaan dengan Delphi + Ms. Access
Ahmad Rizal Abidin, M.Kom

Dalam membuat program aplikasi dengan menggunakan Delphi 7.0 langkah pertama yang harus dilakukan adalah dengan cara :
1. Mengaktifkan Delphi 7.0 dengan cara, klik Start, Klik All Program, Klik Borland Delphi 7, Klik Delphi 7.
2. Pada object Inspektor, pada bagian properties klik Caption, ketikkan Menu Utama
3. masih pada object inspector, pada bagian properties, Klik name, ketikan FrmMenu
4. Klik tombol menu File, Klik Save all, tentukan folder yang akan digunakan untuk menyimpan program aplikasi, dan ganti unit1 pada file name, dengan Umenu, lalu Tekan tombol save, dan selanjutnya adalah ganti project1 pada file name, menjadi prjpustaka,lalu klik tombol Save.

Catatan :
Setiap kali ada penambahan form, selalu diganti caption dan name serta simpan form tersebut baru melanjutkan pekerjaan.

5. Membuat Menu Utama
Langkah selanjutnya adalah membuat menu utama yaitu dengan cara, klik standard pada component pallete, lalu klik MainMenu (Menus), gerakkan kursor pada form (area kerja) dan klik di sembarang tempat. Dengan demikian maka object mainmenu akan terletak pada form.

6. Klik kanan dengan mouse pada objek mainmenu di form, lalu klik Menu designer, dengan demikian akan ditampilkan windows designer.
7. Pada object inspector, di bagian properties, klik caption dan ketikkan File lalu tekan enter.
8. Klik file pada windows designer, lalu klik kotak dibawahnya, klik caption pada properties lalu ketikkan Penerbit, tekan enter. Klik kotak di bawah penerbit pada windows designer lalu klik caption pada properties ketik buku dan lanjutkan untuk menu-menu yang lain.
Gambar 1. windows designer

9. Tutup windows designer dengan cara klik form menu.
10. Tambahkan satu buah form lagi dengan cara klik Project, new dan klik form, Klik File, Klik Save, beri nama Upenerbit lalu klik Save.
11. Klik caption pada properties, lalu ketikan Input Penerbit, klik name pada properties lalu ketik frmpenerbit
12. Klik menu View, klik Forms, lalu double klik FrmMenu, klik File pada form menu, klik penerbit, ketikkan listing koding berikut :

Frmpenerbit.show

13. Jalankan program dengan cara klik menu Run, klik Run atau dapat juga menekan tombol F9, lalu klik File dan klik penerbit

@Ahmad
Selamat MEncOba…

Materi yang berhubungan :
Modul 1. Dasar Pemograman Delphi 7
Modul 2. Alur Program Delphi 7.0
Modul 3. Membuat Database dengan Menggunakan Microsoft Acces 2007
Modul 4. Membuat Menu Pada Delphi 7.0
Modul 5. Membuat Form Penerbit pada Delphi 7.0
Modul 6. Membuat Form Anggota pada Delphi 7.0
Modul 7. Membuat Form Buku pada Delphi 7.0
Modul 8. Membuat Form Transaksi Peminjaman Buku pada Delphi 7.0
Modul 9. Membuat Form Transaksi Pengembalian Buku pada Delphi 7.0 + MS. Access 2007
Modul 10. Membuat Nomor peminjaman secara otomatis pada Form Transaksi Peminjaman Buku pada Delphi 7.0 + MS. Access 2007
Modul 11. Membuat Report dengan Rave
Modul 12. Membuat Report dengan Rave + Delphi 7

Modul 3. Membuat Database dengan Menggunakan Microsoft Acces 2007

Program Aplikasi Perpustakaan dengan Delphi + Ms. Access
Ahmad Rizal Abidin, M.Kom
4checks.com-Free Shipping and Handling on All Personal Checks with code DWF008
Dalam membuat program Aplikasi perpustakaan hal yang perlu dilakukan diawal adalah membuat Basis Data dengan menggunakan Microsoft Access 2007, adapun langkah-langkahnya dapat dilakukan dengan cara :
a. Mengaktifkan Micorosoft Access 2007, Dengan cara Klik Start, all program, Microsoft access, klik Microsoft Access 2007.
b. Setelah Microsoft Access aktif, pada “Getting Started with Microsoft Office Access, Klik blank Database, maka akan terbuka windows blank Database, tuliskan nama file pada file name, lalu klik brows untuk menentukan lokasi file database disimpan (D:\Persputakaan). Dan yang terakhir klik tombol Create.
c. Lembar kerja Access akan terbuka, kita cukup klik kanan pada Tabel1 dan klik design view, buatlah nama table dengan nama Penerbit, dan klik OK, adapun isi tabelnya adalah :
IDPenerbit Text field size : 5
NMPenerbit Text field size : 25
Alamat text field size : 30

d. Membuat table baru dapat mengklik tombol menu Create, lalu klik table dan klik kanan pada table1 dan klik design view, buatlah nama table dengan nama Buku, dan klik OK, adapun isi tabelnya adalah :
IDBuku Text field size : 5
JdlBuku Text field size : 30

e. Lakukan langkah-langkah untuk membuat table baru dan isikan field-field sesuai dengan table yang akan dibuat : adapun daftar table-table tersebut adalah :
1. Tabel Anggota
ID_ANggota text 7
NAma text 50
Alamat text 50
Kelurahan text 50
Kecataman text 50
Kota text 25
No_telp text 12
Tmp_lhr text 25
Tgl_lhr Date

2. Tabel Buku
IDBUku text 5
Jdlbuku text 100
Pengarag text 50
Th_terbit text 4
Status text 20

3. Tabel DPinjam
ID_Pinjam text 5
Id_Buku text 5

4. Tabel Jenis_Buku
ID_Buku text 5
Jenis text 20

5. Tabel Peminjam
ID_Pinjam text 5
ID_ANggota text 7
Tgl_Pinjam date
Tgl_Kembali date

6. Penerbit_Buku
ID_penerbit text 5
NMPenerbit text 50
AlmPenerbit text 30

@Ahmad
Selamat MEncOba…

Materi yang berhubungan :
Modul 1. Dasar Pemograman Delphi 7
Modul 2. Alur Program Delphi 7.0
Modul 3. Membuat Database dengan Menggunakan Microsoft Acces 2007
Modul 4. Membuat Menu Pada Delphi 7.0
Modul 5. Membuat Form Penerbit pada Delphi 7.0
Modul 6. Membuat Form Anggota pada Delphi 7.0
Modul 7. Membuat Form Buku pada Delphi 7.0
Modul 8. Membuat Form Transaksi Peminjaman Buku pada Delphi 7.0
Modul 9. Membuat Form Transaksi Pengembalian Buku pada Delphi 7.0 + MS. Access 2007
Modul 10. Membuat Nomor peminjaman secara otomatis pada Form Transaksi Peminjaman Buku pada Delphi 7.0 + MS. Access 2007
Modul 11. Membuat Report dengan Rave
Modul 12. Membuat Report dengan Rave + Delphi 7

Membuat program Form Produk (VB +Mysql)

Materi 1. Membuat Program Aplikasi Penjualan Barang pada VB dengan Mysql
Ahmad Rizal Abidin, M.Kom

Membuat program Form Produk

a. Mangaktifkan VB 6.0, dengan cara klik start, Klik Microsoft Visual Studio 6.0 dan klik Microsoft Visual Basic 6.0.
b. Setelah tampil Windows Projects, Klik Cancel
c. Klik menu file, Klik Open Project, bukalah project yang sudah dibuat pada materi 1. Membuat Menu dan Modul
d. Setelah project terbuka, double klik frmproduk pada window project dan buatlah form sebagai berikut :
Gambar 1. Form Produk


Catatan :
Form tersebut teridiri dari objek-objek : textbox, datagrid, label, datacombo dan commandbutton,

e. Langkah selanjutnya membuat koding pada form load, yaitu dengan cara double klik form (pada gambar yang ada titiknya), setelah itu ketik koding berikut :

Private Sub Form_Load()
'Menggkonekkan database dari Modul
konek

'Mengaktifkan Datagrid2 dengan table produk
kondb.CursorLocation = adUseClient
strsql = "select * from produk"
Set rs = kondb.Execute(strsql)
Set DataGrid2.DataSource = rs

'Mengaktifkan Datagrid1 dengan table kategori
strsql = "select * from kategori"
Set rs2 = kondb.Execute(strsql)
Set DataGrid1.DataSource = rs2

'Mengaitkan Datacombo dengan Table kategori
'dan Menampilkan data berdasarkan IDKategori
Set cmb_id.RowSource = rs2
cmb_id.ListField = "Idkategori"

'Menonaktifkan tampilan Frame 2
Frame2.Visible = False
End Sub

Setelah selesai mengetikkan koding tersebut ujilah form dengan cara klik menu run, klik start, tetapi pastikan database sudah terbuat, mysql sudah aktif dan jangan lupa dsnnyapun sudah dibuat baca tentang makalah basis data . Jika jalan maka data akan ditampilkan pada datagrid.

f. Membuat filter pada text1 (textboxnya idproduk), dengan logika jika data sudah ada maka tampilkan datanya, tetapi jika belum kursor pindah ke textbox berikutnya, caranya adalah double klik textbox1, lalu tukar event dari change menjadi keypress. Ketikkan listing berikut :

Private Sub txt_id_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
strsql = "select * from produk where idproduk = '" + txt_id.Text + "'"
Set rs = kondb.Execute(strsql)
If rs.EOF Then
txt_nama.Text = ""
txt_harga.Text = ""
cmb_id.Text = ""
txt_nama.SetFocus
Else
txt_nama.Text = rs!NmProduk
txt_harga.Text = rs!harga
cmb_id.Text = rs!idkategori
End If
End If
End Sub

g. Membuat koding pada datacombo IdKategori, double klik datacombo tersebut lalu ketik listing program berikut :

Private Sub cmb_id_Click(Area As Integer)
If Len(cmb_id) = 2 Then
strsql = "select * from kategori where idkategori ='" + cmb_id + "'"
Set rs = kondb.Execute(strsql)
If rs.EOF Then
MsgBox "data tidak ditemukan"
Else
txt_kategori.Text = rs!NmKategori
End If
End If
End Sub

h. Membuat koding pada tombol Help, double klik tombol help, lalu ketik listing berikut:

Private Sub Command5_Click()
Frame2.Visible = True
Text4.SetFocus
End Sub

i. Membuat koding pada texbox 4 pada help, double klik text tersebut lalu ketik listing berikut :

Private Sub Text4_Change()
strsql = "select * from kategori where nmkategori like '%" + Text4.Text + "%'"
Set rs = kondb.Execute(strsql)
DataGrid1.ClearFields
Set DataGrid1.DataSource = rs
End Sub

j. Membuat koding pada tombol ok yang ada pada frame help, yaitu double klik tombol ok, lalu ketik listing berikut :

Private Sub btn_OK_Click()
Frame2.Visible = False
If Text4.Text = "" Then
Exit Sub
Else
cmb_id.Text = rs!idkategori
txt_kategori.Text = rs!NmKategori
End If
cmb_id.SetFocus
End Sub

k. Membuat koding pada tombol simpan, double klick pada tombol Simpan lalu ketikkan listing berikut :

Private Sub Command1_Click()
strsql = "insert into produk (idproduk, nmproduk,harga, Idkategori) values ('" + txt_id + "','" + txt_nama + "','" + txt_harga + "','" + cmb_id + "')"
Set rs = kondb.Execute(strsql)

'agar begitu tersimpan, tampil pada datagrid2 maka ketikkan listing berikut:
kondb.CursorLocation = adUseClient
strsql = "select * from produk"
Set rs = kondb.Execute(strsql)
Set DataGrid2.DataSource = rs

End Sub

l. Membuat koding pada tombol update, double klick pada tombol edit lalu ketikkan listing berikut :

Private Sub Command2_Click()
strsql = "update produk set nmproduk ='" + txt_nama.Text + "', harga ='" &amp; txt_harga.Text &amp; "', IdKategori ='" + cmb_id.Text + "' where idproduk ='" + txt_id + "'"
Set rs = kondb.Execute(strsql)

'agar begitu diedit, tampil pada datagrid2 maka ketikkan listing berikut:
kondb.CursorLocation = adUseClient
strsql = "select * from produk"
Set rs = kondb.Execute(strsql)
Set DataGrid2.DataSource = rs
End Sub

m. Membuat koding pada tombol hapus, double klick pada tombol Hapus lalu ketikkan listing berikut :

Private Sub Command3_Click()
strsql = "delete from produk where idproduk ='" + txt_id + "'"
Set rs = kondb.Execute(strsql)

'agar begitu diedit, tampil pada datagrid2 maka ketikkan listing berikut:
kondb.CursorLocation = adUseClient
strsql = "select * from produk"
Set rs = kondb.Execute(strsql)
Set DataGrid2.DataSource = rs

End Sub

n. Membuat koding pada tombol keluar, double klick pada tombol keluar lalu ketikkan listing berikut :

Private Sub Command4_Click()
End
End Sub

@Ahmad
Selamat mencoba…

Related Post:

Materi 1. Membuat Program Aplikasi Penjualan Barang pada VB dengan Mysql “Membut Menu dan Modul”

Materi 2. Membuat Form Kategori dgn Visual Basic 6.0 + Mysql

Materi 3. Membuat program Form Produk (VB + Mysql)

Materi 4. Membuat program Form Transaksi (Visual Basic + Mysql)

Materi 5. Membuat Program Aplikasi Penjualan Barang pada Visual Basic 6.0 dengan Mysql : Membuat Nomor Nota Otomatis pada Visual Basic

Materi 6. Membuat laporan dengan Crystal Report

Membuat Form Kategori dgn Visual Basic 6.0 + Mysql

Materi 1. Membuat Program Aplikasi Penjualan Barang pada VB dengan Mysql
Ahmad Rizal Abidin, M.Kom

Membuat program Form Kategori

a. Mangaktifkan VB 6.0, dengan cara klik start, Klik Microsoft Visual Studio 6.0 dan klik Microsoft Visual Basic 6.0.
b. Setelah tampil Windows Projects, Klik Cancel
c. Klik menu file, Klik Open Project, bukalah project yang sudah dibuat pada materi 1. Membuat Menu dan Modul
d. Setelah project terbuka, double klik frmkategori pada window project dan buatlah form sebagai berikut :
Gambar 1. Form kategori

Catatan :
Form tersebut teridiri dari objek-objek : textbox, datagrid, label dan commandbutton,

e. Langkah selanjutnya membuat koding pada form load, yaitu dengan cara double klik form (pada gambar yang ada titiknya), setelah itu ketik koding berikut :

Private Sub Form_Load()
konek
kondb.CursorLocation = adUseClient
strsql = “select * from kategori”
Set rs = kondb.Execute(strsql)
Set DataGrid1.DataSource = rs
End Sub

Setelah selesai mengetikkan koding tersebut ujilah form dengan cara klik menu run, klik start, tetapi pastikan database sudah terbuat, mysql sudah aktif dan jangan lupa dsnnyapun sudah dibuat baca tentang makalah basis data . Jika jalan maka data akan ditampilkan pada datagrid.

f. Membuat filter pada text1 (textboxnya idkategori), dengan logika jika data sudah ada maka tampilkan data nama kategori pada nama kategori, tetapi jika belum kursor pindah ke textbox berikutnya, caranya adalah double klik textbox1, lalu tukar event dari change menjadi keypress. Ketikkan listing berikut :

Private Sub txt_Idkategori_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
strsql = “select * from kategori where idkategori ='” + txt_Idkategori + “‘”
Set rs = kondb.Execute(strsql)
If rs.EOF Then
txt_namakategori.SetFocus
Else
txt_namakategori.Text = rs!NmKategori
End If
End If
End Sub

g. Membuat koding pada tombol simpan, double klick pada tombol Simpan lalu ketikkan listing berikut :

Private Sub Cmd_simpan_Click()
strsql = “insert into kategori(IDKategori,NMKategori) values (‘” + txt_Idkategori.Text + “‘,'” + txt_namakategori.Text + “‘)”
Set rs = kondb.Execute(strsql)

kondb.CursorLocation = adUseClient
strsql = “select * from kategori”
Set rs = kondb.Execute(strsql)
Set DataGrid1.DataSource = rs
End Sub

h. Membuat koding pada tombol update, double klick pada tombol edit lalu ketikkan listing berikut :

Private Sub Cmd_Edit_Click()
strsql = “update kategori set NmKategori ='” + txt_namakategori.Text + “‘ where idkategori = ‘” + txt_Idkategori.Text + “‘”
Set rs = kondb.Execute(strsql)

kondb.CursorLocation = adUseClient
strsql = “select * from kategori”
Set rs = kondb.Execute(strsql)
Set DataGrid1.DataSource = rs
End Sub

i. Membuat koding pada tombol hapus, double klick pada tombol Hapus lalu ketikkan listing berikut :

Private Sub Cmd_Hapus_Click()
strsql = “delete from kategori where Idkategori = ‘” + txt_Idkategori + “‘”
Set rs = kondb.Execute(strsql)

kondb.CursorLocation = adUseClient
strsql = “select * from kategori”
Set rs = kondb.Execute(strsql)
Set DataGrid1.DataSource = rs
End Sub

j. Membuat koding pada tombol keluar, double klick pada tombol keluar lalu ketikkan listing berikut :

Private Sub cmd_keluar_Click()
End
End Sub

Related Post:

Materi 1. Membuat Program Aplikasi Penjualan Barang pada VB dengan Mysql “Membut Menu dan Modul”

Materi 2. Membuat Form Kategori dgn Visual Basic 6.0 + Mysql

Materi 3. Membuat program Form Produk (VB + Mysql)

Materi 4. Membuat program Form Transaksi (Visual Basic + Mysql)

Materi 5. Membuat Program Aplikasi Penjualan Barang pada Visual Basic 6.0 dengan Mysql : Membuat Nomor Nota Otomatis pada Visual Basic

Materi 6. Membuat laporan dengan Crystal Report

Latihan 1. Database Perpustakaan

Latihan 1. Database Perpustakaan
Ahmad Rizal Abidin, M.Kom

Buatlah database perpustakaan dibawah ini dengan menggunakan MySQL Server 5, ikuti langkah-langkah pembuatannya sesuai dengan makalah sebelumnya :

Tabel Anggota
ID_ANggota varchar 7
NAma varchar 50
Alamat varchar 50
Kelurahan varchar 50
Kecataman varchar 50
Kota varchar 25
No_telp varchar 12
Tmp_lhr varchar 25
Tgl_lhr Date

Tabel Buku
ID_BUku varchar 5
Judul varchar 100
Pengarag varchar 50
Th_terbit varchar 4
Status varchar 20
IdPenerbit varchar 5
IDJenis varchar 5

Tabel DPinjam
ID_Pinjam varchar 5
Id_Buku varchar 5

Tabel Jenis_Buku
IDJenis varchar 5
Jenis varchar 20

Tabel Peminjam
ID_Pinjam varchar 5
ID_ANggota varchar 7
Tgl_Pinjam date
Tgl_Kembali date

Penerbit_Buku
ID_penerbit varchar 5
Penerbit varchar 50

@Ahmad
Selamat Mencoba…