KODE VB PEMBUATAN KTP
Kamis, 16 Mei 2013
0
komentar
Kode Simpan dalam pembuatan KTP :
Private Sub Command1_Click()
With Adodc1.Recordset
.AddNew
!NIK = Text12.Text
!nama = Text13.Text
!TEMPAT_LHR = Text14.Text
!TGL_LHR = Text15.Text
!RT = Text5.Text
!RW = Text6.Text
!KEC = Text8.Text
!KELURAHAN = Text7.Text
!AGAMA = Combo1.Text
!PEKERJAAN = Text9.Text
!WARGA = Text10.Text
!BERLAKU = Text11.Text
!GOL = Combo2.Text
!Loc = Text16.Text
!PIC = Image1
Private Sub Command1_Click()
With Adodc1.Recordset
.AddNew
!NIK = Text12.Text
!nama = Text13.Text
!TEMPAT_LHR = Text14.Text
!TGL_LHR = Text15.Text
!RT = Text5.Text
!RW = Text6.Text
!KEC = Text8.Text
!KELURAHAN = Text7.Text
!AGAMA = Combo1.Text
!PEKERJAAN = Text9.Text
!WARGA = Text10.Text
!BERLAKU = Text11.Text
!GOL = Combo2.Text
!Loc = Text16.Text
!PIC = Image1
Baca Selengkapnya ....