1.
STRUKTUR DATABASE
CREATE [tblKTP](
[KDPROP] [int] NULL,
[nik] [char](16) NOT NULL,
[nama] [varchar](50) NULL,
[tmplahir] [varchar](25) NULL,
[tgllahir] [datetime] NULL,
[alamat] [varchar](150) NULL,
[kelamin] [char](1) NULL,
[darah] [char](2) NULL,
[agama] [tinyint] NULL,
[status] [char](1) NULL,
[kerja] [varchar](25) NULL,
[warga] [char](3) NULL,
[berlaku] [datetime] NULL,
[photo] [varchar](250) NULL,
[tglBuat] [datetime] NULL)
CREATE TABLE [tblPropinsi](
[kdProp] [int] NOT NULL,
[nmProp] [varchar](30) NULL)
2. WEB PROGRAM API
a. Modul clsKTP
Imports [Link]
Imports [Link]
Public Class clsKTP
Public strCon As String = "Server=.;User Id=ktp;Password=123;Database=dbsPENDUDUK"
Public dbs As New SqlConnection()
Public cmd As New SqlCommand
Public rst As SqlDataReader
End Class
b. [Link]
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="[Link]"
Inherits="_Default" %>
c. [Link]
Partial Class _Default
Inherits [Link]
Dim c As New clsKTP
Protected Sub Page_Load(ByVal sender As Object, ByVal e As [Link]) Handles
[Link]
Dim tampilkan As String = Request("buka") & ""
Select Case tampilkan
Case "cari_propinsi"
[Link](SEARCH_PROP)
Case "cari_kode"
[Link](CARI_PROP)
Case "simpan_propinsi"
[Link](SAVE_PROP)
Case "hapus_propinsi"
[Link](DELETE_PROP)
Case "ubah_propinsi"
[Link](UPDATE_PROP)
Case "jawabanuts"
[Link](JAWABAN_UTS)
Case "simpan_ktp"
[Link](SAVE_KTP)
Case "ubah_ktp"
[Link](UPDATE_KTP)
Case "hapus_ktp"
[Link](DELETE_KTP)
End Select
End Sub
Function JAWABAN_UTS() As String
'dik : 2 buah komter seharga @ 5,000,000
' bunga cicilan 12% / thn
' dicicil selama 6 bln
'dit : total seluruhnya selama pembayaran
Dim unit As Integer = Request("unit")
Dim satuan As Long = Request("harga")
Dim bunga As Double = Request("bunga")
Dim lama As Integer = Request("lama")
Dim total As Double
Dim crBunga As Double
crBunga = (unit * satuan) * (bunga / 12 / 100) 'bunga untuk 1 bulan
crBunga = crBunga * lama ' bunga selama n bulan
total = (unit * satuan) + crBunga 'total pembelian + bunga selama n bulan
Return "Jumlah Pembelian= " & unit * satuan & " Total Bunga = " & crBunga & "
Total Pembelian = " & total
End Function
Function SEARCH_PROP() As String
Dim aISI As String = ""
[Link] = New [Link]([Link])
[Link] = [Link]
[Link] = [Link]
[Link] = "SELECT * FROM tblPropinsi"
[Link]()
[Link] = [Link]()
Do While [Link]
aISI = aISI & [Link]!kdprop & "|" & [Link]!nmprop & ";"
Loop
[Link]()
Return aISI
'?buka=cari_propinsi
End Function
Function CARI_PROP() As String
Dim aISI As String = ""
[Link] = New [Link]([Link])
[Link] = [Link]
[Link] = [Link]
[Link] = "SELECT * FROM tblPropinsi WHERE kdProp=" & Request("idpro")
[Link]()
[Link] = [Link]()
If [Link] Then
aISI = [Link]!nmProp
End If
[Link]()
Return aISI
'?buka=cari_kode&idpro=10
End Function
Function SAVE_PROP() As String
[Link] = New [Link]([Link])
[Link] = [Link]
[Link] = [Link]
[Link] = "Insert into tblPropinsi values(" & Request("idpro") & _
",'" & Request("nama") & "')"
[Link]()
[Link]()
[Link]()
Return "SUKSES"
'?buka=simpan_propinsi&idpro=10&nama=Lampung
End Function
Function UPDATE_PROP() As String
[Link] = New [Link]([Link])
[Link] = [Link]
[Link] = [Link]
[Link] = "update tblPropinsi set nmProp='" & Request("nama") & "'
WHERE kdProp=" & Request("idpro")
[Link]()
[Link]()
[Link]()
Return "SUKSES"
'?buka=ubah_propinsi&idpro=10&nama=Lampung
End Function
Function DELETE_PROP() As String
[Link] = New [Link]([Link])
[Link] = [Link]
[Link] = [Link]
[Link] = "DELETE tblpropinsi WHERE kdprop=" & Request("idpro")
[Link]()
[Link]()
[Link]()
Return "SUKSES"
'?buka=hapus_propinsi&idpro=10
End Function
End Class
3. DESTROT PROGRAM INTERFICE
Code :
a. Module mdlKTP
Imports [Link]
Imports [Link]
Module mdlKTP
Public webTEXT As String, webARR As Object, webISI As Object
Public Function AMBILDATA(ByVal URL As String, ByVal PostData As String) As String
Try
' Set request dengan menggunakan methode post
Dim minta As WebRequest = [Link](URL & PostData)
[Link] = [Link]
[Link] = 20000
Dim hasil As WebResponse = [Link]()
Dim dtStream As Stream = [Link]
Dim dtRead As New StreamReader(dtStream)
Dim responsefromserver As String = [Link]()
[Link]()
[Link]()
Return responsefromserver
Catch ex As Exception
Return [Link]
End Try
End Function
End Module
b. Code Form1
Public Class Form1
Private Sub BERSIHLAYAR()
[Link] = "" : [Link] = ""
[Link] = "Simpan"
End Sub
Private Sub ISIGRID()
[Link]()
webTEXT = AMBILDATA("[Link] "")
webTEXT = [Link](webTEXT, Len(webTEXT) - 1)
If Len(webTEXT) > 0 Then
webARR = Split(webTEXT, ";")
For i As Integer = 0 To UBound(webARR)
webISI = Split(webARR(i), "|")
[Link](webISI(0).ToString, webISI(1).ToString)
Next
End If
End Sub
Private Sub Form1_Load(sender As [Link], e As [Link]) Handles
[Link]
Dim judul() As String = {"Kode", "Nama Propinsi"}
Dim lebar() As String = {70, 385}
[Link] = 2
For i As Integer = 0 To [Link] - 1
[Link](i).Name = judul(i)
[Link](i).Width = lebar(i)
[Link](i).[Link] =
[Link]
Next
[Link]()
BERSIHLAYAR()
End Sub
Private Sub Form1_Shown(sender As Object, e As [Link]) Handles [Link]
[Link]()
End Sub
Private Sub TextBox1_KeyPress(sender As Object, e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then
webTEXT = AMBILDATA("[Link] &
[Link], "")
If Len(webTEXT) > 0 Then
webARR = Split(webTEXT, "|")
[Link] = webARR(1).[Link]
[Link] = "Update"
End If
[Link]()
End If
End Sub
Private Sub TextBox2_KeyPress(sender As Object, e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then
[Link]()
End If
End Sub
Private Sub btnNew_Click(sender As [Link], e As [Link]) Handles
[Link]
If [Link] = "Buka" Then
ISIGRID()
[Link] = "Baru"
End If
BERSIHLAYAR()
[Link]()
End Sub
Private Sub btnClose_Click(sender As [Link], e As [Link]) Handles
[Link]
Dispose()
End Sub
Private Sub grd_Click(sender As Object, e As [Link]) Handles [Link]
[Link] = [Link](0, [Link]).Value
[Link] = [Link](1, [Link]).Value
[Link] = "Update"
End Sub
Private Sub btnSave_Click(sender As [Link], e As [Link]) Handles
[Link]
Dim oKode As String, oNama As String
oKode = "&idpro=" & [Link]
oNama = "&nama=" & [Link]
If [Link] = "Simpan" Then
webTEXT = AMBILDATA("[Link] & oKode &
oNama, "")
Else
webTEXT = AMBILDATA("[Link] & oKode &
oNama, "")
End If
ISIGRID()
BERSIHLAYAR()
[Link]()
End Sub
Private Sub btnDelete_Click(sender As [Link], e As [Link]) Handles
[Link]
Dim tanya As Object
tanya = MsgBox("Apakah Yakin Data Akan Dihapus...?", [Link] + _
MsgBoxStyle.DefaultButton2 + [Link], "Hapus")
If tanya = [Link] Then Exit Sub
webTEXT = AMBILDATA("[Link] &
[Link], "")
ISIGRID()
BERSIHLAYAR()
[Link]()
End Sub
End Class