RANCANGAN APLIKASI PEMBUATAN KTP 

  ( Gambar Aplikasi )

                                                                  ** Kode / Bahasa Program ** 

                                                                     Microsoft Visual Basic 6.0

PERINTAH HAPUS

Private Sub Command1_Click()

Adodc1.Recordset.Delete

End Sub  

PERINTAH SIMPAN TO DATABASE ACCES 2000-2003

Private Sub Command2_Click()

                                Adodc1.Recordset.AddNew

                                Adodc1.Recordset!nik = Text1.Text

                                Adodc1.Recordset!nama = Text2.Text

                                Adodc1.Recordset!alamat = Text3.Text

                                 Adodc1.Recordset!tempat_lahir = Text4.Text

                                Adodc1.Recordset!tgl_lahir = DTPicker1.Value

                                Adodc1.Recordset!nama_ayah = Text5.Text

                                Adodc1.Recordset!pekerjaan_ayah = Text6.Text

                                Adodc1.Recordset!nama_ibu = Text7.Text

                                Adodc1.Recordset!pekerjaan_ibu = Text8.Text

                                Adodc1.Recordset!agama = Combo2.Text

                                Adodc1.Recordset!Status = Combo3.Text

                                Adodc1.Recordset!golongan_darah = Combo4.Text

                                Adodc1.Recordset!pendidikan_terakhir = Combo1.Text

                                Adodc1.Recordset.Update

                If Option1.Value = True Then

                                Adodc1.Recordset!jenis_kelamin = "L"

                ElseIf Option2.Value = True Then

                                Adodc1.Recordset!jenis_kelamin = "P"

                End If

End Sub

PERINTAH CLOSE

Private Sub Command4_Click()

Beep

MsgBox "TUTUP", vbApplicationModal, "SUCCEESSH"

End

End Sub

PERINTAH UNTUK MENAMPILKAN ( CARI )

Private Sub Command5_Click()

Beep

With Adodc1.Recordset

        .MoveFirst

        .Find "nik='" & Text1.Text & "'"

If Not .EOF Then

        Text1.Text = !nik

        Text2.Text = !nama

        Text3.Text = !alamat

        Text4.Text = !tempat_lahir

        Text5.Text = !nama_ayah

        Text6.Text = !pekerjaan_ayah

        Text7.Text = !nama_ibu

        Text8.Text = !pekerjaan_ibu

        Combo1.Text = !pendidikan_terakhir

        Combo2.Text = !agama

        Combo3.Text = !Status

        Combo4.Text = !golongan_darah

        DTPicker1.Value = !tgl_lahir

        Option1.Value = True

        Option2.Value = False

    MsgBox "DATA TELAH DITAMILKAN", vbApplicationModal, "Ok"

   

End If

End With

End Sub

PERINTAH UNTUK MENUTUPI KESALAHAN [ ERROR ] NAMUN TIDAK AKAN ADA EVEN YANG TERJADI

Private Sub Form_Load()

On Error Resume Next

End Sub

                                               

CARA KEDUA

KODE / LISTING SIMPAN

Private Sub Command1_Click()

With Adodc1.Recordset

                                On Error Resume Next

   

                  .MoveFirst

                   .Find "NIK='" & Text1.Text & "'"

    If Not .EOF Then

                 MsgBox "DATA SUDAH ADA"

    End If

                .AddNew

                 !NIK = Text1.Text

                 !NAMA = Text2.Text

                !ALAMAT = Text3.Text

                !TEMPAT_LAHIR = Text4.Text

                !TGL_LAHIR = DTPicker1.Value

                !NAMA_AYAH = Text5.Text

                !PEKERJAAN_AYAH = Text6.Text

                !NAMA_IBU = Text7.Text

                !PEKERJAAN_IBU = Text8.Text

                !PENDIDIKAN_TERAKHIR = Combo1.Text

                !AGAMA = Combo2.Text

                !Status = Combo3.Text

                !GOLONGAN_DARAH = Combo4.Text

                                On Error Resume Next

                Adodc1.Recordset.Update

     If Option1.Value = True Then

                    Adodc1.Recordset!jenis_kelamin = "L"

     ElseIf Option2.Value = True Then

                    Adodc1.Recordset!jenis_kelamin = "P"

      End If

                   

End With

End Sub

PERINTAH DELETE

Private Sub Command2_Click()

Adodc1.Recordset.Delete

End Sub

Private Sub Command4_Click()

MSGBOX”TUTUP”,vbinformation,”Terima Kasih”

End

End Sub

PERINTAH CARI ( MENAMPILKAN )

Private Sub Command5_Click()

With Adodc1.Recordset

On Error Resume Next

        .MoveFirst

        .Find "NIK='" & Text1.Text & "'"

        If Not .EOF Then

        Text1.Text = !NIK

        Text2.Text = !NAMA

        Text3.Text = !ALAMAT

        Text4.Text = !TEMPAT_LAHIR

        DTPicker1.Value = !TGL_LAHIR

        Text5.Text = !NAMA_AYAH

        Text6.Text = !PEKERJAAN_AYAH

        Text7.Text = !NAMA_IBU

        Text8.Text = !PEKERJAAN_IBU

        Combo1.Text = !PENDIDIKAN_TERAKHIR

        Combo2.Text = !AGAMA

        Combo3.Text = !Status

        Combo4.Text = !GOLONGAN_DARAH

        End If

End With

End Sub

SEKIAN  MUDAH – MUDAHAN BISA BERMANFAAT

TERIMA KASIH