?? frmlogin.frm
字號:
VERSION 5.00
Object = "{3A6644DE-3402-11D9-9DE7-C33FAA87690A}#1.0#0"; "WinXPCEngine.ocx"
Begin VB.Form FrmLogin
AutoRedraw = -1 'True
BorderStyle = 3 'Fixed Dialog
Caption = "系統(tǒng)登錄 "
ClientHeight = 3045
ClientLeft = 45
ClientTop = 330
ClientWidth = 5295
ControlBox = 0 'False
Icon = "FrmLogin.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3045
ScaleWidth = 5295
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox PicLogin
Height = 495
Index = 0
Left = 360
ScaleHeight = 435
ScaleWidth = 4515
TabIndex = 9
Top = 120
Width = 4575
Begin VB.Label LblWelcome
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "歡迎使用企業(yè)人事管理系統(tǒng)"
BeginProperty Font
Name = "楷體_GB2312"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 360
Index = 1
Left = 0
TabIndex = 11
Top = 0
Width = 4500
End
Begin VB.Label LblWelcome
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "歡迎使用企業(yè)人事管理系統(tǒng)"
BeginProperty Font
Name = "楷體_GB2312"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 360
Index = 0
Left = 30
TabIndex = 10
Top = 30
Width = 4500
End
End
Begin VB.PictureBox PicLogin
Height = 1095
Index = 1
Left = 720
ScaleHeight = 1035
ScaleWidth = 3915
TabIndex = 4
Top = 1080
Width = 3975
Begin VB.TextBox TxtPassword
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
IMEMode = 3 'DISABLE
Left = 1440
MaxLength = 10
PasswordChar = "*"
TabIndex = 6
ToolTipText = "口令:admin"
Top = 630
Width = 2295
End
Begin VB.TextBox TxtUserName
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 1440
MaxLength = 15
TabIndex = 5
Top = 150
Width = 2295
End
Begin VB.Label LblPassword
AutoSize = -1 'True
Caption = "管理員口令："
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 240
TabIndex = 8
Top = 675
Width = 1170
End
Begin VB.Label LblUserName
AutoSize = -1 'True
Caption = "管理員名稱："
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 240
TabIndex = 7
Top = 195
Width = 1170
End
End
Begin VB.CommandButton CmdCancel
Caption = "取消(&C)"
Height = 375
Left = 3120
TabIndex = 1
Top = 2400
Width = 1335
End
Begin VB.CommandButton CmdLogin
Caption = "登錄(&L)"
Default = -1 'True
Height = 375
Left = 960
TabIndex = 0
Top = 2400
Width = 1335
End
Begin VB.Timer TmrMoveText2
Interval = 1
Left = 3000
Top = 0
End
Begin VB.Timer TmrMoveText1
Interval = 1
Left = 2520
Top = 0
End
Begin VB.Timer TmrChangeColor
Interval = 500
Left = 2055
Top = 0
End
Begin WinXPC_Engine.WindowsXPC WinXPLogin
Left = 840
Top = 1320
_ExtentX = 6588
_ExtentY = 1085
ColorScheme = 2
Common_Dialog = 0 'False
End
Begin VB.Label LblShaSi
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "廢客聯(lián)邦作品"
BeginProperty Font
Name = "華文行楷"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 225
Index = 1
Left = 360
TabIndex = 2
Top = 750
Width = 1260
End
Begin VB.Label LblShaSi
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "廢客聯(lián)邦作品"
BeginProperty Font
Name = "華文行楷"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 225
Index = 0
Left = 510
TabIndex = 3
Top = 735
Width = 1260
End
End
Attribute VB_Name = "FrmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Counts As Byte
'Download by http://www.codefans.net
Private Sub cmdcancel_Click()
'//結(jié)束
End
End Sub
Private Sub CmdLogin_Click()
Dim StrSQL As String
UserName = CStr(Trim(TxtUserName.Text)) '//將文本框內(nèi)的值賦給定義好的全局變量
PassWord = CStr(Trim(TxtPassWord.Text))
If UserName <> Empty And PassWord <> Empty Then '//用戶名與密碼是否為空
StrSQL = "select 用戶名稱,用戶口令,用戶權(quán)限 from 管理用戶 where 用戶名稱= '" & UserName & "'and 用戶口令 ='" & PassWord & "'"
If RsLoginCheck.State = adStateClosed Then
RsLoginCheck.Open StrSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText '//打開記錄集
End If
Group = RsLoginCheck.Fields(2).Value
If RsLoginCheck.Fields(2).Value <> "Administrators" Then
Call CheckLogin
End If
If RsLoginCheck.RecordCount <> 0 Then '//判斷記錄集記錄條數(shù)是否為0
RsLoginCheck.Close
Unload Me
Frmmdimain.Show '//顯示主窗
FrmDay.Show vbModal
ElseIf Counts < 2 Then
MsgBox "用戶名域密碼錯誤", vbExclamation + vbOKOnly, "登錄失敗"
RsLoginCheck.Close '//關(guān)閉記錄集
Counts = Counts + 1
Else
MsgBox "密碼錯誤不得超過三次，否則視您為非法用戶！", vbCritical, "警告"
End
End If
Else
MsgBox "用戶名密碼不能為空", vbExclamation + vbOKOnly, "登錄失敗"
Call Form_Load
End If
End Sub
Private Sub Form_Load()
WinXPLogin.InitSubClassing
'//加載主窗時(shí)給文本框賦值
TxtUserName.Text = "Administrator"
TxtPassWord.Text = "admin"
End Sub
Private Sub TmrChangeColor_Timer()
'//調(diào)用定義好的改變顏色過程,
Call changecolor(LblWelcome(0), 0, 1, 2, 3, 4, 5, 6, 7)
End Sub
Private Sub TmrMoveText1_Timer()
'//移動LblShaSi
LblShaSi(0).Move LblShaSi(0).Left + 20
LblShaSi(1).Move LblShaSi(1).Left + 20
End Sub
Private Sub TmrMoveText2_Timer()
'//移動LblShaSi
If LblShaSi(0).Left + LblShaSi(0).Width >= Me.Width + LblShaSi(0).Width Then
LblShaSi(0).Move -1500
End If
If LblShaSi(1).Left + LblShaSi(1).Width >= Me.Width + LblShaSi(1).Width Then
LblShaSi(1).Move -1500
End If
End Sub
'//定義一個(gè)改變顏色的過程,下面的control就是我們所說的控件
Sub changecolor(LCnt As Control, color1 As Integer, _
color2 As Integer, color3 As Integer, _
color4 As Integer, color5 As Integer, _
color6 As Integer, color7 As Integer, _
color8 As Integer)
Dim tmep As Integer
tmep = Val(LCnt.Tag) '//將返回包含于字符串內(nèi)的數(shù)字賦給TEMP
Select Case tmep
Case color1
LCnt.Tag = color2
Case color2
LCnt.Tag = color3
Case color3
LCnt.Tag = color4
Case color4
LCnt.Tag = color5
Case color5
LCnt.Tag = color6
Case color6
LCnt.Tag = color7
Case color7
LCnt.Tag = color8
Case color8
LCnt.Tag = color1
End Select
LCnt.ForeColor = QBColor(LCnt.Tag) '//給控件LCnt中的字體賦予顏色,注意QBColor是將一值
'//轉(zhuǎn)換為三色,MSDN詳解,我也是在那查的````哈
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -