frmmain.frm

Billing Internet Cafe

         End
         Begin VB.Menu mnupassadmin 
            Caption         =   "Set Password"
         End
         Begin VB.Menu sep3 
            Caption         =   "-"
         End
         Begin VB.Menu mnurefr 
            Caption         =   "Refresh Form"
         End
      End
      Begin VB.Menu sep9 
         Caption         =   "-"
      End
      Begin VB.Menu mnuutil 
         Caption         =   "&Utility"
         Begin VB.Menu mnupesan 
            Caption         =   "Pesan"
         End
         Begin VB.Menu sep33 
            Caption         =   "-"
         End
         Begin VB.Menu mnubackup 
            Caption         =   "Backup Database"
         End
         Begin VB.Menu sep13 
            Caption         =   "-"
         End
         Begin VB.Menu mnumember 
            Caption         =   "Member Users"
         End
      End
      Begin VB.Menu aep10 
         Caption         =   "-"
      End
      Begin VB.Menu mnumati 
         Caption         =   "Exit"
      End
   End
   Begin VB.Menu mnusetting 
      Caption         =   "&Setting"
      Begin VB.Menu mnuconfig 
         Caption         =   "Konfigurasi"
      End
      Begin VB.Menu sep4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuuser 
         Caption         =   "Data User"
      End
      Begin VB.Menu sep5 
         Caption         =   "-"
      End
      Begin VB.Menu mnures 
         Caption         =   "Refresh Form"
      End
      Begin VB.Menu ss 
         Caption         =   "-"
      End
      Begin VB.Menu mnuchng 
         Caption         =   "Change Style Button"
      End
   End
   Begin VB.Menu mnulaporan 
      Caption         =   "&Laporan"
      Begin VB.Menu mnurekap 
         Caption         =   "Data Pemasukkan"
      End
      Begin VB.Menu sep6 
         Caption         =   "-"
      End
      Begin VB.Menu rnt 
         Caption         =   "Laporan Rental"
      End
      Begin VB.Menu sep7 
         Caption         =   "-"
      End
      Begin VB.Menu mnudeposit 
         Caption         =   "Detail Billing"
      End
   End
   Begin VB.Menu Relax 
      Caption         =   "&Relax"
      Begin VB.Menu Game 
         Caption         =   "BLacK Impact"
      End
   End
   Begin VB.Menu mnuhelp 
      Caption         =   "&Help"
      Begin VB.Menu help 
         Caption         =   "Help ???"
      End
      Begin VB.Menu sep21 
         Caption         =   "-"
      End
      Begin VB.Menu mnuabout 
         Caption         =   "About !!!"
      End
      Begin VB.Menu mnuklik 
         Caption         =   "Klik"
         Begin VB.Menu klkpesan 
            Caption         =   "&Pesan"
         End
         Begin VB.Menu erww 
            Caption         =   "-"
         End
         Begin VB.Menu klref 
            Caption         =   "&Refresh"
         End
         Begin VB.Menu dtdes 
            Caption         =   "-"
         End
         Begin VB.Menu Klkmenclin 
            Caption         =   "&Menu Client"
            Begin VB.Menu klkstop 
               Caption         =   "Stop Client"
            End
            Begin VB.Menu klkPindah 
               Caption         =   "Pindah Client"
            End
            Begin VB.Menu klkshut 
               Caption         =   "Shutdown Client"
            End
         End
         Begin VB.Menu dt 
            Caption         =   "-"
         End
         Begin VB.Menu klkuti 
            Caption         =   "Utility"
            Begin VB.Menu Activeporn 
               Caption         =   "Activating Porn Blocker"
            End
            Begin VB.Menu deactive 
               Caption         =   "Deactivating Porn Blocker"
            End
            Begin VB.Menu gfh 
               Caption         =   "-"
            End
            Begin VB.Menu klkunlock 
               Caption         =   "Unlock Client"
            End
            Begin VB.Menu klklock 
               Caption         =   "Lock Client"
            End
            Begin VB.Menu hj 
               Caption         =   "-"
            End
            Begin VB.Menu klkradmin 
               Caption         =   "Radmin"
            End
         End
      End
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim iSockets As Integer
Dim iSocketsFree(SockMax) As Boolean
Dim port As Long
Dim durasi(1 To ClientMax) As Date
Dim durasi_disc(1 To ClientMax) As Date
Dim biaya(1 To ClientMax) As Single
Dim biaya_disc(1 To ClientMax) As Single
Dim total(1 To ClientMax) As Single
Dim mulai(1 To ClientMax) As Date
Dim disc_mulai(1 To ClientMax) As Date
Dim interval As Long
Dim intervalpel As Long
Dim intervalmem As Long
Dim intervalgam As Long
Dim intervalmen As Long
Dim atas(1 To ClientMax) As Long
Dim ataspel(1 To ClientMax) As Long
Dim atasmem(1 To ClientMax) As Long
Dim atasgam(1 To ClientMax) As Long
Dim atasmen(1 To ClientMax) As Long
Dim bawah(1 To ClientMax) As Long
Dim bawahpel(1 To ClientMax) As Long
Dim bawahmem(1 To ClientMax) As Long
Dim bawahgam(1 To ClientMax) As Long
Dim bawahmen(1 To ClientMax) As Long
Dim mulai_disc As Date
Dim akhir_disc As Date
Dim nama_warnet As String
Dim alamat1 As String
Dim alamat2 As String
Private Sub MenuAdmin()
    mnuconfig.Enabled = True
    mnuuser.Enabled = True
    mnubackup.Enabled = True
    mnumember.Enabled = True
    
End Sub
Private Sub MenuUser()
    mnuconfig.Enabled = False
    mnuuser.Enabled = False
    mnubackup.Enabled = False
    mnumember.Enabled = False
    MyButton17.Enabled = False
    MyButton15.Enabled = False
    MyButton14.Enabled = False
    MyButton13.Enabled = False
    MyButton3.Enabled = False
    MyButton5.Enabled = False
End Sub

Private Sub as_Click()
Load frmactivporn
frmactivporn.TxtNo_Client.Text = clientpopup
frmactivporn.Show 1
End Sub

Private Sub asss_Click()
Load frmdeac
frmdeac.TxtNo_Client.Text = clientpopup
frmdeac.Show 1
End Sub

Private Sub CmdKoneksi_Click()
    Load FrmStatus
    FrmStatus.Show 1
End Sub



Private Sub cmdSwitchStyle_Click(Index As Integer)
Dim ctrl As Control
For Each ctrl In Controls
    If (TypeOf ctrl Is XPButton Or _
        TypeOf ctrl Is XPFrame Or _
        TypeOf ctrl Is XPCheck Or _
        TypeOf ctrl Is XPOption Or _
        TypeOf ctrl Is ProgBarXP Or _
        TypeOf ctrl Is XPText) And _
        ctrl.Name <> "cmdSwitchStyle" Then
        ctrl.Style = 1 - Index
    End If
Next ctrl
XPFrame12.Visible = False
End Sub

Private Sub Form_Load()
On Error Resume Next
FrmMain.WindowState = 2
FrmMain.Caption = NamaAplikasi & VersiAplikasi
    Call setMenu
    Call HapusdbSocket
    Call CekSetingUmum
    Call CekLogin
    Call AturGrid
    Call CekSetingHarga
    Call CekSetingDiscount
    Call CekPasswordAdmin
    Call CekTemp
End Sub


Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
      PopupMenu mnuklik
      End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Load FrmLogOut
FrmLogOut.Show
End Sub

Private Sub Game_Click()
Load frmgame
frmgame.Show
End Sub

Private Sub help_Click()
frmhelp.Visible = True
End Sub

Private Sub jam_Click()
XPFrame16.Visible = False
End Sub

Private Sub mnuabout_Click()
    Load FrmAbout
    FrmAbout.Show 1
End Sub

Private Sub mnuactiv_Click()
Load frmlock
frmlock.TxtNo_Client.Text = clientpopup
frmlock.Show 1
End Sub

Private Sub mnubackup_Click()
    Load FrmBackup
    FrmBackup.Show 1
End Sub

Private Sub mnuchng_Click()
XPFrame12.Visible = True
End Sub


Private Sub mnuconfig_Click()
    Load FrmConfig
    FrmConfig.Show 1
End Sub

Private Sub mnudeposit_Click()
    Load FrmLaporanDeposit
    FrmLaporanDeposit.Show 1
End Sub

Private Sub mnumati_Click()
Load FrmLogOut
FrmLogOut.Show 1
End Sub

Private Sub mnumember_Click()
    Load FrmMember
    FrmMember.Show 1
End Sub

Private Sub mnupassadmin_Click()
    Load FrmPasswordAdmin
    FrmPasswordAdmin.Show 1
End Sub

Private Sub mnupesan_Click()
    Load FrmPesan
    FrmPesan.Show 1
End Sub

Private Sub mnupindah_Click()
    Load FrmPindahClient
    FrmPindahClient.TxtNoDari.Text = clientpopup
    FrmPindahClient.Show 1
End Sub

Private Sub mnurefr_Click()
    XPFrame1.Width = FrmMain.Width - 400
    XPFrame3.Width = FrmMain.Width
    XPFrame1.Height = FrmMain.Height - 1650
    XPFrame2.Width = XPFrame1.Width - 450
    XPFrame2.Height = XPFrame1.Height - 3080
    XPFrame4.Width = XPFrame1.Width - 450
    XPFram