-

 CARA MEMBUAT FORM MACAM KERUSAKAN MENGGUNAKAN VISUAL BASIC 6






      


    Coding :

        Private Sub CMDHAPUS_Click()
        If TBMACAM.Recordset.RecordCount > 0 Then TBMACAM.Recordset.MoveFirst
        TBMACAM.Recordset.Find "NOMACAM='" & XNOMACAM.Text & "'"
        If TBMACAM.Recordset.EOF Then
            X = MsgBox("NOMOR MACAM " & XNOMACAM.Text & " TIDAK ADA !", vbOKOnly)
            Else
            X = MsgBox("DATA NOMOR MACAM " & TXTNOMACAM.Text & " MAU DIHAPUS !",                 vbYesNo)
            If X = vbYes Then TBMACAM.Recordset.Delete
        End If
        BLANKFORM
        End Sub

        Private Sub CMDSIMPAN_Click()
        If TBMACAM.Recordset.RecordCount > 0 Then TBMACAM.Recordset.MoveFirst
        TBMACAM.Recordset.Find "NOMACAM='" & XNOMACAM.Text & "'"
        If TBMACAM.Recordset.EOF Then TBMACAM.Recordset.AddNew
        TBMACAM.Recordset!NOMACAM = XNOMACAM.Text
        TBMACAM.Recordset!MACAM = XMACAM.Text
        TBMACAM.Recordset.Update
        BLANKFORM
        End Sub

        Private Sub CMDSTOP_Click()
        Unload Me
        End Sub

        Private Sub BLANKFORM()
        XNOMACAM.Text = ""
        XMACAM.Text = ""
        XNOMACAM.SetFocus
        End Sub

        Private Sub Timer1_Timer()
        If TXTNOMACAM.Text = "" Then
        CMDSIMPAN.Enabled = False
        CMDHAPUS.Enabled = False
        Else
        CMDSIMPAN.Enabled = True
        CMDHAPUS.Enabled = True
        End If
        End Sub

        Private Sub XNOMACAM_LostFocus()
        If XNOMACAM.Text <> "" Then
            If TBMACAM.Recordset.RecordCount > 0 Then TBMACAM.Recordset.MoveFirst
            TBMACAM.Recordset.Find "NOMACAM='" & XNOMACAM.Text & "'"
            If Not TBMACAM.Recordset.EOF Then
                XMACAM.Text = TBMACAM.Recordset!MACAM
                X = MsgBox("NOMOR MACAM " & XNOMACAM.Text & "SUDAH ADA, DATA                             DIEDIT !", vbYesNo)
                If X = vbYes Then
                    XMACAM.SetFocus
                    Else
                    BLANKFORM
                    End If
                End If
            End If
        End Sub


Komentar

Posting Komentar

Postingan populer dari blog ini

-
Gambar
 CODING GAME ROKET MENGGUNAKAN  VISUSAL BASIC 6 CODE : Public XHOR As Integer Public XVER As Integer Public XPESAWAT As Integer Private Sub Form_Activate() XHOR = 4700 XVER = 6000 XPESAWAT = 0 End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyRight Then ROKET.Height = 600 ROKET.Width = 800 ROKET.Picture = LoadPicture(App.Path & "\RKANAN.JPG")  ROKET.Left = XHOR  XHOR = XHOR + 50 End If If KeyCode = vbKeyLeft Then ROKET.Height = 600 ROKET.Width = 800 ROKET.Picture = LoadPicture(App.Path & "\RKIRI.JPG")  ROKET.Left = XHOR  XHOR = XHOR - 50 End If If KeyCode = vbKeyUp Then ROKET.Height = 800 ROKET.Width = 600  ROKET.Picture = LoadPicture(App.Path & "\ROKET.JPG")  ROKET.Top = XVER  XVER = XVER - 50  End If   If KeyCode = vbKeyDown Then ROKET.Height = 800 ROKET.Width = 600  ROKET.Picture = LoadPicture(App.Path & "\RBAWAH.JPG")  ROKET.Top = XVER  XVER = XVER + 50  ...
Baca selengkapnya
-
Gambar
 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 = "...
Baca selengkapnya