kode program

Form Data Mahasiswa

Private Sub Command1_Click()

rsmahasiswa.Recordset.MoveFirst

Tampil

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

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

Form Data Dosen

Private Sub Command1_Click()

rsdosen.Recordset.MoveFirst

cim

End Sub

Private Sub Command2_Click()

rsdosen.Recordset.MovePrevious

If rsdosen.Recordset.BOF Then

    MsgBox ("Ini Data Pertama")

    rsdosen.Recordset.MoveFirst

End If

cim

End Sub

Private Sub Command3_Click()

rsdosen.Recordset.MoveNext

If rsdosen.Recordset.EOF Then

    MsgBox ("Ini data Terakhir")

    rsdosen.Recordset.MoveLast

End If

cim

End Sub

Private Sub Command4_Click()

rsdosen.Recordset.MoveLast

cim

End Sub

Private Sub Form_Load()

rsdosen.Refresh

cim

End Sub

Private Sub cim()

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

Form Pencarian Data Mahasiswa

Private Sub Command1_Click()

On Error Resume Next

rsmahasiswa.CommandType = adCmdText

rsmahasiswa.RecordSource = Text1

rsmahasiswa.Refresh

Text2 = rsmahasiswa.Recordset.RecordCount

End Sub

Form Pencarian Data Dosen

Private Sub Command1_Click()

On Error Resume Next

rsdosen.CommandType = adCmdText

rsdosen.RecordSource = Text1

rsdosen.Refresh

Text2 = rsmahasiswa.Recordset.RecordCount

End Sub

Data Matakuliah

Private Sub Command1_Click()

mata

rsmatakuliah.Recordset.MoveFirst

End Sub

Private Sub mata()

Text1 = rsmatakuliah.Recordset.Fields(0)

Text2 = rsmatakuliah.Recordset.Fields(1)

Combo1 = rsmatakuliah.Recordset.Fields(2)

End Sub

Private Sub Command2_Click()

mata

rsmatakuliah.Recordset.MovePrevious

If rsmatakuliah.Recordset.BOF Then

    MsgBox "Ini data Pertama"

    rsmatakuliah.Recordset.MoveFirst

End If

mata

End Sub

Private Sub Command3_Click()

rsmatakuliah.Recordset.MoveNext

If rsmatakuliah.Recordset.EOF Then

    MsgBox "ini data terakhir"

    rsmatakuliah.Recordset.MoveLast

End If

mata

End Sub

Private Sub Command4_Click()

rsmatakuliah.Recordset.MoveLast

mata

End Sub

Private Sub Command5_Click()

rsmatakuliah.Refresh

End Sub

Private Sub Form_Load()

rsmatakuliah.Refresh

mata

End Sub

Form Pencarian Matakuliah

Private Sub Command1_Click()

On Error Resume Next

rsmatakuliah.CommandType = adCmdText

rsmatakuliah.RecordSource = Text1

rsmatakuliah.Refresh

Text2 = rsmatakuliah.Recordset.RecordCount

End Sub

Form Login

Private Sub Command1_Click()

If Text1 = "" Then

MsgBox ("Username Tidak Boleh Kosong")

Text1.SetFocus

Exit Sub

End If

If Text2 = "" Then

MsgBox ("Username Tidak Boleh Kosong")

Text2.SetFocus

Exit Sub

End If

rslogin.CommandType = adCmdText

rslogin.RecordSource = "select * from bagian where username='" &Text1& "' and password="'& text2 &""'

End Sub

Form Simpan mahasiswa

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 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 di edit")

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 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(6) = Text7

rsmahasiswa.Recordset.Fields(7) = Text8

rsmahasiswa.Recordset.Fields(8) = Text9

rsmahasiswa.Recordset.Update

MsgBox ("Data Telah Tersimpan")

rsmahasiswa.Refresh

tampildata

End Sub

Private Sub Form_Load()

Text1 = Clear

Cmdsimpan.Enabled = False

Cmdedit.Enabled = False

Cmdhapus.Enabled = False

bersih

rsmahasiswa.Refresh

Text1.MaxLength = 7

Text6.MaxLength = 2

Text9.MaxLength = 3

End Sub

Private Sub bersih()

Text2 = Clear

Text3 = Clear

Text4 = Clear

Text6 = Clear

Text7 = Clear

Text8 = Clear

Text9 = Clear

End Sub

Private Sub Text1_Change()

Dim panjang As Byte

panjang = Len(Text1)

If panjang < 7 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 tampildata()

rsmahasiswa.CommandType = adCmdText

rsmahasiswa.RecordSource = "select * from mahasiswa"

rsmahasiswa.Refresh

DataGrid1.Refresh

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

    Text5.SetFocus

End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Text6.SetFocus

End If

End Sub

Form  simpan Mata Kuliah

Private Sub Cmdbaru_Click()

matakuliah

End Sub

Private Sub Cmdbatal_Click()

matakuliah

End Sub

Private Sub matakuliah()

Text1 = Clear

Text2 = Clear

End Sub

Private Sub Cmdhapus_Click()

matakuliah

rsmatakuliah.Recordset.Delete

End Sub

Private Sub Cmdsimpan_Click()

If Text1 = "" Then

    MsgBox ("ID Harap Diisi")

    Exit Sub

End If

If Text2 = "" Then

    MsgBox ("Mata kuliah Harap Diisi")

    Exit Sub

End If

rsmatakuliah.Recordset.AddNew

rsmatakuliah.Recordset.Fields(0) = Text1

rsmatakuliah.Recordset.Fields(1) = Text2

rsmatakuliah.Recordset.Fields(2) = Combo1

rsmatakuliah.Recordset.Update

MsgBox ("Data Telah Tersimpan")

rsmatakuliah.Refresh

End Sub

Private Sub Form_Load()

Text1.MaxLength = 7

End Sub

 Form simpan Dosen

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 Cmdedit_Click()

rsdosen.Recordset.Fields(1) = Text2

rsdosen.Recordset.Fields(2) = Text3

rsdosen.Recordset.Fields(3) = Text4

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

rsdosen.Recordset.Fields(5) = Text6

rsdosen.Recordset.Fields(6) = Text7

rsdosen.Recordset.Fields(7) = Text8

rsdosen.Recordset.Fields(8) = Text9

rsdosen.Recordset.Update

MsgBox ("Data Telah di edit")

rsdosen.Refresh

tampildata

End Sub

Private Sub Cmdhapus_Click()

B = MsgBox("Yakin Akan Dihapus", vbYesNo, "")

If B = vbYes Then

    rsdosen.Recordset.Delete

    rsdosen.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 Cmdsimpan_Click()

If Text1 = "" Then

    MsgBox ("NID Harap Diisi")

    Exit Sub

End If

If Text2 = "" Then

    MsgBox ("Nama Harap Diisi")

    Exit Sub

End If

rsdosen.Recordset.AddNew

rsdosen.Recordset.Fields(1) = Text2

rsdosen.Recordset.Fields(2) = Text3

rsdosen.Recordset.Fields(3) = Text4

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

rsdosen.Recordset.Fields(5) = Text6

rsdosen.Recordset.Fields(6) = Text7

rsdosen.Recordset.Fields(7) = Text8

rsdosen.Recordset.Fields(8) = Text9

rsdosen.Recordset.Update

MsgBox ("Data Telah Tersimpan")

rsdosen.Refresh

End Sub

Private Sub tampildata()

rsdosen.CommandType = adCmdText

rsdosen.RecordSource = "select * from dosen"

rsdosen.Refresh

DataGrid1.Refresh

End Sub

Private Sub Form_Load()

Text1 = Clear

Cmdsimpan.Enabled = False

Cmdedit.Enabled = False

Cmdhapus.Enabled = False

bersih

rsdosen.Refresh

Text1.MaxLength = 6

Text6.MaxLength = 2

Text9.MaxLength = 3

End Sub

Private Sub bersih()

Text2 = Clear

Text3 = Clear

Text4 = Clear

Text6 = Clear

Text7 = Clear

Text8 = Clear

Text9 = Clear

End Sub

Private Sub Text1_Change()

Dim panjang As Byte

panjang = Len(Text1)

If panjang < 7 Then

    Exit Sub

End If

rsdosen.CommandType = adCmdText

rsdosen.RecordSource = "select * from dosen where NID= '" & Text1 & "'"

rsdosen.Refresh

If Not rsdosen.Recordset.EOF Then

    MsgBox ("NID sudah ada")

Text2 = rsdosen.Recordset.Fields(1)

Text3 = rsdosen.Recordset.Fields(2)

Text4 = rsdosen.Recordset.Fields(3)

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

Text6 = rsdosen.Recordset.Fields(5)

Text7 = rsdosen.Recordset.Fields(6)

Text8 = rsdosen.Recordset.Fields(7)

Text9 = rsdosen.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

End If

    Text4.SetFocus

End Sub

 Form Menu

Private Sub Form_Load()

mdata.Visible = False

mtransaksi.Visible = False

mlaporan.Visible = False

End Sub

Private Sub mdosen_Click()

frmdosen.Show

End Sub

Private Sub mkuliah_Click()

frmmatakuliah.Show

End Sub

Private Sub mlatihan1_Click()

frmlat1.Show

End Sub

Private Sub mlatihan2_Click()

frmlat2.Show

End Sub

Private Sub mlatihan3_Click()

frmlat3.Show

End Sub

Private Sub mlatihan4_Click()

frmlat4.Show

End Sub

Private Sub mlatihan5_Click()

frmlat5.Show

End Sub

Private Sub mlatihan6_Click()

frmlat6.Show

End Sub

Private Sub mlatihan7_Click()

frmlat7.Show

End Sub

Private Sub mlatihan8_Click()

frmmatakuliah.Show

End Sub

Private Sub mlogin_Click()

frmlogin.Show

End Sub

Private Sub mmahasiswa_Click()

frmmahasiswa.Show

End Sub