main_gzgl_kqgl_pl.frm
上传用户:wd52qq
上传日期:2022-07-24
资源大小:5366k
文件大小:4k
源码类别:

企业管理

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Begin VB.Form main_gzgl_kqgl_pl 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "批量修改"
  5.    ClientHeight    =   2055
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   5925
  9.    Icon            =   "main_gzgl_kqgl_pl.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2055
  14.    ScaleWidth      =   5925
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  '屏幕中心
  17.    Begin VB.CommandButton Command2 
  18.       Caption         =   "&C 取消"
  19.       Height          =   390
  20.       Left            =   3015
  21.       TabIndex        =   6
  22.       Top             =   1515
  23.       Width           =   1380
  24.    End
  25.    Begin VB.CommandButton Command1 
  26.       Caption         =   "&O 确定"
  27.       Height          =   390
  28.       Left            =   1575
  29.       TabIndex        =   5
  30.       Top             =   1515
  31.       Width           =   1380
  32.    End
  33.    Begin VB.Frame Frame1 
  34.       Height          =   1350
  35.       Left            =   0
  36.       TabIndex        =   0
  37.       Top             =   -60
  38.       Width           =   5910
  39.       Begin VB.TextBox Text1 
  40.          Height          =   300
  41.          Left            =   1680
  42.          TabIndex        =   2
  43.          Top             =   750
  44.          Width           =   3930
  45.       End
  46.       Begin VB.ComboBox cboFields1 
  47.          Height          =   300
  48.          ItemData        =   "main_gzgl_kqgl_pl.frx":000C
  49.          Left            =   1680
  50.          List            =   "main_gzgl_kqgl_pl.frx":000E
  51.          TabIndex        =   1
  52.          Top             =   345
  53.          Width           =   3930
  54.       End
  55.       Begin VB.Label Label4 
  56.          BackStyle       =   0  'Transparent
  57.          Caption         =   "批量修改的项目:"
  58.          Height          =   300
  59.          Left            =   255
  60.          TabIndex        =   4
  61.          Top             =   405
  62.          Width           =   1545
  63.       End
  64.       Begin VB.Label Label3 
  65.          BackStyle       =   0  'Transparent
  66.          Caption         =   "批量修改的数值:"
  67.          Height          =   300
  68.          Left            =   255
  69.          TabIndex        =   3
  70.          Top             =   825
  71.          Width           =   1485
  72.       End
  73.    End
  74. End
  75. Attribute VB_Name = "main_gzgl_kqgl_pl"
  76. Attribute VB_GlobalNameSpace = False
  77. Attribute VB_Creatable = False
  78. Attribute VB_PredeclaredId = True
  79. Attribute VB_Exposed = False
  80. Private Sub Form_Load()
  81.   Dim rs1 As New ADODB.Recordset
  82.   rs1.Open "select * from 考勤表", Cnn, adOpenKeyset, adLockOptimistic
  83.   Dim fld
  84.   Set fld = rs1.Fields
  85.   For i = 3 To 7
  86.       cboFields1.AddItem fld(i).Name
  87.   Next i
  88.   rs1.Close
  89. End Sub
  90. Private Sub Command1_Click()
  91.   With main_gzgl_kqgl
  92.       If .Toolbar1.Buttons(1).Caption = "所有月份" Then
  93.         If sql1 <> "" Then
  94.           Cnn.Execute ("update 考勤表 set " & cboFields1 & "=" + Text1 + " from " & sql1)
  95.         Else
  96.           Cnn.Execute ("update 考勤表 set " & cboFields1 & "=" + Text1 + "")
  97.         End If
  98.       Else
  99.         If sql1 <> "" Then
  100.           Cnn.Execute ("update 考勤表 set " & cboFields1 & "=" + Text1 + " from " & sql1 & "and 考勤表.所属工资月份=(select 月份 from 月份表)")
  101.         Else
  102.           Cnn.Execute ("update 考勤表 set " & cboFields1 & "=" + Text1 + " where 考勤表.所属工资月份=(select 月份 from 月份表)")
  103.         End If
  104.       End If
  105.       .Adodc1.Refresh
  106.   End With
  107.   Unload Me
  108. End Sub
  109. Private Sub Command2_Click()
  110.   Unload Me
  111. End Sub