frmlogin.frm

来自「电子皮带秤计量管理系统.完成电子皮带秤的自动计量工作,和销售管理系统配合使用更佳」· FRM 代码 · 共 142 行

   VERSION 5.00
   Begin VB.Form frmLogin
      BorderStyle     =   3  'Fixed Dialog
      Caption         =   "退出"
      ClientHeight    =   1590
      ClientLeft      =   45
      ClientTop       =   330
      ClientWidth     =   3750
      LinkTopic       =   "Form1"
      MaxButton       =   0   'False
      MinButton       =   0   'False
      ScaleHeight     =   1590
      ScaleWidth      =   3750
      ShowInTaskbar   =   0   'False
      StartUpPosition =   1  '所有者中心
      Tag             =   "登录"
      Begin VB.CommandButton cmdCancel
         Cancel          =   -1  'True
         Caption         =   "取消"
         Height          =   360
         Left            =   2100
         TabIndex        =   5
         Tag             =   "取消"
         Top             =   1020
         Width           =   1140
      End
      Begin VB.CommandButton cmdOK
         Caption         =   "确定"
         Default         =   -1  'True
         Height          =   360
         Left            =   480
         TabIndex        =   4
         Tag             =   "确定"
         Top             =   1020
         Width           =   1140
      End
      Begin VB.TextBox txtPassword
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   1305
         PasswordChar    =   "*"
         TabIndex        =   1
         Top             =   525
         Width           =   2325
      End
      Begin VB.TextBox txtUserName
         Height          =   270
         Left            =   1305
         TabIndex        =   3
         Text            =   "系统管理员"
         Top             =   135
         Width           =   2325
      End
      Begin VB.Label lblLabels
         Caption         =   "退出密码(&P):"
         Height          =   248
         Index           =   1
         Left            =   105
         TabIndex        =   0
         Tag             =   "密码(&P):"
         Top             =   540
         Width           =   1080
      End
      Begin VB.Label lblLabels
         Caption         =   "用 户 名(&U):"
         Height          =   248
         Index           =   0
         Left            =   105
         TabIndex        =   2
         Tag             =   "用户名(&U):"
         Top             =   150
         Width           =   1080
      End
   End
   Attribute VB_Name = "frmLogin"
   Attribute VB_GlobalNameSpace = False
   Attribute VB_Creatable = False
   Attribute VB_PredeclaredId = True
   Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Public OK As Boolean
'##################################################################
'## 过程名称：Form_Load
'## 参数： 无
'##################################################################
Private Sub Form_Load()
    '    Dim sBuffer As String
    '    Dim lSize As Long
    '
    '
    '    sBuffer = Space$(255)
    '    lSize = Len(sBuffer)
    '    Call GetUserName(sBuffer, lSize)
    '    If lSize > 0 Then
    '        txtUserName.Text = Left$(sBuffer, lSize)
    '    Else
    '        txtUserName.Text = vbNullString
    '    End If
End Sub
    
'##################################################################
'## 过程名称：cmdCancel_Click
'## 参数： 无
'##################################################################
Private Sub cmdCancel_Click()
    OK = False
    Me.Hide
End Sub
    
    
'##################################################################
'## 过程名称：cmdOk_Click
'## 参数： 无
'##################################################################
Private Sub cmdOk_Click()
    '    'ToDo: 创建测试密码是否正确
    '    '检查正确密码
    '    If txtPassword.Text = "741120" Then
    '            OK = True
    '            Data1.DatabaseName = App.Path & "\fault.mdb"
    '            Data1.RecordSource = "error"
    '            Data1.Refresh
    '            Data1.Recordset.AddNew
    '            Data1.Recordset("皮带称号") = "计算机部分"
    '            Data1.Recordset("故障名称") = "监控系统退出"
    '            Data1.Recordset("故障时间") = Time
    '            Data1.Recordset("故障日期") = CStr(Date)
    '            Data1.Recordset.Update
    '            Data1.Recordset.Close
    '            Unload frmMain
    '            End
    '     Else
    '        MsgBox "密码错误，操作被禁止！", , "登录"
    ''        txtPassword.SetFocus
    ''        txtPassword.SelStart = 0
    ''        txtPassword.SelLength = Len(txtPassword.Text)
    '          Me.Hide
    '    End If
End Sub