📄 login.frm
字号:
VERSION 5.00
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "actskn43.ocx"
Object = "{CFA7AFF4-3242-4269-9172-7389D695AE01}#1.0#0"; "StoneXP.ocx"
Begin VB.Form login
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "系统登陆"
ClientHeight = 2235
ClientLeft = 45
ClientTop = 435
ClientWidth = 6030
Icon = "login.frx":0000
LinkTopic = "login"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2235
ScaleWidth = 6030
StartUpPosition = 1 '所有者中心
Begin VB.TextBox Text3
Height = 270
Left = 4440
TabIndex = 9
Text = "Text3"
Top = -120
Width = 1215
End
Begin VB.Timer Timer2
Interval = 1200
Left = 1080
Top = 960
End
Begin VB.PictureBox Picture1
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 975
Left = 2220
ScaleHeight = 975
ScaleWidth = 855
TabIndex = 5
Top = 600
Width = 855
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "密 码："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 0
TabIndex = 7
Top = 600
Width = 1215
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "用户名："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 0
TabIndex = 6
Top = 135
Width = 1215
End
End
Begin StoneXP.XPButton Command1
Height = 375
Left = 2280
TabIndex = 4
Top = 1680
Width = 1095
_ExtentX = 1931
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ButtonStyle = 1
Caption = "确 定"
MouseIcon = "login.frx":000C
MousePointer = 99
End
Begin VB.TextBox Text1
Height = 270
Left = 960
TabIndex = 2
Text = "Text1"
Top = -1000
Width = 1215
End
Begin 商品综合管理系统.XPCombo XPCombo1
Height = 315
Left = 3120
TabIndex = 1
Top = 720
Visible = 0 'False
Width = 1815
_extentx = 3201
_extenty = 556
font = "login.frx":0326
End
Begin ACTIVESKINLibCtl.Skin PKSkn
Left = 0
OleObjectBlob = "login.frx":034A
Top = 120
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
IMEMode = 3 'DISABLE
Left = 3120
PasswordChar = "*"
TabIndex = 0
Top = 1200
Width = 1815
End
Begin StoneXP.XPButton Command2
Height = 375
Left = 3840
TabIndex = 8
Top = 1680
Width = 1095
_ExtentX = 1931
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ButtonStyle = 1
Caption = "离 开"
MouseIcon = "login.frx":057E
MousePointer = 99
End
Begin VB.Label Label13
Caption = "您使用的是星零工作室的软件,现在已过期,如果需要继续使用请联系QQ342483870"
Height = 375
Left = 720
TabIndex = 3
Top = -1000
Width = 3975
End
End
Attribute VB_Name = "login"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2008/05/10
'描 述：商品综合管理系统 Sql2000版
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Dim pnum As Integer
Private Sub Command1_Click()
On Error GoTo finish
Set Qy1 = cnn.Execute("select ups from userm where un='" & XPCombo1.Text & "'")
If Qy1.EOF = True Then
PASSERR
Else
If Qy1.Fields(0) = Text2.Text Then
LoginAdmin = XPCombo1.Text
Unload Me
formmain.Show
Else
PASSERR
End If
End If
Exit Sub
finish: '当出现错误转到此处，提示错误标识
MsgBox Err.Description
End Sub
Private Sub PASSERR()
If pnum < 2 Then
pnum = pnum + 1
MsgBox "用户名或密码错误!", vbInformation, "错误次数：" & pnum
Text2.Text = ""
Exit Sub
Else
MsgBox "用户名或密码错误超过三次,系统会自动退出", vbInformation, "提示"
End
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
If EXIT_UP = False Then
VersionNumber_load
End If
Set Qy1 = cnn.Execute("select count(*) from userm")
If Qy1.Fields(0) = 0 Then
Set Qy1 = cnn.Execute("insert into userm values('admin','admin','','1','1','1','1','1','1','1','1','1','1','1','1','1','1','1','1')")
End If
Set Qy1 = cnn.Execute("select un from userm")
Do While Not Qy1.EOF
XPCombo1.AddItem Qy1.Fields(0)
Qy1.MoveNext
Loop
Set Qy1 = cnn.Execute("delete from log") '清空日志,在适当时候可以去除
PKSkn.LoadSkin App.Path & "\XLSKN02.skn"
PKSkn.ApplySkinByName hWnd, "自由窗体"
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Command1_Click
End If
End Sub
Private Sub Timer2_Timer()
XPCombo1.Visible = True
Timer2.Interval = 0
End Sub
Private Sub XPCombo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Command1_Click
End If
End Sub
Private Sub VersionNumber_load() '客户端设置读取机器ID快捷识别编号
Dim buff As String
Dim backFile As String
Dim ret As Integer
buff = String(255, 0)
ret = GetPrivateProfileString("Ver", "Ver", "", buff, 256, App.Path & "\sp.ini")
If ret = 0 Then
VersionN = "1.00"
ret = WritePrivateProfileString("Ver", "Ver", VersionN, App.Path & "\sp.ini")
Else
VersionN = buff
End If
'获取升级说明路径
ret = GetPrivateProfileString("Ver", "IP", "", buff, 256, App.Path & "\sp.ini")
If ret = 0 Then
ret = WritePrivateProfileString("Ver", "IP", "www.ah163.net.cn", App.Path & "\sp.ini")
Else
Text3.Text = buff
UPIP = Text3.Text
End If
'获取升级说明路径
ret = GetPrivateProfileString("Ver", "UPLIST", "", buff, 256, App.Path & "\sp.ini")
If ret = 0 Then
ret = WritePrivateProfileString("Ver", "UPLIST", "http://www.ah163.net.cn/lovexl/SPupdate/uplist.up", App.Path & "\sp.ini")
Else
UPlist = buff
End If
'获取URL网页
ret = GetPrivateProfileString("Ver", "UPURL", "", buff, 256, App.Path & "\sp.ini")
If ret = 0 Then
ret = WritePrivateProfileString("Ver", "UPURL", "http://www.ah163.net.cn/lovexl/SPupdate/update.up", App.Path & "\sp.ini")
Else
UPURL = buff
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -