frmloading.frm

Billing Internet Cafe

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form FrmLoading 
   Appearance      =   0  'Flat
   BackColor       =   &H00EFF2EC&
   BorderStyle     =   0  'None
   Caption         =   "Loading..."
   ClientHeight    =   5670
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7575
   Icon            =   "FrmLoading.frx":0000
   LinkTopic       =   "Form1"
   MouseIcon       =   "FrmLoading.frx":259A
   Picture         =   "FrmLoading.frx":9734
   ScaleHeight     =   5670
   ScaleWidth      =   7575
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFFAC6&
      BorderStyle     =   0  'None
      Height          =   5415
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   7335
      Begin ComctlLib.ProgressBar ProgressBar 
         Height          =   255
         Left            =   1200
         TabIndex        =   2
         Top             =   4440
         Width           =   4335
         _ExtentX        =   7646
         _ExtentY        =   450
         _Version        =   327682
         Appearance      =   1
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "Copy Left : BLacK PeaRL Cyber Community TM. 2008-2009"
         BeginProperty Font 
            Name            =   "OCR-A BT"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   2040
         TabIndex        =   4
         Top             =   4800
         Width           =   5655
      End
      Begin VB.Image Image4 
         Height          =   240
         Left            =   240
         Picture         =   "FrmLoading.frx":26042
         Top             =   3360
         Width           =   1845
      End
      Begin VB.Image Image3 
         Height          =   990
         Left            =   2400
         Picture         =   "FrmLoading.frx":26729
         Top             =   240
         Width           =   2415
      End
      Begin VB.Image Image2 
         Height          =   795
         Left            =   3600
         Picture         =   "FrmLoading.frx":278C1
         Top             =   2520
         Width           =   3300
      End
      Begin VB.Image Image1 
         Height          =   1185
         Left            =   240
         Picture         =   "FrmLoading.frx":28A88
         Top             =   1320
         Width           =   6090
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "Please wait while billing loading your data......."
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000D&
         Height          =   255
         Left            =   1200
         TabIndex        =   3
         Top             =   4200
         Width           =   4815
      End
      Begin VB.Shape Shape1 
         BackColor       =   &H00FFFFFF&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0C0C0&
         Height          =   5175
         Left            =   120
         Top             =   120
         Width           =   7095
      End
   End
   Begin VB.Label TxtLoad 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Please Wait While Billing Loading Your Data..."
      BeginProperty Font 
         Name            =   "OCR A Extended"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000E&
      Height          =   255
      Left            =   840
      TabIndex        =   0
      Top             =   1200
      Width           =   6375
   End
End
Attribute VB_Name = "FrmLoading"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()
    If FExists(App.path & "\Black.BLC") = True Then
        Call SetPassword
    Else
        MsgBox "System gagal menemukan database, cek data di path instalisasi program", vbCritical, "Missing Data Base"
        End
    End If
End Sub
Private Sub Form_Load()
    Call CekKey
    Call Main
    
End Sub
Private Sub SetPassword()
On Error Resume Next
    cmd.ActiveConnection = cn
    cmd.CommandType = adCmdText
    cmd.CommandText = "SELECT account.* FROM account"
    cmd.Execute
    rs.ActiveConnection = cn
    rs.Open "SELECT account.* FROM account", cn, adOpenStatic, adLockOptimistic
    If rs.RecordCount = 0 Then
        MsgBox "Password Belum di buat. Program akan otomatis melakukan pembuatan password.", vbInformation, "Run Program For First Time"
        Load FrmSetPassword
        FrmSetPassword.Show
        Unload Me
    Else
        Call Animate
    End If
    cn.Close
End Sub
Private Sub Animate()
On Error Resume Next
    For i = 1 To 5000
        ProgressBar.value = i
        TxtLoad.Refresh
    Next i
    Unload Me
    Load FrmLogin
    FrmLogin.Show
End Sub