?? frmlogin.frm
字號:
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 = 2 '屏幕中心
Tag = "登錄"
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游標
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 3420
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1260
Visible = 0 'False
Width = 1140
End
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 = 495
TabIndex = 4
Tag = "確定"
Top = 1020
Width = 1140
End
Begin VB.TextBox txtPassword
Height = 270
IMEMode = 3 'DISABLE
Left = 1305
MaxLength = 6
PasswordChar = "*"
TabIndex = 1
Top = 525
Width = 2325
End
Begin VB.TextBox txtUserName
Height = 270
Left = 1305
MaxLength = 6
TabIndex = 3
Top = 120
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
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Public OK As Boolean
Private Sub Form_Load()
Dim sBuffer As String
Dim lSize As Long
Me.Data1.DatabaseName = App.Path & "\訂單資料.MDB"
Me.Data1.RecordSource = " SELECT * FROM 單位信息"
Me.Data1.Refresh
If Data1.Recordset.RecordCount = 0 Then
Data1.Recordset.AddNew
Data1.Recordset.Update
End If
Data1.Recordset.MoveFirst
If Data1.Recordset("注冊標記") = False Then
frm單位信息.Show 1
Me.Data1.Refresh
Me.Data1.Recordset.MoveFirst
End If
Data1.Refresh
hxfpiclj = Data1.Recordset("圖編目錄")
hxftplj = Data1.Recordset("圖形目錄")
hxfcjyhm = Data1.Recordset("超級用戶名")
hxfcjyhkl = Data1.Recordset("超級用戶口令")
txtUserName.Text = hxfcjyhm
End Sub
Private Sub cmdCancel_Click()
OK = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
'ToDo: 創建測試密碼是否正確
'檢查正確密碼
If Trim(txtPassword.Text) = Trim(hxfcjyhkl) Then
OK = True
Me.Hide
Else
MsgBox "密碼錯誤,再試一次!", , "登錄"
txtPassword.SetFocus
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword.Text)
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -