Belajar Pemograman Yuuk (VB 6.0, SQL Server, PostgreSQL, PHP)

Form Reporting data, using crystall report

Option Explicit
Dim Cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim indeks As Integer

Private Sub Form_Load()
'Deklarasikan variabel koneksi
Set Cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set rs1 = New ADODB.Recordset

With Cnn
.ConnectionString = "provider=SQLOLEDB;" & _
"Data Source=10.11.12.56,1433/Kenari;initial Catalog = Pulsa;" & _
"Trusted Connection=yes;User ID=pulsa; Password=Pulsa123"
.Open
End With
rs.CursorLocation = adUseClient
rs1.Open "tbl_Branch", Cnn

cab.Clear
Dim Msql As String
Msql = "SELECT Branch_ID FROM tbl_Branch"
While Not rs1.EOF: cab.AddItem rs1!Branch_ID: rs1.MoveNext: Wend
If cab.ListCount <> 0 Then cab.ListIndex = 0

Me.Top = (Main.ScaleHeight - Me.ScaleHeight) / 2
Me.Left = (Main.ScaleWidth - Me.ScaleWidth) / 2

End Sub

Private Sub selesai_Click()
Unload Me
End Sub

Sub Lihat_Report(laporan As String, saring As String)
With Report1
.LogOnServer "p2ssql.dll", "10.11.12.56", "Pulsa", "pulsa", "Pulsa123"
.ReportFileName = App.Path & "\Report\" & laporan & ".rpt"
.WindowState = crptMaximized
.SelectionFormula = saring
.ReportTitle = "Dari tanggal " & dt_dari.Value & " sampai dengan tanggal " & dt_sampai.Value
.Action = 1
.Reset
End With
End Sub

Private Sub cetak_Click()
Select Case indeks
Case 0
'Top 10 Produksi Mitra - Nasional
Lihat_Report "top10-mitra", "SELECT TOP 10 tbl_Production.Branch_ID, tbl_Branch.Branch_Name, tbl_Production.Agent_ID, tbl_Agent.Agent_Name, " & _
" tbl_Production.Product_ID, tbl_Product.Prdct_Desc, COUNT(tbl_Production.CardNo) AS Kartu " & _
" FROM tbl_Production INNER JOIN tbl_Agent ON tbl_Production.Agent_ID = tbl_Agent.Agent_ID INNER JOIN " & _
" tbl_Branch ON tbl_Production.Branch_ID = tbl_Branch.Branch_ID INNER JOIN " & _
" tbl_Product ON tbl_Production.Product_ID = tbl_Product.Product_ID " & _
" Where tbl_Production.Transc_Date IN DATE (" & Format(dt_dari.Value, "YYYY,MM,DD") & ")" & _
" TO DATE (" & Format(dt_sampai.Value, "YYYY,MM,DD") & ")" & _
" GROUP BY tbl_Production.Branch_ID, tbl_Branch.Branch_Name, tbl_Production.Agent_ID, tbl_Agent.Agent_Name, " & _
" tbl_Production.Product_ID , tbl_Product.Prdct_Desc " & _
" ORDER BY Kartu DESC"
Case 1
'Top 10 Produksi Cabang
Lihat_Report "gesa-add", "{gesa_add.tanggal} IN DATE (" & Format(dt_dari.Value, "YYYY,MM,DD") & ")" & _
"TO DATE (" & Format(dt_sampai.Value, "YYYY,MM,DD") & ")"
Case 2
'Top N Produksi Mitra - Nasional
Lihat_Report "preminet-konvensional", "{gesa_netpremi_konv.tgl} IN DATE (" & Format(dt_dari.Value, "YYYY,MM,DD") & ")" & _
"TO DATE (" & Format(dt_sampai.Value, "YYYY,MM,DD") & ")"
Case 3
'Top N Produksi Cabang
Lihat_Report "preminet-syariah", "{gesa_netpremi_syariah.tgl} IN DATE (" & Format(dt_dari.Value, "YYYY,MM,DD") & ")" & _
"TO DATE (" & Format(dt_sampai.Value, "YYYY,MM,DD") & ")"
Case 4
'Top N Produksi Mitra Per Cabang

Case 5
'Top N Produksi Mitra Per Produk

End Select
End Sub

Private Sub Form_Activate()
dt_dari.Value = Format(Now, 1 & "/mmmm/yyyy")
dt_sampai.Value = DateAdd("m", DateDiff("m", 0, Now), 1)
End Sub

Private Sub lap_Click(Index As Integer)
indeks = Index
Select Case Index
Case 0
'Top 10 Produksi Mitra - Nasional
cab.Enabled = False: Jum.Enabled = False
dt_dari.Enabled = True: dt_sampai.Enabled = True
Case 1
'Top 10 Produksi Cabang
cab.Enabled = False: Jum.Enabled = False
dt_dari.Enabled = True: dt_sampai.Enabled = True
Case 2
'Top N Produksi Mitra - Nasional
cab.Enabled = False: Jum.Enabled = True
dt_dari.Enabled = True: dt_sampai.Enabled = True
Case 3
'Top N Produksi Cabang
cab.Enabled = False: Jum.Enabled = True
dt_dari.Enabled = True: dt_sampai.Enabled = True
Case 4
'Top N Produksi Mitra Per Cabang
cab.Enabled = True: Jum.Enabled = True
dt_dari.Enabled = True: dt_sampai.Enabled = True
Case 5
'Top N Produksi Mitra Per Produk
cab.Enabled = False: Jum.Enabled = True
dt_dari.Enabled = True: dt_sampai.Enabled = True
End Select
End Sub

Form For Manipulation Data, Such Adding data, Delete, Update, Viewing in Listview

Dim StrString As String
Dim Item As ListItem

Private Sub CmdAdd_Click()

ClearTextBox
Text1.Enabled = True
Text1.SetFocus
CmdSave.Enabled = False
CmdUpdate.Enabled = False

End Sub

Private Sub CmdClose_Click()
Unload Me
Set rs = Nothing
Set Cnn = Nothing
End Sub

Private Sub CmdSave_Click()
Dim Msql As String

If Text1.Text = "" Then
MsgBox "Anda tidak diperkenankan mengisi data dengan Branch ID kosong !!!", vbInformation
Else
Cnn.BeginTrans
'Membuat record baru pada tbl_Branch
Set rs = New ADODB.Recordset
'menambah record pada tabel

Msql = " Insert into tbl_Branch(Branch_ID, Branch_Name, Branch_Address, City, Post_Code, Country, Contact_Person, Phone, Fax, Email, BrcnhMobile)" & _
" Values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "','" & Text10.Text & "','" & Text12.Text & "')"

'Mengeksekusi perintah SQL
Cnn.Execute (Msql)

Set Item = ListView1.ListItems.Add(, , Text1.Text)
Item.SubItems(1) = Text2.Text
Item.SubItems(2) = Text3.Text
Item.SubItems(3) = Text4.Text
Item.SubItems(4) = Text5.Text
Item.SubItems(5) = Text6.Text
Item.SubItems(6) = Text7.Text
Item.SubItems(7) = Text8.Text
Item.SubItems(8) = Text9.Text
Item.SubItems(9) = Text10.Text
Item.SubItems(10) = Text12.Text
Cnn.CommitTrans
End If

ClearTextBox
CmdSave.Enabled = False

End Sub

Private Sub CmdUpdate_Click()
Dim Msql As String

If Text1.Text <> "" And Text1.Enabled = False Then

Cnn.BeginTrans

'Mengubah record pada tabel
Msql = " Update tbl_Branch Set " & _
" Branch_Name='" & Text2.Text & "'," & _
" Branch_Address='" & Text3.Text & "'," & _
" City='" & Text4.Text & "'," & _
" Post_Code='" & Text5.Text & "'," & _
" Country='" & Text6.Text & "'," & _
" Contact_Person='" & Text7.Text & "'," & _
" Phone='" & Text8.Text & "'," & _
" Fax='" & Text9.Text & "'," & _
" Email='" & Text10.Text & "'," & _
" BrcnhMobile='" & Text12.Text & "'" & _
" Where Branch_ID='" & Text1.Text & "'"

'Mengeksekusi perintah SQL
Cnn.Execute (Msql)

Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text12.Enabled = False

CmdSave.Enabled = False
CmdUpdate.Enabled = False

Cnn.CommitTrans

End If

End Sub

Private Sub Form_Load()
'Deklarasikan variabel koneksi
Set Cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

With Cnn
.ConnectionString = "provider=SQLOLEDB;" & _
"Data Source=10.11.12.56,1433/Kenari;initial Catalog = Pulsa;" & _
"Trusted Connection=yes;User ID=pulsa; Password=Pulsa123"
.Open
End With

rs.CursorLocation = adUseClient
rs.Open "tbl_Branch", Cnn

AturListView "Branch ID", 10, "Branch Name", 35, _
"Address", 80, "City", 20, "Postal Code", 12, "Country", 20, _
"Contact Person", 20, "Phone", 20, "Faximile", 20, "Email", 30, _
"Mobile Number", 20

i = 1
'tidak diperkenankan ada kosong
'Jika ada field kosong error coba difix kan

Do While Not rs.EOF
'Field Kosong Diabaikan dengan menggunakan perintah
'On error resume next
On Error Resume Next
Set Item = ListView1.ListItems.Add(i, , rs!Branch_ID)
ListView1.ListItems(Rec + 1).Bold = True
ListView1.ListItems(Rec + 1).ForeColor = vbRed
Item.SubItems(1) = rs!Branch_Name
Item.SubItems(2) = rs!Branch_Address
Item.SubItems(3) = rs!City
Item.SubItems(4) = rs!Post_Code
Item.SubItems(5) = rs!Country
Item.SubItems(6) = rs!Contact_Person
Item.SubItems(7) = rs!Phone
Item.SubItems(8) = rs!Fax
Item.SubItems(9) = rs!Email
Item.SubItems(10) = rs!BrcnhMobile
rs.MoveNext
Loop
Label11.Caption = "Total : " & _
ListView1.ListItems.Count & " record"
i = ListView1.ListItems.Count
ListView1.ListItems(i).Selected = True

'Atur Letak Form
Me.Top = (Main.ScaleHeight - Me.ScaleHeight) / 2
Me.Left = (Main.ScaleWidth - Me.ScaleWidth) / 2

CmdUpdate.Enabled = False
CmdSave.Enabled = False
End Sub

Public Sub AturListView(ParamArray lstView())
Dim i, Lebar

ListView1.View = lvwReport
Lebar = ListView1.Width - 80
With ListView1.ColumnHeaders
.Clear
For i = 0 To UBound(lstView) - 1 Step 2
.Add , , lstView(i), (lstView(i + 1) _
* Lebar) / 100
Next i
End With
Exit Sub
End Sub

Sub ClearTextBox()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text12.Text = ""
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call Menu_Bisa
End Sub

Private Sub ListView1_Click()
Dim StrSQl As String
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Open "tbl_Branch", Cnn

Cnn.BeginTrans
StrSQl = "select Branch_ID from tbl_Branch where Branch_Name='" & ListView1.SelectedItem.ListSubItems.Item(1) & "'"

Set rs = Cnn.Execute(StrSQl)

If ListView1.ListItems.Count = 0 Then
Exit Sub
End If
On Error Resume Next
Text11.Text = ListView1.SelectedItem.Index
Text1.Enabled = False
Text1.Text = rs!Branch_ID
Text2.Text = ListView1.SelectedItem.ListSubItems.Item(1)
Text3.Text = ListView1.SelectedItem.ListSubItems.Item(2)
Text4.Text = ListView1.SelectedItem.ListSubItems.Item(3)
Text5.Text = ListView1.SelectedItem.ListSubItems.Item(4)
Text6.Text = ListView1.SelectedItem.ListSubItems.Item(5)
Text7.Text = ListView1.SelectedItem.ListSubItems.Item(6)
Text8.Text = ListView1.SelectedItem.ListSubItems.Item(7)
Text9.Text = ListView1.SelectedItem.ListSubItems.Item(8)
Text10.Text = ListView1.SelectedItem.ListSubItems.Item(9)
Text12.Text = ListView1.SelectedItem.ListSubItems.Item(10)

CmdSave.Enabled = False
CmdUpdate.Enabled = True
Cnn.CommitTrans
End Sub

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
With ListView1
.SortKey = ColumnHeader.Index - 1
.Sorted = True
If .SortOrder = lvwAscending Then
.SortOrder = lvwDescending
Else
.SortOrder = lvwAscending
End If

End With
End Sub

Private Sub ListView1_DblClick()
'Menghapus record dari listview
Dim i As Integer
Dim TempIndex As Integer
Dim TempKode, StrSQl As String

Set rs = New ADODB.Recordset

If ListView1.ListItems.Count = 0 Then
Exit Sub
End If

TempIndex = ListView1.SelectedItem.Index
TempKode = ListView1.ListItems.Item(TempIndex)
Cnn.BeginTrans

Msql = "Select Branch_ID From tbl_Inst_Agent Where Branch_ID='" & TempKode & "'"

Set rs = Cnn.Execute(Msql)

If Not rs.EOF Then
MsgBox "Anda tidak dapat menghapus record ini !!!" & vbCrLf & "Karena digunakan di tabel lain", vbOKOnly + vbCritical, "Perhatian"
CmdAdd.SetFocus

Else

Konfirmasi = MsgBox("Apakah Anda yakin data " & _
TempKode & vbCrLf & " akan dihapus ??? ", vbYesNo + vbCritical, "Confirm")
If Konfirmasi = vbYes Then

'Menghapus record pada tabel
Msql = "Delete From tbl_Branch" & _
" Where Branch_ID='" & Text1.Text & "'"

i = ListView1.SelectedItem.Index
ListView1.ListItems.Remove i

Cnn.Execute (Msql)
Label11.Caption = "Total Record : " _
& rs.RecordCount

End If
End If

CmdUpdate.Enabled = False
Cnn.CommitTrans
ClearTextBox
Exit Sub

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
Else
Dim StrAngka As String
StrAngka = "0123456789"

If KeyAscii > 26 Then
If InStr(StrAngka, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End If
End Sub

Private Sub Text1_LostFocus()
Dim Msql As String
If Text1.Text <> "" Then
Cnn.BeginTrans

'Mencari Kode pada Tabel
Msql = "Select * From tbl_Branch " & _
" Where Branch_ID='" & Text1.Text & "'"

Set rs = Cnn.Execute(Msql)

'Jika Kode sudah ada tampilkan
If Not rs.EOF Then

'Menampilkan data dalam tabel ke form
On Error Resume Next
Text1.Enabled = False
Text2.Text = rs.Fields("Branch_Name")
Text3.Text = rs.Fields("Branch_Address")
Text4.Text = rs.Fields("City")
Text5.Text = rs.Fields("Post_Code")
Text6.Text = rs.Fields("Country")
Text7.Text = rs.Fields("Contact_Person")
Text8.Text = rs.Fields("Phone")
Text9.Text = rs.Fields("Fax")
Text10.Text = rs.Fields("Email")
Text12.Text = rs.Fields("BrcnhMobile")

CmdAdd.Enabled = True
CmdUpdate.Enabled = True

Else
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text12.Text = ""
CmdSave.Enabled = True
End If

rs.Close

Cnn.CommitTrans

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
Else
Dim StrAngka As String
StrAngka = "0123456789"

If KeyAscii > 26 Then
If InStr(StrAngka, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End If
End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
End If
End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
End If
End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
Else
Dim StrAngka As String
StrAngka = "+-0123456789"

If KeyAscii > 26 Then
If InStr(StrAngka, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End If
End Sub

Private Sub Text9_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
Else
Dim StrAngka As String
StrAngka = "+-0123456789"

If KeyAscii > 26 Then
If InStr(StrAngka, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End If
End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
End If
End Sub

Private Sub Text12_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
Else
Dim StrAngka As String
StrAngka = "+-0123456789"

If KeyAscii > 26 Then
If InStr(StrAngka, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End If
End Sub

Source For User Login

Dim Cnn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub CmdBatal_Click()
Unload Me
End Sub

Private Sub CmdMasuk_Click()
Call CekPassword
End Sub

Private Sub Form_Activate()
Text1.SetFocus
End Sub

Private Sub Form_Load()

'Membuat Sebuah Koneksi
Set Cnn = New ADODB.Connection

With Cnn
.ConnectionString = "provider=SQLOLEDB;" & _
"Data Source=10.11.12.56,1433/Kenari;initial Catalog=Pulsa;" & _
"Trusted Connection=yes; User ID=pulsa; Password=Pulsa123"
.Open
End With

'Atur Letak Form
Me.Top = (Main.ScaleHeight - Me.ScaleHeight) / 2
Me.Left = (Main.ScaleWidth - Me.ScaleWidth) / 2

End Sub

Private Sub Form_Unload(Cancel As Integer)
Cnn.Close

Set Cnn = Nothing
Set Comm = Nothing
Set rs = Nothing


End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
End If
End Sub

Sub CekPassword()

Dim SintakSQL As String

'Mencari data pengguna atau Pengguna pada tabel
SintakSQL = " Select * From members " & _
" Where member='" & Text1.Text & "'"

Set rs = Cnn.Execute(SintakSQL)

'Jika Pengguna Id Ada
If rs.EOF Then
'Cek Password dari Pengguna ID
MsgBox "User ID tidak terdaftar", vbOKOnly + vbExclamation, "Salah User ID"
'Jika Data Pengguna ditemukan
Text1.Text = ""
Text1.SetFocus
Exit Sub
Else
If rs.Fields("sandi") <> Text2.Text Then
MsgBox "Password Anda Salah", vbOKOnly + vbExclamation, "Salah Password"
Text2.Text = ""
Text2.SetFocus
Exit Sub
Else
'ambil rs userid di db, simpan ke namauser di variabel public
namauser = rs("member")

'Membaca Hak Akses dari tiap menu
'Membaca Hak Akses dari Menu Master
If rs.Fields("m1") = "1" Then
Menu1 = True
Else
Menu1 = False
End If
'Membaca Hak Akses dari Menu Pengaturan
If rs.Fields("m2") = "1" Then
Menu2 = True
Else
Menu2 = False
End If
'Membaca Hak Akses dari Menu Bantuan
If rs.Fields("m3") = "1" Then
Menu3 = True
Else
Menu3 = False
End If

'Menampilkan Menu
Call Menu_Tampak
With Main

.MnuFile(1).Enabled = False
.MnuFile(2).Enabled = True
.MnuFile(4).Enabled = False

End With
End If
End If

rs.Close

actifitas = Replace(SintakSQL, "'", "`", 1, -1)
SintakSQL = " insert into Activity (sandi, activity) values ('" & namauser & "','" & actifitas & "')"
Cnn.Execute (SintakSQL)

Unload Me
End Sub

Source Code For User Change Password

Dim Cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub CmdBatal_Click()

Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True

Call Kosong

CmdBatal.Enabled = False
CmdSimpan.Enabled = False
CmdUbah.Enabled = False

End Sub

Private Sub CmdKeluar_Click()

Cnn.Close

Set Cnn = Nothing

Unload Me

End Sub

Private Sub CmdSimpan_Click()
Dim SintakSQL As String

If Text1.Text <> "" Then

Cnn.BeginTrans

If Text3.Visible = True Then

'Mengubah record pada tabel
SintakSQL = " Update members Set " & _
" sandi='" & Text3.Text & "'" & _
" Where member='" & Text1.Text & "'"

'Mengeksekusi perintah SQL
Cnn.Execute (SintakSQL)
End If

Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False

CmdSimpan.Enabled = False
CmdBatal.Enabled = False

CmdUbah.Enabled = True

Cnn.CommitTrans

End If
actifitas = Replace(SintakSQL, "'", "`", 1, -1)
SintakSQL = " insert into Activity (sandi, activity) values ('" & namauser & "','" & actifitas & "')"
Cnn.Execute (SintakSQL)
End Sub

Private Sub CmdUbah_Click()

Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True

CmdUbah.Enabled = False
CmdSimpan.Enabled = False
CmdBatal.Enabled = False

Call Kosong

End Sub

Private Sub Form_Activate()
Text1.SetFocus
End Sub

Private Sub Form_Load()
'Membuat Sebuah Koneksi
Set Cnn = New ADODB.Connection

With Cnn
.ConnectionString = "provider=SQLOLEDB;" & _
"Data Source=10.11.12.56,1433/Kenari;initial Catalog=Pulsa;" & _
"Trusted Connection=yes; User ID=pulsa; Password=Pulsa123"
.Open
End With

Set rs = New ADODB.Recordset

Text3.Visible = False
Text4.Visible = False

CmdSimpan.Enabled = False
CmdUbah.Enabled = False
CmdBatal.Enabled = False

Me.Top = (Main.ScaleHeight - Me.ScaleHeight) / 2
Me.Left = (Main.ScaleWidth - Me.ScaleWidth) / 2

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
SendKeys vbTab
End If

End Sub

Private Sub Text1_LostFocus()
Dim Msql As String

'Mengecek ID User/Pemakai
If Text1.Text <> "" Then

Msql = " Select * From members " & _
" Where member='" & Trim(Text1.Text) & "'"

Set rs = Cnn.Execute(Msql)

'Jika User ID tidak Ada
If rs.EOF Then
MsgBox " User ID tidak ada !!!", vbOKOnly + vbExclamation, "Salah Kode ID"
Text1.SetFocus
Else

CmdSimpan.Enabled = True
CmdBatal.Enabled = True

End If

rs.Close

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
SendKeys vbTab
End If

End Sub

Private Sub Text2_LostFocus()
Dim Msql As String

'Mengecek Password Lama
If Text2.Text <> "" Then
Msql = " Select * from members " & _
" Where member='" & Trim(Text1.Text) & "'"

Set rs = Cnn.Execute(Msql)

'Salah password
If Trim(Text2.Text) <> rs.Fields("sandi") Then
MsgBox "Salah Password", vbOKOnly + vbCritical, "Salah Password Lama"
Text2.Text = ""
Text2.SetFocus
Text3.Visible = False
Text4.Visible = False

'Password lama sesuai
Else
Text3.Visible = True
Text4.Visible = True
Text3.SetFocus
End If

rs.Close
End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
SendKeys vbTab
End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
SendKeys vbTab
End If

End Sub

Private Sub Text4_LostFocus()

'Mengecek password sama dengan konfirmasi
If Text3.Text <> "" Then
If Text3.Text <> Text4.Text Then
MsgBox "Password tidak sama", vbOKOnly + vbCritical, "Salah Password"
Text4.SetFocus
End If
End If

End Sub

Sub Kosong()

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""

Text3.Visible = False
Text4.Visible = False

End Sub

Source Code For Maintenance User

Dim Cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Check1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
SendKeys vbTab
End If

End Sub

Private Sub Check2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
SendKeys vbTab
End If

End Sub

Private Sub Check3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
SendKeys vbTab
End If

End Sub

Private Sub CmdBatal_Click()

Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True

Check1.Enabled = True
Check2.Enabled = True
Check3.Enabled = True

Call Kosong

CmdHapus.Enabled = False
CmdBatal.Enabled = False
CmdSimpan.Enabled = False

End Sub

Private Sub CmdFind_Click()
Dim SintakSQL As String

If Combo1.Text = "All Record" Then
Cnn.BeginTrans

SintakSQL = "Select * From members "
Set rs = Cnn.Execute(SintakSQL)

i = 1
'tidak diperkenankan ada kosong

Do While Not rs.EOF
'Field Kosong Diabaikan dengan menggunakan perintah
'On error resume next
On Error Resume Next
Set Item = ListView1.ListItems.Add(i, , rs!member)
ListView1.ListItems(Rec + 1).Bold = True
ListView1.ListItems(Rec + 1).ForeColor = vbRed
Item.SubItems(1) = rs!sandi
Item.SubItems(2) = rs!m1
Item.SubItems(3) = rs!m2
Item.SubItems(4) = rs!m3
rs.MoveNext
Loop
Cnn.CommitTrans
Set rs = Nothing
Else
If Text4.Text <> "" Then
Cnn.BeginTrans

SintakSQL = "Select * from members Where ID Like'" & Text4.Text & "'"
Set rs = Cnn.Execute(SintakSQL)

i = 1
'tidak diperkenankan ada kosong

Do While Not rs.EOF
'Field Kosong Diabaikan dengan menggunakan perintah
'On error resume next
On Error Resume Next
Set Item = ListView1.ListItems.Add(i, , rs!member)
ListView1.ListItems(Rec + 1).Bold = True
ListView1.ListItems(Rec + 1).ForeColor = vbRed
Item.SubItems(1) = rs!sandi
Item.SubItems(2) = rs!m1
Item.SubItems(3) = rs!m2
Item.SubItems(4) = rs!m3
rs.MoveNext
Loop

If rs.EOF Then
MsgBox "User tidak ditemukan !!!", vbInformation + vbOKOnly, "Perhatian"
CmdFindAnother_Click
End If
Cnn.CommitTrans
End If
End If
End Sub

Private Sub CmdFindAnother_Click()

ListView1.ListItems.Clear
Combo1.Text = ""
Text4.Text = ""
Combo1.SetFocus

End Sub

Private Sub CmdHapus_Click()
Dim SintakSQL As String
Dim Konfirmasi As String

If Text1.Text <> "" And Text1.Enabled = False Then

Cnn.BeginTrans

Konfirmasi = MsgBox("Apakah Anda yakin akan menghapus Record ini ???", vbYesNo + vbCritical, "Konfirmasi")
If Konfirmasi = vbYes Then

'Menghapus record pada tabel user
SintakSQL = " Delete from members " & _
" where member='" & Text1.Text & "'"

'Mengeksekusi perintah SQL
Cnn.Execute (SintakSQL)

Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True

Check1.Enabled = True
Check2.Enabled = True
Check3.Enabled = True

Call Kosong

CmdHapus.Enabled = False
CmdBatal.Enabled = False
CmdSimpan.Enabled = False
CmdTambah.Enabled = False

Cnn.CommitTrans
actifitas = Replace(SintakSQL, "'", "`", 1, -1)
SintakSQL = " insert into Activity (sandi, activity) values ('" & namauser & "','" & actifitas & "')"
Cnn.Execute (SintakSQL)
End If
End If

End Sub

Private Sub CmdRubah_Click()
'Buka TextBox
Text2.Enabled = True
Text3.Enabled = True

Check1.Enabled = True
Check2.Enabled = True
Check3.Enabled = True

CmdSimpan.Enabled = True
CmdSimpan.Caption = "Update"
CmdBatal.Enabled = True
CmdHapus.Enabled = False
CmdTambah.Enabled = False

End Sub

Private Sub CmdSelesai_Click()
Cnn.Close
Set Cnn = Nothing
Unload Me
End Sub

Private Sub CmdSimpan_Click()
Dim SintakSQL As String
If CmdSimpan.Caption = "Simpan" Then

If Text1.Text <> "" And Text1.Enabled = True Then
'Menambah Record pada tabel user
SintakSQL = " Insert into members (member, sandi, m1, m2, m3) " & _
" Values('" & Text1.Text & "','" & Text2.Text & "', " & _
" " & Check1.Value & "," & Check2.Value & "," & _
" " & Check3.Value & ")"

'Mengeksekusi perintah SQL
Cnn.Execute (SintakSQL)
CmdSimpan.Enabled = False
CmdRubah.Enabled = True

actifitas = Replace(SintakSQL, "'", "`", 1, -1)
SintakSQL = " insert into Activity (sandi, activity) values ('" & namauser & "','" & actifitas & "')"
Cnn.Execute (SintakSQL)
End If
Else

'Mengupdate Record pada tabel user
'Mengubah record pada tabel

SintakSQL = " Update members Set " & _
" Password='" & Text2.Text & "'," & _
" m1=" & Check1.Value & "," & _
" m2=" & Check2.Value & "," & _
" m3=" & Check3.Value & "" & _
" Where ID='" & Text1.Text & "'"
'Mengeksekusi perintah SQL
Cnn.Execute (SintakSQL)
CmdSimpan.Enabled = False
CmdRubah.Enabled = True
CmdSimpan.Caption = "Simpan"

actifitas = Replace(SintakSQL, "'", "`", 1, -1)
SintakSQL = " insert into Activity (sandi, activity) values ('" & namauser & "','" & actifitas & "')"
Cnn.Execute (SintakSQL)
End If

Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False

Check1.Enabled = False
Check2.Enabled = False
Check3.Enabled = False

CmdBatal.Enabled = False
CmdTambah.Enabled = True
CmdHapus.Enabled = True

End Sub

Private Sub CmdTambah_Click()

Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True

Check1.Enabled = True
Check2.Enabled = True
Check3.Enabled = True

Call Kosong

CmdHapus.Enabled = False
CmdBatal.Enabled = False
CmdSimpan.Enabled = False
CmdTambah.Enabled = False
Text1.SetFocus

End Sub

Private Sub Form_Load()
'Membuat Sebuah Koneksi
Set Cnn = New ADODB.Connection

With Cnn
.ConnectionString = "provider=SQLOLEDB;" & _
"Data Source=10.11.12.56,1433/Kenari;initial Catalog=Pulsa;" & _
"Trusted Connection=yes; User ID=pulsa; Password=Pulsa123"
.Open
End With

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "members", Cnn

AturListView "User ID", 25, "Password", 25, _
"m1", 10, "m2", 10, "m3", 10

CmdSimpan.Enabled = False
CmdHapus.Enabled = False
CmdBatal.Enabled = False
CmdRubah.Enabled = False

Me.Top = (Main.ScaleHeight - Me.ScaleHeight) / 2
Me.Left = (Main.ScaleWidth - Me.ScaleWidth) / 2

Combo1.AddItem "All Record"
Combo1.AddItem "User ID"

End Sub

Private Sub ListView1_Click()
Dim SintakSQL As String
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Open "members", Cnn

SintakSQL = "select member from members where member='" & ListView1.SelectedItem & "'"

Set rs = Cnn.Execute(SintakSQL)

SSTab1.Tab = 0
Text5.Text = ListView1.SelectedItem.Index
On Error Resume Next
Text1.Enabled = False
Text1.Text = rs!member
Text2.Text = ListView1.SelectedItem.ListSubItems.Item(1)
Check1.Value = ListView1.SelectedItem.ListSubItems.Item(2)
Check2.Value = ListView1.SelectedItem.ListSubItems.Item(3)
Check3.Value = ListView1.SelectedItem.ListSubItems.Item(4)

CmdSimpan.Enabled = False
CmdRubah.Enabled = True
CmdBatal.Enabled = True
CmdTambah.Enabled = False
CmdHapus.Enabled = True

End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
If SSTab1.Caption = "List User" Then
AturListView "User ID", 20, "Password", 20, _
"Master", 10, "Pengaturan", 20, "Bantuan", 20

End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
SendKeys vbTab
End If

End Sub

Private Sub Text1_LostFocus()
Dim SintakSQL As String

If Text1.Text <> "" Then

Cnn.BeginTrans

'Mencari record ID pada tabel user
SintakSQL = " Select * From members " & _
" Where member='" & Text1.Text & "'"

Set rs = Cnn.Execute(SintakSQL)

'Jika ID Sudah Ada
If Not rs.EOF Then
MsgBox "User ID sudah Ada !", vbOKOnly + vbInformation, "Duplikasi ID"

Text2.Text = rs!sandi
Check1.Value = rs!m1
Check2.Value = rs!m2
Check3.Value = rs!m3

Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False

Check1.Enabled = False
Check2.Enabled = False
Check3.Enabled = False
CmdTambah.Enabled = True
CmdHapus.Enabled = True
CmdRubah.Enabled = True
Else

CmdSimpan.Enabled = True
CmdBatal.Enabled = True

End If

rs.Close

Cnn.CommitTrans

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
SendKeys vbTab
End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
SendKeys vbTab
End If

End Sub

Private Sub Text3_LostFocus()

'Mengecek password sama dengan konfirmasi
If Text2.Text <> "" Then
If Text2.Text <> Text3.Text Then
MsgBox "Password tidak sama", vbOKOnly + vbCritical, "Salah Password"
End If
End If

End Sub

Sub Kosong()

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""

Check1.Value = 0
Check2.Value = 0
Check3.Value = 0

End Sub

Public Sub AturListView(ParamArray lstView())
Dim i, Lebar

ListView1.View = lvwReport
Lebar = ListView1.Width - 80
With ListView1.ColumnHeaders
.Clear
For i = 0 To UBound(lstView) - 1 Step 2
.Add , , lstView(i), (lstView(i + 1) _
* Lebar) / 100
Next i
End With
Exit Sub
End Sub

Source for Log Form

Dim Cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SintakSQL As String
Dim Item As ListItem
Dim indeks As Integer

Private Sub CmdCari_Click()
Select Case indeks
Case 0
'Cari Seluruh data
Call seluruhdata
Case 1
'Cari Perhari
Call perhari
Case 2
'Cari diantara
Call diantara
End Select
End Sub

Private Sub CmdRefresh_Click()
'Refresh dengan data terbaru
Call subRefresh
End Sub

Private Sub seluruhdata()
'Deklarasikan variabel koneksi
Set Cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

With Cnn
.ConnectionString = "provider=SQLOLEDB;" & _
"Data Source=10.11.12.56,1433/Kenari;initial Catalog = Pulsa;" & _
"User ID=pulsa; Password=Pulsa123"
.Open
End With


rs.CursorLocation = adUseClient
rs.Open "Activity", Cnn

On Error Resume Next

AturListView "Kode Pengguna", 20, "Waktu", 25, "Keterangan", 150

ListView1.ListItems.Clear
i = 1
'tidak diperkenankan ada kosong
'Jika ada field kosong error coba difix kan

Do While Not rs.EOF
'Field Kosong Diabaikan dengan menggunakan perintah
'On error resume next
On Error Resume Next
Set Item = ListView1.ListItems.Add(i, , rs!sandi)
ListView1.ListItems(Rec + 1).Bold = True
ListView1.ListItems(Rec + 1).ForeColor = vbBlue
Item.SubItems(1) = rs!jam
Item.SubItems(2) = rs!activity
rs.MoveNext
Loop

actifitas = Replace(SintakSQL, "'", "`", 1, -1)
SintakSQL = " insert into Activity (sandi, activity) values ('" & namauser & "','" & actifitas & "')"
Cnn.Execute (SintakSQL)

End Sub

Private Sub perhari()
'Deklarasikan variabel koneksi
Set Cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

With Cnn
.ConnectionString = "provider=SQLOLEDB;" & _
"Data Source=10.11.12.56,1433/Kenari;initial Catalog = Pulsa;" & _
"User ID=pulsa; Password=Pulsa123"
.Open
End With

rs.CursorLocation = adUseClient
rs.Open "activity", Cnn

SintakSQL = "Select * From activity where jam like '" & dt_dari.Value & "'"

Set rs = Cnn.Execute(SintakSQL)

On Error Resume Next
AturListView "Kode Pengguna", 20, "Waktu", 25, "Keterangan", 60

ListView1.ListItems.Clear
i = 1
'tidak diperkenankan ada kosong
'Jika ada field kosong error coba difix kan

Do While Not rs.EOF
'Field Kosong Diabaikan dengan menggunakan perintah
'On error resume next
On Error Resume Next
Set Item = ListView1.ListItems.Add(i, , rs!sandi)
ListView1.ListItems(Rec + 1).Bold = True
ListView1.ListItems(Rec + 1).ForeColor = vbBlue
Item.SubItems(1) = rs!jam
Item.SubItems(2) = rs!activity
rs.MoveNext
Loop
actifitas = Replace(SintakSQL, "'", "`", 1, -1)
SintakSQL = " insert into Activity (sandi, activity) values ('" & namauser & "','" & actifitas & "')"
Cnn.Execute (SintakSQL)
End Sub

Private Sub diantara()
'Deklarasikan variabel koneksi
Set Cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

With Cnn
.ConnectionString = "provider=SQLOLEDB;" & _
"Data Source=10.11.12.56,1433/Kenari;initial Catalog = Pulsa;" & _
"User ID=pulsa; Password=Pulsa123"
.Open
End With

rs.CursorLocation = adUseClient
rs.Open "Activity", Cnn

SintakSQL = "Select * From activity where (jam=>'" & dt_dari.Value & "') and (jam<='" & dt_sampai.Value & "')"

Set rs = Cnn.Execute(SintakSQL)

On Error Resume Next
AturListView "Kode Pengguna", 20, "Waktu", 25, "Keterangan", 60

ListView1.ListItems.Clear
i = 1
'tidak diperkenankan ada kosong
'Jika ada field kosong error coba difix kan

Do While Not rs.EOF
'Field Kosong Diabaikan dengan menggunakan perintah
'On error resume next
On Error Resume Next
Set Item = ListView1.ListItems.Add(i, , rs!sandi)
ListView1.ListItems(Rec + 1).Bold = True
ListView1.ListItems(Rec + 1).ForeColor = vbBlue
Item.SubItems(1) = rs!jam
Item.SubItems(2) = rs!activity
rs.MoveNext
Loop
actifitas = Replace(SintakSQL, "'", "`", 1, -1)
SintakSQL = " insert into Activity (sandi, activity) values ('" & namauser & "','" & actifitas & "')"
Cnn.Execute (SintakSQL)
End Sub

Private Sub subRefresh()
'Deklarasikan variabel koneksi
Set Cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

With Cnn
.ConnectionString = "provider=SQLOLEDB;" & _
"Data Source=10.11.12.56,1433/Kenari;initial Catalog = Pulsa;" & _
"User ID=pulsa; Password=Pulsa123"
.Open
End With

rs.CursorLocation = adUseClient
rs.Open "activity", Cnn

On Error Resume Next

AturListView "Kode Pengguna", 20, "Waktu", 25, "Keterangan", 60

ListView1.ListItems.Clear
i = 1
'tidak diperkenankan ada kosong
'Jika ada field kosong error coba difix kan

For i = 1 To 25
Do While Not rs.EOF
'Field Kosong Diabaikan dengan menggunakan perintah
'On error resume next
On Error Resume Next
Set Item = ListView1.ListItems.Add(i, , rs!sandi)
ListView1.ListItems(Rec + 1).Bold = True
ListView1.ListItems(Rec + 1).ForeColor = vbBlue
Item.SubItems(1) = rs!jam
Item.SubItems(2) = rs!activity
rs.MoveNext
Loop
Next i
actifitas = Replace(SintakSQL, "'", "`", 1, -1)
SintakSQL = " insert into Activity (sandi, activity) values ('" & namauser & "','" & actifitas & "')"
Cnn.Execute (SintakSQL)
End Sub

Private Sub Form_Load()

Timer1.Enabled = True
Call subRefresh

Me.Top = (Main.ScaleHeight - Me.ScaleHeight) / 2
Me.Left = (Main.ScaleWidth - Me.ScaleWidth) / 2

End Sub

Public Sub AturListView(ParamArray lstView())
Dim i, Lebar

ListView1.View = lvwReport
Lebar = ListView1.Width - 80
With ListView1.ColumnHeaders
.Clear
For i = 0 To UBound(lstView) - 1 Step 2
.Add , , lstView(i), (lstView(i + 1) _
* Lebar) / 100
Next i
End With
Exit Sub
End Sub

Private Sub CmdSelesai_Click()
Unload Me
Set rs = Nothing
Set Cnn = Nothing
End Sub

Private Sub lihat_Click(Index As Integer)
indeks = Index
Select Case Index
Case 0
dt_dari.Enabled = False: dt_sampai.Enabled = False
dt_dari.Visible = False: dt_sampai.Visible = False
Label1.Visible = False
Case 1
dt_dari.Enabled = True: dt_sampai.Enabled = False
dt_dari.Visible = True: dt_sampai.Visible = False
Label1.Visible = False
Case 2
dt_dari.Enabled = True: dt_sampai.Enabled = True
dt_dari.Visible = True: dt_sampai.Visible = True
Label1.Visible = True
End Select
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
Call subRefresh
Timer1.Interval = 10000
Timer1.Enabled = True
End Sub

This Sample Source Code For Main Menu

Private Sub MDIForm_Load()
Call Menu_Hilang
MnuFile(2).Enabled = False
End Sub

Private Sub MnuFile_Click(Index As Integer)
Select Case Index
Case 1
FrmLogin.Show
Case 2
Call Menu_Hilang
MnuFile(1).Enabled = True
MnuFile(2).Enabled = False
MnuFile(4).Enabled = True
Pesan = MsgBox("Terima Kasih atas Kerja Anda Hari ini !!!", vbOKOnly + vbInformation, "Perhatian")

Case 3
'Do Nothing
Case 4
Dim X As Integer
X = MsgBox("Are you sure want to exit this Application ?", vbYesNo + vbInformation, "Warning")
If X = vbYes Then
End
End If
End Select
End Sub


Private Sub MnuHelp_Click(Index As Integer)
Select Case Index
Case 1
'Tampilkan Help file
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.HelpCommand = cdlHelpForceFile
CommonDialog1.HelpFile = App.Path & "\Help.hlp"
CommonDialog1.ShowHelp
Exit Sub

ErrHandler:
' User pressed Cancel button.
Exit Sub

Case 2
'Tampilkan Form Rubah Password
FrmUbahPassword.Show

Case 3
'Do Nothing

Case 4
'Tampilkan Form About
FrmAbout.Show

End Select
End Sub

Private Sub MnuMaster_Click(Index As Integer)
Select Case Index
Case 1
'Tampilkan Form Asessor
FrmKurs.Show

Case 2
'Tampilkan Form Surveyor
FrmPreview.Show

End Select
End Sub

Private Sub MnuPengaturan_Click(Index As Integer)
Select Case Index
Case 1
'Tampilkan Form User Maintenance
FrmUserMaintenance.Show

Case 2
'Tampilkan Form User Log Activity
FrmLog.Show

End Select
End Sub

Creating Form for Check All dan Uncheck All

Private Sub Check1_Click()

If Check1.Value = vbChecked Then 'select all
With ListView1
For i = 1 To .ListItems.Count
.ListItems(i).Checked = True
.ListItems(i).Selected = True
Next i
End With

Else 'desel all
With ListView1
For i = 1 To .ListItems.Count
.ListItems(i).Checked = False
.ListItems(i).Selected = False
Next i
End With

End If
End Sub

Private Sub Form_Load()
With ListView1
.ColumnHeaders.Add , , "Name", .Width / 5
.ColumnHeaders.Add , , "Occupation", .Width / 5
End With

Call PopulateListView
End Sub
Sub PopulateListView()
Dim li As ListItem
Dim j As Integer

For j = 1 To 9

Set li = ListView1.ListItems.Add(, , "Andri")
li.SubItems(1) = "Programmer"

Next j

End Sub

Pendahuluan

Modul File
File Login
File Logout
Exit

Modul Master
Input Data Cabang
Input Data Institutional Agent
Input Data Institutional Agent Mobile
Input Data Coordinator
Input Data Coordinator Mobile
Input Data Agent
Input Data Commission
Input Data Agent Mobile
Input Data Product
Distribusi Kartu PulsaBintang ke Agent
Lihat Kartu PulsaBintang pada Agent

Modul General Affair
Batch Kartu PulsaBintang (Stok baru datang diberi Nomor)
Lihat Kartu PulsaBintang yang sudah dibatch
Distribusi Kartu PulsaBintang ke Cabang
Lihat KartuPulsaBintang pada Cabang

Modul Finance
Check Pembayaran PulsaBintang

Modul Customer Service
Lihat Data Agent
Lihat Data Nasabah
Lihat Data Polis
Lihat Produksi Per Cabang

Modul Utility
User Maintenance
Lihat Data User

Modul Help
Bantuan Penjelasan Help
Rubah Password User
Tentang Developer