frmmodifywelfare.frm

人事管理信息系统visual basic + my sql

            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   492
         Left            =   3610
         TabIndex        =   6
         Top             =   390
         Width           =   1470
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "查看培训信息"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1092
      Left            =   120
      TabIndex        =   0
      Top             =   3240
      Width           =   7335
      Begin VB.CommandButton firstCommand 
         Caption         =   "第一条记录"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   492
         Left            =   240
         TabIndex        =   4
         Top             =   360
         Width           =   1452
      End
      Begin VB.CommandButton previousCommand 
         Caption         =   "上一条记录"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   492
         Left            =   1960
         TabIndex        =   3
         Top             =   360
         Width           =   1452
      End
      Begin VB.CommandButton nextCommand 
         Caption         =   "下一条记录"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   492
         Left            =   3680
         TabIndex        =   2
         Top             =   360
         Width           =   1452
      End
      Begin VB.CommandButton lastCommand 
         Caption         =   "最后一条记录"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   492
         Left            =   5400
         TabIndex        =   1
         Top             =   360
         Width           =   1692
      End
   End
End
Attribute VB_Name = "frmModifyWelfare"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mrc As ADODB.Recordset
Dim myBookmark As Variant
Dim mcclean As Boolean


Private Sub cancelCommand_Click()
 Unload Me
End Sub



Private Sub deleteCommand_Click()
  'myBookmark = mrc.Bookmark
   
    If MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录") = vbOK Then
            'mrc.MoveNext
           ' If mrc.EOF Then
              '  mrc.MoveFirst
               ' myBookmark = mrc.Bookmark
               '  mrc.Delete
              ' mrc.MoveLast
               
                
                'mrc.Bookmark = myBookmark
              '  Call viewData
           ' Else
               ' myBookmark = mrc.Bookmark
               mrc.Delete
                mrc.MoveFirst
                
              '  mrc.Bookmark = myBookmark
                Call viewData
          ' End If
    Else
       ' mrc.Bookmark = myBookmark
        Call viewData
    End If
End Sub

Private Sub editCommand_Click()

 mcclean = False
    Frame2.Enabled = False
    firstCommand.Enabled = False
    previousCommand.Enabled = False
    nextCommand.Enabled = False
    lastCommand.Enabled = False
   Dim i As Integer
  For i = 0 To 5
    txtFields(i).Enabled = True
    Next
     For i = 7 To 9
    txtFields(i).Enabled = True
    Next
  
   txtFields(4).Enabled = False
'   myBookmark = mrc.Bookmark
End Sub

Private Sub firstCommand_Click()
   mrc.MoveFirst
    Call viewData
End Sub

Private Sub Form_Load()

   

    Dim txtSQL As String
    Dim MsgText As String
    
    txtSQL = "select * from 福利费用"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    
    
    mrc.MoveFirst
    Call viewData
 '   myBookmark = mrc.Bookmark
    mcclean = True
    
    Dim i As Integer
    For i = 0 To 5
    txtFields(i).Enabled = False
    Next
     For i = 7 To 9
    txtFields(i).Enabled = False
    Next
End Sub

Public Sub viewData()
          txtFields(0).Text = mrc.Fields(1)
                   txtFields(1).Text = mrc.Fields(2)
                txtFields(4).Text = mrc.Fields(3)
                  txtFields(5).Text = mrc.Fields(4)
                 txtFields(2).Text = mrc.Fields(5)
                  txtFields(3).Text = mrc.Fields(6)
                  txtFields(7).Text = mrc.Fields(7)
                  txtFields(8).Text = mrc.Fields(8)
                  txtFields(9).Text = mrc.Fields(9)
               
End Sub

Private Sub lastCommand_Click()
 mrc.MoveLast
    Call viewData
End Sub

Private Sub nextCommand_Click()
 mrc.MoveNext
    If mrc.EOF Then
        mrc.MoveFirst
    End If
    Call viewData
End Sub

Private Sub previousCommand_Click()
 mrc.MovePrevious
    If mrc.BOF Then
        mrc.MoveLast
    End If
    Call viewData
End Sub



Private Sub updateCommand_Click()


               mrc.Fields(1) = Val(txtFields(0).Text)
                mrc.Fields(2) = Val(txtFields(1).Text)
                mrc.Fields(3) = Trim(txtFields(4).Text)
                mrc.Fields(4) = Trim(txtFields(5).Text)
                mrc.Fields(5) = Trim(txtFields(2).Text)
                mrc.Fields(6) = Val(txtFields(3).Text)
                mrc.Fields(7) = Val(txtFields(7).Text)
                mrc.Fields(8) = Val(txtFields(8).Text)
                mrc.Fields(9) = Val(txtFields(9).Text)
               
                 
                mrc.Update
                MsgBox "福利费用信息更新成功！", vbOKOnly + vbExclamation, "更新福利费用信息"
              '  mrc.Bookmark = myBookmark
                Call viewData
                Frame2.Enabled = True
                firstCommand.Enabled = True
                previousCommand.Enabled = True
                nextCommand.Enabled = True
                lastCommand.Enabled = True
                Dim i As Integer
               For i = 0 To 5
    txtFields(i).Enabled = False
    Next
     For i = 7 To 9
    txtFields(i).Enabled = False
    Next
                mcclean = True

End Sub