📄 frmmain.frm
字号:
Top = 420
Width = 855
End
End
Begin VB.Frame Frame3
Height = 5415
Left = 10
TabIndex = 19
Top = 0
Width = 2865
Begin ComctlLib.TreeView MTView
Height = 5055
Left = 120
TabIndex = 20
Top = 240
Width = 2655
_ExtentX = 4683
_ExtentY = 8916
_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
End
Begin VB.CommandButton btnLinks
Caption = "Update &Links..."
Height = 330
Left = 5400
TabIndex = 16
ToolTipText = " Internet Links "
Top = 5520
Width = 1400
End
Begin VB.CommandButton btnProfile
Caption = "&User Profile..."
Height = 330
Left = 6900
TabIndex = 14
ToolTipText = " User Profile... "
Top = 5520
Width = 1215
End
Begin VB.CommandButton btnSearch
Caption = "&Print / Search..."
Height = 330
Left = 3840
TabIndex = 17
ToolTipText = " Print / Search or Delete Record(s) ... "
Top = 5520
Width = 1400
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 315
Left = 0
TabIndex = 18
Top = 5895
Width = 8205
_ExtentX = 14473
_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 = 11192
MinWidth = 10583
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 = "1/31/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 = "1:34 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 VB.CommandButton btnClose
Caption = "&Close"
Height = 330
Left = 120
TabIndex = 15
ToolTipText = " Close/Loggout "
Top = 5520
Width = 1095
End
Begin Family.TrayArea TrayArea1
Left = 2760
Top = 5400
_ExtentX = 847
_ExtentY = 847
End
Begin ComctlLib.ImageList ImageList1
Left = 0
Top = 5040
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 3
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":030A
Key = "People"
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":0624
Key = "Person"
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":093E
Key = "Person2"
EndProperty
EndProperty
End
Begin VB.Menu mnuFile
Caption = "&Options"
Begin VB.Menu yjut
Caption = "-"
End
Begin VB.Menu mnuSearch
Caption = "&Search ..."
Shortcut = {F3}
End
Begin VB.Menu mnuUserProfile
Caption = "&User Profile ..."
Shortcut = {F2}
End
Begin VB.Menu kljh
Caption = "-"
End
Begin VB.Menu mnuEnable
Caption = "Enable"
Begin VB.Menu rtyrt
Caption = "-"
End
Begin VB.Menu tytty
Caption = "-"
End
Begin VB.Menu mnuTray
Caption = "&Minimize to tray"
End
Begin VB.Menu rd
Caption = "-"
End
Begin VB.Menu mnuAutoSend
Caption = "&Auto Send Email"
End
Begin VB.Menu serw
Caption = "-"
End
Begin VB.Menu dergedr
Caption = "-"
End
End
Begin VB.Menu mnuFix
Caption = "Fix"
Begin VB.Menu mnuLogout_User
Caption = "&Logout User ..."
End
Begin VB.Menu hd
Caption = "-"
End
Begin VB.Menu mnuCheckDBErr
Caption = "&Check Database For Errors"
Enabled = 0 'False
End
End
Begin VB.Menu mnuLinks
Caption = "Links"
Begin VB.Menu er
Caption = "-"
End
Begin VB.Menu mnuUpDateLinks
Caption = "&Update Links ..."
End
Begin VB.Menu hguyj
Caption = "-"
End
Begin VB.Menu fh
Caption = "-"
End
Begin VB.Menu mnuLink
Caption = "Link1"
Index = 1
End
Begin VB.Menu mnuLink
Caption = "Link2"
Index = 2
End
Begin VB.Menu mnuLink
Caption = "Link3"
Index = 3
End
Begin VB.Menu mnuLink
Caption = "Link4"
Index = 4
End
Begin VB.Menu mnuLink
Caption = "Link5"
Index = 5
End
Begin VB.Menu mnuLink
Caption = "Link6"
Index = 6
End
Begin VB.Menu mnuLink
Caption = "Link7"
Index = 7
End
Begin VB.Menu mnuLink
Caption = "Link8"
Index = 8
End
Begin VB.Menu mnuLink
Caption = "Link9"
Index = 9
End
Begin VB.Menu mnuLink
Caption = "Link10"
Index = 10
End
Begin VB.Menu guyj
Caption = "-"
End
Begin VB.Menu ty
Caption = "-"
End
End
Begin VB.Menu erg
Caption = "-"
End
Begin VB.Menu mnuAbout
Caption = "&About"
Shortcut = ^{F1}
End
Begin VB.Menu mnuHelp
Caption = "&Help"
Shortcut = {F1}
End
Begin VB.Menu eer
Caption = "-"
End
Begin VB.Menu mnuClose
Caption = "&Close"
Shortcut = ^X
End
Begin VB.Menu rtyt
Caption = "-"
End
End
Begin VB.Menu mnuRestorer
Caption = "mnuRestorer"
Visible = 0 'False
Begin VB.Menu mnuRestore
Caption = "&Restore"
End
Begin VB.Menu hlbj
Caption = "-"
End
Begin VB.Menu mnuAbout2
Caption = "&About"
End
Begin VB.Menu mnuHelp2
Caption = "&Help"
End
Begin VB.Menu gi
Caption = "-"
End
Begin VB.Menu mnuExit
Caption = "&Exit"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**********************************************************************
'To God Be The Glory
'**********************************************************************
Option Explicit
Dim Edit_Mode As Boolean
Dim Currently_Editting As Boolean
Dim Currently_Adding As Boolean
Dim TmpRelation As String
'Stores the name of the last parent node clicked
Dim Last_Parent As String
'**********************************************************************
'**********************************************************************
'**********************************************************************
'**********************************************************************
Private Sub btnAdd_Click()
On Error GoTo AddErr
btnAdd.Enabled = False
Currently_Adding = True
Currently_Editting = False
Call Empty_Main_Fields
Make_Changes (True)
First_Name.SetFocus
btnAdd.Enabled = False
MainData1.Recordset.AddNew
Exit Sub
AddErr:
If Err.Number <> 0 Then
MsgBox "An error has been encountered while trying to add a record. Error:" & Str(Err.Number) & " " & Err.Description, vbCritical + vbOKOnly
Err.Clear
End If
End Sub
'**********************************************************************
'**********************************************************************
'**********************************************************************
'**********************************************************************
Private Sub btnAdd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(1).Text = "Add A New Record"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -