Data
1.
|
Materi Visual Basic Pasca UTS
Koneksi Database Menggunakan
|
Lalu simpan database dengan nama penjualan di dalam folder nim masing-masing
C:\lab_pagi\1211xxxx\penjualan
|
|
|
|
|
|
|
Lalu isi field di bawah ini
Field name | Type | Size | Index |
kdbrg | text | 6 | Barangdex |
nmbrg | text | 30 | |
harga | double | 8 | |
satuan | text | 10 | |
|
|
|
|
|
Lalu design Form seperti di bawah ini
Untuk menambahkan object baru yang bernama DBGrid, ada 3 cara yang dapat digunakan yaitu :
- Pilih menu Project, klik Components
- Klik kanan pada jendela ToolBox lalu pilih Components
- Tekan tombol Ctrl. + t pada keyboard
Lalu tampil jendela Components cari Microsoft Data Bound Grid Control 5.0 (SP3), checklist kotak sebelah kiri.
Setting properties pada object
Nama object | Properties | Value |
Data1 | DatabaseName | Cari path tempat penyimpanan database anda |
RecordsetType | 0-Table | |
RecordSource | Barang | |
DBGrid1 | DataSource | Data1 |
Text1 | Name | Txtkdbrg |
CommandButton1 | Name | cmdadd |
Caption | ADD |
Listing Program
Sub tampilkan()
With Data1.Recordset
txtkdbrg = !kdbrg
txtnmbrg = !nmbrg
txtharga = !harga
txtsatuan = !satuan
End With
End Sub
Sub kosong()
Dim a As Control
For Each a In Form1
If TypeName(a) = "TextBox" Then
a.Text = ""
End If
Next
End Sub
Sub aktif()
txtkdbrg.Enabled = True
txtnmbrg.Enabled = True
txtharga.Enabled = True
txtsatuan.Enabled = True
End Sub
Sub nonaktif()
txtkdbrg.Enabled = False
txtnmbrg.Enabled = False
txtharga.Enabled = False
txtsatuan.Enabled = False
End Sub
Private Sub Form_Activate()
nonaktif
cmdsave.Enabled = False
cmdedit.Enabled = False
cmdundo.Enabled = False
cmddelete.Enabled = False
End Sub
Private Sub cmdadd_Click()
Data1.Recordset.AddNew
kosong
aktif
txtkdbrg.SetFocus
cmdadd.Enabled = False
cmdsave.Enabled = True
cmdedit.Enabled = False
cmdundo.Enabled = True
cmddelete.Enabled = False
cmdexit.Enabled = False
cserch.Enabled = False
tseek.Enabled = False
End Sub
Private Sub cmdundo_Click()
Data1.Recordset.CancelUpdate
nonaktif
Data1.Recordset.MoveFirst
tampilkan
cmdadd.Enabled = True
cmdsave.Enabled = False
cmdedit.Enabled = False
cmdundo.Enabled = False
cmddelete.Enabled = False
cmdexit.Enabled = True
cserch.Enabled = True
tseek.Enabled = True
End Sub
Private Sub cmdedit_Click()
Data1.Recordset.Edit
aktif
txtkdbrg.Enabled = False
txtnmbrg.SetFocus
cmdadd.Enabled = False
cmdsave.Enabled = True
cmdedit.Enabled = False
cmdundo.Enabled = True
cmddelete.Enabled = False
cmdexit.Enabled = False
cserch.Enabled = False
End Sub
Private Sub cmddelete_Click()
del = MsgBox("yakin akan dihapus???", vbYesNo, "KONFIRMASI")
If del = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
End If
tampilkan
cmdadd.Enabled = True
cmdsave.Enabled = False
cmdedit.Enabled = False
cmdundo.Enabled = False
cmddelete.Enabled = False
cmdexit.Enabled = True
cserch.Enabled = True
tseek.Enabled = True
tseek.Text = ""
End Sub
Private Sub cmdsave_Click()
With Data1.Recordset
!kdbrg = txtkdbrg
!nmbrg = txtnmbrg
!harga = txtharga
!satuan = txtsatuan
.Update
End With
Data1.Refresh
nonaktif
tampilkan
cmdadd.Enabled = True
cmdsave.Enabled = False
cmdedit.Enabled = False
cmdundo.Enabled = False
cmddelete.Enabled = False
cmdexit.Enabled = True
cserch.Enabled = True
tseek.Enabled = True
End Sub
Private Sub cmdfrist_Click()
Data1.Recordset.MoveFirst
tampilkan
End Sub
Private Sub cmdprev_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
MsgBox "DATA SUDAH DIAWAL RECORD", vbOKOnly, "INFORMASI"
Data1.Recordset.MoveFirst
End If
tampilkan
End Sub
Private Sub cmdnext_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
MsgBox "DATA SUDAH DIAKHIR RECORD", vbOKOnly, "INFORMASI"
Data1.Recordset.MoveLast
End If
tampilkan
End Sub
Private Sub cmdlast_Click()
Data1.Recordset.MoveLast
tampilkan
End Sub
Private Sub cmdexit_Click()
kel = MsgBox("YAKIN AKAN KELUAR", 36, "konfirmasi")
If kel = vbYes Then
End
End If
End Sub
Private Sub cmdserch_Click()
Data1.Recordset.Index = "barangdex"
Data1.Recordset.Seek "=", tseek
If Data1.Recordset.NoMatch Then
MsgBox "DATA TIDAK DITEMUKAN", vbOKOnly, "INFORMASI"
Data1.Recordset.MoveFirst
tseek = ""
tseek.SetFocus
Else
tampilkan
End If
End Sub
Tidak ada komentar:
Posting Komentar