📄 frmexampledb.frm
字号:
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Permanent"
ForeColor = &H00FFFFC0&
Height = 255
Index = 1
Left = 3105
TabIndex = 78
Tag = "ButtonLabel"
Top = 2850
Width = 1200
End
Begin VB.Label lblFrame
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Personal"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFC0&
Height = 255
Index = 0
Left = 3105
TabIndex = 77
Tag = "ButtonLabel"
Top = 2475
Width = 1200
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
X1 = 4455
X2 = 9360
Y1 = 1035
Y2 = 1035
End
Begin VB.Label lblUpdate
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Last Update"
ForeColor = &H00C0FFC0&
Height = 255
Left = 5820
TabIndex = 57
Tag = "Label"
Top = 630
Width = 975
End
Begin VB.Label lblID
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "ID"
ForeColor = &H00C0FFC0&
Height = 255
Left = 4560
TabIndex = 56
Tag = "Label"
Top = 630
Width = 255
End
Begin VB.Label lblFirstName
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "First Name"
ForeColor = &H00C0FFC0&
Height = 255
Left = 4620
TabIndex = 55
Tag = "Label"
Top = 1740
Width = 1215
End
Begin VB.Label lblLastName
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Last Name"
ForeColor = &H00C0FFC0&
Height = 255
Left = 4620
TabIndex = 54
Tag = "Label"
Top = 1350
Width = 1215
End
Begin VB.Image imgLabelHolder
Height = 315
Index = 7
Left = 3075
Picture = "frmExampledb.frx":B3CDC
Stretch = -1 'True
Top = 2430
Width = 1410
End
Begin VB.Label lblNotes
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Notes"
ForeColor = &H00C0FFC0&
Height = 195
Left = 4380
TabIndex = 36
Tag = "ButtonLabel"
Top = 4890
UseMnemonic = 0 'False
Width = 435
End
Begin VB.Label lblHelp
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Help..."
ForeColor = &H00C0FFC0&
Height = 195
Left = 8700
TabIndex = 28
Tag = "ButtonLabel"
Top = 4890
Width = 495
End
Begin VB.Label lblReload
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Reload"
Enabled = 0 'False
ForeColor = &H00C0FFC0&
Height = 195
Left = 6465
TabIndex = 29
Tag = "ButtonLabel"
Top = 4890
UseMnemonic = 0 'False
Width = 510
End
Begin VB.Label lblSave
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Save"
Enabled = 0 'False
ForeColor = &H00C0FFC0&
Height = 195
Left = 4380
TabIndex = 30
Tag = "ButtonLabel"
Top = 5250
UseMnemonic = 0 'False
Width = 405
End
Begin VB.Label lblDelete
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Delete"
Enabled = 0 'False
ForeColor = &H00C0FFC0&
Height = 195
Left = 5400
TabIndex = 31
Tag = "ButtonLabel"
Top = 5250
UseMnemonic = 0 'False
Width = 495
End
Begin VB.Label lblNew
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "New"
ForeColor = &H00C0FFC0&
Height = 195
Left = 6585
TabIndex = 32
Tag = "ButtonLabel"
Top = 5250
UseMnemonic = 0 'False
Width = 345
End
Begin VB.Label lblColors
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Colors"
ForeColor = &H00C0FFC0&
Height = 195
Left = 7605
TabIndex = 33
Tag = "ButtonLabel"
Top = 4890
UseMnemonic = 0 'False
Width = 465
End
Begin VB.Label lblPrint
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Print"
Enabled = 0 'False
ForeColor = &H00C0FFC0&
Height = 195
Left = 7620
TabIndex = 34
Tag = "ButtonLabel"
Top = 5250
UseMnemonic = 0 'False
Width = 345
End
Begin VB.Image imgButton
Height = 360
Index = 0
Left = 9870
Picture = "frmExampledb.frx":B530E
Stretch = -1 'True
Top = 120
Visible = 0 'False
Width = 1155
End
Begin VB.Image imgButton
Height = 375
Index = 1
Left = 9870
Picture = "frmExampledb.frx":B6D30
Top = 510
Visible = 0 'False
Width = 1155
End
Begin VB.Label lblExit
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Exit"
ForeColor = &H00C0FFC0&
Height = 195
Left = 8745
TabIndex = 35
Tag = "ButtonLabel"
Top = 5250
UseMnemonic = 0 'False
Width = 285
End
Begin VB.Label lblCaptions
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Browse Student Records"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 13
Left = 360
TabIndex = 37
Top = 60
Width = 2325
End
Begin VB.Image imgExit
Height = 375
Left = 8370
Picture = "frmExampledb.frx":B841A
Stretch = -1 'True
Top = 5160
Width = 1080
End
Begin VB.Image imgLabelHolder
Height = 315
Index = 8
Left = 3075
Picture = "frmExampledb.frx":B9E3C
Stretch = -1 'True
Top = 2805
Width = 1410
End
Begin VB.Image imgLabelHolder
Height = 315
Index = 9
Left = 3075
Picture = "frmExampledb.frx":BB46E
Stretch = -1 'True
Top = 3165
Width = 1410
End
Begin VB.Image imgLabelHolder
Height = 315
Index = 10
Left = 3090
Picture = "frmExampledb.frx":BCAA0
Stretch = -1 'True
Top = 3525
Width = 1410
End
Begin VB.Image imgPrint
Height = 375
Left = 7275
Picture = "frmExampledb.frx":BE0D2
Stretch = -1 'True
Top = 5160
Width = 1095
End
Begin VB.Image imgColors
Height = 375
Left = 7275
Picture = "frmExampledb.frx":BFAF4
Stretch = -1 'True
Top = 4800
Width = 1095
End
Begin VB.Image imgNew
Height = 375
Left = 6195
Picture = "frmExampledb.frx":C1516
Stretch = -1 'True
Top = 5160
Width = 1080
End
Begin VB.Image imgDelete
Height = 375
Left = 5130
Picture = "frmExampledb.frx":C2F38
Stretch = -1 'True
Top = 5160
Width = 1065
End
Begin VB.Image imgSave
Height = 375
Left = 4050
Picture = "frmExampledb.frx":C495A
Stretch = -1 'True
Top = 5160
Width = 1080
End
Begin VB.Image imgReload
Height = 375
Left = 6195
Picture = "frmExampledb.frx":C637C
Stretch = -1 'True
Top = 4800
Width = 1080
End
Begin VB.Image imgHelp
Height = 375
Left = 8370
Picture = "frmExampledb.frx":C7D9E
Stretch = -1 'True
Top = 4800
Width = 1080
End
Begin VB.Image imgNotes
Height = 375
Left = 4050
Picture = "frmExampledb.frx":C97C0
Stretch = -1 'True
Top = 4800
Width = 1095
End
Begin VB.Image imgQKeys
Height = 375
Left = 5130
Picture = "frmExampledb.frx":CB1E2
Stretch = -1 'True
Top = 4800
Width = 1065
End
End
Attribute VB_Name = "frmExampledb"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rep As New ADODB.Recordset
Dim rec As New ADODB.Recordset
Dim dontWatchText As Boolean
Dim iDirty As Boolean
Dim iStudentNameHasChanged As Boolean
Sub ClearAllFields()
txtLast_Name = ""
txtFirst_Name = ""
txtID = ""
txtUpdate = ""
txtC_Address = ""
txtC_City = ""
txtC_Province = ""
txtC_PostalCode = ""
txtC_Telephone = ""
txtFirstNation = ""
txtFirstNation_Contact = ""
txtFirstNation_Telephone = ""
txtP_Address = ""
txtP_City = ""
txtP_Province = ""
txtP_PostalCode = ""
txtP_Telephone = ""
txtProgram = ""
txtProgram_Length = ""
txtLast_Course = ""
txtEnroll = ""
txtGrad = ""
txtCurrent_Past = ""
txtFull_Part = ""
txtGrad_Studies = ""
txtInstitution = ""
txtJob_Title = ""
txtEmployer = ""
'frmNotes.txtComments = ""
iDirty = False
iStudentNameHasChanged = False
End Sub
Function SaveChanges() As Boolean
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -