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

📄 frmconfig.frm

📁 Billing Internet Cafe
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   195
      Left            =   6120
      TabIndex        =   57
      Top             =   240
      Width           =   1485
   End
   Begin VB.Label Label22 
      BackStyle       =   0  'Transparent
      Caption         =   "Data Warnet"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   255
      Left            =   120
      TabIndex        =   56
      Top             =   240
      Width           =   1335
   End
End
Attribute VB_Name = "FrmConfig"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub CmdTutup_Click()
    Unload Me
End Sub
Private Sub CekSetingUmum()
On Error Resume Next
    cn.Open
    cmd.ActiveConnection = cn
    cmd.CommandType = adCmdText
    cmd.CommandText = "SELECT seting.* FROM seting"
    cmd.Execute
    rs.ActiveConnection = cn
    rs.Open "SELECT seting.* FROM seting", cn, adOpenStatic, adLockOptimistic
    If Not rs.RecordCount = 0 Then
        rs.MoveFirst
        Txtnama_warnet.Text = rs(0)
        Txtalamat1.Text = rs(1)
        Txtalamat2.Text = rs(2)
        Txtport.Text = rs(3)
        Txtcurrency.Text = rs(4)
        Txtharga_awal.Text = rs(5)
    Else
        Txtnama_warnet.Text = "BLacK PeaRL Internet Cafe"
        Txtalamat1.Text = "Jl. Raya Bukittinggi - Medan KM. 4"
        Txtalamat2.Text = "Bukittinggi - Sumatera barat"
        Txtport.Text = "2807"
        Txtcurrency.Text = "Rp."
        Txtharga_awal.Text = "0"
    End If
    cn.Close
End Sub

Private Sub CmdUpdateDisc_Click()
If Txtdisc.Text = 0 Then
MsgBox "Restart Billing untuk mendeactivasi happy hour.", vbOKOnly, "Restart Billing"
Else
MsgBox "Restart Billing untuk mengaktivasi happy hour.", vbOKOnly, "Restart Billing"
End If
    UpdateSetingDiscount
End Sub

Private Sub CmdupdateHarga_Click()
    UpdateSetingHarga
End Sub

Private Sub CmdUpdateUmum_Click()
    UpdateSetingUmum
End Sub

Private Sub UpdateSetingUmum()
On Error Resume Next
    cn.Open
    cmd.ActiveConnection = cn
    cmd.CommandType = adCmdText
    cmd.CommandText = "SELECT seting.* FROM seting"
    cmd.Execute
    rs.ActiveConnection = cn
    rs.Open "SELECT seting.* FROM seting", cn, adOpenStatic, adLockOptimistic
    If Not rs.RecordCount = 0 Then
        rs.MoveFirst
        rs(0) = Txtnama_warnet.Text
        rs(1) = Txtalamat1.Text
        rs(2) = Txtalamat2.Text
        rs(3) = Val(Txtport.Text)
        rs(4) = Txtcurrency.Text
        rs.Update
    Else
        rs.AddNew
        rs(0) = Txtnama_warnet.Text
        rs(1) = Txtalamat1.Text
        rs(2) = Txtalamat2.Text
        rs(3) = Val(Txtport.Text)
        rs(4) = Txtcurrency.Text
        rs.Update
    End If
    cn.Close
    MsgBox "Setting telah berhasil disimpan", vbInformation, "Konfigurasi"
End Sub
Private Sub CekSetingHarga()
On Error Resume Next
    cn.Open
    cmd.ActiveConnection = cn
    cmd.CommandType = adCmdText
    cmd.CommandText = "SELECT harga.* FROM harga"
    cmd.Execute
    rs.ActiveConnection = cn
    rs.Open "SELECT harga.* FROM harga", cn, adOpenStatic, adLockOptimistic
    If Not rs.RecordCount = 0 Then
        rs.MoveFirst
        Txtpersonal.Text = rs(1)
        txtpelajar.Text = rs(2)
        Txtmember.Text = rs(3)
        txtgame = rs(4)
        txtketik = rs(5)
        TxtInterval.Text = rs(6)
        txtintervalpel.Text = rs(7)
        TxtIntervalmem.Text = rs(8)
        txtintervalgam.Text = rs(9)
        TxtIntervalmen.Text = rs(10)
        TxtDepositMin.Text = rs(11)
    Else
        Txtpersonal.Text = 4000
        txtpelajar.Text = 3000
        Txtmember.Text = 2000
        txtgame.Text = 2000
        txtketik.Text = 1000
        TxtInterval.Text = 15
        TxtDepositMin.Text = 25000
    End If
    cn.Close
End Sub
Private Sub UpdateSetingHarga()
On Error Resume Next
    cn.Open
    cmd.ActiveConnection = cn
    cmd.CommandType = adCmdText
    cmd.CommandText = "SELECT harga.* FROM harga"
    cmd.Execute
    rs.ActiveConnection = cn
    rs.Open "SELECT harga.* FROM harga", cn, adOpenStatic, adLockOptimistic
    If Not rs.RecordCount = 0 Then
        rs.MoveFirst
        rs(0) = 0
        rs(1) = Val(Txtpersonal.Text)
        rs(2) = Val(txtpelajar.Text)
        rs(3) = Val(Txtmember.Text)
        rs(4) = Val(txtgame.Text)
        rs(5) = Val(txtketik.Text)
        rs(6) = Val(TxtInterval.Text)
        rs(7) = Val(txtintervalpel.Text)
        rs(8) = Val(TxtIntervalmem.Text)
        rs(9) = Val(txtintervalgam.Text)
        rs(10) = Val(TxtIntervalmen.Text)
        rs(11) = Val(TxtDepositMin.Text)
        rs.Update
    Else
        rs.AddNew
        rs(0) = 0
        rs(1) = Val(Txtpersonal.Text)
        rs(2) = Val(txtpelajar.Text)
        rs(3) = Val(Txtmember.Text)
        rs(4) = Val(txtgame.Text)
        rs(5) = Val(txtketik.Text)
        rs(6) = Val(TxtInterval.Text)
        rs(7) = Val(txtintervalpel.Text)
        rs(8) = Val(TxtIntervalmem.Text)
        rs(9) = Val(txtintervalgam.Text)
        rs(10) = Val(TxtIntervalmen.Text)
        rs(11) = Val(TxtDepositMin.Text)
        rs.Update
    End If
    cn.Close
    MsgBox "Setting telah berhasil disimpan", vbInformation, "Konfigurasi"
End Sub
Private Sub CekSetingDiscount()
On Error Resume Next
    cn.Open
    cmd.ActiveConnection = cn
    cmd.CommandType = adCmdText
    cmd.CommandText = "SELECT discount.* FROM discount"
    cmd.Execute
    rs.ActiveConnection = cn
    rs.Open "SELECT discount.* FROM discount", cn, adOpenStatic, adLockOptimistic
    If Not rs.RecordCount = 0 Then
        rs.MoveFirst
        Txtdisc.Text = rs(0)
        Txtjam_awal.Text = rs(1)
        Txtjam_akhir.Text = rs(2)
    Else
        Txtdisc.Text = "0"
        Txtjam_awal.Text = "00:00:00"
        Txtjam_akhir.Text = "06:00:00"
    End If
    cn.Close
End Sub
Private Sub UpdateSetingDiscount()
On Error Resume Next
    cn.Open
    cmd.ActiveConnection = cn
    cmd.CommandType = adCmdText
    cmd.CommandText = "SELECT discount.* FROM discount"
    cmd.Execute
    rs.ActiveConnection = cn
    rs.Open "SELECT discount.* FROM discount", cn, adOpenStatic, adLockOptimistic
    If Not rs.RecordCount = 0 Then
        rs.MoveFirst
        rs(0) = Val(Txtdisc.Text)
        rs(1) = Txtjam_awal.Text
        rs(2) = Txtjam_akhir.Text
        rs.Update
    Else
        rs.AddNew
        rs(0) = Val(Txtdisc.Text)
        rs(1) = Txtjam_awal.Text
        rs(2) = Txtjam_akhir.Text
        rs.Update
    End If
    cn.Close
    MsgBox "Setting telah berhasil disimpan", vbInformation, "Konfigurasi"
End Sub

Private Sub Form_Load()
On Error Resume Next
    CekSetingUmum
    CekSetingHarga
    CekSetingDiscount
    TxtInterval.AddItem "5"
    TxtInterval.AddItem "10"
    TxtInterval.AddItem "15"
    TxtInterval.AddItem "20"
    TxtInterval.AddItem "25"
    TxtInterval.AddItem "30"
    TxtInterval.AddItem "35"
    TxtInterval.AddItem "40"
    TxtInterval.AddItem "45"
    TxtInterval.AddItem "50"
    TxtInterval.AddItem "55"
    TxtInterval.AddItem "60"
    txtintervalpel.AddItem "5"
    txtintervalpel.AddItem "10"
    txtintervalpel.AddItem "15"
    txtintervalpel.AddItem "20"
    txtintervalpel.AddItem "25"
    txtintervalpel.AddItem "30"
    txtintervalpel.AddItem "35"
    txtintervalpel.AddItem "40"
    txtintervalpel.AddItem "45"
    txtintervalpel.AddItem "50"
    txtintervalpel.AddItem "55"
    txtintervalpel.AddItem "60"
    TxtIntervalmem.AddItem "5"
    TxtIntervalmem.AddItem "10"
    TxtIntervalmem.AddItem "15"
    TxtIntervalmem.AddItem "20"
    TxtIntervalmem.AddItem "25"
    TxtIntervalmem.AddItem "30"
    TxtIntervalmem.AddItem "35"
    TxtIntervalmem.AddItem "40"
    TxtIntervalmem.AddItem "45"
    TxtIntervalmem.AddItem "50"
    TxtIntervalmem.AddItem "55"
    TxtIntervalmem.AddItem "60"
    txtintervalgam.AddItem "5"
    txtintervalgam.AddItem "10"
    txtintervalgam.AddItem "15"
    txtintervalgam.AddItem "20"
    txtintervalgam.AddItem "25"
    txtintervalgam.AddItem "30"
    txtintervalgam.AddItem "35"
    txtintervalgam.AddItem "40"
    txtintervalgam.AddItem "45"
    txtintervalgam.AddItem "50"
    txtintervalgam.AddItem "55"
    txtintervalgam.AddItem "60"
    TxtIntervalmen.AddItem "5"
    TxtIntervalmen.AddItem "10"
    TxtIntervalmen.AddItem "15"
    TxtIntervalmen.AddItem "20"
    TxtIntervalmen.AddItem "25"
    TxtIntervalmen.AddItem "30"
    TxtIntervalmen.AddItem "35"
    TxtIntervalmen.AddItem "40"
    TxtIntervalmen.AddItem "45"
    TxtIntervalmen.AddItem "50"
    TxtIntervalmen.AddItem "55"
    TxtIntervalmen.AddItem "60"
End Sub


Private Sub game_GotFocus()
game.Backcolor = &HFFFF00

End Sub

Private Sub game_LostFocus()
game.Backcolor = &HFFFFFF

End Sub

Private Sub ketik_GotFocus()
ketik.Backcolor = &HFFFF00
End Sub

Private Sub ketik_LostFocus()
ketik.Backcolor = &HFFFFFF
End Sub

Private Sub member_GotFocus()
member.Backcolor = &HFFFF00
End Sub

Private Sub member_LostFocus()
member.Backcolor = &HFFFFFF
End Sub

Private Sub pelajar_GotFocus()
    pelajar.Backcolor = &HFFFF00
End Sub

Private Sub pelajar_LostFocus()
 pelajar.Backcolor = &HFFFFFF
End Sub

Private Sub Txtalamat1_GotFocus()
    Txtalamat1.Backcolor = &HFFFF00
End Sub
Private Sub Txtalamat1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Txtalamat2.SetFocus
    End If
End Sub
Private Sub Txtalamat1_LostFocus()
    Txtalamat1.Backcolor = &HFFFFFF
End Sub
Private Sub Txtalamat2_GotFocus()
    Txtalamat2.Backcolor = &HFFFF00
End Sub
Private Sub Txtalamat2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Txtport.SetFocus
    End If
End Sub
Private Sub Txtalamat2_LostFocus()
    Txtalamat2.Backcolor = &HFFFFFF
End Sub
Private Sub Txtcurrency_GotFocus()
    Txtcurrency.Backcolor = &HFFFF00
End Sub
Private Sub Txtcurrency_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Txtharga_awal.SetFocus
    End If
End Sub

Private Sub Txtcurrency_LostFocus()
    Txtcurrency.Backcolor = &HFFFFFF
End Sub

Private Sub TxtDepositMin_GotFocus()
    TxtDepositMin.Backcolor = &HFFFF00
End Sub

Private Sub TxtDepositMin_KeyPress(KeyAscii As Integer)
    If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Or KeyAscii = 13 Or KeyAscii = 8) Then
        KeyAscii = 0
    End If
    If KeyAscii = 13 Then
        CmdupdateHarga.SetFocus
    End If
End Sub

Private Sub TxtDepositMin_LostFocus()
    TxtDepositMin.Backcolor = &HFFFFFF
End Sub

Private Sub Txtdisc_GotFocus()
    Txtdisc.Backcolor = &HFFFF00
End Sub

Private Sub Txtdisc_KeyPress(KeyAscii As Integer)
    If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Or KeyAscii = 13 Or KeyAscii = 8) Then
        KeyAscii = 0
    End If
    If KeyAscii = 13 Then
        Txtjam_awal.SetFocus
    End If
End Sub

Private Sub Txtdisc_LostFocus()
    Txtdisc.Backcolor = &HFFFFFF
End Sub

Private Sub Txtgame_GotFocus()
    txtgame.Backcolor = &HFFFF00
End Sub

Private Sub Txtgame_KeyPress(KeyAscii As Integer)
    If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Or KeyAscii = 13 Or KeyAscii = 8) Then
        KeyAscii = 0
    End If
    If KeyAscii = 13 Then
        txtketik.SetFocus
    End If
1234

⌨️ 快捷键说明

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