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

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