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
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
Komentar