sheding1.frm

一个较为完整的校园铃声控制系统。可以任意设置时间次数。

VERSION 5.00
Begin VB.Form sheding1 
   BackColor       =   &H00FFFFC0&
   Caption         =   "星期名称"
   ClientHeight    =   720
   ClientLeft      =   1110
   ClientTop       =   450
   ClientWidth     =   3645
   Icon            =   "sheding1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Picture         =   "sheding1.frx":4692
   ScaleHeight     =   720
   ScaleWidth      =   3645
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdClose 
      BackColor       =   &H00C0FFFF&
      Caption         =   "确定(&C)"
      Height          =   300
      Left            =   2280
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   380
      Width           =   975
   End
   Begin VB.CommandButton cmdAdd 
      BackColor       =   &H00C0FFFF&
      Caption         =   "设定(&A)"
      Height          =   300
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   360
      Width           =   975
   End
   Begin VB.Data Data1 
      Align           =   2  'Align Bottom
      Connect         =   "Access"
      DatabaseName    =   "E:\校园广播铃声管理\xiaoyuan.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "xingqimingcheng"
      Top             =   375
      Visible         =   0   'False
      Width           =   3645
   End
   Begin VB.TextBox txtFields 
      DataField       =   "星期"
      DataSource      =   "Data1"
      Height          =   285
      Left            =   1560
      MaxLength       =   50
      TabIndex        =   1
      Top             =   40
      Width           =   2055
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "请输入星期名称"
      ForeColor       =   &H0000FF00&
      Height          =   180
      Left            =   120
      TabIndex        =   4
      Top             =   120
      Width           =   1275
   End
   Begin VB.Label lblLabels 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "星期名称"
      Height          =   180
      Index           =   0
      Left            =   360
      TabIndex        =   0
      Top             =   120
      Width           =   720
   End
End
Attribute VB_Name = "sheding1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAdd_Click()
  Data1.Recordset.AddNew
  
  txtFields.Enabled = True
  cmdAdd.Enabled = False
  cmdClose.Enabled = True
End Sub

Private Sub cmdClose_Click()
Me.Data1.Refresh
Load frmteshu
frmteshu.show

frmteshu.Data21.Recordset.MoveLast
Unload Me
End Sub

Private Sub Data21_Error(DataErr As Integer, Response As Integer)
  '这就是放置错误处理代码的地方
  '如果想忽略错误，注释掉下一行代码
  '如果想捕捉错误，在这里添加错误处理代码
  MsgBox "数据错误事件命中错误：" & Error$(DataErr)
  Response = 0  '忽略错误
End Sub

Private Sub Data21_Reposition()
  Screen.MousePointer = vbDefault
  On Error Resume Next
  '这将显示当前记录位置
  '为动态集和快照
  Data21.Caption = "记录：" & (Data21.Recordset.AbsolutePosition + 1)
  '对于 Table 对象，当记录集创建后并使用下面的行时，
  '必须设置 Index 属性
  'Data1.Caption = "记录：" & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub

Private Sub Data21_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 = "xingqimingcheng"
Me.txtFields.Enabled = False
Me.cmdClose.Enabled = False
End Sub