Membuat Program Sederhana Dengan Menggunakan Visual Basic 6.0

Note : Khusus buat “Pemula”, Yang “Proffesional” juga boleh koq, …. Hhehe…..

Yuuk Kita Mulai……!!!

1.    Form Menu

·         Klik kanan pada Form, pilih Menu Editor.

 

·         Lalu isi Menu2 yang akan di buat.

 

 

Private Sub Form_Load()

frmmenu.mdata.Visible = False

frmmenu.mtransaksi.Visible = False

frmmenu.mlaporan.Visible = False

End Sub

Private Sub mcdosen_Click()

frmpcdosen.Show

End Sub

Private Sub mcmahasiswa_Click()

frmpcmahasiswa.Show

End Sub

Private Sub mdosen_Click()

frmdosen.Show

End Sub

Private Sub mlogin_Click()

frmlogin.Show

End Sub

Private Sub mlogout_Click()

frmmenu.mdata.Visible = False

frmmenu.mtransaksi.Visible = False

frmmenu.mlaporan.Visible = False

frmmenu.mlogin.Visible = True

frmmenu.mlogout.Visible = False

End Sub

Private Sub mmahasiswa_Click()

frmmahasiswa.Show

End Sub

Private Sub mselesai_Click()

frmmenu.Hide

End Sub

Private Sub msmahasiswa_Click()

frmsvmahasiswa.Show

End Sub

Private Sub Timer1_Timer()

Text1 = Format(Now, "DD/MM/YY")

Text2 = Format(Now, "HH.MM.SS")

End Sub

 

2.    Form Mahasiswa

 

·         Di “ADODC” – RSMAHASISWA, klik kanan pilih ADODC properties.

 

 

Private Sub Command1_Click()

RSMAHASISWA.Recordset.MoveFirst

TAMPIL

End Sub

Private Sub TAMPIL()

Text1 = RSMAHASISWA.Recordset.Fields(0)

Text2 = RSMAHASISWA.Recordset.Fields(1)

Text3 = RSMAHASISWA.Recordset.Fields(2)

Text4 = RSMAHASISWA.Recordset.Fields(3)

Text5 = RSMAHASISWA.Recordset.Fields(4)

Text6 = RSMAHASISWA.Recordset.Fields(5)

Text7 = RSMAHASISWA.Recordset.Fields(6)

Text8 = RSMAHASISWA.Recordset.Fields(7)

Text9 = RSMAHASISWA.Recordset.Fields(8)

End Sub

Private Sub Command2_Click()

RSMAHASISWA.Recordset.MovePrevious

If RSMAHASISWA.Recordset.BOF Then

    MsgBox ("Ini Data Pertama")

    RSMAHASISWA.Recordset.MoveFirst

End If

TAMPIL

End Sub

Private Sub Command3_Click()

RSMAHASISWA.Recordset.MoveNext

If RSMAHASISWA.Recordset.EOF Then

    MsgBox ("Ini Data Terakhir")

    RSMAHASISWA.Recordset.MoveLast

End If

TAMPIL

End Sub

Private Sub Command4_Click()

RSMAHASISWA.Recordset.MoveLast

TAMPIL

End Sub

Private Sub Command5_Click()

RSMAHASISWA.Refresh

End Sub

Private Sub Form_Load()

RSMAHASISWA.Refresh

TAMPIL

End Sub

 

3.    Form Dosen

 

Private Sub Command1_Click()

RSDOSEN.Recordset.MoveFirst

TIMBUL

End Sub

Private Sub TIMBUL()

Text1 = RSDOSEN.Recordset.Fields(0)

Text2 = RSDOSEN.Recordset.Fields(1)

Text3 = RSDOSEN.Recordset.Fields(2)

Text4 = RSDOSEN.Recordset.Fields(3)

Text5 = RSDOSEN.Recordset.Fields(4)

Text6 = RSDOSEN.Recordset.Fields(5)

Text7 = RSDOSEN.Recordset.Fields(6)

Text8 = RSDOSEN.Recordset.Fields(7)

Text9 = RSDOSEN.Recordset.Fields(8)

End Sub

Private Sub Command2_Click()

RSDOSEN.Recordset.MovePrevious

If RSDOSEN.Recordset.BOF Then

    MsgBox ("Ini Data Pertama")

    RSDOSEN.Recordset.MoveFirst

End If

TIMBUL

End Sub

Private Sub Command3_Click()

RSDOSEN.Recordset.MoveNext

If RSDOSEN.Recordset.EOF Then

    MsgBox ("Ini Data Terakhir")

    RSDOSEN.Recordset.MoveLast

End If

TIMBUL

End Sub

Private Sub Command4_Click()

RSDOSEN.Recordset.MoveLast

TIMBUL

End Sub

Private Sub Command5_Click()

RSDOSEN.Refresh

End Sub

Private Sub Form_Load()

RSDOSEN.Refresh

TIMBUL

End Sub

  

4.    Form Pencarian Mahasiswa

 

Private Sub Command1_Click()

On Error Resume Next

RSMAHASISWA.CommandType = adCmdText

RSMAHASISWA.RecordSource = Text2

RSMAHASISWA.Refresh

Text1 = RSMAHASISWA.Recordset.RecordCount

End Sub

5.    Form Pencarian Dosen

 

Private Sub Command1_Click()

On Error Resume Next

RSDOSEN.CommandType = adCmdText

RSDOSEN.RecordSource = Text2

RSDOSEN.Refresh

Text1 = RSDOSEN.Recordset.RecordCount

End Sub

6.    Form Login

 

Private Sub Command1_Click()

If Text1 = "" Then

    MsgBox ("USER NAMA TIDAK BOLEH KOSONG")

Text1.SetFocus

Exit Sub

End If

If Text2 = "" Then

  MsgBox ("PASSWORD TIDAK BOLEH KOSONG")

Text2.SetFocus

Exit Sub

End If

RSLOGIN.CommandType = adCmdText

RSLOGIN.RecordSource = "select * from Login where username='" & Text1 & "' and kode='" & Text2 & "'"

RSLOGIN.Refresh

If RSLOGIN.Recordset.EOF Then

    MsgBox ("Username/Password Ada Kesalahan")

    Text1 = Clear

    Text2 = Clear

    Text1.SetFocus

Else

    MsgBox ("VERIFIKASI PASSWORD BENAR")

Unload Me

frmmenu.mdata.Visible = True

frmmenu.mtransaksi.Visible = True

frmmenu.mlaporan.Visible = True

End If

frmmenu.mlogin.Visible = False

frmmenu.mlogout.Visible = True

End Sub

Private Sub Command2_Click()

frmlogin.Hide

End Sub

Private Sub Form_Load()

frmlogin.Refresh

Text1 = Clear

Text2 = Clear

End Sub

7.  Form Penyimpanan Mahasiswa

 

Private Sub BERSIH()

Text2 = Clear

Text3 = Clear

Text4 = Clear

Text6 = Clear

Text7 = Clear

Text8 = Clear

Text9 = Clear

End Sub

Private Sub TAMPILDATA()

RSMAHASISWA.CommandType = adCmdText

RSMAHASISWA.RecordSource = "select * from mahasiswa"

RSMAHASISWA.Refresh

DataGrid1.Refresh

End Sub

Private Sub cmdbaru_Click()

BERSIH

Text1 = Clear

Text1.SetFocus

End Sub

Private Sub cmdbatal_Click()

BERSIH

TAMPILDATA

cmdhapus.Enabled = False

cmdedit.Enabled = False

cmdsimpan.Enabled = False

End Sub

Private Sub cmdcetak_Click()

Hadi.ReportFileName = App.Path + "/lapmahasiswa.rpt"

Hadi.RetrieveDataFiles

Hadi.WindowState = crptMaximized

Hadi.Action = 1

End Sub

Private Sub cmdedit_Click()

RSMAHASISWA.Recordset.Fields(1) = Text2

RSMAHASISWA.Recordset.Fields(2) = Text3

RSMAHASISWA.Recordset.Fields(3) = Text4

RSMAHASISWA.Recordset.Fields(4) = DTPicker1.Value

RSMAHASISWA.Recordset.Fields(5) = Text6

RSMAHASISWA.Recordset.Fields(6) = Text7

RSMAHASISWA.Recordset.Fields(7) = Text8

RSMAHASISWA.Recordset.Fields(8) = Text9

RSMAHASISWA.Recordset.Update

MsgBox ("Data Telah DiEdit")

RSMAHASISWA.Refresh

TAMPILDATA

End Sub

Private Sub cmdhapus_Click()

A = MsgBox("Yakin Akan Dihapus....??", vbYesNo, "")

If A = vbYes Then

    RSMAHASISWA.Recordset.Delete

    RSMAHASISWA.Refresh

Else

    Cancel = True

End If

    Text1 = Clear

    Text1.SetFocus

    cmdhapus.Enabled = False

    cmdedit.Enabled = False

    cmdsimpan.Enabled = False

    BERSIH

    TAMPILDATA

End Sub

Private Sub cmdselesai_Click()

frmsvmahasiswa.Hide

End Sub

Private Sub cmdsimpan_Click()

If Text1 = "" Then

    MsgBox ("NIS Harap Diisi")

    Exit Sub

End If

If Text2 = "" Then

    MsgBox ("Nama Harap Diisi")

    Exit Sub

End If

RSMAHASISWA.Recordset.AddNew

RSMAHASISWA.Recordset.Fields(0) = Text1

RSMAHASISWA.Recordset.Fields(1) = Text2

RSMAHASISWA.Recordset.Fields(2) = Text3

RSMAHASISWA.Recordset.Fields(3) = Text4

RSMAHASISWA.Recordset.Fields(4) = DTPicker1.Value

RSMAHASISWA.Recordset.Fields(5) = Text6

RSMAHASISWA.Recordset.Fields(6) = Text7

RSMAHASISWA.Recordset.Fields(7) = Text8

RSMAHASISWA.Recordset.Fields(8) = Text9

RSMAHASISWA.Recordset.Update

MsgBox ("Data Anda Telah Tersimpan")

RSMAHASISWA.Refresh

TAMPILDATA

End Sub

Private Sub DTPicker1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Text6.SetFocus

End If

End Sub

Private Sub Form_Load()

Text1 = Clear

cmdhapus.Enabled = False

cmdedit.Enabled = False

cmdsimpan.Enabled = False

BERSIH

RSMAHASISWA.Refresh

Text1.MaxLength = 5

Text6.MaxLength = 2

Text9.MaxLength = 3

End Sub

Private Sub Text1_Change()

Dim panjang As Byte

panjang = Len(Text1)

If panjang < 5 Then

    Exit Sub

End If

RSMAHASISWA.CommandType = adCmdText

RSMAHASISWA.RecordSource = "select * from mahasiswa where NIS='" & Text1 & "'"

RSMAHASISWA.Refresh

If Not RSMAHASISWA.Recordset.EOF Then

    MsgBox ("NIS Sudah Ada")

    Text2 = RSMAHASISWA.Recordset.Fields(1)

    Text3 = RSMAHASISWA.Recordset.Fields(2)

    Text4 = RSMAHASISWA.Recordset.Fields(3)

    DTPicker1.Value = RSMAHASISWA.Recordset.Fields(4)

    Text6 = RSMAHASISWA.Recordset.Fields(5)

    Text7 = RSMAHASISWA.Recordset.Fields(6)

    Text8 = RSMAHASISWA.Recordset.Fields(7)

    Text9 = RSMAHASISWA.Recordset.Fields(8)

    cmdsimpan.Enabled = False

    cmdhapus.Enabled = True

    cmdedit.Enabled = True

Else

    BERSIH

    Text2.SetFocus

    cmdsimpan.Enabled = True

    cmdhapus.Enabled = False

    cmdedit.Enabled = False

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Text3.SetFocus

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Text4.SetFocus

End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    DTPicker1.SetFocus

End If

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Text7.SetFocus

End If

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Text8.SetFocus

End If

End Sub

Private Sub Text8_Change()

If KeyAscii = 13 Then

    Text9.SetFocus

End If

End Sub

Ok….. Good Luck…..

Sbnernya Masih Banyak yang perlu dijelasin, py untuk lebih lengkapnya datang ja ke rumah ya...... hhe......

Mohon Komentar a…….

Mohon Koreksinya Juga yaaaa….

Hadi Sucipto

Computer Information Management (CIM)

PII Komputindo '12