form1.frm

vb数据库编程资料

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "课程表维护窗口"
   ClientHeight    =   2085
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7620
   LinkTopic       =   "Form1"
   ScaleHeight     =   2085
   ScaleWidth      =   7620
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command9 
      Caption         =   "取消"
      Height          =   375
      Left            =   6840
      TabIndex        =   16
      Top             =   1560
      Width           =   615
   End
   Begin VB.CommandButton Command8 
      Caption         =   "确定"
      Height          =   375
      Left            =   6000
      TabIndex        =   15
      Top             =   1560
      Width           =   735
   End
   Begin VB.CommandButton Command7 
      Caption         =   "修改"
      Height          =   375
      Left            =   5160
      TabIndex        =   14
      Top             =   1560
      Width           =   735
   End
   Begin VB.CommandButton Command6 
      Caption         =   "添加"
      Height          =   375
      Left            =   4320
      TabIndex        =   13
      Top             =   1560
      Width           =   735
   End
   Begin VB.CommandButton Command5 
      Caption         =   "删除"
      Height          =   375
      Left            =   3480
      TabIndex        =   12
      Top             =   1560
      Width           =   735
   End
   Begin VB.CommandButton Command4 
      Caption         =   "末记录"
      Height          =   375
      Left            =   2640
      TabIndex        =   11
      Top             =   1560
      Width           =   735
   End
   Begin VB.CommandButton Command3 
      Caption         =   "后移"
      Height          =   375
      Left            =   1800
      TabIndex        =   10
      Top             =   1560
      Width           =   735
   End
   Begin VB.CommandButton Command2 
      Caption         =   "前移"
      Height          =   375
      Left            =   960
      TabIndex        =   9
      Top             =   1560
      Width           =   735
   End
   Begin VB.CommandButton Command1 
      Caption         =   "首记录"
      Height          =   375
      Left            =   120
      TabIndex        =   8
      Top             =   1560
      Width           =   735
   End
   Begin VB.TextBox Text4 
      Height          =   375
      Left            =   4560
      TabIndex        =   7
      Text            =   "Text4"
      Top             =   960
      Width           =   2055
   End
   Begin VB.TextBox Text3 
      Height          =   375
      Left            =   1680
      TabIndex        =   5
      Text            =   "Text3"
      Top             =   960
      Width           =   1335
   End
   Begin VB.TextBox Text2 
      Height          =   375
      Left            =   4560
      TabIndex        =   3
      Text            =   "Text2"
      Top             =   360
      Width           =   2295
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   1680
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   360
      Width           =   1335
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "C:\Documents and Settings\tongaihong\桌面\VB数据库程序与数据\09\例9-18\教学.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   2520
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "课程表"
      Top             =   2280
      Width           =   2415
   End
   Begin VB.Label Label4 
      Caption         =   "讲课教师号："
      Height          =   375
      Left            =   3360
      TabIndex        =   6
      Top             =   960
      Width           =   1215
   End
   Begin VB.Label Label3 
      Caption         =   "课时数："
      Height          =   255
      Left            =   840
      TabIndex        =   4
      Top             =   960
      Width           =   855
   End
   Begin VB.Label Label2 
      Caption         =   "课程名："
      Height          =   375
      Left            =   3720
      TabIndex        =   2
      Top             =   360
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "课程号："
      Height          =   255
      Left            =   840
      TabIndex        =   0
      Top             =   360
      Width           =   735
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mydb As Database   '定义数据库变量
Dim Myrec As Recordset '定义记录集变量
Dim Tj As Boolean    '定义一个变量表示当前操作是添加还是编辑
Dim bm  '定义一个变量用来存放添加记录时原来记录的位置

Private Sub Command1_Click()  '移到首记录
   Myrec.MoveFirst
   Command1.Enabled = False
   Command2.Enabled = False
   Command3.Enabled = True
   Command4.Enabled = True
   Call DispValue  '显示当前记录的值
End Sub

Private Sub Command2_Click()  '前移
   Myrec.MovePrevious
   If Myrec.BOF Then
      Myrec.MoveFirst
      Command1.Enabled = False
      Command2.Enabled = False
   End If
   Command3.Enabled = True
   Command4.Enabled = True
   Call DispValue  '显示当前记录的值
End Sub

Private Sub Command3_Click()  '后移
   Myrec.MoveNext
   If Myrec.EOF Then
      Myrec.MoveLast
      Command3.Enabled = False
      Command4.Enabled = False
   End If
   Command1.Enabled = True
   Command2.Enabled = True
   Call DispValue '显示当前记录的值
End Sub

Private Sub Command4_Click()  '移到末记录
   Myrec.MoveLast
   Command3.Enabled = False
   Command4.Enabled = False
   Command1.Enabled = True
   Command2.Enabled = True
   Call DispValue  '显示当前记录的值
End Sub

Private Sub Command5_Click()  '删除记录
  If (MsgBox("真的要删除该记录吗？", vbQuestion + vbYesNo, "删除提示") = vbYes) Then
     If Myrec.RecordCount > 0 Then   '表非空
        Myrec.Delete   '删除
        If Myrec.RecordCount = 0 Then   '最后一条记录已经删除
          MsgBox ("最后一条记录已经删除")
          Exit Sub
        Else
          If Myrec.EOF Then  '如果删除的是末记录
             Myrec.MoveLast
          Else
             Myrec.MoveLast
          End If
          Call DispValue  '显示当前记录的值
        End If
     End If
  End If
End Sub

Private Sub Command6_Click() '添加记录
   bm = Myrec.Bookmark  '用书签记下当前记录位置
   Myrec.AddNew  '调用AddNew方法增加新记录
   Call EditStatus  '置按钮和文本框状态
   Call EmptyText '清空文本框
   Tj = True  '是添加新记录
End Sub
Private Sub Command7_Click()  '修改记录
   Myrec.Edit  '调用Edit方法
   Call EditStatus '置按钮和文本框状态
   Tj = False '不是添加记录，是修改记录
End Sub
Private Sub Command8_Click() '确定操作
  Call SetValue  '给各字段赋值
  Myrec.Update   '调用Update方法保存
  Call OkStatus '置按钮和文本框状态
  MsgBox ("保存成功") '给出保存成功提示
End Sub

Private Sub Command9_Click() '取消操作
  If (MsgBox("真的要取消修改吗？", vbQuestion + vbYesNo)) = vbYes Then
     Myrec.CancelUpdate
     If Tj Then '如果是增加新记录
        Myrec.Bookmark = bm  '把记录指针移动到原来的位置
     End If
     Call DispValue  '显示当前记录的值
     Call OkStatus  '置按钮和文本框状态
  End If
End Sub

Private Sub Form_Load()
  Set mydb = OpenDatabase(VB.App.Path + "\教学", True, False) '打开数据库
  Set Myrec = mydb.OpenRecordset("课程表", dbOpenTable) '创建记录集
  If Myrec.EOF And Myrec.BOF Then  '如果表为空
      MsgBox "表为空，请添加记录"
  Else
      Call DispValue  '显示当前记录的值
  End If
  Call TextDisable   '使文本框不可用
  Command8.Enabled = False
  Command9.Enabled = False
End Sub
Private Sub DispValue()
   Text1.Text = Myrec.Fields("课程号")
   Text2.Text = Myrec.Fields("课程名")
   Text3.Text = Myrec.Fields("课时数")
   Text4.Text = Myrec.Fields("教师编号")
End Sub
Private Sub SetValue()
  Myrec.Fields("课程号") = Text1.Text
   Myrec.Fields("课程名") = Text2.Text
   Myrec.Fields("课时数") = Text3.Text
   Myrec.Fields("教师编号") = Text4.Text
End Sub
Private Sub TextEnable()  '使所有的文本框可用
   Text1.Enabled = True
   Text2.Enabled = True
   Text3.Enabled = True
   Text4.Enabled = True
End Sub
Private Sub TextDisable()  '使所有的文本框不可用
   Text1.Enabled = False
   Text2.Enabled = False
   Text3.Enabled = False
   Text4.Enabled = False
End Sub
Private Sub EditStatus()  '设置在编辑或添加记录时的各控件状态
  Command1.Enabled = False
  Command2.Enabled = False
  Command3.Enabled = False
  Command4.Enabled = False
  Command5.Enabled = False
  Command6.Enabled = False
  Command7.Enabled = False
  Command8.Enabled = True
  Command9.Enabled = True
  Call TextEnable
End Sub
Private Sub EmptyText()  '清空文本框
  Text1.Text = ""
  Text2.Text = ""
  Text3.Text = ""
  Text4.Text = ""
End Sub
Private Sub OkStatus() '设置不在编辑或添加记录时的各控件状态
  Command1.Enabled = True
  Command2.Enabled = True
  Command3.Enabled = True
  Command4.Enabled = True
  Command5.Enabled = True
  Command6.Enabled = True
  Command7.Enabled = True
  Command8.Enabled = False
  Command9.Enabled = False
  Call TextDisable
End Sub