⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frmmainvis.frm

📁 Billing Internet Cafe
💻 FRM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
Load FrmLogOut
FrmLogOut.Show 1
    

End Sub

Private Sub BLacKCandyButton11_Click()
frmhelp.Visible = True

End Sub

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

Private Sub BLacKCandyButton2_Click()
Load FrmStopClient
    FrmStopClient.TxtNo_Client.Text = clientpopup
    FrmStopClient.Show 1
End Sub

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

End Sub

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

Private Sub BLacKCandyButton5_Click()
DataReport1.Visible = True
DataReport1.WindowState = 2
End Sub

Private Sub BLacKCandyButton6_Click()
Load FrmLaporanRekap
    FrmLaporanRekap.Show 1
End Sub

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

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

Private Sub BLacKCandyButton9_Click()
 Load frmtambahsal
    frmtambahsal.Show 1
End Sub
Private Sub deactive_Click()
Load frmdeac
frmdeac.TxtNo_Client.Text = clientpopup
frmdeac.Show 1

End Sub



Private Sub Form_Load()
On Error Resume Next
ResizeForm Me
Me.WindowState = 2
FrmMain.Caption = NamaAplikasi & VersiAplikasi
    Call setMenu
    Call HapusdbSocket
    Call CekSetingUmum
    Call CekLogin
    Call AturGrid
    Call CekSetingHarga
    Call CekSetingDiscount
    Call CekPasswordAdmin
    Call CekTemp
    Me.Caption = "BLacK PeaRL Billing Server v.0.0.4 beta 1.5"
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_Resize()
ResizeForm Me
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 klklock_Click()
Load frmlock
frmlock.TxtNo_Client.Text = clientpopup
frmlock.Show 1

End Sub

Private Sub klkpesan_Click()
Load FrmPesan
    FrmPesan.TxtNoClient.Text = clientpopup
    FrmPesan.Show 1
    End Sub

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

Private Sub klkradmin_Click()
Load Form1
Form1.Text1.Text = clientpopup
Form1.Show 1

End Sub

Private Sub klkshut_Click()
Load FrmShutdownClient
    FrmShutdownClient.TxtNo_Client.Text = clientpopup
    FrmShutdownClient.Show 1
End Sub

Private Sub klkstop_Click()
 Load FrmStopClient
    FrmStopClient.TxtNo_Client.Text = clientpopup
    FrmStopClient.Show 1
End Sub

Private Sub klkunlock_Click()
Load frmunlock
frmunlock.TxtNo_Client.Text = clientpopup
frmunlock.Show 1
End Sub

Private Sub klref_Click()
ResizeForm Me
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()
Load frmubahipclient
frmubahipclient.Show 1

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.TxtNoClient.Text = clientpopup
    FrmPesan.Show 1
End Sub

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


Private Sub mnurekap_Click()
    Load FrmLaporanRekap
    FrmLaporanRekap.Show 1
End Sub


Private Sub mnures_Click()
ResizeForm Me
End Sub

Private Sub mnushutdown_Click()
    Load FrmShutdownClient
    FrmShutdownClient.TxtNo_Client.Text = clientpopup
    FrmShutdownClient.Show 1
End Sub

Private Sub mnustop_Click()
    Load FrmStopClient
    FrmStopClient.TxtNo_Client.Text = clientpopup
    FrmStopClient.Show 1
End Sub

Private Sub mnuunlock_Click()
Load frmunlock
frmunlock.TxtNo_Client.Text = clientpopup
frmunlock.Show 1
End Sub

Private Sub mnuuser_Click()
    Load FrmUser
    FrmUser.Show 1
End Sub
Private Sub CekLogin()
On Error GoTo error
    cn.Open
    cmd.ActiveConnection = cn
    cmd.CommandType = adCmdText
    cmd.CommandText = "SELECT cache.* FROM cache WHERE cache.path = 'server'"
    cmd.Execute
    rs.ActiveConnection = cn
    rs.Open "SELECT cache.* FROM cache WHERE cache.path = 'server'", cn, adOpenStatic, adLockOptimistic
    If Not rs.RecordCount = 0 Then
        usnm.Text = rs(2)
        nm.Text = rs(3)
        lgas.Text = rs(4)
        If rs(4) = "root" Then
            Call MenuAdmin
        ElseIf rs(4) = "admin" Then
            Call MenuAdmin
        ElseIf rs(4) = "user" Then
            Call MenuUser
        End If
        tgl.Caption = Format(Date, "dddd, dd mmmm yyyy")
        jam.Caption = Format(Time, "hh:nn:ss")
    Else
        MsgBox "Cache gagal dilakukan", vbCritical, "System Crash!"
        End
    End If
    cn.Close
error:
    Select Case err.Number
    Case 53
    MsgBox "Sory Bro, Gagal neh meriksa data base nya, Sory ya"
    End Select
End Sub

Private Sub GridBilling_Click()
    clientpopup = GridBilling.Row
End Sub

Private Sub GridBilling_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 MyButton13_Click()
    Load FrmBackup
    FrmBackup.Show 1

End Sub

Private Sub MyButton14_Click()
    Load FrmUser
    FrmUser.Show 1

End Sub

Private Sub MyButton15_Click()
    Load FrmConfig
    FrmConfig.Show 1

End Sub

Private Sub MyButton16_Click()
frmplyr.Visible = True
End Sub

Private Sub MyButton17_Click()
    Load FrmMember
    FrmMember.Show 1

End Sub

Private Sub MyButton18_Click()
DataReport1.Visible = True
DataReport1.WindowState = 2
End Sub

Private Sub MyButton19_Click()
Load frmjual
frmjual.Show 1
End Sub

Private Sub MyButton4_Click()
Load FrmLogOut
FrmLogOut.Show 1
End Sub
Private Sub rad_Click()
Load Form1
Form1.Text1.Text = clientpopup
Form1.Show 1
End Sub
Private Sub rnt_Click()
DataReport1.Visible = True
DataReport1.WindowState = 2
End Sub
Private Sub tgl_Click()
XPFrame8.Visible = False
End Sub
Private Sub TimerAktif_Timer()
On Error Resume Next
    If (Now = startdis) Then
        For i = 1 To ClientMax
            If GridBilling.TextMatrix(i, 3) = setAktif Then
                durasi_disc(i) = Now - disc_mulai(i)
                durasi(i) = Now - mulai(i)
                atas(i) = Int(Val(Format(durasi(i), "nn")) / interval)
                ataspel(i) = Int(Val(Format(durasi(i), "nn")) / intervalpel)
                atasmem(i) = Int(Val(Format(durasi(i), "nn")) / intervalmem)
                atasgam(i) = Int(Val(Format(durasi(i), "nn")) / intervalgam)
                atasmen(i) = Int(Val(Format(durasi(i), "nn")) / intervalmen)
                bawah(i) = atas(i) + 1
                bawahpel(i) = ataspel(i) + 1
                bawahmem(i) = atasmem(i) + 1
                bawahgam(i) = atasgam(i) + 1
                bawahmen(i) = atasmen(i) + 1
                If GridBilling.TextMatrix(i, 7) = setPersonal Then
                    If Val(Format(durasi(i), "nn")) / interval >= atas(i) And Val(Format(durasi(i), "nn")) / interval <= bawah(i) Then
                        biaya(i) = Round((Val(Mid(Format(durasi(i), "hh:nn:ss"), 1, 2)) * harga_personal * 60 / interval) + (bawah(i) * harga_personal), 2)
                        biaya_disc(i) = Round(((Val(Mid(Format(durasi_disc(i), "hh:nn:ss"), 1, 2)) * harga_personal * 60 / interval) + (bawah(i) * harga_personal)) * Discount / 100, 2)
                    End If
                    If biaya(i) <= harga_awal Then
                        biaya(i) = harga_awal
                    End If
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -