Tuesday, 30 June 2015

Database Pada Visual Basic 6

Posted by Rizki Pratama in | 03:54
A. Listing Program

  • Code pada form 1:


Private Sub Command1_Click()
If Text1.Text = "rizki" And Text2.Text = "59414644" Then
MsgBox "login berhasil"
Form1.Hide
Form2.Show
Else
MsgBox "Username atau Password SALAH!"
End If
End Sub
 

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub


  • Code pada Form2:



Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!NPM = Text1.Text
Adodc1.Recordset!Nama = Text2.Text
Adodc1.Recordset!kelas = Text3.Text
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.Delete
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Update
Adodc1.Recordset!NPM = Text1.Text
Adodc1.Recordset!Nama = Text2.Text
Adodc1.Recordset!kelas = Text3.Text
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub



B.Logika Program

Berikut step by step langkah langkah pembuatan program data base dengan menggunakan visual basic 6.0:

  • Buka aplikasi visual basic 6.0
  • Dan akan muncul kotak form1 seperti gambar berikut



  • Apabila form1 udah muncul maka buatlah form2 dengan menggunakan langkah dengan klik kanan pada form di kotak project lalu pilih add form atau bisa juga dengan cara mengklik icon berikut pada toolbar dan akan muncul gambar seperti berikut:







  • Setelah itu design form1 dengan aturan berikut:
ü  Label 1 = diisi dengan Username
ü  Label 2 = diisi denagan Password
ü  textbox 1 = di kosongkan
ü  textbox 2 = di kosongkan
ü  command button 1 = berisi Login
ü  command button 2 = berisi Reset

kemudian akan muncul form1 sebagai berikut:



  • Langkah selanjutnya adalah dengan memasukkan kodingan pada comman button1 atau “Login” dengan cara double klik pada Login:

Private Sub Command1_Click()
If Text1.Text = "rizki" And Text2.Text = "59414644" Then
MsgBox "login berhasil"

Kodingan diatas digunakan untuk perintah bahwa di bagian username apabila berisi “rizki” dan password “59414644” maka login akan berhasil dan akan muncul tulisan “login berhasil”
Form1.Hide
Form2.Show

Koddingan ini berguna untuk pindah ke form2 apabila login pada form pertama berhasil

Else
MsgBox "Username atau Password SALAH!"

Apabila password dan username tidak sesuai maka akan muncul “login gagal”
End If
End Sub

  • Langkah selanjutnya adalah dengan memasukkan kodingan pada comman button2 atau “Reset” dengan cara double klik pada Reset:

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Kodingan diatas digunakan untuk menghapus atau menghilangkan di bagian username yang berisi “rizki” dan password “59414644” setelah di tekan reset

  • Pada form2 kita akan memasukkan aturan sebagai berikut:
ü  Label 1 = NPM
ü  Label 2 = Nama
ü  Label 3 = Kelas
ü  TextBox 1 =  untuk menginput NPM
ü  TextBox 2 = untuk menginput Nama
ü  TextBox 3 = untuk menginput Kelas
ü  Command button 1 (input) = button menginput data
ü  Command button 2 (delete ) = button untuk menghapus data yang telah diinput
ü  Command button 3 (update) = button untuk merubah data

Maka akan muncul form2 sebagai berikut:

ü  Untuk  Adodc1 dan datagrid didapat dari kita pilih icon data  di general, lalu klik kanan dan pilih component.Setelah kita klik akan muncul



Kemudian ceklis pada Microsoft ADO Data Control  6.0 dan Microsoft DataGird 6.0

ü  Kemudian akan muncul icon datagird dan adodc pada toolbox.Kemudian klik icon adodc  dan datagird  dan akan muncul kotak seperti berikut:


ü  Kemudian klik use connection string di bagian properties adodc1 seperti berikut:


ü  Kemudian akan muncul data link properties
Pada provider pilih Microsoft Jet 4.0 OLE

Pada connection pilih database yang telah di buat dengan select or enter a database name di kotak no 1:




Berikut database tersebut:





Kemudian klik ok pada properties: 




ü  Kemudian pada properties datagird ubah data source dengan adodc1 agar data yang kita buat di database bisa muncul



  • Langkah selanjut nya yaitu masukkan kodingan untuk input dengan double klik pada command button1:
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!NPM = Text1.Text
Adodc1.Recordset!Nama = Text2.Text
Adodc1.Recordset!kelas = Text3.Text
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Kodingan diatas berguna untuk meng input data yang ingin di buat.
  • Dan untuk menghapus data yang telah kita input kita bisa masukkan kodingan berikut dengan double klik pada command button 2:
Private Sub Command2_Click()
Adodc1.Recordset.Delete
End Sub





  • Kemudian untuk update masukkan koddingan berikut dengan double klik pada command button 3:

Private Sub Command3_Click()
Adodc1.Recordset.Update
Adodc1.Recordset!NPM = Text1.Text
Adodc1.Recordset!Nama = Text2.Text
Adodc1.Recordset!kelas = Text3.Text
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

C.OUTPUT PROGRAM
  • Pada form 1:




·         Ketika kita klik ok maka akan muncul seperti di bawah ini :



·