📄 frmlogin.frm
字号:
VERSION 5.00
Object = "{CFFE0A60-8E3A-11D3-BCC0-00104B9E0792}#1.0#0"; "ssinput1.ocx"
Begin VB.Form frmLogin
BorderStyle = 3 'Fixed Dialog
Caption = "用户登录"
ClientHeight = 1830
ClientLeft = 45
ClientTop = 330
ClientWidth = 4470
ControlBox = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmLogin.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1830
ScaleWidth = 4470
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin ActiveInput.SSComboBoxEx SSComboBoxEx4UserName
Height = 315
Left = 1620
TabIndex = 7
Top = 540
Width = 2715
_ExtentX = 4789
_ExtentY = 556
_Version = 65536
End
Begin ActiveInput.SSComboBoxEx SSComboBoxEx4FactoryName
Height = 315
Left = 1620
TabIndex = 6
Top = 120
Width = 2715
_ExtentX = 4789
_ExtentY = 556
_Version = 65536
Text = "SSComboBoxEx1"
End
Begin VB.CommandButton Command4Cancel
Caption = "取消(&C)"
Height = 390
Left = 2280
TabIndex = 4
Top = 1380
Width = 1320
End
Begin VB.CommandButton Command4OK
Caption = "确定(&O)"
Height = 390
Left = 300
TabIndex = 3
Top = 1380
Width = 1320
End
Begin VB.TextBox Text4Password
Height = 315
IMEMode = 3 'DISABLE
Left = 1620
PasswordChar = "*"
TabIndex = 2
Top = 960
Width = 2715
End
Begin VB.Label Label4PassWord
Alignment = 1 'Right Justify
Caption = "用户密码"
Height = 195
Left = 600
TabIndex = 0
Top = 1020
Width = 795
End
Begin VB.Label Label4UserName
Alignment = 1 'Right Justify
Caption = "用户名"
Height = 255
Left = 600
TabIndex = 1
Top = 600
Width = 795
End
Begin VB.Label Label4Factory
Alignment = 1 'Right Justify
Caption = "单位名称"
Height = 195
Left = 480
TabIndex = 5
Top = 180
Width = 915
End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private oDES4Login As New FTACUTILLib.ODes
Private m_oRs4EmpLoginUnit As New ADODB.Recordset
Private m_strSQL As String
Private Sub Command4Cancel_Click()
Unload Me
End Sub
Private Sub Command4OK_Click()
Dim ComputerName As String
If Trim(Me.SSComboBoxEx4FactoryName.text) = "" Then
MsgBox "请输入厂、处级单位名称!", vbOKOnly, "提示"
SSComboBoxEx4FactoryName.SetFocus
Exit Sub
End If
If Trim(Me.SSComboBoxEx4UserName.text) = "" Then
MsgBox "请输入用户名称!", vbOKOnly, "提示"
SSComboBoxEx4UserName.SetFocus
Exit Sub
End If
If Trim(SSComboBoxEx4UserName.text) = "Admin" Then
If g_strOprrolePassword = Trim(Me.Text4Password.text) Then
g_lOprroleNo = 0
g_strOprrolePassword = Trim(Me.Text4Password.text)
Else
MsgBox "密码不对 !", , "提示"
Text4Password.SelStart = 0
Text4Password.SelLength = Len(Text4Password)
Text4Password.SetFocus
Exit Sub
End If
Else
Me.SSComboBoxEx4UserName.CheckList = True
m_strSQL = "select oprrole_no,emp_password,emp_no from t_emp_basic where emp_no=" & SSComboBoxEx4UserName.ItemData(SSComboBoxEx4UserName.ListIndex) & " and oprrole_no is not null"
If m_oRs4EmpLoginUnit.State = adStateOpen Then m_oRs4EmpLoginUnit.Close
m_oRs4EmpLoginUnit.CursorLocation = adUseClient
m_oRs4EmpLoginUnit.Open m_strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
If m_oRs4EmpLoginUnit.EOF = False Then
g_strOprrolePassword = CheckVariant(m_oRs4EmpLoginUnit.Fields("emp_password").Value)
If Text4Password.text = g_strOprrolePassword Then
g_lOprroleNo = m_oRs4EmpLoginUnit.Fields("oprrole_no").Value
g_lEmpNo = m_oRs4EmpLoginUnit.Fields("emp_no").Value
Else
MsgBox "密码不对 !", , "提示"
Text4Password.SelStart = 0
Text4Password.SelLength = Len(Text4Password)
Text4Password.SetFocus
Exit Sub
End If
Else
MsgBox "此用户名没有分配权限!", , "提示"
SSComboBoxEx4UserName.SelStart = 0
SSComboBoxEx4UserName.SelLength = Len(SSComboBoxEx4UserName)
SSComboBoxEx4UserName.SetFocus
Exit Sub
End If
End If
g_str4LoginUnit = SSComboBoxEx4FactoryName.ItemData(SSComboBoxEx4FactoryName.ListIndex)
g_str4LoginUnitLevel = GetOrganLevel(g_str4LoginUnit)
g_str4LoginUnitName = SSComboBoxEx4FactoryName.text
If SSComboBoxEx4UserName.text = "Admin" Then
g_lEmpNo = -1
Else
g_lEmpNo = Me.SSComboBoxEx4UserName.ItemData(Me.SSComboBoxEx4UserName.ListIndex)
End If
GetEmpLoginUnit
If g_FSO.FolderExists(App.Path & "\报表结果") = False Then g_FSO.CreateFolder (App.Path & "\报表结果")
Unload Me
MDIfrmMain.Show
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then SendKeys "{tab}"
End Sub
Private Sub Form_Load()
Dim str4OrganList As String
Dim m_oRs4Temp As New ADODB.Recordset
Dim str4Split() As String
Dim lfor As Long
If App.PrevInstance = True Then Unload Me: Exit Sub
GetConfigMsg
While Not g_str4ServerName <> ""
g_bIsInitSystemSet = False
frmSystemSet.Show 1
If g_bIsInitSystemSet = False Then
Unload Me
Exit Sub
End If
Wend
InitConnection g_str4ServerName
Do While g_bConnect = False
frmSystemSet.Show 1
If g_bIsInitSystemSet = False Then
Unload Me
Exit Sub
End If
InitConnection g_str4ServerName
Loop
g_bIsInitSystemSet = True
Me.Command4Cancel.Enabled = False
str4OrganList = GetLocalOrgan
str4Split() = Split(str4OrganList, ",")
If UBound(str4Split) = -1 Then
FillComboBox SSComboBoxEx4FactoryName, "T_organ", "organ_NO", "organ_NAME", , " where len(organ_no)=3 "
SSComboBoxEx4FactoryName.ListIndex = 0
SSComboBoxEx4FactoryName.Enabled = False
Else
If UBound(str4Split) = 0 Then
FillComboBox SSComboBoxEx4FactoryName, "T_organ", "organ_NO", "organ_NAME", , " where organ_no like '" & str4Split(0) & "'"
SSComboBoxEx4FactoryName.ListIndex = 0
SSComboBoxEx4FactoryName.Enabled = False
Else
m_strSQL = " where organ_no in (" & str4OrganList & ")"
FillComboBox SSComboBoxEx4FactoryName, "T_organ", "organ_NO", "organ_NAME", , m_strSQL
End If
End If
Me.Command4Cancel.Enabled = True
End Sub
Private Sub SSComboBoxEx4FactoryName_Change()
If Me.Command4Cancel.Enabled = False Then Exit Sub
DisplayRelateItems SSComboBoxEx4FactoryName
End Sub
Private Sub SSComboBoxEx4FactoryName_LostFocus()
If Me.Command4Cancel.Enabled = False Then Exit Sub
CheckValidate SSComboBoxEx4FactoryName
SSComboBoxEx4FactoryName.CheckList = True
End Sub
Private Sub SSComboBoxEx4UserName_Change()
If Me.Command4Cancel.Enabled = False Then Exit Sub
DisplayRelateItems SSComboBoxEx4UserName
End Sub
Private Sub SSComboBoxEx4UserName_GotFocus()
FillComboBox SSComboBoxEx4UserName, "T_emp_basic", "emp_NO", "emp_NAME", , _
" where OPRROLE_NO is not null and organ_no like '" & Me.SSComboBoxEx4FactoryName.ItemData(Me.SSComboBoxEx4FactoryName.ListIndex) & "%'"
End Sub
Private Sub SSComboBoxEx4UserName_LostFocus()
If Me.Command4Cancel.Enabled = False Then Exit Sub
If Trim(Me.SSComboBoxEx4UserName.text) = "Admin" Then
g_lOprroleNo = 0
Else
CheckValidate SSComboBoxEx4UserName
End If
End Sub
Private Sub GetEmpLoginUnit()
If g_lOprroleNo = 0 Then Exit Sub
SSComboBoxEx4UserName.CheckList = True
m_strSQL = "select ORGAN_NO from T_EMP_BASIC where EMP_NO='" & SSComboBoxEx4UserName.ItemData(SSComboBoxEx4UserName.ListIndex) & "' and organ_no like '" & Me.SSComboBoxEx4FactoryName.ItemData(Me.SSComboBoxEx4FactoryName.ListIndex) & "%'"
If m_oRs4EmpLoginUnit.State = adStateOpen Then m_oRs4EmpLoginUnit.Close
m_oRs4EmpLoginUnit.Open m_strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
If m_oRs4EmpLoginUnit.EOF = False Then g_str4EmpLoginUnit = m_oRs4EmpLoginUnit.Fields("ORGAN_NO").Value
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -