frmmainvis.frm

Billing Internet Cafe

   End
   Begin VB.Shape Shape3 
      BackColor       =   &H00FFFAC6&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00C0C0C0&
      BorderWidth     =   2
      Height          =   735
      Left            =   120
      Top             =   9480
      Width           =   15015
   End
   Begin VB.Shape Shape2 
      BackColor       =   &H00FFC0C0&
      BackStyle       =   1  'Opaque
      BorderWidth     =   5
      Height          =   8415
      Left            =   120
      Top             =   960
      Width           =   15015
   End
   Begin ComctlLib.ImageList ImageList 
      Left            =   120
      Top             =   8520
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
         NumListImages   =   13
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "FrmMainvis.frx":427B0
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "FrmMainvis.frx":4298A
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "FrmMainvis.frx":42B64
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "FrmMainvis.frx":42D3E
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "FrmMainvis.frx":42F18
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "FrmMainvis.frx":430F2
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "FrmMainvis.frx":432CC
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "FrmMainvis.frx":434A6
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "FrmMainvis.frx":43680
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "FrmMainvis.frx":4385A
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "FrmMainvis.frx":43A34
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "FrmMainvis.frx":43C0E
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "FrmMainvis.frx":43DE8
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnuserver 
      Caption         =   "&File"
      Begin VB.Menu mnuclient 
         Caption         =   "&Client"
         Begin VB.Menu mnustop 
            Caption         =   "Stop Client"
         End
         Begin VB.Menu mnupindah 
            Caption         =   "Pindah Client"
         End
         Begin VB.Menu mnushutdown 
            Caption         =   "Shutdown Client"
         End
         Begin VB.Menu sep 
            Caption         =   "-"
         End
         Begin VB.Menu mnuunlock 
            Caption         =   "Unlock Billing"
         End
         Begin VB.Menu mnuactiv 
            Caption         =   "Lock Billing"
         End
         Begin VB.Menu fd 
            Caption         =   "-"
         End
         Begin VB.Menu asss 
            Caption         =   "Deactivating Porn Blocker"
         End
         Begin VB.Menu as 
            Caption         =   "Activating Porn Blocker"
         End
         Begin VB.Menu sep2 
            Caption         =   "-"
         End
         Begin VB.Menu rad 
            Caption         =   "Radmin"
         End
         Begin VB.Menu fgfg 
            Caption         =   "-"
         End
         Begin VB.Menu mnupassadmin 
            Caption         =   "Set Password"
         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
         Begin VB.Menu asd 
            Caption         =   "-"
         End
         Begin VB.Menu asds 
            Caption         =   "Tambah Deposit"
         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         =   "Edit IP Client"
      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         =   "&More For Fun"
      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"
         Visible         =   0   'False
         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 Billing"
            End
            Begin VB.Menu klklock 
               Caption         =   "Lock Billing"
            End
            Begin VB.Menu hj 
               Caption         =   "-"
            End
            Begin VB.Menu klkradmin 
               Caption         =   "Radmin"
            End
         End
         Begin VB.Menu erww 
            Caption         =   "-"
         End
         Begin VB.Menu klref 
            Caption         =   "&Refresh"
         End
         Begin VB.Menu dtdes 
            Caption         =   "-"
         End
         Begin VB.Menu klkpesan 
            Caption         =   "&Pesan"
         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 startdis As String
Dim findis As String
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
   asds.Enabled = False
   mnupassadmin.Enabled = False
   mnuunlock.Enabled = False
   mnuactiv.Enabled = False
   klkunlock.Enabled = False
   klklock.Enabled = False
   BLacKCandyButton1.Enabled = False
   BLacKCandyButton9.Enabled = False
   BLacKCandyButton8.Enabled = False
   BLacKCandyButton6.Enabled = False
   mnurekap.Enabled = False
   MyButton18.Enabled = False
   BLacKCandyButton5.Enabled = False
   rnt.Enabled = False
   mnuchng.Enabled = False
End Sub

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

End Sub

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

Private Sub asds_Click()
 Load frmtambahsal
    frmtambahsal.Show 1

End Sub

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

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

Private Sub BLacKCandyButton10_Click()