updatesome.frm

人力资源管理系统

VERSION 5.00
Begin VB.Form frmUpdateSome 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "批量修改："
   ClientHeight    =   2490
   ClientLeft      =   4800
   ClientTop       =   6105
   ClientWidth     =   5265
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2490
   ScaleWidth      =   5265
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定(&O)"
      Height          =   375
      Left            =   1080
      TabIndex        =   10
      Top             =   2040
      Width           =   1215
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   2760
      TabIndex        =   9
      Top             =   2040
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Height          =   1935
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   5055
      Begin VB.TextBox txtJinE 
         Height          =   270
         Left            =   1800
         TabIndex        =   7
         Top             =   1440
         Width           =   2295
      End
      Begin VB.OptionButton Option2 
         Caption         =   "当前列表显示的所有记录"
         Height          =   255
         Left            =   1920
         TabIndex        =   5
         Top             =   1080
         Width           =   2415
      End
      Begin VB.OptionButton Option1 
         Caption         =   "默认工资表中的所有记录"
         Height          =   225
         Left            =   1920
         TabIndex        =   4
         Top             =   720
         Value           =   -1  'True
         Width           =   2655
      End
      Begin VB.ComboBox cmbUpdate 
         Height          =   300
         Left            =   1800
         TabIndex        =   2
         Top             =   240
         Width           =   2655
      End
      Begin VB.Label Label4 
         Caption         =   "元"
         Height          =   255
         Left            =   4200
         TabIndex        =   8
         Top             =   1440
         Width           =   735
      End
      Begin VB.Label Label3 
         Caption         =   "项目对应金额："
         Height          =   255
         Left            =   360
         TabIndex        =   6
         Top             =   1440
         Width           =   1455
      End
      Begin VB.Label Label2 
         Caption         =   "修改记录范围："
         Height          =   255
         Left            =   360
         TabIndex        =   3
         Top             =   720
         Width           =   1335
      End
      Begin VB.Label Label1 
         Caption         =   "批量修改项目："
         Height          =   255
         Left            =   360
         TabIndex        =   1
         Top             =   240
         Width           =   1455
      End
   End
End
Attribute VB_Name = "frmUpdateSome"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdOK_Click()
If cmbUpdate.Text = "" Then
        MsgBox "请选择要修改的项目！", vbCritical + vbOKOnly, "信息提示"
Else
    Dim strSQL As String
    If Update = 0 Then
    strSQL = "Update 默认工资项目表 Set " + cmbUpdate.Text + "=" + txtJinE
    ADOcn.Execute strSQL
    Unload Me
    MyRefresh_frmDefaultWage
    ElseIf Update = 1 Then
    strSQL = "Update 考勤表 Set " + cmbUpdate.Text + "=" + txtJinE
    ADOcn.Execute strSQL
    Unload Me
    MyRefresh_frmDuty
    ElseIf Update = 2 Then
    strSQL = "Update 工资档案表 Set " + cmbUpdate.Text + "=" + txtJinE
    ADOcn.Execute strSQL
    Unload Me
    MyRefresh_frmWageManage
    End If
End If
End Sub