📄 frmprofile.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form frmProfile
BorderStyle = 1 'Fixed Single
Caption = "User Profile"
ClientHeight = 4740
ClientLeft = 45
ClientTop = 330
ClientWidth = 6645
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000F&
Icon = "frmProfile.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 4740
ScaleWidth = 6645
StartUpPosition = 2 'CenterScreen
Begin Family.TrayArea TrayArea1
Left = 1920
Top = 3960
_ExtentX = 847
_ExtentY = 847
End
Begin VB.Data Profile_Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "C:\Omar\Omar's Projects\NewProj\Family.FM1"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 3600
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "Users"
Top = 4080
Visible = 0 'False
Width = 1980
End
Begin VB.CommandButton profClose
Caption = "&Close"
Height = 300
Left = 120
TabIndex = 12
Top = 4080
Width = 1095
End
Begin VB.Frame Frame1
Height = 3975
Left = 0
TabIndex = 0
Top = 0
Width = 6615
Begin VB.Frame Frame2
Height = 600
Left = 3240
TabIndex = 15
Top = 3200
Width = 2055
Begin VB.CommandButton pCancel
Caption = "&Cancel"
Height = 300
Left = 1080
TabIndex = 17
Top = 200
Width = 855
End
Begin VB.CommandButton pSave
Caption = "&Save"
Height = 300
Left = 120
TabIndex = 16
Top = 200
Width = 855
End
End
Begin VB.CommandButton pAdd
Caption = "&Add"
Height = 300
Left = 5520
TabIndex = 14
Top = 3180
Width = 975
End
Begin VB.ComboBox usrCStatus
Height = 345
Left = 4320
Locked = -1 'True
Style = 2 'Dropdown List
TabIndex = 11
Top = 1800
Width = 2175
End
Begin VB.CommandButton pDelete
Caption = "&Delete"
Enabled = 0 'False
Height = 300
Left = 5520
TabIndex = 9
Top = 3510
Width = 975
End
Begin VB.CommandButton pEdit
Caption = "&Edit"
Enabled = 0 'False
Height = 300
Left = 5520
TabIndex = 8
Top = 2830
Width = 975
End
Begin VB.ComboBox usrAccLvl
Height = 345
Left = 4320
Locked = -1 'True
Style = 2 'Dropdown List
TabIndex = 7
Top = 1320
Width = 2175
End
Begin VB.TextBox usrPassword
Height = 285
IMEMode = 3 'DISABLE
Left = 4320
MaxLength = 20
PasswordChar = "*"
TabIndex = 5
Text = " njtyghuj"
Top = 960
Width = 2175
End
Begin VB.TextBox usrName1
Height = 285
Left = 4320
MaxLength = 20
TabIndex = 2
Text = "Hellerytyr5 ty"
Top = 600
Width = 2175
End
Begin ComctlLib.TreeView TVUsers
Height = 3615
Left = 120
TabIndex = 1
Top = 240
Width = 2895
_ExtentX = 5106
_ExtentY = 6376
_Version = 327682
Indentation = 706
LabelEdit = 1
Style = 7
ImageList = "ImageList1"
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Image Image1
Height = 480
Left = 6000
Picture = "frmProfile.frx":0BC2
Top = 2280
Width = 480
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "Logged In"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 225
Left = 3250
TabIndex = 10
Top = 1920
Width = 765
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "Access Level"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 225
Left = 3250
TabIndex = 6
Top = 1440
Width = 975
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "Password"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 225
Left = 3250
TabIndex = 4
Top = 1080
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "User Name"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 225
Left = 3250
TabIndex = 3
Top = 660
Width = 870
End
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 315
Left = 0
TabIndex = 13
Top = 4425
Width = 6645
_ExtentX = 11721
_ExtentY = 556
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 3
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 1
Object.Width = 8441
MinWidth = 5292
Text = "Caption"
TextSave = "Caption"
Key = "capt"
Object.Tag = ""
Object.ToolTipText = "Caption"
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 6
Alignment = 1
Object.Width = 1587
MinWidth = 1587
TextSave = "4/5/00"
Key = "dt"
Object.Tag = ""
Object.ToolTipText = " Current Date "
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 5
Alignment = 2
Object.Width = 1587
MinWidth = 1587
TextSave = "11:32 PM"
Key = "time"
Object.Tag = ""
Object.ToolTipText = " Current Time "
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ComctlLib.ImageList ImageList1
Left = 6000
Top = 3840
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 5
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmProfile.frx":1784
Key = "Crowd"
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmProfile.frx":1A9E
Key = "Admins"
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmProfile.frx":1DB8
Key = "Users"
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmProfile.frx":20D2
Key = "ShowFolders"
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmProfile.frx":23EC
Key = "OpenFolder"
EndProperty
EndProperty
End
Begin VB.Menu mnuRestorer
Caption = "Restorer"
Visible = 0 'False
Begin VB.Menu mnuRestore
Caption = "&Restore"
End
Begin VB.Menu tfy
Caption = "-"
End
Begin VB.Menu prAbout
Caption = "&About"
End
Begin VB.Menu prHelp
Caption = "&Help"
End
Begin VB.Menu lij
Caption = "-"
End
Begin VB.Menu resExit
Caption = "&Exit"
End
End
End
Attribute VB_Name = "frmProfile"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**********************************************************************
'To God Be The Glory
'**********************************************************************
Option Explicit
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -