Struktur SQL dalam VB

SQL = Struktur Query Language (Sebuah bahasa yang dirancang khusus untuk dapat berkomunikasi dengan database). Buatlah Tampilan Seperti dibawah ini :

Untuk Koneksi diproperties :
Data1 = databasename
DBGrid1 = data1

Listing Program :
Private Sub CmdProses_Click()
Dim x As String
On Error GoTo Salah
Data1.RecordSource = Text1
Data1.Refresh
If Data1.Recordset.EOF Then
x = MsgBox(“Data Tidak Ketemu”, 0, “Informasi”)
Data1.Refresh
Text1.SetFocus
End If
On Error GoTo 0
Exit Sub
Salah:
x = MsgBox(“Sintak SQL Error”, 0, “Info Dari Admin”)
Text1.Text = “”
Text1.SetFocus
End Sub

Private Sub CmdUlang_Click()
Text1.Text = “”
Text1.SetFocus
End Sub

Private Sub Form_Activate()
Text1.Text = “”
Text1.SetFocus
CmdProses.Default = True
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub Timer1_Timer()
Me.BackColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
End Sub

Catatan :
cmdproses.default=true —-> maksudnya adalah setelah menuliskan perintah SQL kemudian kita enter pada text1 maka proses cmdproses pun akan dijalankan. Coba kamu praktekkan listing berikut kedalam text1 :
1. select * from barang in ‘c:\labsore\pembelian.mdb’ —> alamat penyimpanan
2. select * from barang
3. select kobar from barang
4. select kobar,nabar form barang
5. select * from supplier order by nasup
6. select kosup from supplier where kosup=”SP001″Selamat Memodifikasi…

Pert.Database(Form Supplier)

Buat Tampilan Sebagai berikut :
Tampilan Data Supplier :

Tampilan Browse Data Supplier :

Listing Program :
Sebelumnya Anda buat terlebih dahulu procedure aktif, nonaktif, bersih, dan tampil.

Dim x As Control
Private Sub tampil()
With Datasup.Recordset
If .RecordCount 0 Then
txtKoSup.Text = !kosup —> Field harus sesuai dengan field yang ada di tabel supplier
txtNaSup.Text = !nasup
txtAlamat.Text = !alamat
txtTelp.Text = !telpsup
txtCP.Text = !cpsup
End If
End With
End Sub

Private Sub bersih()
For Each x In Me
If TypeName(x) = “TextBox” Then
x.Text = “”
x.BackColor = &H80000005
End If
Next
txtKoSup.SetFocus
End Sub

Private Sub nonaktif()
For Each x In Me
If TypeName(x) = “TextBox” Then
x.Enabled = False
x.BackColor = &H8000000F
End If
Next
txtCari.Enabled = True
End Sub

Private Sub aktif()
For Each x In Me
If TypeName(x) = “TextBox” Then
x.Enabled = True
x.BackColor = &H80000005
End If
Next
End Sub

Private Sub cmdCari_Click()
Datasup.Recordset.FindFirst “nasup= ‘ ” & Trim(txtCari.Text) & ” ‘ ”
If Not Datasup.Recordset.NoMatch Then —-> Jika Datanya Ada
tampil
Else
MsgBox “Data TIDAK ADA”, vbOKOnly, “Informasi”
txtCari.Text = “”
txtCari.SetFocus
End If
End Sub

Private Sub cmdEdit_Click()
Datasup.Recordset.Edit
aktif
End Sub

Private Sub cmdHapus_Click()
P = MsgBox(“Yakin Mau Di Hapus ?”, vbYesNo + vbQuestion, “Hapus Record”)
If P = vbYes Then
Datasup.Recordset.Delete
Datasup.Recordset.MoveFirst
End If
End Sub

Private Sub cmdKeluar_Click()
K = MsgBox(“Anda Ingin Keluar ?”, vbYesNo + vbInformation, “Konfirmasi”)
If K = vbYes Then
Unload Me
End If
End Sub

Private Sub cmdSimpan_Click()
With Datasup.Recordset
.AddNew
!kosup = txtKoSup.Text
!nasup = txtNaSup.Text
!alamat = txtAlamat.Text
!telpsup = txtTelp.Text
!cpsup = txtCP.Text
.Update
End With
Datasup.Refresh
nonaktif
End Sub

Private Sub cmdTambah_Click()
Datasup.Recordset.AddNew
txtKoSup.MaxLength = 6 —-> Membatasi Penginputan sebanyak 6
aktif
bersih
End SubPrivate Sub Form_Activate()
txtCari.Enabled = True
txtCari.BackColor = &H80000005
tampil

End SubPrivate Sub Form_Load()
nonaktif
End Sub

Selamat Mencoba

Pert.11 (Visual Basic)

Jangan lupa untuk koneksi database kita menggunakan database yang pertamakali kita buat, yaitu database pembelian.

Tampilan Disain :

Tampilan Setelah dijalankan :

Listing Program :
Jangan Lupa terlebih dahulu kamu buat prosedure aktif, nonaktif, bersih

Dim x As Control

Private Sub Cmdnew_Click()
Data1.Recordset.AddNew
Text1.MaxLength = 5 ——–> Menentukan panjang kode adalah 5
bersih
aktif
Text1.SetFocus
End Sub

Private Sub nonaktif()
For Each x In Me
If TypeName(x) = “TextBox” Then
x.Enabled = False
End If
Next
End Sub

Private Sub aktif()
For Each x In Me
If TypeName(x) = “TextBox” Then
x.Enabled = True
End If
Next
End Sub

Private Sub bersih()
For Each x In Me
If TypeName(x) = “TextBox” Then
x.Text = “”
End If
Next
End Sub

Private Sub Cmdcari_Click()
Dim mkode As String * 5
mkode = InputBox(“Masukan Kode Barang”, “Pencarian Data Barang”)
msyarat = “Kode = ‘” & mkode ‘”
Data1.Recordset.Index = “barangdex” –> pastikan data1 (properties) recordsettype 0-Table
Data1.Recordset.Seek “=”, mkode
If Data1.Recordset.NoMatch Then
MsgBox “Data Belum Ada”, vbOKOnly, “Informasi”
Data1.Recordset.MoveFirst
End If
End Sub

Private Sub Cmdsave_Click()
Data1.Recordset.Update
nonaktif
End Sub

Private Sub Cmdedit_Click()
Data1.Recordset.Edit
aktif
Data1.Recordset.Update
End Sub

Private Sub Cmddelete_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
End Sub

Private Sub Cmdexit_Click()
Unload Me
End Sub

Private Sub Cmdprevious_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
MsgBox “Data sudah diawal record”, vbOKOnly, “info”
Data1.Recordset.Movefirst
End If
End Sub

Private Sub Cmdlast_Click()
Data1.Recordset.MoveLast
End Sub

Private Sub Cmdtop_Click()
Data1.Recordset.MoveFirst
End Sub

Private Sub Cmdnext_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
MsgBox “Data sudah diakhir record”, vbOKOnly, “info”
Data1.Recordset.MoveLast
End If
End Sub

Private Sub Form_Load()
nonaktif
End Sub

Private Sub Timer1_Timer()
Me.BackColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
End Sub

Coba dikembangkan lagiiiii……..

Pert.10 (Database VB)

Selamat Bergabung kembali…setelah sekian lama kita tak jumpa karena Ujian Tengah Semester Genap. Dalam Pertemuan ini kita akan membahas tentang database dalam Vb, database yang kita gunakan disini menggunakan vasilitas langsung dari VB yaitu VisData dalam VB.
Dalam buku Ario Suryo Kusumo Database adalah kumpulan informasi. Databse sebagai kumpulan informasi disimpan dalam satu atau lebih tabel, baris dalam tabel berisi satu unit data dan disebut record. Sedangkan kolom berisi atribut dari record disebut field.

Langkah Langjah dalam Membuat database :

1. Buka aplikasi Visual Basic 6.0
2. Kilk Menu Add Ins pada MenuBar Vb dan buat database baru

3. Simpan databse dengan nama pembelian

4. Setelah kita buat database maka kita akan membuat beberapa tabel didalamnya, buat tabel dengan mengklik kanan properties kemudian pilih new table.

5. Buat table dengan nama barang, dan masukan field-field yang dibutuhkan :

Name	kobar	nabar	harga	satuan
Type	text	text	double	text
Size	5	50	8	10

Buatlah index pada tabel barang berdasarkan kobar dan beri nama index barangx

Setelah anda membuat databse dan tabel silakan anda close tampiln VisData kemudian anda merancang bentuk tampilan form barang.
a) Buatlah Tampilan Form sebagai berikut atau bisa juga anda desain sendiri sesuai keinginan.

Dalam pembahasan ini kita akan menggunakan DAO ( Data Access Objects) dapat kamu ambil di dalam toolbox visual basic biasa dikenal dengan sebutan data, untuk mengkoneksikan database.
b) Kemudian Kita akan mengkoneksikan data (DAO) dan text yang berkaitan dengan field tabel barang dalam database pembelian.
untuk data1 kita koneksikan dalam properties yaitu :
1. DatabaseName = tempat dimana kamu menyimpan database pembelian
2. RecordSource = koneksi dengan tabel yang kita buat (barang)
3. RecordSetType = type yang kita gunakan (0-tabel)
4. Caption = Data Barang
c) Kemudian kita akan mengkoneksikan field yang ada di dalam tabel barang ke objek text yang kita gunakan dalam form barang.
text1 = Datasource (data1) : = DataField (kobar)
text2 = datasource (data1) : = datafield (nabar)
text3 = datasource (data1) : = datafield (harga)
text4 = datasource (data1) : = datafield (satuan)
d) Kemuadian kita akan membuat listing program untuk form barang :
Ini merupakan listing sederhana yang akan kita pelajari perlahan-lahan.
Private Sub Cmdtambah_Click()
aktif
Data1.Recordset.AddNew
End Sub

Private Sub Cmdsimpan_Click()
nonaktif
Data1.Recordset.Update
End Sub

Private Sub Cmdhapus_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveLast
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text1.SetFocus
End Sub

Private Sub nonaktif()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
End Sub

Private Sub Form_Load()
nonaktif
End Sub

STM. Selamat mencoba…dan silakan anda modifikasi listing ini untuk jadi lebih baik lagi.
Terimakasih

Latihan_UTS VB

Buat tampilan sebagai berikut :

Private Sub ch1_Click()
If ch1 = 1 And ch2 = 0 Then
txttunj.Text = 10 / 100 * Val(txtgapok.Text)
Else
If ch1 = 0 And ch2 = 1 Then
txttunj.Text = 5 / 100 * Val(txtgapok.Text)
Else
If ch1 = 1 And ch2 = 1 Then
txttunj.Text = 15 / 100 * Val(txtgapok.Text)
Else
txttunj.Text = 0
End If
End If
End If
End Sub

Private Sub ch2_Click()
If ch1 = 1 And ch2 = 0 Then
txttunj.Text = 10 / 100 * Val(txtgapok.Text)
Else
If ch1 = 0 And ch2 = 1 Then
txttunj.Text = 5 / 100 * Val(txtgapok.Text)
Else
If ch1 = 1 And ch2 = 1 Then
txttunj.Text = 15 / 100 * Val(txtgapok.Text)
Else
txttunj.Text = 0
End If
End If
End If
End Sub

Private Sub cmdhitung_Click()
txttotal.Text = Val(txtgapok.Text) + Val(txttunj.Text)
End Sub

Private Sub bersih()
Dim x As Control
For Each x In Me
If TypeName(x) = “TextBox” Then
x.Text = “”
End If
Next
ch1 = o
ch2 = 0
End Sub

Private Sub cmdinput_Click()
bersih
tampil
txtnip.SetFocus
End Sub

Private Sub Form_Load()
sembunyi
End Sub

Private Sub txtnip_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Left(txtnip, 4) = “2005” Then
txtthn.Text = “2005”
Else
If Left(txtnip, 4) = “2006” Then
txtthn.Text = “2006”
Else
If Left(txtnip, 4) = “2007” Then
txtthn.Text = “2007”
Else
MsgBox “Tahun Masuk Tidak Ada”, vbOKOnly, “Info”
bersih
sembunyi
End If
End If
End If
If Mid(txtnip, 5, 2) = “01” Then
txtjbtn.Text = “Direktur”
txtgapok.Text = 1500000
Else
If Mid(txtnip, 5, 2) = “02” Then
txtjbtn.Text = “Staff”
txtgapok.Text = 1000000
Else
If Mid(txtnip, 5, 2) = “03” Then
txtjbtn.Text = “umum”
txtgapok.Text = 850000
Else
bersih
sembunyi
End If
End If
End If
End If
End Sub

Private Sub sembunyi()
txtnip.Visible = False
Label2.Visible = False
End Sub

Private Sub tampil()
txtnip.Visible = True
Label2.Visible = True
End Sub

Silakan Anda Modifikasi lagi untuk belajar …..

Fungsi Terbilang

Listing Program :

Option Explicit
‘# Programmer yg ingin memakai Fungsi & Trick ini diharapkan men-
‘ cantumkan nama Programmer aslinya yaitu :
‘ Fandi a.k.a. Komek
‘ u/ kritik dan saran kirim email ke
‘ komekbtn@gmail.com
‘ YM : andie_komek
‘
‘ viva VB Programmers !!Private Sub Command1_Click()
Dim strTerbilang As String
Dim strNilai As String
Dim strNumerik As String

strNilai = Val(Text1.Text)

Terbilang CStr(strNilai), strTerbilang
Set2Numeric CStr(strNilai), strNumerik
Text2.Text = “”
Text2.Text = strTerbilang
Text3.Text = “”
Text3.Text = “Rp. ” + strNumerik + “,-”
Text4.Text = “”
Text4.Text = strTerbilang + ” rupiah”
End Sub

Private Sub Form_Load()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
ValidNumberFormat KeyAscii
End Sub

pert.7 vb fungsi string,prosedure

Fungsi string digunakan untuk mencetak atau menampilkan statemen yang bernilai string. Contoh yang akan dibahas adalah no. Akademik (12) dimana angka 1 akan di baca sebagai Akademik dan angka 2 dibaca sebagai jurusan.

Procedure dengan kata lain pemanggilan suatu procedure, disini menggunakan procedure bersih. Saat kita butuh untuk membersihkan object maka kita tinggal panggil procedure yang dibutuhkan saja.

Dim a, b As Double ————> Pendeklarasian Variabel.
Private Sub bersih() —————> Procedure Bersih.
txtkode.Text = “”
txtnama.Text = “”
txtjurusan.Text = “”
Option1 = False
Option2 = False
Option3 = False
Option4 = False
txtwaktu.Text = “0”
txtgedung.Text = “0”
txttotbay.Text = “0”
txtkode.SetFocus
End Sub

Private Sub cmdbersih_Click()
bersih ———————————–> Pemanggilan procedure
End Sub

Private Sub cmdhitung_Click()
a = txtgedung.Text
b = txtwaktu.Text
txttotbay.Text = a + b
End Sub

Private Sub cmdkeluar_Click()
p = MsgBox(“Anda Ingin Keluar”, vbOKCancel + vbInformation, “Konfirmasi”)
If p = vbOK Then
Unload Me
End If
End Sub

Private Sub Form_Load() —————–> Menampilkan Tanggal dan Jam
Label8.Caption = Date
Label9.Caption = Time()
End Sub

Private Sub Option1_Click()
txtgedung.Text = 800000
End Sub

Private Sub Option2_Click()
txtgedung.Text = 900000
End Sub

Private Sub Option3_Click()
txtwaktu.Text = 100000
End Sub

Private Sub Option4_Click()
txtwaktu.Text = 150000
End Sub

Private Sub txtkode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Select Case Left(txtkode.Text, 1)
Case “1”
txtnama.Text = “AMIK”
If Right(txtkode.Text, 1) = “1” Then
txtjurusan.Text = “Komputer Akuntansi”
ElseIf Right(txtkode.Text, 1) = “2” Then
txtjurusan.Text = “Manajemen Informatika”
End If
Case “2”
txtnama.Text = “ASM”
If Right(txtkode.Text, 1) = “1” Then
txtjurusan.Text = “Sekertaris”
ElseIf Right(txtkode.Text, 1) = “2” Then
txtjurusan.Text = “Manajemen”
End If
End Select
End If
End Sub

Selamat mencoba…..