?? logo.frm
字號:
VERSION 5.00
Object = "{097F6A0C-0018-11D9-BA52-000D87CBA130}#1.0#0"; "TextEx.ocx"
Object = "{FF595003-27F5-4C41-AA2B-7BE9248B642D}#1.1#0"; "XPControl.ocx"
Begin VB.Form Logo
AutoRedraw = -1 'True
BorderStyle = 3 'Fixed Dialog
Caption = "正在加載中"
ClientHeight = 4500
ClientLeft = 45
ClientTop = 390
ClientWidth = 7455
Icon = "Logo.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "Logo.frx":628A
ScaleHeight = 300
ScaleMode = 3 'Pixel
ScaleWidth = 497
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Timer Timer1
Interval = 1000
Left = 3000
Top = 2400
End
Begin TextEx.VbTextEx VbTextEx1
Height = 300
Left = 1200
TabIndex = 2
Top = 3480
Visible = 0 'False
Width = 1095
_ExtentX = 1931
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
AutoSelectAll = -1 'True
End
Begin TextEx.VbTextEx VbTextEx2
Height = 300
Left = 3120
TabIndex = 3
Top = 3480
Visible = 0 'False
Width = 1095
_ExtentX = 1931
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
PasswordChar = "*"
AutoSelectAll = -1 'True
End
Begin xpControls.xpCommand xpCommand1
Height = 300
Left = 4320
TabIndex = 4
Top = 3480
Visible = 0 'False
Width = 1095
_ExtentX = 1931
_ExtentY = 529
Caption = "登錄(&L)"
ForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "Logo.frx":2995B
CaptionAreapercent= 65
End
Begin xpControls.xpCommand xpCommand2
Height = 300
Left = 5520
TabIndex = 5
Top = 3480
Visible = 0 'False
Width = 1095
_ExtentX = 1931
_ExtentY = 529
Caption = "退出(&E)"
ForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "Logo.frx":29EF5
CaptionAreapercent= 65
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用戶名:"
Height = 180
Left = 480
TabIndex = 1
Top = 3525
Visible = 0 'False
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "口 令:"
Height = 180
Left = 2400
TabIndex = 0
Top = 3525
Visible = 0 'False
Width = 720
End
End
Attribute VB_Name = "Logo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Conn As New ADODB.Connection
Private Rs As New ADODB.Recordset
Private Sub Form_Load()
If Conn.State = 1 Then Conn.Close
DBname = App.Path & "\xjdb.dll"
DBpass = "www.ahxc.net"
DBconn
Conn.Open Connstr
End Sub
Private Sub VbTextEx1_GotFocus()
xpCommand1.Default = False
End Sub
Private Sub VbTextEx2_GotFocus()
xpCommand1.Default = True
End Sub
Private Sub xpCommand1_Click()
'On Error Resume Next
If Conn.State = 1 Then
Sql = "select * from xjuser where username='" & Trim(VbTextEx1.Text) & "'"
If Rs.State = 1 Then Rs.Close
Rs.Open Sql, Conn, 1, 1
If Not (Rs.EOF And Rs.BOF) Then
If Rs("passs") = MD5.MD5(VbTextEx2.Text, 32) Then
Loguser = Rs("username")
Flags = Split(Rs("flags"), ",")
Car.Show
Unload Me
Exit Sub
End If
MsgBox "用戶名或密碼錯誤請重新登錄!", 0 + 16 + 0
'VbTextEx1.Text = Sql
Exit Sub
End If
End If
End Sub
Private Sub xpCommand2_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
VbTextEx1.Visible = True
VbTextEx2.Visible = True
Label1.Visible = True
Label2.Visible = True
xpCommand1.Visible = True
xpCommand2.Visible = True
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -