form1.frm

来自「vb数据库编程资料」· FRM 代码 · 共 52 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   1410
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   3630
   LinkTopic       =   "Form1"
   ScaleHeight     =   1410
   ScaleWidth      =   3630
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "调整工资"
      Height          =   375
      Left            =   480
      TabIndex        =   0
      Top             =   480
      Width           =   2655
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
   Dim MyWs As Workspace  '定义工作区变量
   Dim Mydb As Database  '定义数据库变量
   Dim MyRec As Recordset  '定义记录集变量
   Set MyWs = DBEngine.Workspaces(0)  '给工作区变量赋值
   Set Mydb = MyWs.OpenDatabase(VB.App.Path & "\教学", True, False)
   '打开教学数据库
   Set MyRec = Mydb.OpenRecordset("教师表", dbOpenTable)
   '以教师表为数据源创建记录集
   MyWs.BeginTrans  '开始事务处理
   Do While Not MyRec.EOF   '该循环完成事务处理操作
      MyRec.Edit  '置记录集为编辑修改状态
      If MyRec.Fields("职称").Value = "讲师" Then
         MyRec.Fields("工资").Value = MyRec.Fields("工资").Value * (1 + 0.2)
      Else
         MyRec.Fields("工资").Value = MyRec.Fields("工资").Value * (1 + 0.1)
      End If
      MyRec.Update  '更新
      MyRec.MoveNext  '记录指针移到下一条
   Loop
   If MsgBox("保存所作的工资调整吗？", vbQuestion + vbYesNo) = vbYes Then
      MyWs.CommitTrans  '提交事务
   Else
      MyWs.Rollback   '撤消事务
   End If
End Sub