PERTEMUAN 1 |
Pengenalan Microsoft Access |
Microsoft Access |
adalah sebuah program aplikasi basis data dengan model |
relational |
. Aplikasi ini menggun akan mesin basis data |
Microsoft Jet Database Engine |
dan juga men ggunakan tampilan grafis yang intuitif sehingga memudahkan pengguna. |
Hirarki Pada Access |
Database |
Tabel |
Record |
Field |
Character |
Database |
adalah sekumpulan data yang terdiri atas satu atau beberapa tab el yang |
saling berhubungan satu sama lain, dimana pemakai mempun yai wewenang untuk |
mengakses data tersebut, baik menambah, mengganti, menghapus data-data dalam tabel |
tersebut. |
Cara Membuka Microsof t Access |
Klik |
Menu Start |
Pilih |
All Programs |
Pilih |
Microsoft Office |
Pilih |
Ms Access |
Membuat Database |
Klik |
File |
Pilih |
New |
Pada |
TaskPane |
Sebelah kanan Pilih |
Blank Database |
Pilih Penempatan |
folder |
Simpan dengan nama Penjualan.mdb |
PERTEMUAN 2 |
Membuat Tabel |
Klik Tab |
Tables |
pada |
Objects |
Double Click |
pada |
create table in design view |
Buatlah tabel sesuai dengan struktur yang sudah ditentukan |
Simpan tabel yang sudah dibuat |
Buatlah Tabel-tabel dibawah ini |
Table name:Barang |
Field name Data type Field size format Keterangan |
Kdbrg Text 8 Primary Key |
Nmbrg Text 20 |
Hrgbeli Currency Currency Input mask |
99,999,999,99 |
Stok Number Interger |
Hrgsat Currency Currency Input mask |
99,999,999,99 |
Table name:Detail_Fak |
Field name Data type Field size Format Keterangan |
Nofak Text 10 Foreign Key |
Qty Number Integer |
Bayar Currency Currency Input mask |
99,999,999,99 |
Kdbrg Text 5 Foreign Key |
Table name:Faktur |
Field name Data type Field size format Keterangan |
Nofak Text 10 Primary Key |
Tglf ak Date/time Long date |
Userid Text 5 Foreign key |
Table name:Pengguna |
Field name Data type Field size format Keterangan |
Userid Text 5 Primary Key |
Nmuser Text 20 |
Password Text 10 |
Akses Text 15 |
Table name:tmptran |
Field name Data type Field size format Keterangan |
Kdbrg Text 5 Foreign key |
Nmbrg Text 20 |
Hrgjual Currency Currency |
Qty Number Integer |
Bayar Currency Integer |
Selanjutnya bu atlah relasinya sebagai berikut: |
3 |
Gambar 1.0 |
Contoh Pengisian Tabel Barang melalui Ms Access |
Klik Bar ang pada |
Objects Table |
Klik |
Open |
Isikan data-data sebagai berikut |
1. Untuk tabel barang datanya disisikan lewat form yang akan di buat di VB 6.0 |
2. Untuk table pen gguna datanya diisikan lewat table di Microsoft Access |
Convert data penjualan menjadi penjualanATK ke Microsoft access 9 7 s/d 2002 |
4 |
PERTEMUAN 3 |
Setelah selesai membuat table didalam Microsoft Access, sekarang kita lanjutkan |
dengan pembuatan sebuah project di VB 6.0 dengan nama: Penjualan.Pjx. design lah
|
Gambar 2.0 |
Gambar 3.0 |
5 |
Ubah struktur form seperti dibawah ini: |
Nama Objek Properti Seting |
Label1 Name |
Label1 |
Caption |
Kode barang |
Label2 Name |
Label2 |
Caption |
Nama baran g |
Label3 Name |
Label3 |
Caption |
Harga jual |
Label4 Name |
Label4 |
Caption |
Stock |
Frame 1 Name |
Frame1 |
Caption |
Tombol navigasi |
Frame 2 Name |
Frame2 |
Caption |
Tombol fungsi |
Command1 Name |
CmdTop |
Caption |
TOP |
Picture |
C:\Pro gram Files\Microsoft |
Visual |
Studio\Vfp98 \Wizards\Wizbmps |
Style |
1-Graphical |
Command2 Name |
CmdPrev |
Caption |
PREV |
Picture |
C:\Pro gram Files\Microsoft |
Visual |
Studio\Vfp98 \Wizards\Wizbmps |
Style |
1-Graphical |
Command3 Name |
CmdNext |
Caption |
NEXT |
Picture |
C:\Pro gram Files\Microsoft |
Visual |
Studio\Vfp98 \Wizards\Wizbmps |
Style |
1-Graphical |
Command4 Name |
CmdLast |
Caption |
LAST |
Picture |
C:\Pro gram Files\Microsoft |
Visual |
Studio\Vfp98 \Wizards\Wizbmps |
Style |
1-Graphical |
Command5 Name |
CmdAdd |
Caption |
ADD |
Command6 Name |
CmdDelete |
Caption |
DELETE |
Command7 Name |
CmdSave |
Caption |
SAVE |
Command8 Name |
CmdCancel |
Caption |
CANCEL |
6 |
Command9 Name |
CmdClose |
Caption |
CLOSE |
Command10 Name |
CmdCETAK |
Caption |
CETAK |
Command11 Name |
CmdClose |
Caption |
Close |
Command12 Name |
CmdCari |
Caption |
Cari |
Text1 Name |
Text1 |
Text |
(Dikosongkan) |
Text2 Name |
Text2 |
Text |
(Dikosongkan) |
Text3 Name |
Text3 |
Text |
(Dikosongkan) |
Text4 Name |
Text4 |
Text |
(Dikosongkan) |
Text5 Name |
Text5 |
Text |
(Dikosongkan) |
Text6 Name |
Text6 |
Text |
(Dikosongkan) |
Text7 Name |
Text7 |
Text |
(Dikosongkan) |
SStab1 Name Sstab1 |
MSHFlex Grid Name |
Grid1 |
Data source |
Adodc1 |
• |
Apabila tidak ada pengkoneksian MSHFlexGrid anda bisa pilih dahulu koneksi |
Project component ta mpil gambar 4.0 OK |
Gambar 4.0 |
7 |
Untuk pembutan SStab(tab), setting terlebih dahulu untuk menjadi 2 tab pertama |
Drag objeknya diform klik kanan pada objeck pilih properties setelah itu akan |
muncul seperti gambar 3.0: |
Gambar 5.0 |
PERTEMUAN 4 |
1. Pengkoneksian |
Setelah selesai membuat |
table |
didalam Microsoft Access dan dan Project maka |
akan dilanjutkan dengan menghubungkan |
database |
yang ada didalam Microsoft Access |
kedalam Microsoft Visual Basic 6.0. |
Untuk dapat mengakses |
database |
dalam suatu |
form |
, anda dapat mengaitkan |
database |
tersebut ke dalam |
form. |
Untuk mengaitkan |
database |
, dapat menggunakan |
beberapa |
control |
antara lain |
control data, control |
ADO Data, dan |
contro l remote |
data. |
Sedangkan untuk penampilan datanya dapat menggun akan |
control datagrid |
, dbgrid, |
MHSFlexGrid atau |
Textbox |
. |
Kontrol Data |
Pengaksesan |
database |
menggun akan kontrol ADO melibatkan DataGrid atau Textbox |
untuk penampilan datanya. Berikut adalah contoh aplikasi pengaksesan |
database |
menggun akan |
control |
ADO dengan |
database |
penjualan.mdb |
1. Buka Microsoft Visual Basic 6.0 |
2. Sediakan |
form |
dan |
project |
kosong |
3. tambahkan |
control |
ADO dan |
DataGrid |
den gan cara |
a. |
tekan tombol CTRL + T atau klik kanan pada |
Components |
sehingga ak an |
tampil kotak dialog |
Components |
b. pilih tab |
control |
, kemudian pilih Microsoft ADO data dan Microsoft |
DataGrid control |
6.0 (OLEDB) |
c. |
tekan tombol Ok maka p ada |
ToolBox |
akan tampil |
control |
Adodc dan |
datagrid. |
4. desain seperti tampilan b erikut |
Gambar 6.0 |
5. |
Letakkan kontrol Adodc pada |
form |
6. |
Pilih |
ConnectionString |
pada jendela |
Properties |
7. |
maka akan tampil kotak |
dialog Property Pages |
Gambar 7.0 |
a. |
klik pilihan |
use connection string |
dan tombol |
Build, |
sehingga akan tampil |
kotak dialog |
Data Link Properties |
9 |
Gambar 7.0 |
b. pada bagian |
select or enter database name |
c. tentukan lokasi |
file |
yang akan diakses |
d. |
pilih nama |
database |
penjualanATK dan klik tombol |
open |
e. klik tombol |
test connection |
, klik Ok dan klik Ok |
8. pilih |
RecordSource |
, sehingga akan tampil kotak d ialog |
Property Pages |
. |
Gambar 8.0 |
10 |
a. pada bagian |
command type |
klik pilihan 2-adCmdTex t |
b. pada bagian |
Ommend text (SQL) |
, ketikan perintah |
select * from barang |
. |
c. Klik tombol Ok |
C. Penggunaan Object ADO |
Properti-properti yang sering dipakai dalam ADO adalah sebagai berikut : |
Constant Description |
ConnectionString Berisi informasi yang digunakan untuk koneksi ke sumber data |
CursorLocation Menset atau mengembalikan nilai letak mesin kursor |
Provider Nama provider koneksinya |
State Menerangkan apakah objek status koneksi terbuka (open) atau |
tertutup (close) |
Method |
yang sering digu nakan adalah : |
Constant Description |
Execute Mengeksekusi Query tertentu yang berupa perintah SQL, Stored |
Procedure, Provider tertentu |
Open Membuka koneksi ke sumber data |
Close Menutup objek koneksi yang sedang terbuka dan membebaskan objek |
dari koneksi |
Tipe kursor yang dapat didefinisikan adalah: |
Nilai Constant Description |
0 asOpenFowardOnly Ini adalah bentuk default. Tipe ini tidak mengandung |
method MoveNext, MovePrevious, MoveLast, MoveFirst |
dan RecordCount. Efisien digunakan untuk mengambil data |
yang berurutan |
1 adOpenKeyset Tipe ini memperbolehkan semua gerakan pointer pada |
recordset. Perubahan data seperti penambahan data, |
pengeditan data dan penghapusan data yang dilakukan oleh |
user lain masih dapat dilihat |
2 adOpenDynamic Tipe ini memperbolehkan semua gerakan pointer pada |
recordset, dapat melihat perubahan data seperti |
penambahan data, pengeditan data dan penghapusan data |
yang dilakukan oleh user lain. |
3 adOpenStatic Tipe kursor ini membuat salinan statis recordset yang |
diambil. Pada tipe ini segala penambahan, peruahan dan |
penghapusan data yang dilakukan oleh user lain tidak dapat |
dilihat. |
Tipe |
Lock |
yan g digunakan untuk mengunci |
record |
yan g sedang digunak an pada |
recordset |
. Berikut macam tipe penguncian |
cursor |
pada ADO. |
Nilai Constant Description |
1 adLockReadOnly Tidak memperbilehkan user untuk melakukan |
perubahan data |
2 adLockPermistic User lain tidak boleh mengganti data selama user masih |
dalam method penggantian data |
11 |
3 adLockOptimistic User lain tidak dapat melakukan perubahan data hanya |
saat user dalam metode update |
4 adLockBatchOptimistic Metode ini digunakan untuk memberitahu recordset |
agar melakukan update database setiap kali terjadi |
perubahan data |
Parameter digunakan untuk menentukan bentuk sumber data yang diambil, |
Text, Stored |
Procedure |
, Tabel atau yang lain: |
Nilai Constant Description |
1 adCmdText Mendefinisikan command bebentuk Tex t, dapat |
berupa String SQL |
2 adCmdTable Sumber data berbentuk Tabel |
3 adCmdStoredProcedure Sumber data adalah StoredProcedure |
4 adCmdUnknown Dapat dipakai untuk semua bentuk Command tapi jika |
sudah tahu secara sp esifik disarankan menggunakan |
pemilihan secara langsun g |
Dim isibrg As Boolean
Sub semula()
Adodc1.RecordSource = "select*from barang"
Adodc1.Refresh
txtkode.Enabled = True
txtnmbrg.Enabled = False
txthrg.Enabled = False
txtjual.Enabled = False
txtstok.Enabled = False
txtkode = ""
txtnmbrg = ""
txthrg = ""
txtjual = ""
txtstok = ""
txtkode.BackColor = &H80000005
txthrg.BackColor = &H80000000
txtjual.BackColor = &H80000000
txtstok.BackColor = &H80000000
txtnmbrg.BackColor = &H80000000
cmdadd.Enabled = False
cmddel.Enabled = False
cmdedit.Enabled = False
cmdsave.Enabled = False
cmdcancel.Enabled = False
End Sub
Sub aktif()
txtkode.Enabled = False
txtnmbrg.Enabled = True
txthrg.Enabled = True
txtjual.Enabled = False
txtstok.Enabled = True
txtkode.BackColor = &H80000000
txthrg.BackColor = &H80000005
txtjual.BackColor = &H80000005
txtstok.BackColor = &H80000005
txtnmbrg.BackColor = &H80000005
End Sub
Sub tabel()
Grid1.Cols = 6
Grid1.Rows = 10
Grid1.ColWidth(0) = 200
Grid1.ColWidth(1) = 500
Grid1.ColWidth(2) = 1500
Grid1.ColWidth(3) = 1000
Grid1.ColWidth(4) = 500
Grid1.ColWidth(5) = 1000
Grid1.ColAlignment(1) = 3
End Sub
Sub tampildata()
txtkode.Text = Adodc1.Recordset.Fields("kdbrg")
txtnmbrg.Text = Adodc1.Recordset.Fields("nmbrg")
txthrg.Text = Adodc1.Recordset.Fields("hrgbeli")
txtjual.Text = Adodc1.Recordset.Fields("hrgjual")
txtstok.Text = Adodc1.Recordset.Fields("stock")
End Sub
Private Sub cmdadd_Click()
semula
txtkode.Enabled = True
txtkode.BackColor = vbBlue
txtkode = ""
txtkode.SetFocus
End Sub
Private Sub cmdcancel_Click()
semula
End Sub
Private Sub cmdcari_Click()
'Adodc1.RecordSource = "sELECT * FROM barang where kdbrg='" & _
txtcari.Text & " '"
'Adodc1.Refresh
'If Adodc1.Recordset.EOF Then
' MsgBox "data tidak ada", vbOKOnly + vbInformation, "hasil cari"
' txtcari.Text = ""
' txtcari.SetFocus
' cmdrefresh_Click
'Else
' Grid1.Refresh
'End If
For i = 1 To Grid1.Rows - 1
If Grid1.TextMatrix(i, 1) = txtcari.Text Then
Grid1.SetFocus
Grid1.Row = i
Grid1.TopRow = i
Text1.Text = Grid1.TextMatrix(i, 2)
Exit Sub
End If
Next i
End Sub
Private Sub cmdcetak_Click()
CrystalReport1.Action = 1
End Sub
Private Sub cmdclose_Click()
c = MsgBox("anda akan menutup program?", 36, "tutup")
If c = vbYes Then
Unload Me
End If
End Sub
Private Sub cmddel_Click()
If Len(Trim(txtkode.Text)) = "" Then
Exit Sub
End If
p = MsgBox("mau di hapus nih, yakin ga?", 32 + 4, "tanya")
If p = vbYes Then
Adodc1.Recordset.Delete
semula
Else
semula
End If
End Sub
Private Sub cmdedit_Click()
isibrg = False
aktif
txtnmbrg.SetFocus
cmdadd.Enabled = False
cmddel.Enabled = False
cmdedit.Enabled = False
cmdsave.Enabled = True
cmdcancel.Enabled = True
End Sub
Private Sub cmdfirst_Click()
txtkode.Enabled = False
txtkode.BackColor = &H8000000F
Adodc1.Recordset.MoveFirst
MsgBox "sudah di awal record", 64, "info"
cmdedit.Enabled = True
cmdadd.Enabled = True
cmddel.Enabled = True
cmdedit.SetFocus
End Sub
Private Sub cmdlast_Click()
txtkode.Enabled = False
txtkode.BackColor = &H8000000F
Adodc1.Recordset.MoveLast
tampildata
MsgBox "sudah di akhir record", 64, "info"
cmdedit.Enabled = True
cmdadd.Enabled = True
cmddel.Enabled = True
cmdedit.SetFocus
End Sub
Private Sub cmdnext_Click()
txtkode.Enabled = False
txtkode.BackColor = &H8000000F
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
MsgBox "sudah di akhir record", 48, "info"
Adodc1.Recordset.MoveLast
End If
tampildata
cmdedit.Enabled = True
cmdadd.Enabled = True
cmddel.Enabled = True
cmdedit.SetFocus
End Sub
Private Sub cmdprev_Click()
txtkode.Enabled = False
txtkode.BackColor = &H8000000F
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
MsgBox "sudah di awal record", 48, "info"
Adodc1.Recordset.MoveFirst
End If
tampildata
cmdedit.Enabled = True
cmdadd.Enabled = True
cmddel.Enabled = True
cmdedit.SetFocus
End Sub
Private Sub cmdrefresh_Click()
Adodc1.RecordSource = "sELECT * FROM barang"
Adodc1.Refresh
txtcari.Text = ""
End Sub
Private Sub cmdsave_Click()
On Error Resume Next
With Adodc1.Recordset
If isibrg = True Then
.AddNew
.Fields("kdbrg") = txtkode
.Fields("nmbrg") = txtnmbrg
.Fields("hrgbeli") = Val(txthrg)
.Fields("hrgjual") = Val(txtjual)
.Fields("stock") = Val(txtstok)
.Update
End If
End With
Adodc1.RecordSource = "select*from barang"
Adodc1.Refresh
On Error GoTo 0
cmdcancel_Click
End Sub
Private Sub Form_Activate()
semula
tabel
isibrg = True
txtkode.MaxLength = 5
txtnmbrg.MaxLength = 20
txthrg.MaxLength = 8
txtjual.MaxLength = 8
txtstok.MaxLength = 3
Adodc1.Visible = False
Grid1.Enabled = True
End Sub
Private Sub SSTab1_DblClick()
If SSTab1.Caption = "INPUT DATA BARANG" Then
txtkode.SetFocus
Else
txtcari.SetFocus
Adodc1.RecordSource = "select * from barang "
Adodc1.Refresh
End If
End Sub
Private Sub txtcari_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub txthrg_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjual = (Val(txthrg) * 0.2) + Val(txthrg) + (0.002 * Val(txthrg))
txtstok.SetFocus
End If
End Sub
Private Sub txtkode_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Adodc1.RecordSource = "select * from barang where kdbrg='" & txtkode & "'"
Adodc1.Refresh
With Adodc1.Recordset
If .BOF And .EOF Then
t = MsgBox("kode " & txtkode & " belum ada,mau tambah lagi?", vbYesNo + vbQuestion, "konfirmasi")
If t = vbYes Then
isibrg = True
Call aktif
txtnmbrg.SetFocus
Grid1.Refresh
cmdsave.Enabled = True
cmdcancel.Enabled = True
Else
Call semula
End If
Else
MsgBox "kode " & txtkode & "sudah ada", vbQuestion, "ketemu"
tampildata
txtkode.Enabled = False
txtkode.BackColor = &H80000000
cmddel.Enabled = True
cmdadd.Enabled = True
cmdedit.Enabled = True
cmdedit.SetFocus
cmdsave.Enabled = False
End If
End With
End If
End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
Adodc1.RecordSource = "select * from barang where nmbrg like'%" & txtnama & "&'"
Adodc1.Refresh
Grid1.Refresh
End Sub
Tidak ada komentar:
Posting Komentar