BERBAGI ILMU

hallo guys selamat datang di blog saya....

kali ini saya akan memposting sebuah aplikasi yang berbasis dekstop yaitu aplikasi " Biodata Mahasiswa " aplikasi ini dibuat dengan visual basic 6.0 dan di aplikasi ini dilengkapi dengan login page jadi setiap admin yang ingin masuk ke aplikasi ini harus login terlebih dahulu...

pertama kalian buat database nya dahulu di ms.acces seperti berikut




oke guys jadi pertama ini adalah menu login di aplikasi yang saya buat ini..
Coding :
Private Sub Command1_Click()
If Text1.Text <> "" And Text2.Text <> "" Then
    If Text1.Text = "admin" And Text2.Text = "admin" Then
    Form2.Show
    Unload Me
    Else
    MsgBox ("Username atau password anda salah!")
    End If
Else
MsgBox ("Username atau password anda tidak boleh kosong")
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Penjelasan : command1 itu adalah tombol login dan command2 adalah tombol keluar
                 
lalu setelah kita berhasil login maka kita akan masuk ke menu utama pada aplikasi yang saya buat
disini menu home ini saya tambahkan menu editor untuk membuat menu form
untuk menu editor nya klik menu tersebut
lalu akan muncul seperti berikut

jadi di menu form itu kita bisa mengisi menu yang lain seperti contoh di atas saya membuat hanya menu form mahasiswa saja

setelah kita masuk ke menu form mahasiswa selanjutnya kita akan masuk ke menu input data yang di gabungkan dengan tabel output datanya tersebut,tabel outputnya tersebut saya menggunakan datagrid pada visual basic 6.0

lalu untuk bisa melihat outputnya kita harus masuk ke menu components yang ada pada visual basic 6.0
lalu setelah dimenu components kita ceklist yang ADO data control 6.0(OLEDB) dan DataGrid Control 6.0(OLEDB) setelah itu kita klik " OK " lalu akan muncul di sebelah kiri visual basic anda
setelah itu kita mulai mencoding nya untuk codingannya sebagai berikut :

Dim Koneksi As New ADODB.Connection
Dim mahasiswa As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set mahasiswa = New ADODB.Recordset
Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Datamaha.mdb"
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!npm = Text1.Text
Adodc1.Recordset!nama = Text2.Text
Adodc1.Recordset!jk = Text3.Text
Adodc1.Recordset!agama = Text4.Text
Adodc1.Recordset!alamat = Text5.Text
Adodc1.Recordset!nohp = Text6.Text
Adodc1.Recordset!fakultas = Text7.Text
Adodc1.Recordset!jurusan = Text8.Text
Adodc1.Recordset!kelas = Text9.Text
DataGrid1.Refresh
End Sub

Private Sub Command2_Click()
Adodc1.Recordset!npm = Text1.Text
Adodc1.Recordset!nama = Text2.Text
Adodc1.Recordset!jk = Text3.Text
Adodc1.Recordset!agama = Text4.Text
Adodc1.Recordset!alamat = Text5.Text
Adodc1.Recordset!nohp = Text6.Text
Adodc1.Recordset!fakultas = Text7.Text
Adodc1.Recordset!jurusan = Text8.Text
Adodc1.Recordset!kelas = Text9.Text
DataGrid1.Refresh
End Sub

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

Private Sub Command4_Click()
Call BukaDB
mahasiswa.Open "select * from tb_mahasiswa where nama like '%" & Text10 & "%'", Koneksi
        If Not mahasiswa.EOF Then
                Adodc1.RecordSource = "select * from tb_mahasiswa where nama like '%" & Text10 & "%'"
                Adodc1.Refresh
                Set DataGrid1.DataSource = Adodc1
        End If
End Sub

Private Sub exit_Click()
End
End Sub

Private Sub Form_Load()
Call BukaDB
Adodc1.ConnectionString = Koneksi
Adodc1.RecordSource = "tb_mahasiswa"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub home_Click()
Form2.Show
Unload Me
End Sub