📄 autoshezhi.frm
字号:
VERSION 5.00
Begin VB.Form autoshezhi
BackColor = &H00000080&
Caption = "自动化设置"
ClientHeight = 4875
ClientLeft = 60
ClientTop = 450
ClientWidth = 7380
Icon = "autoshezhi.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
Picture = "autoshezhi.frx":08CA
ScaleHeight = 4875
ScaleWidth = 7380
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text1
DataSource = "Data2"
Height = 270
Left = 6240
TabIndex = 19
Text = "Text1"
Top = 2520
Width = 735
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = "E:\校园广播铃声管理\xiaoyuan.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 6000
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "自动化空"
Top = 3360
Visible = 0 'False
Width = 1140
End
Begin VB.ComboBox Combo1
DataField = "fuxuankuang"
DataSource = "Data1"
ForeColor = &H000000FF&
Height = 300
ItemData = "autoshezhi.frx":3414A
Left = 3120
List = "autoshezhi.frx":34154
TabIndex = 18
Top = 1200
Width = 4095
End
Begin VB.ComboBox Combo6
DataField = "秒"
DataSource = "Data1"
Height = 300
ItemData = "autoshezhi.frx":34160
Left = 4200
List = "autoshezhi.frx":34218
TabIndex = 16
Text = "秒"
Top = 2040
Width = 735
End
Begin VB.ComboBox Combo5
DataField = "分"
DataSource = "Data1"
Height = 300
ItemData = "autoshezhi.frx":34302
Left = 3360
List = "autoshezhi.frx":343BA
TabIndex = 15
Text = "分"
Top = 2040
Width = 735
End
Begin VB.ComboBox Combo4
DataField = "点"
DataSource = "Data1"
Height = 300
ItemData = "autoshezhi.frx":344A4
Left = 2520
List = "autoshezhi.frx":344F0
TabIndex = 14
Text = "点"
Top = 2040
Width = 735
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "E:\校园广播铃声管理\xiaoyuan.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 6000
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "自动化"
Top = 3840
Visible = 0 'False
Width = 1140
End
Begin VB.CommandButton Command2
BackColor = &H00FFFFC0&
Caption = "保 存"
Height = 375
Left = 2880
Style = 1 'Graphical
TabIndex = 13
Top = 4440
Width = 4095
End
Begin VB.CommandButton Command1
BackColor = &H00FFFFC0&
Caption = "设 置"
Height = 375
Left = 240
Style = 1 'Graphical
TabIndex = 12
Top = 4440
Width = 2415
End
Begin VB.TextBox Text4
Alignment = 2 'Center
DataField = "午间休息"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2880
TabIndex = 11
Top = 3840
Width = 2055
End
Begin VB.TextBox Text3
Alignment = 2 'Center
DataField = "授课时间"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2880
TabIndex = 10
Top = 3240
Width = 2055
End
Begin VB.TextBox Text2
Alignment = 2 'Center
DataField = "休息时间"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2880
TabIndex = 9
Top = 2640
Width = 2055
End
Begin VB.Line Line1
BorderColor = &H00C0FFFF&
BorderWidth = 5
Index = 1
X1 = 120
X2 = 7320
Y1 = 1680
Y2 = 1680
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "是否使用自动化设置"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Left = 240
TabIndex = 17
Top = 1200
Width = 2700
End
Begin VB.Line Line2
BorderColor = &H00C0FFFF&
BorderWidth = 5
X1 = 120
X2 = 7320
Y1 = 4320
Y2 = 4320
End
Begin VB.Line Line1
BorderColor = &H00C0FFFF&
BorderWidth = 5
Index = 0
X1 = 120
X2 = 7320
Y1 = 960
Y2 = 960
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "分钟"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 285
Left = 5040
TabIndex = 8
Top = 3840
Width = 600
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "分钟"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -