CARA MEMBUAT FORM JENIS KERUSAKAN MENGGUNAKAN VISUAL BASIC 6

1. Buka/Buat file database DBMOTOR.MDB

2. Buat struktur table, simpan dengan nama JENIS

    

3. Tutup program MS Access

4. Double klik file PRMOTOR.VBP untuk membuka project PRMOTOR

5. Klik menu Project => Add Form => Open untuk menambah form baru

6. Klik menu File => Save Form1

7. Ketik nama form JENIS, klik tombol Save

8. Klik propertie Name, ketik JENIS

9. Buat desain form Jenis Kerusakan

10. Ketik kode program di bawah ini

 Private Sub CMDHAPUS_Click()

TBJENIS.Recordset.MoveFirst

TBJENIS.Recordset.Find "NOJENIS='" & XNOJENIS.Text & "'"

If TBJENIS.Recordset.EOF Then

 X = MsgBox("NOMOR JENIS " & XNOJENIS.Text & " TIDAK ADA !", vbOKOnly)

 Else

  X = MsgBox("DATA NOMOR JENIS " & XNOJENIS.Text & " MAU DIHAPUS !", vbYesNo)

  If X = vbYes Then TBJENIS.Recordset.Delete

 End If

 XNOJENIS.Text = ""

 XJENIS.Text = ""

 XGEJALA.Text = ""

 XNOJENIS.SetFocus

 End Sub

Private Sub CMDSIMPAN_Click()

If TBJENIS.Recordset.RecordCount > 0 Then TBJENIS.Recordset.MoveFirst

TBJENIS.Recordset.Find "NOJENIS='" & XNOJENIS.Text & "'"

If TBJENIS.Recordset.EOF Then TBJENIS.Recordset.AddNew

TBJENIS.Recordset!NOMACAM = XNOMACAM.Text

TBJENIS.Recordset!NOJENIS = XNOJENIS.Text

TBJENIS.Recordset!JENIS = XJENIS.Text

TBJENIS.Recordset!GEJALA = XGEJALA.Text

TBJENIS.Recordset.Update

XNOJENIS.Text = ""

XJENIS.Text = ""

XGEJALA.Text = ""

XNOJENIS.SetFocus

End Sub

Private Sub CMDSTOP_Click()

Unload Me

End Sub

Private Sub Form_Activate()

If TBMACAM.Recordset.RecordCount > 0 Then TBMACAM.Recordset.MoveFirst

Do While Not TBMACAM.Recordset.EOF

    XNOMACAM.AddItem TBMACAM.Recordset!NOMACAM & " " & TBMACAM.Recordset!MACAM

    TBMACAM.Recordset.MoveNext

Loop

TBJENIS.CommandType = adCmdText

TBJENIS.RecordSource = "SELECT * FROM JENIS WHERE NOJENIS=''"

TBJENIS.Refresh

XNOMACAM.Text = ""

XMACAM.Text = ""

XNOJENIS.Text = ""

XJENIS.Text = ""

XGEJALA.Text = ""

XNOMACAM.SetFocus

End Sub

Private Sub Form_Load()

TBMACAM.CommandType = adCmdText

TBMACAM.RecordSource = "SELECT * FROM MACAM ORDER BY NOMACAM"

TBMACAM.Refresh

End Sub

Private Sub Timer1_Timer()

If XNOJENIS.Text = "" Then

    CMDSIMPAN.Enabled = False

    CMDHAPUS.Enabled = False

Else

    CMDSIMPAN.Enabled = True

    CMDHAPUS.Enabled = True

    

End Sub

Private Sub XNOJENIS_Change()

If Len(XNOJENIS.Text) = 4 Then XJENIS.SetFocus

End Sub

Private Sub XNOJENIS_LostFocus()

TBJENIS.RecordSource = "SELECT * FROM JENIS"

TBJENIS.Refresh

If TBJENIS.Recordset.RecordCount > 0 Then TBJENIS.Recordset.MoveFirst

TBJENIS.Recordset.Find "NOJENIS='" & XNOJENIS.Text & "'"

If Not TBJENIS.Recordset.EOF Then

 XJENIS.Text = TBJENIS.Recordset!JENIS

 XGEJALA.Text = TBJENIS.Recordset!GEJALA

 X = MsgBox("NOMOR JENIS " & XNOJENIS.Text & " SUDAH ADA, DATA DIEDIT !", vbYesNo)

 If X = vbYes Then

  XJENIS.SetFocus

 Else

  XNOJENIS.Text = ""

  XJENIS.Text = ""

  XGEJALA.Text = ""

  XNOJENIS.SetFocus

 End If

End If

TBJENIS.RecordSource = "SELECT * FROM JENIS WHERE NOMACAM='" & XNOMACAM.Text & "'"

TBJENIS.Refresh

End Sub

Private Sub XNOMACAM_Click()

NOMACAM.Text = Left(XNOMACAM.Text, 4)

XNOMACAM.Width = 1250

XNOJENIS.SetFocus

End Sub

Private Sub XNOMACAM_DropDown()

XNOMACAM.Width = 5000

End Sub

Private Sub XNOMACAM_LostFocus()

If XNOMACAM.Text <> "" Then

XNOMACAM.Text = NOMACAM.Text

TBMACAM.Recordset.MoveFirst

TBMACAM.Recordset.Find "NOMACAM='" & XNOMACAM.Text & "'"

XMACAM.Text = TBMACAM.Recordset!MACAM

TBJENIS.RecordSource = "SELECT * FROM JENIS WHERE NOMACAM='" & XNOMACAM.Text & "'"

TBJENIS.Refresh

End If

End Sub