📄 frmlogin.frm
字号:
VERSION 5.00
Begin VB.Form frmLogin
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
Caption = "frmLogin"
ClientHeight = 2985
ClientLeft = 3495
ClientTop = 3105
ClientWidth = 5565
Icon = "frmLogin.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2985
ScaleWidth = 5565
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.PictureBox BoxContainer
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
FillColor = &H00C0C0C0&
Height = 2890
Left = 40
ScaleHeight = 2895
ScaleWidth = 5460
TabIndex = 5
TabStop = 0 'False
Top = 40
Width = 5460
Begin VB.PictureBox titleBar
BorderStyle = 0 'None
Height = 375
Left = 120
ScaleHeight = 375
ScaleWidth = 5205
TabIndex = 6
TabStop = 0 'False
Top = 90
Width = 5200
Begin VB.PictureBox Help
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 280
Left = 4920
MouseIcon = "frmLogin.frx":030A
MousePointer = 99 'Custom
ScaleHeight = 285
ScaleWidth = 315
TabIndex = 8
TabStop = 0 'False
Top = 60
Width = 313
End
Begin VB.PictureBox Closed
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 280
Left = 0
MouseIcon = "frmLogin.frx":0614
MousePointer = 99 'Custom
ScaleHeight = 285
ScaleWidth = 315
TabIndex = 7
TabStop = 0 'False
Top = 60
Width = 315
End
End
Begin VB.TextBox txtUserName
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 2040
TabIndex = 0
Top = 960
Width = 2415
End
Begin VB.TextBox txtPassword
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
IMEMode = 3 'DISABLE
Left = 2040
PasswordChar = "*"
TabIndex = 1
Top = 1320
Width = 2415
End
Begin VB.PictureBox cmdOk
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 570
Left = 1560
MouseIcon = "frmLogin.frx":091E
MousePointer = 99 'Custom
ScaleHeight = 570
ScaleWidth = 1095
TabIndex = 2
TabStop = 0 'False
Top = 2040
Width = 1100
End
Begin VB.PictureBox cmdCancel
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 570
Left = 2880
MouseIcon = "frmLogin.frx":0C28
MousePointer = 99 'Custom
ScaleHeight = 570
ScaleWidth = 1095
TabIndex = 3
TabStop = 0 'False
Top = 2040
Width = 1100
End
Begin VB.Label UserName
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用户名"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 870
TabIndex = 10
Top = 960
Width = 540
End
Begin VB.Label Password
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密码"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 960
TabIndex = 9
Top = 1320
Width = 360
End
End
Begin VB.PictureBox Source
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
Height = 4530
Left = 120
Picture = "frmLogin.frx":0F32
ScaleHeight = 4411.822
ScaleMode = 0 'User
ScaleWidth = 5820
TabIndex = 4
Top = 3360
Visible = 0 'False
Width = 5820
End
Begin VB.Shape Shape1
BorderColor = &H00FFFFFF&
BorderWidth = 2
Height = 2950
Left = 15
Top = 15
Width = 5520
End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim dummy As adodb.Recordset
Dim dummy2 As adodb.Recordset
Dim ctr As Integer
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow& Lib "user32" (ByVal hwnd&, ByVal nCmdShow&)
Private Const SW_HIDE = 0
Private Const SW_NORMAL = 1
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Dim hDesk As Long
Dim Thwnd As Long
Private Sub Closed_Click()
Me.Hide
UnloadAllForms
End
End Sub
Private Sub Closed_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call BitBlt(Closed.hDC, 0, 0, 73, 50, Source.hDC, 18, 107, SRCCOPY)
Closed.Refresh
End Sub
Private Sub Closed_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call BitBlt(Closed.hDC, 0, 0, 73, 50, Source.hDC, 0, 107, SRCCOPY)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -