RSS

Pemrograman ( VB )

11:48:00 am | Labels:


MEMBUAT PROGRAM FORM MAHASISWA
(VB + MySQL)
Nah, saat ini saya menjelaskan tentang langkah-langkah membuat program yang berhubungan dengan nilai mahasiswa. Disini saya menggunakan wamp5 dan MySQL ODBC 3.51. Bagi yang belum ada, silakan di install dulu yah..bagi yang udah ada ayo belajar mencobanya.
Berikut ikuti ya…..
1.      Buat dulu database dengan 3 tabel yaitu table biodata, table matakuliah, dan table nilai. Masing-masing table terdiri dari 3 kolom.
Pada table biodat entry kan sbb dan jadikan nim sbg primary key:
Field
Type
Nim
Varchar(20)
Nama
Varchar(30)
Alamat
Varchar(50)

Pada table matakuliah entry kan sbb dan jadikan kodemtk sbg primary key:
Field
Type
Kodemtk
Varchar(10)
Namamtk
Varchar(20)
Jumsks
Int(11)

Pada table nilai entry kan sbb dan jadikan nim serta kodemtk sbg primary key:
Field
Type
Nim
Varchar(20)
Kodemtk
Varchar(20)
Nilai
Int(11)

2.       Koneksikan database tsb melalui connector ODBC 3,51. Langkah2nya :
Þ    Control panel > system and security > administrative tool > data source (ODBC) > add > MySQL ODBC 3.51 Driver > finish.
Þ    Kemudian isi DSN nya terserah yang penting di ingat eaaahhh
Þ    Servernya isi dengan localhost
Þ    Usernya isi dengan root
Þ    Pilih apa nama database anda buat tadi.
3.      Silakan dibuka Microsoft Visual Basic nya. Open 1 form dan 1 module. Pada form di buat 4 buah label, 4 textbox, 6 buah commondbuttom, 1 buah datagrid, dan 1 buah adodc. Seperti pada table dibawah ini:
Tool
caption
name
text
Textbox

txtnim
dikosongkan
Textbox

txtnama
dikosongkan
Textbox

txtalamat
dikosongkan
Textbox

txtfind
dikosongkan
Label
NIM


Label
NAMA


Label
ALAMAT


Label
BIODATA MAHASISWA


commondbuttom
FIND
cmdfind

commondbuttom
SAVE
cmdsave

commondbuttom
EDIT
cmdedit

commondbuttom
EXIT
cmdexit

commondbuttom
DELETE
cmddelete


4.      Pada module di ketikan ini yaaa….
Public conn As ADODB.Connection
Public rsbiodata As ADODB.Recordset
Public rsmatakuliah As ADODB.Recordset
Public rsnilai As ADODB.Recordset
Public sqlstr As String

Sub bukakoneksi()
Set conn = New ADODB.Connection
If conn.State = 1 Then conn.Close
conn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=biodatku"
End Sub

Sub bukarecordset(sqlstr As String)
If rsbiodata.State = 1 Then rsbiodata.Close
rsbiodata.Open sqlstr, con, adOpenKeyset, adLockOptimistic, adCmdText
If rsmatakuliah.State = 1 Then rsmatakuliah.Close
rsmatakuliah.Open sqlstr, conn, adOpenKeyset, adLockOptimistic, adCmdText
If rsnilai.State = 1 Then rsnilai.Close
rsnilai.Open sqlstr, conn, adOpenKeyset, adLockOptimistic, adCmdText
End Sub

Sub koneksisql(sqlstr As String)
conn.Execute sqlstr
End Sub
5.      Pada form codingnya sbb:
Private Sub cmdcancel_Click()
bersih
End Sub

Private Sub cmddelete_Click()
X = MsgBox("Yakin Data di Hapus?", vbYesNo, "Hapus Data")
If X = vbYes Then
koneksisql "delete from biodata where nim='" & txtnim.Text & "'"
bersih
tampildata
Else
Exit Sub
bersih
End If
End Sub

Private Sub cmdedit_Click()
X = MsgBox("Yakin Data di Edit..?", vbYesNo, "Edit Data")
If X = vbYes Then
koneksisql "update biodata set nim='" & txtnim.Text & "',nama='" & txtnama.Text & "',alamat='" & txtalamat.Text & "' where nim='" & txtnim.Text & "'"
tampildata
bersih
End If
End Sub

Private Sub cmdfind_Click()
sqlstr = "select * from biodata where nim='" & LTrim(txtfind.Text) & "'"
Set rsbiodata = conn.Execute(sqlstr)
If rsbiodata.EOF Then
  MsgBox "Maaf Data Tidak Ada...!"
  bersih
Else
 txtnim.Text = rsbiodata!nim
 txtnama.Text = rsbiodata!nama
 txtalamat.Text = rsbiodata!alamat
 End If
End Sub

Private Sub cmdsave_Click()
X = MsgBox("Yakin Data Akan di Simpan?", vbYesNo, "Save Data")
If X = vbYes Then
koneksisql "insert into biodata values('" & txtnim.Text & "','" & txtnama.Text & "','" & txtalamat.Text & "')"
tampildata
bersih
Else
bersih
End If
End Sub
Sub bersih()
txtnim.Text = ""
txtnama.Text = ""
txtalamat.Text = ""
End Sub
Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub DataGrid1_Click()
txtnim.Text = DataGrid1.Columns(0)
txtnama.Text = DataGrid1.Columns(1)
txtalamat.Text = DataGrid1.Columns(2)
End Sub

Private Sub Form_Load()
bukakoneksi
tampildata
End Sub

Sub tampildata()
conn.CursorLocation = adUseClient
sqlstr = "select * from biodata"
Set rsbiodata = conn.Execute(sqlstr)
Set DataGrid1.DataSource = rsbiodata
End Sub
 JANGAN LUPA MENYIMPANNYA YA…..
6.      Ulangi lagi langkah 3 tadi untuk membuat tampilan form matakuliah…
7.      Pada form code nya ketikan sbb:
Private Sub cmdcancel_Click()
bersih
End Sub

Private Sub cmddelete_Click()
X = MsgBox("Yakin Data di Hapus?", vbYesNo, "Hapus Data")
If X = vbYes Then
koneksisql "delete from matakuliah where kodemtk='" & txtkode.Text & "'"
bersih
tampildata
Else
Exit Sub
bersih
End If
End Sub

Private Sub cmdedit_Click()
X = MsgBox("Yakin Data di Edit..?", vbYesNo, "Edit Data")
If X = vbYes Then
koneksisql "update matakuliah set kodemtk='" & txtkode.Text & "',namamtk='" & txtnama.Text & "',jumsks='" & txtjumsks.Text & "' where kodemtk='" & txtkode.Text & "'"
tampildata
bersih
End If
End Sub

Private Sub cmdfind_Click()
sqlstr = "select * from matakuliah where kodemtk='" & LTrim(txtfind.Text) & "'"
Set rsmatakuliah = conn.Execute(sqlstr)
If rsmatakuliah.EOF Then
  MsgBox "Maaf Data Tidak Ado...!"
  bersih
Else
 txtkode.Text = rsmatakuliah!kodemtk
 txtnama.Text = rsmatakuliah!namamtk
 txtjumsks.Text = rsmatakuliah!jumsks
 End If
End Sub

Private Sub cmdsave_Click()
X = MsgBox("Yakin Data Akan di Simpan?", vbYesNo, "Save Data")
If X = vbYes Then
koneksisql "insert into matakuliah values('" & txtkode.Text & "','" & txtnama.Text & "','" & txtjumsks.Text & "')"
tampildata
bersih
Else
bersih
End If
End Sub
Sub bersih()
txtkode.Text = ""
txtnama.Text = ""
txtjumsks.Text = ""
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub DataGrid1_Click()
txtkode.Text = DataGrid1.Columns(0)
txtnama.Text = DataGrid1.Columns(1)
txtjumsks.Text = DataGrid1.Columns(2)
End Sub

Private Sub Form_Load()
bukakoneksi
tampildata
End Sub

Sub tampildata()
conn.CursorLocation = adUseClient
sqlstr = "select * from matakuliah"
Set rsmatakuliah = conn.Execute(sqlstr)
Set DataGrid1.DataSource = rsmatakuliah
End Sub
JANGAN LUPA DISIMPAN LAGIIIII YA…..




Selanjutnya kita mau buat form ketiga dengan nama NILAI MAHASISWA,dimana form ini merupakan gabungan dari kedua form sebelumnya kira2 bentuknya sprti ne dech…

8.      Pada form code nya coba dech diketikan j yang ini:
Private Sub cbokode_Click()
sqlstr = "select * from matakuliah where kodemtk='" & cbokode.Text & "'"
Set rsmatakuliah = conn.Execute(sqlstr)
If Not rsmatakuliah.EOF Then
  txtnamamtk.Text = rsmatakuliah!namamtk
  txtjumsks.Text = rsmatakuliah!jumsks
End If
End Sub

Private Sub cbonim_Click()
sqlstr = "select * from biodata where nim='" & cbonim.Text & "'"
Set rsbiodata = conn.Execute(sqlstr)
If Not rsbiodata.EOF Then
  txtnama.Text = rsbiodata!nama
  txtalamat.Text = rsbiodata!alamat
End If
txtangka.SetFocus
End Sub

Private Sub cmdcancel_Click()
bersih
End Sub

Private Sub cmddelete_Click()
X = MsgBox("Yakin Data di Hapus?", vbYesNo, "Hapus Data")
If X = vbYes Then
koneksisql "delete from nilai where nim='" & cbonim.Text & "' and kodemtk='" & cbomtk.Text & "'"
bersih
tampildata
Else
Exit Sub
bersih
End If
End Sub

Private Sub cmdedit_Click()
X = MsgBox("Yakin Data di Edit..?", vbYesNo, "Edit Data")
If X = vbYes Then
koneksisql "update nilai set nim='" & cbonim.Text & "',kodemtk='" & cbomtk.Text & "',nilai='" & txtangka.Text & "' where nim='" & cbonim.Text & "' and kodemtk='" & cbokode.Text & "'"
tampildata
bersih
End If
End Sub

Private Sub cmdfind_Click()
sqlstr = "select * from nilai where nim='" & cbonim.Text & "' and kodemtk='" & cbokode.Text & "'"
Set rsnilai = conn.Execute(sqlstr)
If Not rsnilai.EOF Then
   cbonim.Text = rsnilai!nim
   cbokode.Text = rsnilai!kodemtk
   txtangka.Text = rsnilai!nilai
Else
  MsgBox "Data Tidak Ada...!"
  bersih
End If
End Sub

Private Sub cmdsave_Click()
X = MsgBox("Yakin Data Akan di Simpan?", vbYesNo, "Save Data")
If X = vbYes Then
koneksisql "insert into nilai values('" & cbonim.Text & "','" & cbokode.Text & "','" & Val(txtangka.Text) & "')"
tampildata
bersih
Else
bersih
End If
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub Form_Load()
bukakoneksi
isicbonim
isicbokode
tampildata
End Sub
Sub bersih()
cbonim.Text = ""
txtnama.Text = ""
txtalamat.Text = ""
cbokode.Text = ""
txtnamamtk.Text = ""
txtjumsks.Text = ""
txtangka.Text = ""
txthuruf.Text = ""
txtket.Text = ""
End Sub
Sub tampildata()
conn.CursorLocation = adUseClient
sqlstr = "select * from nilai"
Set rsnilai = conn.Execute(sqlstr)
Set DataGrid1.DataSource = rsnilai
End Sub
Sub isicbonim()
sqlstr = "select * from biodata"
Set rsbiodata = conn.Execute(sqlstr)
If Not rsbiodata.EOF Then 'jika ada
  rsbiodata.MoveFirst
  While Not rsbiodata.EOF
    cbonim.AddItem rsbiodata!nim
    rsbiodata.MoveNext
      Wend
End If
End Sub
Sub isicbokode()
sqlstr = "select * from matakuliah"
Set rsmatakuliah = conn.Execute(sqlstr)
If Not rsmatakuliah.EOF Then
  rsmatakuliah.MoveFirst
  While Not rsmatakuliah.EOF
    cbokode.AddItem rsmatakuliah!kodemtk
    rsmatakuliah.MoveNext
      Wend
End If
End Sub

Private Sub txtangka_Change()
If Val(txtangka.Text) >= 80 Then
   txthuruf.Text = "A"
   txtket.Text = "Lulus"
ElseIf Val(txtangka.Text) >= 70 Then
  txthuruf.Text = "B"
  txtket.Text = "Lulus"
Else
  txthuruf.Text = "C"
  txtket.Text = "Gagal"
End If
End Sub
Hmm…. Sekian dulu panduannya ea..kapan-kapan ditambah lagi dech..
Mudah2an berhasil ngerjain program yang satu ini ya…Amiieennnnn.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Posted by KURNIA RAMADHANI

0 comments:

Post a Comment

Subscribe to: Post Comments (Atom)