Teknik coding mengganti ID pada aplikasi software program


Menyambung tentang no identitas yang dapat diganti, pada postingan sebelumnya, kali ini akan saya berikan teknik coding mengganti ID / nomor rekening pada aplikasi software program koperasi simpan pinjam.

Sesuai pada tulisan sebelumnya, pentingnya kolom atau field autonumber, dengan tipe data long integer, adalah sebagai ”pembeda” yang paling dasar. Kolom ini, yang menjadi pembeda bagi field-field lainnya, termasuk nomor rekening pada sistem informasi koperasi simpan pinjam.

Langkah-langkah membangun sistem informasi :
1. buatlah kolom autonumber (long integer), baru kemudian nomor rekening, nama dan atribut lainnya, pada tabel induk nasabah
2. buat tabel transaksi pembayaran, dengan kolom nomor rekening sebagai kolom penghubung antara tabel induk nasabah dan tabel transaksi pembayaran
3. panggillah nomor rekening tertentu,yang secara otomatis juga menampilkan kolom/field autonumber pada induk nasabah.
4. gunakan field autonumber, sebagai pengkondisian query SQL dalam pembaharuan data.
5. update juga semua transaksi sesuai kondisi no.4

strSql1 = “select * from nasabah where urutan=” & Val(sknUrutan.Caption) & “”
Set RS1 = Cn.Execute(strSql1)
If Not RS1.EOF Then ”’edit nasabah
vUrutan = RS1!urutan
strSql2 = “select * from nasabah where urutan=” & vUrutan & “”
Set RS2 = Cn.Execute(strSql2)
If Not RS2.EOF Then
VnoRek = RS2!NoRek
”cek dulu ada ga norek yg sama
strSql3 = “select*from nasabah where Norek='” & TxtNoRek & “‘”
Set RS3 = Cn.Execute(strSql3)
If Not RS3.EOF Then
MsgBox “sudah ada no rekening yang pake, lainnya”
Exit Sub
Else

‘ganti no rek semua trx
strSql1 = “select*from Pembayaran where Norek='” & VnoRek & “‘”
Set RS1 = Cn.Execute(strSql1)
Do While Not RS1.EOF
strSql3 = “update Pembayaran set Norek='” & TxtNoRek.Text & “‘ ” _
+ ” where NoRek='” & VnoRek & “‘”
Cn.Execute (strSql3)

RS1.MoveNext
Loop

strSql3 = “update nasabah set nama='” & Txtnama.Text & “‘,alamat='” & Txtalamat.Text & “‘,” _
+ “kelurahan='” & Txtkelurahan.Text & “‘,kecamatan='” & Txtkecamatan.Text & “‘,” _
+ “usaha='” & Txtusaha.Text & “‘,jaminan='” & Txtjaminan.Text & “‘,” _
+ “namaSuamiIstri='” & TxtnamaSuamiIstri.Text & “‘,” _
+ “pekerjaan='” & Txtpekerjaan.Text & “‘,tglMasukDaftar=#” & VBA.Format(DTtglMasukDaftar.Value, “yyyy-mm-dd”) & “#,” _
+ “kode_pinjaman='” & Cbokode_pinjaman.Text & “‘,prosenBunga='” & TxtprosenBunga.Text & “‘,” _
+ “kode_UnitDaerah='” & Cbokode_UnitDaerah.Text & “‘,nominal='” & Txtnominal.Text & “‘,” _
+ “jangkaWaktu='” & Txtjangkawaktu.Text & “‘,besarAngsuran='” & TxtBesarAngsuran.Text & “‘,” _
+ “hariAngsuran='” & CbohariAngsuran.Text & “‘, ” _
+ “tglJatuhTempo=#” & VBA.Format(DTtglJatuhTempo.Value, “yyyy-mm-dd”) & “# ,” _
+ “AngsPertama =#” & VBA.Format(DTAngsPertama.Value, “yyyy-mm-dd”) & “#,JthTempoPrTgl='” & PerTgl & “‘,kodeHr='” & kodeHari & “‘, ” _
+ “NoRek='” & TxtNoRek.Text & “‘ where NoRek='” & VnoRek & “‘”
Cn.Execute (strSql3)
MsgBox “satu data nasabah dgn no Rek ” + TxtNoRek.Text + vbCrLf _
+ “sudah berhasil dipindah”
End If
End If

End If

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: