📄 frmaddguest.frm

📁 Call centeer gestion de usuarios todo ello gratis y bajo windows
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
    rs.MoveNext
    Text1.SetFocus
    End If
Wend
'On Error GoTo r
ron = "close"
check_RS
rs.Open "select * from admin_password order by admin_id asc", Cnn
While Not rs.EOF
If Text1.Text = rs!admin_id And Text2.Text = rs!Password Then
Timer1.Interval = 0
Timer2.Interval = 0
Timer3.Interval = 0
Timer4.Interval = 0
Load frmAdminArea
frmAdminArea.Show 1
    rs.MoveLast
    rs.MoveNext
Else
    rs.MoveNext
    Text1.SetFocus
    End If
Wend
r:
'End

End Sub
'End If
Private Sub Command2_Click()
Explode Me
End
End Sub


Private Sub Form_Load()
Explode Me
connect
check_RS
rs.Open "select * from user_login", Cnn
'======
check_RS1
rs1.Open "select * from admin_password", Cnn
End Sub
Private Sub Form_Unload(Cancel As Integer)
Explode Me
End Sub

Private Sub T1_Timer()
If eks >= frmLogin.width Then
eks = 0
meyn.Refresh
End If

If sw1 = 0 Then
  If seed >= 800 Then
    sw1 = 1
     
  Else
seed = seed + 10
  End If
ElseIf sw1 = 1 Then
  If seed <= 65 Then
    sw1 = 0
    
  Else
seed = seed - 10
  End If
End If
Label5.ForeColor = seed
Line1.BorderColor = seed
Line2.BorderColor = seed
Line3.BorderColor = seed
Line4.BorderColor = seed
Line5.BorderColor = seed
Line6.BorderColor = seed
Line7.BorderColor = seed
Line8.BorderColor = seed

End Sub


Private Sub Timer1_Timer()
On Error GoTo bye
If bar.Value = 30 Then
'MsgBox "Sorry! You are not a valid user...", vbOKOnly, "Times up"
Explode Me
End
End If
bar.Value = bar.Value + 1
Label5.Caption = bar.Value
If Label5 = 30 Then
   Label5 = 1
ElseIf Label5 = 29 Then
   Label5 = 2
ElseIf Label5 = 28 Then
   Label5 = 3
ElseIf Label5 = 27 Then
   Label5 = 4
ElseIf Label5 = 26 Then
   Label5 = 5
ElseIf Label5 = 25 Then
   Label5 = 6
ElseIf Label5 = 24 Then
   Label5 = 7
ElseIf Label5 = 23 Then
   Label5 = 8
ElseIf Label5 = 22 Then
   Label5 = 9
ElseIf Label5 = 21 Then
   Label5 = 10
ElseIf Label5 = 20 Then
   Label5 = 11
ElseIf Label5 = 19 Then
   Label5 = 12
ElseIf Label5 = 18 Then
   Label5 = 13
ElseIf Label5 = 17 Then
   Label5 = 14
ElseIf Label5 = 16 Then
   Label5 = 15
ElseIf Label5 = 15 Then
   Label5 = 16
ElseIf Label5 = 14 Then
   Label5 = 17
ElseIf Label5 = 13 Then
   Label5 = 18
ElseIf Label5 = 12 Then
   Label5 = 19
ElseIf Label5 = 11 Then
   Label5 = 20
ElseIf Label5 = 10 Then
   Label5 = 21
ElseIf Label5 = 9 Then
   Label5 = 22
ElseIf Label5 = 8 Then
   Label5 = 23
ElseIf Label5 = 7 Then
   Label5 = 24
ElseIf Label5 = 6 Then
   Label5 = 25
ElseIf Label5 = 5 Then
   Label5 = 26
ElseIf Label5 = 4 Then
   Label5 = 27
ElseIf Label5 = 3 Then
   Label5 = 28
ElseIf Label5 = 2 Then
   Label5 = 29
ElseIf Label5 = 1 Then
   Label5 = 30
End If
bye:
Exit Sub
End Sub

Private Sub Timer2_Timer()
On Error GoTo bye
If bar1.Value = 30 Then
'MsgBox "Sorry! You are not a valid user...", vbOKOnly, "Times up"
Explode Me
End
End If
bar1.Value = bar1.Value + 1
Label5.Caption = bar.Value
If Label5 = 30 Then
   Label5 = 1
ElseIf Label5 = 29 Then
   Label5 = 2
ElseIf Label5 = 28 Then
   Label5 = 3
ElseIf Label5 = 27 Then
   Label5 = 4
ElseIf Label5 = 26 Then
   Label5 = 5
ElseIf Label5 = 25 Then
   Label5 = 6
ElseIf Label5 = 24 Then
   Label5 = 7
ElseIf Label5 = 23 Then
   Label5 = 8
ElseIf Label5 = 22 Then
   Label5 = 9
ElseIf Label5 = 21 Then
   Label5 = 10
ElseIf Label5 = 20 Then
   Label5 = 11
ElseIf Label5 = 19 Then
   Label5 = 12
ElseIf Label5 = 18 Then
   Label5 = 13
ElseIf Label5 = 17 Then
   Label5 = 14
ElseIf Label5 = 16 Then
   Label5 = 15
ElseIf Label5 = 15 Then
   Label5 = 16
ElseIf Label5 = 14 Then
   Label5 = 17
ElseIf Label5 = 13 Then
   Label5 = 18
ElseIf Label5 = 12 Then
   Label5 = 19
ElseIf Label5 = 11 Then
   Label5 = 20
ElseIf Label5 = 10 Then
   Label5 = 21
ElseIf Label5 = 9 Then
   Label5 = 22
ElseIf Label5 = 8 Then
   Label5 = 23
ElseIf Label5 = 7 Then
   Label5 = 24
ElseIf Label5 = 6 Then
   Label5 = 25
ElseIf Label5 = 5 Then
   Label5 = 26
ElseIf Label5 = 4 Then
   Label5 = 27
ElseIf Label5 = 3 Then
   Label5 = 28
ElseIf Label5 = 2 Then
   Label5 = 29
ElseIf Label5 = 1 Then
   Label5 = 30
End If
bye:
Exit Sub

End Sub

Private Sub Timer3_Timer()
On Error GoTo bye
If bar2.Value = 30 Then
'MsgBox "Sorry! You are not a valid user...", vbOKOnly, "Times up"
Explode Me
End
End If
bar2.Value = bar2.Value + 1
Label5.Caption = bar.Value
If Label5 = 30 Then
   Label5 = 1
ElseIf Label5 = 29 Then
   Label5 = 2
ElseIf Label5 = 28 Then
   Label5 = 3
ElseIf Label5 = 27 Then
   Label5 = 4
ElseIf Label5 = 26 Then
   Label5 = 5
ElseIf Label5 = 25 Then
   Label5 = 6
ElseIf Label5 = 24 Then
   Label5 = 7
ElseIf Label5 = 23 Then
   Label5 = 8
ElseIf Label5 = 22 Then
   Label5 = 9
ElseIf Label5 = 21 Then
   Label5 = 10
ElseIf Label5 = 20 Then
   Label5 = 11
ElseIf Label5 = 19 Then
   Label5 = 12
ElseIf Label5 = 18 Then
   Label5 = 13
ElseIf Label5 = 17 Then
   Label5 = 14
ElseIf Label5 = 16 Then
   Label5 = 15
ElseIf Label5 = 15 Then
   Label5 = 16
ElseIf Label5 = 14 Then
   Label5 = 17
ElseIf Label5 = 13 Then
   Label5 = 18
ElseIf Label5 = 12 Then
   Label5 = 19
ElseIf Label5 = 11 Then
   Label5 = 20
ElseIf Label5 = 10 Then
   Label5 = 21
ElseIf Label5 = 9 Then
   Label5 = 22
ElseIf Label5 = 8 Then
   Label5 = 23
ElseIf Label5 = 7 Then
   Label5 = 24
ElseIf Label5 = 6 Then
   Label5 = 25
ElseIf Label5 = 5 Then
   Label5 = 26
ElseIf Label5 = 4 Then
   Label5 = 27
ElseIf Label5 = 3 Then
   Label5 = 28
ElseIf Label5 = 2 Then
   Label5 = 29
ElseIf Label5 = 1 Then
   Label5 = 30
End If
bye:
Exit Sub

End Sub

Private Sub Timer4_Timer()
On Error GoTo bye
If bar3.Value = 30 Then
'MsgBox "Sorry! You are not a valid user...", vbOKOnly, "Times up"
Explode Me
End
End If
bar3.Value = bar3.Value + 1
Label5.Caption = bar.Value
If Label5 = 30 Then
   Label5 = 1
ElseIf Label5 = 29 Then
   Label5 = 2
ElseIf Label5 = 28 Then
   Label5 = 3
ElseIf Label5 = 27 Then
   Label5 = 4
ElseIf Label5 = 26 Then
   Label5 = 5
ElseIf Label5 = 25 Then
   Label5 = 6
ElseIf Label5 = 24 Then
   Label5 = 7
ElseIf Label5 = 23 Then
   Label5 = 8
ElseIf Label5 = 22 Then
   Label5 = 9
ElseIf Label5 = 21 Then
   Label5 = 10
ElseIf Label5 = 20 Then
   Label5 = 11
ElseIf Label5 = 19 Then
   Label5 = 12
ElseIf Label5 = 18 Then
   Label5 = 13
ElseIf Label5 = 17 Then
   Label5 = 14
ElseIf Label5 = 16 Then
   Label5 = 15
ElseIf Label5 = 15 Then
   Label5 = 16
ElseIf Label5 = 14 Then
   Label5 = 17
ElseIf Label5 = 13 Then
   Label5 = 18
ElseIf Label5 = 12 Then
   Label5 = 19
ElseIf Label5 = 11 Then
   Label5 = 20
ElseIf Label5 = 10 Then
   Label5 = 21
ElseIf Label5 = 9 Then
   Label5 = 22
ElseIf Label5 = 8 Then
   Label5 = 23
ElseIf Label5 = 7 Then
   Label5 = 24
ElseIf Label5 = 6 Then
   Label5 = 25
ElseIf Label5 = 5 Then
   Label5 = 26
ElseIf Label5 = 4 Then
   Label5 = 27
ElseIf Label5 = 3 Then
   Label5 = 28
ElseIf Label5 = 2 Then
   Label5 = 29
ElseIf Label5 = 1 Then
   Label5 = 30
End If
bye:
Exit Sub

End Sub
上一页 12
💿 文件大小 724 K
👤 上传用户 a6810121
📂 所属分类 Delphi控件源码
🏷️ 相关标签

#usuarios #centeer #gestion #windows
⌨️ 快捷键说明

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