📄 frmmanage.frm
字号:
Caption = "密码："
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Left = 3600
TabIndex = 3
Top = 5760
Width = 855
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "用户名："
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Left = 120
TabIndex = 2
Top = 5760
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "ERP管理糸统"
BeginProperty Font
Name = "华文彩云"
Size = 36
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 855
Left = 0
TabIndex = 0
Top = 360
Width = 9375
End
End
Attribute VB_Name = "frmusers"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim itmx As ListItem
Dim a
Dim key As String
Private Sub Command1_Click()
If Text2.Text = "administrator" And Text1.Text = "123456" Then
frmmain.Toolbar1.Buttons.Item(1).Enabled = True
frmmain.Toolbar1.Buttons.Item(2).Enabled = True
frmmain.Toolbar1.Buttons.Item(3).Enabled = True
frmmain.Toolbar1.Buttons.Item(4).Enabled = True
frmmain.Toolbar1.Buttons.Item(5).Enabled = True
frmmain.Toolbar1.Buttons.Item(6).Enabled = True
frmmain.Toolbar1.Buttons.Item(7).Enabled = True
frmmain.Toolbar1.Buttons.Item(8).Enabled = True
frmmain.Toolbar1.Buttons.Item(9).Enabled = True
frmmain.StatusBar1.Panels.Item(2).Text = "当前操作员:" & Text2.Text
Unload Me
frmmain.Show
Else
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=ERP"
Adodc1.RecordSource = "select * from users where name='" & Text2.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
If Trim(Text1.Text) = Trim(Text4.Text) Then
With Adodc1.Recordset
If Trim(.Fields(2).Value) = Trim("有权限") Then
frmmain.Toolbar1.Buttons.Item(1).Enabled = True
Else
frmmain.Toolbar1.Buttons.Item(1).Enabled = False
End If
If Trim(.Fields(3).Value) = Trim("有权限") Then
frmmain.Toolbar1.Buttons.Item(2).Enabled = True
Else
frmmain.Toolbar1.Buttons.Item(2).Enabled = False
End If
If Trim(.Fields(4).Value) = Trim("有权限") Then
frmmain.Toolbar1.Buttons.Item(3).Enabled = True
Else
frmmain.Toolbar1.Buttons.Item(3).Enabled = False
End If
If Trim(.Fields(5).Value) = Trim("有权限") Then
frmmain.Toolbar1.Buttons.Item(4).Enabled = True
Else
frmmain.Toolbar1.Buttons.Item(4).Enabled = False
End If
If Trim(.Fields(6).Value) = Trim("有权限") Then
frmmain.Toolbar1.Buttons.Item(5).Enabled = True
Else
frmmain.Toolbar1.Buttons.Item(5).Enabled = False
End If
If Trim(.Fields(7).Value) = Trim("有权限") Then
frmmain.Toolbar1.Buttons.Item(6).Enabled = True
Else
frmmain.Toolbar1.Buttons.Item(6).Enabled = False
End If
If Trim(.Fields(8).Value) = Trim("有权限") Then
frmmain.Toolbar1.Buttons.Item(7).Enabled = True
Else
frmmain.Toolbar1.Buttons.Item(7).Enabled = False
End If
If Trim(.Fields(9).Value) = Trim("有权限") Then
frmmain.Toolbar1.Buttons.Item(8).Enabled = True
Else
frmmain.Toolbar1.Buttons.Item(8).Enabled = False
End If
If Trim(.Fields(10).Value) = Trim("有权限") Then
frmmain.Toolbar1.Buttons.Item(9).Enabled = True
Else
frmmain.Toolbar1.Buttons.Item(9).Enabled = False
End If
If Trim(.Fields(11).Value) = Trim("有权限") Then
frmmain.Toolbar1.Buttons.Item(12).Enabled = True
Else
frmmain.Toolbar1.Buttons.Item(12).Enabled = False
End If
frmmain.StatusBar1.Panels.Item(2).Text = "当前操作员:" & Text2.Text
frmmain.StatusBar1.Panels.Item(3).Text = "登录时间:" & Format(Now, "HH-MM-NN")
frmmain.Show
Unload Me
End With
Else
MsgBox "密码错误,请重新输入"
Text1.Text = ""
Text1.SetFocus
End If
Else
MsgBox "对不起,你没有登陆此糸统的权限"
Text2.Text = ""
Text1.Text = ""
Text2.SetFocus
End If
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
frmusers.BackColor = RGB(77, 116, 244)
If App.PrevInstance Then
MsgBox "对不起，盛华ERP糸统已经处于运行状态，请你关闭应用程序后再运行程序", 64, "盛华ERP"
End
Else
End If
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=ERP"
Adodc1.RecordSource = "select * from users"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
ListView1.Enabled = True
ListView1.ListItems.Clear
Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False
key = Text3.Text
Set itmx = ListView1.ListItems.Add(, , key, 1)
Adodc1.Recordset.MoveNext
Loop
Else
ListView1.Enabled = False
End If
End Sub
Private Sub Label1_Click()
End Sub
Private Sub ListView1_DblClick()
Text2.Text = ListView1.SelectedItem
Text1.SetFocus
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Command1_Click
End If
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text1.SetFocus
Else
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -