?? frmsupperuser.frm
字號:
VERSION 5.00
Begin VB.Form frmSupperUser
BorderStyle = 1 'Fixed Single
Caption = "超級用戶密碼"
ClientHeight = 2685
ClientLeft = 45
ClientTop = 330
ClientWidth = 5520
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2685
ScaleWidth = 5520
StartUpPosition = 1 'CenterOwner
Begin VB.CommandButton cmdCancel
Caption = "取消(&C)"
Height = 375
Left = 4200
TabIndex = 8
Top = 2160
Width = 1215
End
Begin VB.CommandButton cmdOk
Caption = "確定(&O)"
Enabled = 0 'False
Height = 375
Left = 2880
TabIndex = 7
Top = 2160
Width = 1155
End
Begin VB.Frame Frame1
Caption = "有效門"
Height = 975
Left = 120
TabIndex = 2
Top = 960
Width = 5295
Begin VB.CheckBox ckD4
Caption = "四號門"
Height = 255
Left = 3960
TabIndex = 6
Top = 480
Value = 1 'Checked
Width = 1095
End
Begin VB.CheckBox ckD3
Caption = "三號門"
Height = 255
Left = 2640
TabIndex = 5
Top = 480
Value = 1 'Checked
Width = 975
End
Begin VB.CheckBox ckD2
Caption = "二號門"
Height = 255
Left = 1440
TabIndex = 4
Top = 480
Value = 1 'Checked
Width = 855
End
Begin VB.CheckBox ckD1
Caption = "一號門"
Height = 255
Left = 240
TabIndex = 3
Top = 480
Value = 1 'Checked
Width = 855
End
End
Begin VB.TextBox txtPwd
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
IMEMode = 3 'DISABLE
Left = 240
MaxLength = 6
PasswordChar = "*"
TabIndex = 1
Top = 480
Width = 5175
End
Begin VB.Label Label1
Caption = $"frmSupperUser.frx":0000
Height = 255
Left = 240
TabIndex = 0
Top = 120
Width = 2655
End
End
Attribute VB_Name = "frmSupperUser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public PassDoor As String
Public blAdd As Boolean
Private Sub cmdCancel_Click()
Unload frmSupperUser
End Sub
Private Sub cmdOk_Click()
Dim ltmX As ListItem
PassDoor = ""
If ckD1.Value = 1 Then
PassDoor = PassDoor + "1"
End If
If ckD2.Value = 1 Then
PassDoor = PassDoor + "2"
End If
If ckD3.Value = 1 Then
PassDoor = PassDoor + "3"
End If
If ckD4.Value = 1 Then
PassDoor = PassDoor + "4"
End If
If blAdd = False Then
frmMain.lvDoorPeriods.SelectedItem.SubItems(1) = txtPwd.Text
frmMain.lvDoorPeriods.SelectedItem.SubItems(2) = PassDoor
Else
Set ltmX = frmMain.lvDoorPeriods.ListItems.Add
ltmX.Text = CStr(frmMain.lvDoorPeriods.ListItems.Count)
ltmX.SubItems(1) = txtPwd.Text
ltmX.SubItems(2) = PassDoor
End If
Unload frmSupperUser
End Sub
Private Sub Form_Load()
If InStr(1, PassDoor, "1") = 0 Then
ckD1.Value = 0
End If
If InStr(1, PassDoor, "2") = 0 Then
ckD2.Value = 0
End If
If InStr(1, PassDoor, "3") = 0 Then
ckD3.Value = 0
End If
If InStr(1, PassDoor, "4") = 0 Then
ckD4.Value = 0
End If
End Sub
Private Sub txtPwd_Change()
If Len(txtPwd.Text) = 6 Then
cmdOk.Enabled = True
Else
cmdOk.Enabled = False
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -