📄 frm3.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frm3
BackColor = &H00000080&
ClientHeight = 1485
ClientLeft = 60
ClientTop = 450
ClientWidth = 6765
Icon = "frm3.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 1485
ScaleWidth = 6765
StartUpPosition = 1 '所有者中心
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "E:\校园广播铃声管理\xiaoyuan.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "3"
Top = 1080
Width = 6735
End
Begin VB.ComboBox Combo4
DataField = "秒"
DataSource = "Data1"
Height = 300
ItemData = "frm3.frx":27A2
Left = 4080
List = "frm3.frx":285A
TabIndex = 12
Text = "秒"
Top = 360
Width = 1215
End
Begin VB.ComboBox Combo3
DataField = "分"
DataSource = "Data1"
Height = 300
ItemData = "frm3.frx":2944
Left = 2880
List = "frm3.frx":29FC
TabIndex = 11
Text = "分"
Top = 360
Width = 975
End
Begin VB.ComboBox Combo2
DataField = "点"
DataSource = "Data1"
Height = 300
ItemData = "frm3.frx":2AE6
Left = 1560
List = "frm3.frx":2B32
TabIndex = 10
Text = "点"
Top = 360
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "铃音"
DataSource = "Data1"
Height = 285
Index = 3
Left = 5040
MaxLength = 50
TabIndex = 7
Top = 360
Visible = 0 'False
Width = 975
End
Begin VB.CommandButton cmdAdd
Caption = "添加(&A)"
Height = 300
Left = 360
TabIndex = 6
Top = 735
Width = 975
End
Begin VB.CommandButton cmdDelete
Caption = "删除(&D)"
Height = 300
Left = 1440
TabIndex = 5
Top = 735
Width = 975
End
Begin VB.CommandButton cmdRefresh
Caption = "刷新(&R)"
Height = 300
Left = 2520
TabIndex = 4
Top = 735
Width = 975
End
Begin VB.CommandButton cmdUpdate
Caption = "更新(&U)"
Height = 300
Left = 3600
TabIndex = 3
Top = 735
Width = 975
End
Begin VB.CommandButton cmdClose
Caption = "关闭(&C)"
Height = 300
Left = 4680
TabIndex = 2
Top = 735
Width = 975
End
Begin VB.ComboBox Combo1
DataField = "提示内容"
DataSource = "Data1"
Height = 300
ItemData = "frm3.frx":2B8C
Left = 1560
List = "frm3.frx":2BCC
TabIndex = 1
Text = "选择"
Top = 0
Width = 3975
End
Begin VB.CommandButton Command1
Caption = "铃音..."
Height = 300
Left = 5640
TabIndex = 0
Top = 0
Width = 1000
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 6240
Top = 360
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Label lblLabels
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "作息内容:"
ForeColor = &H00C0FFFF&
Height = 255
Index = 0
Left = 120
TabIndex = 9
Top = 60
Width = 1815
End
Begin VB.Label lblLabels
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "响铃时间:"
ForeColor = &H00C0FFFF&
Height = 255
Index = 1
Left = 120
TabIndex = 8
Top = 380
Width = 1815
End
End
Attribute VB_Name = "frm3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAdd_Click()
Call ras
Data1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
'如果删除记录集的最后一条记录
'记录或记录集中唯一的记录
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub
Private Sub ras()
Me.cmdRefresh.Enabled = True
Me.cmdDelete.Enabled = True
Me.cmdUpdate.Enabled = True
Me.txtFields(3).Enabled = True
Me.Combo1.Enabled = True
Me.Command1.Enabled = True
End Sub
Private Sub cmdRefresh_Click()
'这仅对多用户应用程序才是需要的
Call yalgan
Form2.Data3.Recordset.MoveLast
End Sub
Private Sub yalgan()
Me.txtFields(3).Enabled = False
Me.Combo1.Enabled = False
Me.Command1.Enabled = False
Me.cmdDelete.Enabled = False
Me.cmdRefresh.Enabled = False
Me.cmdUpdate.Enabled = False
End Sub
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Call yalgan
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Command1_Click()
Me.CommonDialog1.DialogTitle = "打开歌曲(亚森江)*1"
CommonDialog1.Filter = "mp3file(*.mp3)|*.mp3|datfile(*.dat)|*.dat|waveaudiofile(*.wav)|*.wav|mpegfile(*.mpg)|*.mpg|mp4file(*.mp4)|*.mp4|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
txtFields(3).Text = CommonDialog1.FileName
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'这就是放置错误处理代码的地方
'如果想忽略错误，注释掉下一行代码
'如果想捕捉错误，在这里添加错误处理代码
MsgBox "数据错误事件命中错误：" & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'这将显示当前记录位置
'为动态集和快照
Data1.Caption = "记录：" & (Data1.Recordset.AbsolutePosition + 1)
'对于 Table 对象，当记录集创建后并使用下面的行时，
'必须设置 Index 属性
'Data1.Caption = "记录：" & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
'这是放置验证代码的地方
'当下面的动作发生时，调用这个事件
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
Screen.MousePointer = vbHourglass
End Sub
Private Sub Form_Load()
Me.Data1.DatabaseName = App.Path + "\" & "\xiaoyuan.mdb"
Me.Data1.RecordSource = 3
Call yalgan
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -