📄 frmteshu.frm
字号:
RecordsetType = 1 'Dynaset
RecordSource = "te13"
Top = 8280
Visible = 0 'False
Width = 1140
End
Begin VB.Data Data14
Caption = "Data14"
Connect = "Access"
DatabaseName = "E:\校园广播铃声管理\xiaoyuan.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 8040
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "te14"
Top = 8280
Visible = 0 'False
Width = 1140
End
Begin VB.Data Data15
Caption = "Data15"
Connect = "Access"
DatabaseName = "E:\校园广播铃声管理\xiaoyuan.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 8280
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "te15"
Top = 8280
Visible = 0 'False
Width = 1140
End
Begin VB.Data Data16
Caption = "Data16"
Connect = "Access"
DatabaseName = "E:\校园广播铃声管理\xiaoyuan.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 7680
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "te16"
Top = 8280
Visible = 0 'False
Width = 1140
End
Begin VB.Data Data17
Caption = "Data17"
Connect = "Access"
DatabaseName = "E:\校园广播铃声管理\xiaoyuan.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 8760
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "te17"
Top = 8280
Visible = 0 'False
Width = 1140
End
Begin VB.Data Data18
Caption = "Data18"
Connect = "Access"
DatabaseName = "E:\校园广播铃声管理\xiaoyuan.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 8160
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "te18"
Top = 8280
Visible = 0 'False
Width = 1140
End
Begin VB.Data Data19
Caption = "Data19"
Connect = "Access"
DatabaseName = "E:\校园广播铃声管理\xiaoyuan.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 8280
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "te19"
Top = 8280
Visible = 0 'False
Width = 1140
End
Begin VB.Data Data20
Caption = "Data20"
Connect = "Access"
DatabaseName = "E:\校园广播铃声管理\xiaoyuan.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 7800
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "te20"
Top = 8280
Visible = 0 'False
Width = 1140
End
Begin VB.CommandButton Command45
BackColor = &H00C0FFFF&
Height = 420
Left = 6960
Picture = "frmteshu.frx":4DA6C
Style = 1 'Graphical
TabIndex = 147
ToolTipText = "打印此页"
Top = 8280
Width = 495
End
Begin VB.Timer Timer1
Interval = 1000
Left = 1800
Top = 480
End
Begin VB.Data Data21
Caption = "Data21"
Connect = "Access"
DatabaseName = "E:\校园广播铃声管理\xiaoyuan.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 8640
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "xingqimingcheng"
Top = 120
Visible = 0 'False
Width = 1140
End
Begin VB.CommandButton Command22
BackColor = &H000000C0&
Height = 375
Left = 9840
Picture = "frmteshu.frx":4E5EE
Style = 1 'Graphical
TabIndex = 146
ToolTipText = "退 出"
Top = 0
Width = 495
End
Begin VB.CommandButton Command21
BackColor = &H00C0FFFF&
Caption = "设定星期名称"
Height = 375
Left = 120
Style = 1 'Graphical
TabIndex = 145
Top = 0
Width = 1575
End
Begin VB.TextBox Text6
DataField = "铃音"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 9960
TabIndex = 119
Top = 960
Visible = 0 'False
Width = 495
End
Begin VB.TextBox Text7
DataField = "铃音"
DataSource = "Data2"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 9960
TabIndex = 118
Text = "Text6"
Top = 1305
Visible = 0 'False
Width = 495
End
Begin VB.TextBox Text8
DataField = "铃音"
DataSource = "Data3"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 9960
TabIndex = 117
Text = "Text6"
Top = 1650
Visible = 0 'False
Width = 495
End
Begin VB.TextBox Text9
DataField = "铃音"
DataSource = "Data4"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 9960
TabIndex = 116
Text = "Text6"
Top = 2025
Visible = 0 'False
Width = 495
End
Begin VB.TextBox Text10
DataField = "铃音"
DataSource = "Data5"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 9960
TabIndex = 115
Text = "Text6"
Top = 2385
Visible = 0 'False
Width = 495
End
Begin VB.TextBox Text11
DataField = "铃音"
DataSource = "Data6"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 9960
TabIndex = 114
Text = "Text6"
Top = 2745
Visible = 0 'False
Width = 495
End
Begin VB.TextBox Text12
DataField = "铃音"
DataSource = "Data7"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 9960
TabIndex = 113
Text = "Text6"
Top = 3105
Visible = 0 'False
Width = 495
End
Begin VB.TextBox Text13
DataField = "铃音"
DataSource = "Data8"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 9960
TabIndex = 112
Text = "Text6"
Top = 3465
Visible = 0 'False
Width = 495
End
Begin VB.TextBox Text14
DataField = "铃音"
DataSource = "Data9"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 9960
TabIndex = 111
Text = "Text6"
Top = 3840
Visible = 0 'False
Width = 495
End
Begin VB.TextBox Text15
DataField = "铃音"
DataSource = "Data10"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 9960
TabIndex = 110
Text = "Text6"
Top = 4200
Visible = 0 'False
Width = 495
End
Begin VB.TextBox Text16
DataField = "铃音"
DataSource = "Data11"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 9960
TabIndex = 109
Text = "Text6"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -