📄 frmden~1.frm
字号:
VERSION 5.00
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "ACTSKN43.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form FrmDengLu
BorderStyle = 3 'Fixed Dialog
Caption = "系统登录"
ClientHeight = 5280
ClientLeft = 4110
ClientTop = 3525
ClientWidth = 8460
BeginProperty Font
Name = "幼圆"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5280
ScaleWidth = 8460
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin MSDataGridLib.DataGrid dgd
Height = 2535
Left = 840
TabIndex = 15
Top = 5520
Width = 6975
_ExtentX = 12303
_ExtentY = 4471
_Version = 393216
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "幼圆"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "幼圆"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1
Height = 375
Left = 840
OleObjectBlob = "FRMDEN~1.frx":0000
TabIndex = 7
Top = 600
Width = 375
End
Begin ACTIVESKINLibCtl.Skin Skin1
Left = 4680
OleObjectBlob = "FRMDEN~1.frx":0057
Top = 3600
End
Begin VB.CommandButton cmdexit
Caption = "退 出"
Height = 495
Left = 5520
TabIndex = 6
Top = 4200
Width = 1215
End
Begin VB.CommandButton CmdQueD
Caption = "确 定"
Height = 495
Left = 5520
TabIndex = 5
Top = 2880
Width = 1215
End
Begin VB.Frame Frame2
Caption = "登录方式"
Height = 2295
Left = 840
TabIndex = 2
Top = 2520
Width = 3135
Begin VB.OptionButton Opt2
Caption = " 游 客"
Height = 375
Left = 600
TabIndex = 4
Top = 1560
Width = 2055
End
Begin VB.OptionButton Opt1
Caption = " 管 理 员"
Height = 315
Left = 600
TabIndex = 3
Top = 720
Width = 2055
End
End
Begin VB.TextBox txtpow
Height = 495
IMEMode = 3 'DISABLE
Left = 4680
PasswordChar = "*"
TabIndex = 1
Top = 1560
Width = 2895
End
Begin VB.TextBox txtname
Height = 495
Left = 4680
TabIndex = 0
Top = 540
Width = 2895
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel2
Height = 375
Left = 840
OleObjectBlob = "FRMDEN~1.frx":028B
TabIndex = 8
Top = 1620
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 375
Left = 3360
OleObjectBlob = "FRMDEN~1.frx":02E2
TabIndex = 9
Top = 1620
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel4
Height = 375
Left = 2520
OleObjectBlob = "FRMDEN~1.frx":0339
TabIndex = 10
Top = 1620
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel6
Height = 375
Left = 3360
OleObjectBlob = "FRMDEN~1.frx":0390
TabIndex = 11
Top = 600
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel7
Height = 375
Left = 2520
OleObjectBlob = "FRMDEN~1.frx":03E7
TabIndex = 12
Top = 600
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel8
Height = 375
Left = 1680
OleObjectBlob = "FRMDEN~1.frx":043E
TabIndex = 13
Top = 600
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel5
Height = 375
Left = 1680
OleObjectBlob = "FRMDEN~1.frx":0495
TabIndex = 14
Top = 1620
Width = 375
End
End
Attribute VB_Name = "FrmDengLu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rs As ADODB.Recordset
Private Sub cmdexit_Click()
con.Close
Unload Me
End Sub
Private Sub cmdqued_Click() '实现登陆功能
Dim SqlStr As String
If txtname.Text = "" Or txtpow.Text = "" Then
MsgBox "用户名或密码必须填写！"
txtname.SetFocus
Exit Sub
End If
SqlStr = "select * from gly where 管理员='" & txtname.Text & "' and 密码='" & txtpow.Text & "'"
'验证用户名和密码是否正确
Set rs = search(SqlStr) '把信息赋给记录集
If rs.RecordCount <> 0 Then
MDIFrmZCT.Show
If txtname.Text = "admin" Then '判断管理员类型
MDIFrmZCT.mnuUsers = True
MDIFrmZCT.mnuCustmer = True
MDIFrmZCT.mnuFlowers = True
MDIFrmZCT.mnuDD = True
MDIFrmZCT.mnuSYDD = True
Else
MDIFrmZCT.Show
MDIFrmZCT.mnuCustmer = True
MDIFrmZCT.mnuFlowers = True
MDIFrmZCT.mnuDD = True
End If
If Opt2.Value = True Then
MDIFrmZCT.mnuDD = False
MDIFrmZCT.mnuCustmer = False
End If
Unload Me
Else
MsgBox "用户名或密码错误，请重新输入"
Call chongtian
End If
rs.Close
End Sub
Private Sub Form_Load()
Call openlj '调用连接数据库的过程
Opt2.Value = True
Call showskin(Skin1, hwnd) '调用皮肤控件
End Sub
Private Sub Opt1_Click() '登陆方式
txtname.Enabled = True
txtpow.Enabled = True
Call chongtian
End Sub
Private Sub Opt2_Click() '登陆方式
txtname.Enabled = False
txtpow.Enabled = False
txtname.Text = "youke"
txtpow.Text = "1234"
End Sub
Private Sub chongtian() '清空功能
txtname.Text = ""
txtpow.Text = ""
txtname.SetFocus
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -