Entri Database Dalam Form

A.Membuat Form Entri Data Master
Secara aplikasi database, dalam pengoperasian sistem informasinya haruslah memudahkan operatornya, selain
memudahkan, data yang diinputkan haruslah memiliki nilai kebenaran yang lebih bisa dipertanggungjawabkan. Sebagai
contoh untuk membuat form entri ini, maka akan dibuat aplikasi entri data mulai untuk form entri pada data-data
utama, seperti data Customer dan data TarifCar hingga membuat form entri untuk data transaksi pada Faktur dan
Transaksi nya yang telah dirancang struktur tabelnya pada bab-bab sebelumnya. Sebagai pembahasan awal akan
dijelaskan bagaimana teknik menyimpan data Customer atau TaripCar sebagai berikut :
1.Menyimpan Data
Untuk membuat form entri data khususnya data master dan datanya disimpan dalam table database maka dapat
dijelaskan sebagai berikut :
a.Membuat form entri data Customer
Langkah-langkah :
– Rancang Form Entri Sebagai berikut :
entri
– Ubahlah Properties dari masing-masing obyek kontrol yang digunakan :
Obyek Properties Ubah/Isilah Keterangan
1 Name Customer Name bkn ADODC1
ConnectingString Provider=MSDASQL.1;Password=””; Persist Security Info=True;Data Source=RENTALMOBIL Gunakan teknik di bab sebelumnya.
RecordSource SELECT * FROM CUSTOMER Table Customer sbg sumber
A Name TxtNID Textbox
Text1 Kosongkan
B Name TxtNama Textbox
Text1 Kosongkan
C Name TxtAlamat Textbox
Text1 Kosongkan
D Name TxtTelpon Textbox
Text1 Kosongkan
E Name TxtStatus TextBox
Text1 0 Nilai 0 = Number
F DataSource Customer DataGrid

– Ketik perintah pada prosedure CommandButton Simpan sebagai berikut :
Private Sub Command1_Click()
Customer.Refresh
‘Menambah data
With Customer.Recordset
.AddNew ‘menambah record kosong
!NID = TxtNID ‘memasukan nilai variabel TxtNID
!nama =UCase(TxtNama)
!alamat = Ucase(TxtAlamat)
!telpon = TxtTelpon
!Status = TxtStatus
.Update ‘merubah/mengganti data
End With
MsgBox (“Data Tersimpan…”)
End Sub

b.Membuat form entri data TarpCar
Langkah-langkah :
– Rancang from entri seperti pada lembar berikut :
tarip
– Ubah properties dari masing-masing obyek diatas :
Obyek
Properties
Ubah/Isilah
Keterangan
1
Name
TaripCar
Name bkn ADODC1
ConnectingString
Provider=MSDASQL.1;Password=””; Persist Security Info=True;Data Source=RENTALMOBIL
Gunakan teknik di bab sebelumnya.
RecordSource
SELECT * FROM TARIPCAR
Table
TaripCar sbg sumber
A
Name
TxtSTNK
Textbox
Text1
Kosongkan
B
Name
TxtKendaraan
Textbox
Text1
Kosongkan
C
Name
TxtTahun
Textbox
Text1
Kosongkan
D
Name
TxtTarip
Textbox
Text1
0
0=numeric
E
Name
TxtDiskont
TextBox
Text1
0
0 = Number
F
DataSource
TaripCar
DataGrid
– Ketik listing program pada CommandButton Simpan :
Private Sub Command2_Click()
TaripCar.Refresh
‘Menyimpan data
With TaripCar.Recordset
.AddNew
!stnk = UCase(TxtSTNK)
!kendaraan = TxtKendaraan
!tahun = TxtTahun
!tarip = TxtTarip
!diskont = TxtDiskont
.Update
End With
MsgBox (“Data Tersimpan…”)
End Sub
2.Mencari Data
o Pencarian dalam obyek TextBox
Letakkan perintah pencarian pada komponen obyek yang diinginkan, biasanya proses pencarian dilakukan pada saat
setelah menekan Enter pada obyek TextBox sebagai variabel input datanya. Misalnya pada textbox NID dilakukan
proses pencarian bila proses penekanan tombol keyboard dilakukan cek apakah operator telah menekan Enter atau
tidak, jika tombol Enter di cek maka proses pencarian dilakukan, caranya letakkan perintah pencarian data pada
prosedure KeyPress dalam obyek TextBox(TxtNID) yang telah diapkan seperti sebagai berikut :
Private Sub TxtNID_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Customer.RecordSource = “Select * from customer where NID='” & TxtNID & “‘”
Customer.Refresh
If Customer.Recordset.RecordCount > 0 Then
‘Data sudah ada,record ditemukan
MsgBox (“Data Telah ada…”)
With Customer.Recordset
TxtNama = !nama
TxtAlamat = !alamat
TxtTelpon = !telpon
TxtStatus = !Status
End With
Else
‘Data tidak ditemukan
TxtNama = “”
TxtAlamat = “”
TxtTelpon = “”
TxtStatus = 0
End If
End If
End Sub
• Pencarian data pada komponen DataList.
Pencarian dengan data yang mirip:
SELECT * From Customer Where Nama like ’” & TxtNama & ”%’
Untuk lebih jelasnya dapat dijelaskan proses pencarian data nama customer sebagai berikut :
– Tambahkan komponen DataList properties
– Lalu ubah komponen DataList untuk status Visible yang semula True ubah menjadi False pada saat form di jalankan, maka pertama-tama DataList disembunyikan dulu atau tidak aktif terlebih dahulu.
Private Sub Form_Load()
Skin1.ApplySkin hWnd
DataList1.Visible = False
End Sub

– Lalu ketik proses pencarian pada saat Enter ditekan pada saat entri nama :
Private Sub TxtNama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Customer.RecordSource = “SELECT * FROM Customer Where nama like ‘” & TxtNama & “%'”
Customer.Refresh
If Customer.Recordset.RecordCount > 0 Then
DataList1.Visible = True
DataList1.SetFocus
TxtNama = DataList1.Text
End If
End If
End Sub
– Lalu pada saat informasi data nama yang sudah terlihat pada DataList sehingga informasi yang sesuai dapat dipilih oleh operator, dan pada saat operator mengakhiri proses pencarian dengan menekan tombol Enter pada DataList maka identitas DataList tidak diaktifkan kembali(tidak terlihat) akan tetapi hasil informasi yang dipilih sebelumnya ditampung pada variable yang dinginkan seperti TxtNama tersebut,lalu digunakan untuk mencari informasi field lainnya yang akan ditampilkan, sebagaimana sebagai berikut :
Private Sub DataList1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNama = DataList1.Text
Customer.RecordSource = “SELECT * FROM Customer Where nama='” & UCase(TxtNama) & “‘”
Customer.Refresh
With Customer.Recordset
TxtNID = !nid
TxtAlamat = !alamat
TxtTelpon = !telpon
TxtStatus = !Status
End With
DataList1.Visible = False
End If
End Sub

– Maka pada saat dimasukan data sebagai akan ditampilkan semua data yang memiliki data yang karakter depannya sama:
3.Mengkoreksi Data
Langkah-langkah :
oTambahkan komponen CommandButton Koreksi untuk mengkoreksi data
oLakukan pencarian data sebelumnya, sehingga informasi sebelumnya juga ditampilkan, lalu rubah nilai atau
identitas datanya pada form entri tersebut, seperti sudah dibahas pada proses pencarian data sebelumnya.
Private Sub TxtNID_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Customer.RecordSource = “Select * from customer where NID='” & TxtNID & “‘”
Customer.Refresh
If Customer.Recordset.RecordCount > 0 Then
‘Data sudah ada,record ditemukan
MsgBox (“Data Telah ada…”)
With Customer.Recordset
TxtNama = !nama
TxtAlamat = !alamat
TxtTelpon = !telpon
TxtStatus = !Status
End With
Command1.Enabled = False ‘pasifkan tombol simpan
Command2.Enabled = True ‘AKtifkan tombol koreksI
Else
‘Data tidak ditemukan
Command1.Enabled = True ‘aktifkan tombol simpan
Command2.Enabled = False ‘pasifkan tombol koreksi
TxtNama = “”
TxtAlamat = “”
TxtTelpon = “”
TxtStatus = 0
End If
End If
End Sub
o Lalu pada procedure CommandButton Koreksi ketik koding sebagai berikut :
Private Sub Command2_Click()
Customer.RecordSource = “Select * from customer where NID='” & TxtNID & “‘”
Customer.Refresh
If Customer.Recordset.RecordCount > 0 Then
‘Data sudah ada,record ditemukan maka data dirubah
With Customer.Recordset
!nama = TxtNama
!alamat = TxtAlamat
!telpon = TxtTelpon
!Status = TxtStatus
.Update ‘merubah data
End With
MsgBox (“Data Tersimpan…”)
End If
End Sub
4.Menghapus Data
Private Sub Command3_Click()
Customer.RecordSource = “Select * from customer where NID='” & TxtNID & “‘”
Customer.Refresh
If Customer.Recordset.RecordCount > 0 Then
‘Data sudah ada,record dihapus
Customer.Recordset.Delete
MsgBox (“Data Tersimpan…”)
End If
End Sub

B.Membuat Form Entri Data Transaksi
Pada dasarnya setiap membuat form entri transaksi pasti membutuhkan table-able master yang telah memiliki data sebelumnya sebagai sumber informasi untuk dicatat dalam kegiatan transaksi yang ada. Transaksi pada system informasi RentalCar atau penyewaan mobil memutuhkan relasi table master Customer dan TaripCar dengan table Faktur dan Transaksi untuk mencatat secara detail sumber informasi yang dilakukan.
Tabel properties dari masing-masing obyek adalah sebagai berikut :
tabeloMemmberikan nilai awal pada form load sebagai berikut :
Private Sub Form_Load()
Skin1.ApplySkin hWnd
TxtTanggal = Format(Date, “dd/mm/yyyy”)
End Sub

oMelakukan entri nofaktur dan dilakukan chek apakah data ada atau tidak:
Private Sub TxtNoFaktur_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
FAKTUR.Refresh
FAKTUR.RecordSource = “Select * from Faktur where nofaktur='” & TxtNoFaktur & “‘”
FAKTUR.Refresh
If FAKTUR.Recordset.RecordCount > 0 Then
MsgBox (“Chek nomer Faktur….,sudah ada”)
Else
TxtNID.SetFocus
End If
End If
End Sub

oMemasukan dan mencari NID Customer
Pada saat NID Customer dimasukan dilakukan chek apakah data NID tersebut ada atau tidak, pada pada prosedure KeyPress pada textbox TxtNID kodingnya sebagai berikut :
Private Sub TxtNID_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CUSTOMER.Refresh
CUSTOMER.RecordSource = “select * from Customer where NID='” & TxtNID & “‘”
CUSTOMER.Refresh
If CUSTOMER.Recordset.RecordCount > 0 Then
With CUSTOMER.Recordset
TxtNama = !nama
TxtAlamat = !alamat
TxtTelpon = !telpon
End With
Else
MsgBox (“Data tidak ada di master customer”)
End If
End If
End Sub

oMemasukan dan mencari data STNK sehingga diperoleh nama kendaraan, tarip dan diskont yang diberikan, maka masukan koding dalam prosedurae KeyPress pada TextBox STNK yang bervariabel array tersebut :
Private Sub TxtSTNK_KeyPress(Index As Integer, KeyAscii As Integer)
I = 0
If Index 0 Then
TxtKendaraan(I) = TARIPCAR.Recordset!kendaraan
TxtTarip(I) = TARIPCAR.Recordset!tarip
TxtDiskont(I) = TARIPCAR.Recordset!diskont
TxtBayar(I) = TxtTarip(I) * (1 – TxtDiskont(I) / 100)
If I 0 Then
MsgBox (“Chek nomer Faktur….,sudah ada”)
Else
With FAKTUR.Recordset
.AddNew
!nofaktur = TxtNoFaktur
!tanggal = Format(TxtTanggal, “dd/mm/yyyy”)
!nid = TxtNID
!PPN = TxtPPN
!potongan = TxtPotongan
!jlbayar = TxtJLBayar
.Update
End With
‘menyimpan data ke table transaksi
TRANSAKSI.Refresh
For i = 1 To 3
If TxtSTNK(i) “” Then
With TRANSAKSI.Recordset
.AddNew
!nofaktur = TxtNoFaktur
!stnk = TxtSTNK(i)
!TARIP = TxtTarip(i)
!DISKONT = TxtDiskont(i)
.Update
End With
End If
Next
MsgBox (“Data tersimpan….”)
RELASI.Refresh
End If
End Sub

untuk lengkapnya silakan download disini

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s