Cara Membuat Program

     Membuat suatu program pastilah akan kelihatan sulit dan susah, " ini merupakan pemikiran orang-orang awam". membuat program merupakan seni untuk menciptakan alur atau langkah-langkah pada hasil akhir yang akan dicapai (informasi yang disajilkan) oleh pembuat.

langkah awal adalah dengan membuat DFD (data flow diagram) yang sering disebut diagram alir.

Seselai membuat DFD kemudian Database. dan dilanjut pengkodingan program sesuai dengan DFD dan Flow Chart yang telah dibuat sebelumnya. Pada Pembelajaran ini langsung dibaypass membuat database dan coding dengan bahasa pemrograman VB. 6.

1. Siapkan Ms. Access dan ciptakan database dengan nama: db_belajar_1 (ini hanya untuk belajar)

2. buat tabel dengan nama T_BRG yang fields sebagai berikut:

Fields Name	Type
KD_BRG	TEXT
NM_BRG	TEXT
JML_BRG	NUMBER
HRG_BRG	NUMBER

3. Buat Project dan beri nama P_TOKOSENDIRI
4. Aktifkan Microsoft ActiveX Data Objects 2.7 Library (Metode yang digunakan adalah ADODB).
5. Aktifkan juga Microsoft Data Grid Control
6. Coding:

Dim Conn As ADODB.Connection
Dim RS As ADODB.Recordset
Sub sambung()
Conn.Open "PROVIDER= microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\db_belajar_1.mdb;"
Conn.CursorLocation = adUseClient
End Sub
Private Sub Form_Load()
  Set Conn = Nothing
  Set Conn = New Connection
  Call sambung
  Set RS = New Recordset
  RS.Open "t_brg", Conn
  Set DataGrid1.DataSource = RS.DataSource
End Sub

Private Sub Txt_cr_Change()
Set Conn = Nothing
Set Conn = New Connection
Call sambung
Set RS = New Recordset
RS.Open "select* from t_brg where nm_brg like '" & Txt_cr.Text & "%'", Conn
Set DataGrid1.DataSource = RS.DataSource
End Sub
7. Interfacing:

 

8. TXT_CR menggunkan Prosedure OnChange yang berfungsi sebagai interface pencarian Nama Barang.
9. DataGrid1 digunakan untuk menampilkan Hasil Pencarian.
10. Hasil Running Program

11. Bersambung pada Tutor berikutny........
=======>>> NB: Mesti banyak mencoba-coba dalam belajar Program <<<=====