main_gzgl_gzgl_pl.frm

HRMS是一个人力资源管理系统,非常好用,功能非常强大,希望大家的支持

VERSION 5.00
Begin VB.Form main_gzgl_gzgl_pl 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "批量修改"
   ClientHeight    =   2130
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5925
   Icon            =   "main_gzgl_gzgl_pl.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2130
   ScaleWidth      =   5925
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Height          =   1350
      Left            =   15
      TabIndex        =   2
      Top             =   -75
      Width           =   5910
      Begin VB.ComboBox cboFields1 
         Height          =   300
         ItemData        =   "main_gzgl_gzgl_pl.frx":000C
         Left            =   1680
         List            =   "main_gzgl_gzgl_pl.frx":000E
         TabIndex        =   4
         Top             =   345
         Width           =   3930
      End
      Begin VB.TextBox Text1 
         Height          =   300
         Left            =   1680
         TabIndex        =   3
         Top             =   750
         Width           =   3930
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         Caption         =   "批量修改的金额："
         Height          =   300
         Left            =   255
         TabIndex        =   6
         Top             =   825
         Width           =   1485
      End
      Begin VB.Label Label4 
         BackStyle       =   0  'Transparent
         Caption         =   "批量修改的项目："
         Height          =   300
         Left            =   255
         TabIndex        =   5
         Top             =   405
         Width           =   1545
      End
   End
   Begin VB.CommandButton Command1 
      Caption         =   "&O 确定"
      Height          =   390
      Left            =   1590
      TabIndex        =   1
      Top             =   1500
      Width           =   1380
   End
   Begin VB.CommandButton Command2 
      Caption         =   "&C 取消"
      Height          =   390
      Left            =   3030
      TabIndex        =   0
      Top             =   1500
      Width           =   1380
   End
End
Attribute VB_Name = "main_gzgl_gzgl_pl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  Dim rs1 As New ADODB.Recordset
  rs1.Open "select * from 工资表", Cnn, adOpenKeyset, adLockOptimistic
  Dim fld
  Set fld = rs1.Fields
  For i = 3 To 15
      cboFields1.AddItem fld(i).Name
  Next i
  rs1.Close
End Sub
Private Sub Command1_Click()
  With main_gzgl_gzgl
     If .Toolbar1.Buttons(1).Caption = "所有月份" Then
       If sql1 <> "" Then
          Cnn.Execute "update 工资表 set " & cboFields1.text & "=" & Text1.text & " from " & sql1
       Else
          Cnn.Execute "update 工资表 set " & cboFields1.text & "=" & Text1.text & ""
       End If
     Else
       If sql1 <> "" Then
         Cnn.Execute "update 工资表 set " & cboFields1.text & "=" & Text1.text & " from " & sql1 & " and 所属工资月份=(select 月份 from 月份表)"
       Else
         Cnn.Execute "update 工资表 set " & cboFields1.text & "=" & Text1.text & " from 工资表 where 所属工资月份=(select 月份 from 月份表)"
       End If
     End If
     .Adodc1.Refresh
  End With
  Unload Me
End Sub
Private Sub Command2_Click()
  Unload Me
End Sub