Assalammualaikum Wr Wb,, Jumpa lagi pada postingan lanjutan Visual Basic dasar dalam membuat program Entri Mahasiswa. Dimana pada postingan sebelumnya yaitu Program Entri Jurusan, sudah dijabarkan Scriptnya.
Kini saya akan mengulas sedikit tentang pembuatan Program Entri Mahasiswa dengan Visual Basic yang terkoneksi Sql 2000. Tapi ini hanya script sederhana, yang masih banyak kekurangan pada tampilan maupun programnya.
Langkah Pertama kita buatkan dahulu Table untuk menyimpan record pada database Akademik yang sudah dibuat sebelumnya di Sql 2000, mudahnya kita namakan saja Table Mahasiswa
Sebagai koneksi database Sql 2000 dengan Form pada Visual Basic, maka langkah awalnya dan
tidak boleh terlewatkan adalah
membuat module.
Dan dibawah ini syntax pada module
Module
Public conn As New ADODB.Connection
Public hub As New ADODB.Connection
Public rec As New ADODB.Recordset
Public rs As New ADODB.Recordset
Public isq As String
Public Sub hubungan()
Set conn = New ADODB.Connection
conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Akademik;Data Source=AZAM-PC"
End Sub
Public Sub formattampil()
Set rs = New ADODB.Recordset
rs.AddNew "rovider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Akademik;Data Source=AZAM-PC"
End Sub
Lalu kita masuk pada pembuatan Form
Untuk Menampilkan Form dengan database yang kita koneksikan ke Sql Server
Dimana koneksi tersebut terdapat di Table Jurusan
maka dibuatkan Form Activate
Private Sub Form_Activate()
bersih
isq = "select count(kd_jurusan) as jumdata from jurusan"
formattampil
isq = "select*from jurusan"
tampildata
End Sub
Untuk Memanggil koneksi yang sudah kita buat di Modul
Maka kita harus membuat Private Sub Form Load
dan berikut Syntax untuk Form Load
Private Sub Form_Load()
hubungan
formattampil
tampiljurusan
End Sub
Untuk membuat tampilan text yang sudah ada di Form menjadi kosong, maka terlebih dahulu dibuatkan
Private Sub Bersih agar kursor langsung berada di Test pertama
Private Sub bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text1.SetFocus
Command1.Caption = "&Tambah"
Command2.Caption = "&Ubah"
End Sub
Kemudian jangan lupa untuk membuat Private Sub lokal yang berguna untuk mengembalikan tampilan Form
setelah proses Entry dijalankan
dan Dibawah ini syntaxnya
Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
DTPicker1.Enabled = True
List1.Enabled = True
Combo1.Enabled = True
End Sub
Juga untuk mengembalikan Fungsi semua Command kembali normal, maka syntaxnya ada dibawah ini
Private Sub netral()
Command1.Caption = "&Tambah"
Command4.Caption = "&Ubah"
Command3.Caption = "&Hapus"
Command4.Caption = "&Keluar"
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
List1.Visible = False
End Sub
Kemudian kita mulai masuk pada Syntax entri data Mahasiswa
Pertama di buatkan dulu syntax pada Command 1 yang berfungsi untuk menambah/membuat
Record baru ke database Mahasiswa
Private Sub Command1_Click()
If Command1.Caption = "&Tambah" Then
Call bersih
Call aktif
Command1.Caption = "&Simpan"
Command2.Enabled = False
Command3.Enabled = Fals
Command4.Caption = "&Batal"
Else
isq = "insert into mahasiswa (NPM,Namamhs,tempatlhr,tgllhr,alamat,telp,jurusan)values ('" & Trim(Text1) & "','" & Trim(Text2) & "','" & Trim(Text3) & "','" & Format(DTPicker1.Value, "mm/dd/yyyy") & "','" & Trim(Text4) & "','" & Trim(Text5) & "','" & Trim(Text6) & "')"
Set rs = conn.Execute(isq)
Call bersih
Call formattampil
Call netral
End If
End Sub
Setelah itu tampilan akan kembali normal setelah kita Klick Button Simpan
Untuk Merubah record yang sudah ada di database, kita perlu membuatkan Syntaxnya pada Command 2
dibawah ini Syntaxnya
Private Sub Command2_Click()
If Command2.Caption = "&Ubah" Then
Call bersih
Command2.Caption = "&Simpan"
Command1.Enabled = False
Command3.Enabled = False
Command4.Caption = "&Batal"
Else
isq = "update mahasiswa set Namamhs='" & Trim(Text2) & "',Tempatlhr='" & Trim(Text3) & "',TglLhr='" & Format(DTPicker1.Value, "mm/dd/yyyy") & "' ,alamat='" & Trim(Text4) & "',Telp='"&tTrim(Text5) &"',Jurusan='" & Trim(Text6) & "' where NPM='" & Trim(Text1) & "'"
Set rs = conn.Execute(isq)
Call bersih
Call formattampil
Call netral
End If
End Sub
Untuk menghapus Record pada database Mahasiswa yang sudah dibuat, maka dibuatkan dahulu Syntaxnya
dan dibawah ini adalah Syntax pada Command 3 untuk Hapus record
Private Sub Command3_Click()
If Command3.Caption = "&Hapus" Then
bersih
Command3.Caption = "&Oke"
Command1.Enabled = False
Command2.Enabled = False
Command4.Caption = "&Batal"
Else
isq = "delete from mahasiswa where NPM like '" & Text1.Text & "'"
Set rs = conn.Execute(isq)
Call bersih
Call formattampil
netral
End If
End Sub
Private Sub Command 4 berguna untuk Keluar dari Program yang sedang dijalankan
Private Sub Command4_Click()
If Command4.Caption = "&Keluar" Then
Unload Me
Else
Call netral
Call bersih
End If
End Sub
Ketika membuat program Entri data untuk koneksi ke Database Sql 2000,
biasanya admin menggunakan MSFHFlexygrid sebagai table bantu untuk menampilkan Record Entry
dan terlebih dahulu dibuatkan format tampilan table MSF tersebut
Private Sub formattampil()
isq = "select count(NPM) as jumdata from mahasiswa"
Set rs = conn.Execute(isq)
List1.Clear
List1.Visible = False
If Not rs.EOF Then
MSF1.Rows = rs!jumdata + 1
End If
MSF1.Cols = 8
MSF1.ColWidth(0) = 400
MSF1.ColWidth(1) = 1000
MSF1.ColWidth(2) = 1500
MSF1.ColWidth(3) = 1000
MSF1.ColWidth(4) = 1200
MSF1.ColWidth(5) = 3000
MSF1.ColWidth(6) = 1000
MSF1.ColWidth(7) = 1000
MSF1.TextMatrix(0, 0) = "NO"
MSF1.TextMatrix(0, 1) = "NPM"
MSF1.TextMatrix(0, 2) = "nama"
MSF1.TextMatrix(0, 3) = "Tempat lahir"
MSF1.TextMatrix(0, 4) = "Tanggal Lahir"
MSF1.TextMatrix(0, 5) = "Alamat"
MSF1.TextMatrix(0, 6) = "Telephone"
MSF1.TextMatrix(0, 7) = "Jurusan"
tampildata
End Sub
Dibawah Ini syntax untuk koneksi database Jurusan ke Combo Button pada Visual Basic,
agar kita bisa memilih kode jurusan di command button
Private Sub tampiljurusan()
isq = "select* from jurusan"
Set rec = conn.Execute(isq)
With rec
If Not .EOF Then
.MoveFirst
Do While Not .EOF
Combo1.AddItem !kd_jurusan & "" & !nama_jurusan
.MoveNext
Loop
End If
End With
End Sub
Dibawah Ini syntax untuk koneksi database Mahasiswa ke table MSF pada Visual Basic
Private Sub tampildata()
Dim r As Integer
r = 1
isq = "select *from mahasiswa"
Set rs = conn.Execute(isq)
With rs
If Not .EOF Then
.MoveFirst
Do While Not .EOF
MSF1.TextMatrix(r, 0) = r
MSF1.TextMatrix(r, 1) = Trim(!NPM)
MSF1.TextMatrix(r, 2) = Trim(!Namamhs)
MSF1.TextMatrix(r, 3) = Trim(!tempatlhr)
MSF1.TextMatrix(r, 4) = Trim(!tgllhr)
MSF1.TextMatrix(r, 5) = Trim(!alamat)
MSF1.TextMatrix(r, 6) = Trim(!telp)
MSF1.TextMatrix(r, 7) = Trim(!jurusan)
r = r + 1
.MoveNext
Loop
Else
End If
End With
End Sub
Lalu untuk mencari kode jurusan, kita tambahkan List 1
Private Sub List1_Click()
Text6.Text = Left(List1, 3)
List1.Visible = False
End Sub
Lalu untuk menampilkan jurusan yang kita pilih di List 1 agar tampil di Table Msf yang ada,
maka dibuatkan terlebih dahulu Private Sub lokal.
dimana jika text 6 kita ketik nama jurusan maka list satu akan munculkan Kode jurusannya
Private Sub Text6_Change()
isq = "select* from jurusan where nama_jurusan like '%" & Trim(Text6) & "%'"
Set rec = conn.Execute(isq)
With rec
If Not .EOF Then
List1.Clear
List1.Visible = True
.MoveFirst
Do While Not .EOF
List1.AddItem !kd_jurusan & "" & !nama_jurusan
.MoveNext
Loop
End If
End With
End Sub
Untuk menampilkan pesan bila data record yang kita entri sudah ada ataupun sebaliknya
maka kita bisa membuatkannya melalui Message Box
Dibawah ini scriptnya
Private Sub text1_keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
isq = "select* from mahasiswa where npm='" & Trim(Text1) & "'"
Set rec = conn.Execute(isq)
With rec
If Not .EOF Then
"jika data ada dan dalam proses tambah data"
If Command1.Caption = "&Simpan" Then
MsgBox "Data Sudah Ada", vbCritical + vbOKOnly, "Tambah Data"
bersih
Dan tampilannya akan seperti ini
Else
"jika data ada dalam proses ubah dan hapus"
"data, data di tampilkan"
Text2.Text = !namamhs
Text2.SetFocus
End If
Else
"jika data tidak ada dan dalam proses tambah data"
If Command1.Caption = "&Simpan" Then
Text2.SetFocus
Else
"jika data ada dalam proses ubah dan hapus"
MsgBox "Anda Belum Beruntung", vbCritical + vbOKOnly, "Data Tidak Ada"
bersih
Dan tampilan akan seperti ini
End If
End If
End With
End If
End Sub
Sekian postingan saya kali ini,,untuk Para programer senior Mohon bantuannya dalam kesempurnaan pembuatan program diatas.
Jumpa lagi pada Postingan selanjutnya,,thanks for visit my blog
Wassalammualaikum Wr Wb.