📄 attandance_entry.frm
字号:
VERSION 5.00
Begin VB.Form attendance_entry
BackColor = &H00FDECDF&
BorderStyle = 1 'Fixed Single
Caption = "Sudent Attendance Entry"
ClientHeight = 11055
ClientLeft = 45
ClientTop = 435
ClientWidth = 14700
DrawMode = 6 'Mask Pen Not
FillColor = &H00FDECDF&
FillStyle = 0 'Solid
ForeColor = &H00FDECDF&
LinkTopic = "Form1"
MaxButton = 0 'False
Picture = "attandance_entry.frx":0000
ScaleHeight = 11055
ScaleWidth = 14700
WindowState = 2 'Maximized
Begin VB.CheckBox chkAtt
Appearance = 0 'Flat
BackColor = &H80000005&
BeginProperty Font
Name = "Palatino Linotype"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 8
Left = 7440
TabIndex = 99
Top = 4440
Width = 195
End
Begin VB.CheckBox chkAtt
Appearance = 0 'Flat
BackColor = &H80000005&
BeginProperty Font
Name = "Palatino Linotype"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 11
Left = 7440
TabIndex = 98
Top = 5520
Width = 195
End
Begin VB.CheckBox chkAtt
Appearance = 0 'Flat
BackColor = &H80000005&
BeginProperty Font
Name = "Palatino Linotype"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 10
Left = 7440
TabIndex = 97
Top = 5160
Width = 195
End
Begin VB.TextBox txtRoll
Appearance = 0 'Flat
BackColor = &H80000018&
BeginProperty Font
Name = "Palatino Linotype"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 13
Left = 600
Locked = -1 'True
TabIndex = 96
Top = 6120
Width = 1215
End
Begin VB.TextBox txtRoll
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000018&
BeginProperty Font
Name = "Palatino Linotype"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 49
Left = 8160
Locked = -1 'True
TabIndex = 94
Top = 14280
Visible = 0 'False
Width = 1215
End
Begin VB.TextBox txtRoll
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000018&
BeginProperty Font
Name = "Palatino Linotype"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 48
Left = 8160
Locked = -1 'True
TabIndex = 93
Top = 13920
Visible = 0 'False
Width = 1215
End
Begin VB.TextBox txtRoll
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000018&
BeginProperty Font
Name = "Palatino Linotype"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 47
Left = 8160
Locked = -1 'True
TabIndex = 92
Top = 13560
Width = 1215
End
Begin VB.TextBox txtRoll
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000018&
BeginProperty Font
Name = "Palatino Linotype"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 46
Left = 8160
Locked = -1 'True
TabIndex = 91
Top = 13200
Width = 1215
End
Begin VB.TextBox txtRoll
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000018&
BeginProperty Font
Name = "Palatino Linotype"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 45
Left = 8160
Locked = -1 'True
TabIndex = 90
Top = 12840
Width = 1215
End
Begin VB.TextBox txtRoll
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000018&
BeginProperty Font
Name = "Palatino Linotype"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 44
Left = 8160
Locked = -1 'True
TabIndex = 89
Top = 12480
Width = 1215
End
Begin VB.CommandButton CMD_NXT
Caption = "Next"
Height = 735
Left = 8040
TabIndex = 88
Top = 10080
Width = 1335
End
Begin VB.CommandButton cmd_cancel
Appearance = 0 'Flat
Caption = "&Cancel"
BeginProperty Font
Name = "Palatino Linotype"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 10920
Style = 1 'Graphical
TabIndex = 87
Top = 7680
UseMaskColor = -1 'True
Width = 1935
End
Begin VB.ComboBox CMB_YEAR
BeginProperty Font
Name = "Palatino Linotype"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
ItemData = "attandance_entry.frx":0342
Left = 10560
List = "attandance_entry.frx":0344
TabIndex = 86
Top = 3720
Width = 1215
End
Begin VB.ComboBox CMB_BATCH
Appearance = 0 'Flat
BeginProperty Font
Name = "Palatino Linotype"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 11280
TabIndex = 83
Top = 6480
Width = 855
End
Begin VB.ComboBox CMB_TPO
Appearance = 0 'Flat
BeginProperty Font
Name = "Palatino Linotype"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 12600
TabIndex = 82
Top = 5640
Width = 1095
End
Begin VB.ComboBox sub_cmb
Appearance = 0 'Flat
BeginProperty Font
Name = "Palatino Linotype"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 10560
TabIndex = 80
Top = 5640
Width = 1935
End
Begin VB.ComboBox cmb_div
BeginProperty Font
Name = "Palatino Linotype"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
ItemData = "attandance_entry.frx":0346
Left = 10560
List = "attandance_entry.frx":0350
TabIndex = 78
Text = "cmb_div"
Top = 4680
Width = 855
End
Begin VB.ComboBox CMB_BRANCH
BeginProperty Font
Name = "Palatino Linotype"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
ItemData = "attandance_entry.frx":035A
Left = 10560
List = "attandance_entry.frx":035C
Style = 2 'Dropdown List
TabIndex = 77
Top = 2880
Width = 2295
End
Begin VB.CheckBox chkAtt
Appearance = 0 'Flat
BackColor = &H80000005&
BeginProperty Font
Name = "Palatino Linotype"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 1
Left = 7440
TabIndex = 73
Top = 1920
Width = 195
End
Begin VB.CheckBox chkAtt
Appearance = 0 'Flat
BackColor = &H80000005&
BeginProperty Font
Name = "Palatino Linotype"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 2
Left = 7440
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -