Pada postingan kali ini saya akan membahas cara membuat form dosen sederhana dengan menggunakan VB 6.0

 

 

                                                           Tampilannya seperti ini

-          Langkah pertama adalah membuat databasenya di MS ACCESS dengan isi tabel :
      NIDN (Primary Key)
      Nama
      Tanggal Lahir
      Alamat
      Dosen MK
      No telepon

-          Buka program VB buat form dengan data dosen

-          Kemudian buat formnya seperti di atas dengan listing programnya seperti berikut

Private Sub Command1_Click()

If TxtNIDN.Text = "" Then

    MsgBox "Maaf nidn harus di isi"

    Exit Sub

End If

If TxtNAMA.Text = "" Then

    MsgBox "Maaf nama harus di isi"

    Exit Sub

End If

    Adodc1.RecordSource = "SELECT * FROM DOSEN WHERE NIDN = '" & TxtNIDN.Text & "'"

    Adodc1.Refresh

    With Adodc1.Recordset

        If Not .EOF Then

            MsgBox "MAAF NIDN INI SUDAH ADA"

            Exit Sub

        End If

            .AddNew

            .Fields("NIDN") = TxtNIDN.Text

            .Fields("NAMA") = TxtNAMA.Text

            .Fields("TANGGAL LAHIR") = Text3.Text

            .Fields("ALAMAT") = Text4.Text

            .Fields("DOSEN MK") = Text5.Text

            .Fields("NO TELEPON") = Text6.Text

            .Update

    End With

    Adodc1.Refresh

    Adodc1.RecordSource = "SELECT * FROM DOSEN"

    Adodc1.Refresh

    DataGrid1.ReBind

    DataGrid1.Refresh

End Sub

Private Sub Command2_Click()

If TxtNIDN.Text = "" Then

    MsgBox "Maaf nidn harus di isi"

    Exit Sub

End If

    Adodc1.RecordSource = "Select * From Dosen Where NIDN = '" & TxtNIDN.Text & "'"

    Adodc1.Refresh

    With Adodc1.Recordset

        If Not .EOF Then

            .Delete

        End If

    End With

    Adodc1.Refresh

    Adodc1.RecordSource = "SELECT * FROM DOSEN"

    Adodc1.Refresh

    DataGrid1.ReBind

    DataGrid1.Refresh

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Form_Load()

    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

    "Data Source=" & App.Path & "\Data.mdb;" & _

    "Persist Security Info=False"

    Adodc1.RecordSource = "Select * From Dosen"

    Adodc1.Refresh

End Sub

Private Sub TxtNIDN_Change()

    Adodc1.RecordSource = "Select * From Dosen Where Nidn = '" & TxtNIDN.Text & "'"

    Adodc1.Refresh

    With Adodc1.Recordset

        If Not .EOF Then

            TxtNAMA.Text = .Fields("NAMA")

            Text3.Text = .Fields("TANGGAL LAHIR")

            Text4.Text = .Fields("ALAMAT")

            Text5.Text = .Fields("DOSEN MK")

            Text6.Text = .Fields("NO TELEPON")

        Else

            TxtNAMA.Text = ""

            Text3.Text = ""

            Text4.Text = ""

            Text5.Text = ""

            Text6.Text = ""

        End If

    End With

End Sub