开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
main_gzsz_gzgs_lr.frm
资源名称：qiyerenshiguanli.rar　[点击查看]
上传用户：ake0106
上传日期：2022-07-23
资源大小：4052k
文件大小：3k
源码类别：

企业管理

开发平台：

Visual Basic

main_gzsz_gzgs_lr.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form main_gzsz_gzgs_lr 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "编辑工资项目"
  5.    ClientHeight    =   2505
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4680
  9.    Icon            =   "main_gzsz_gzgs_lr.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2505
  14.    ScaleWidth      =   4680
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  '屏幕中心
  17.    Begin VB.CommandButton Command2 
  18.       Caption         =   "取消"
  19.       Height          =   390
  20.       Left            =   2370
  21.       TabIndex        =   6
  22.       Top             =   1860
  23.       Width           =   1245
  24.    End
  25.    Begin VB.CommandButton Command1 
  26.       Caption         =   "确定"
  27.       Height          =   390
  28.       Left            =   1050
  29.       TabIndex        =   5
  30.       Top             =   1860
  31.       Width           =   1245
  32.    End
  33.    Begin VB.Frame Frame1 
  34.       Height          =   45
  35.       Left            =   -195
  36.       TabIndex        =   4
  37.       Top             =   1680
  38.       Width           =   5925
  39.    End
  40.    Begin VB.TextBox Text1 
  41.       Height          =   300
  42.       Left            =   1440
  43.       TabIndex        =   3
  44.       Text            =   "0"
  45.       Top             =   975
  46.       Width           =   2580
  47.    End
  48.    Begin VB.ComboBox Combo1 
  49.       Height          =   300
  50.       Left            =   1440
  51.       TabIndex        =   1
  52.       Text            =   "Combo1"
  53.       Top             =   390
  54.       Width           =   2580
  55.    End
  56.    Begin VB.Label Label2 
  57.       BackStyle       =   0  'Transparent
  58.       Caption         =   "初始值："
  59.       Height          =   255
  60.       Left            =   450
  61.       TabIndex        =   2
  62.       Top             =   1005
  63.       Width           =   885
  64.    End
  65.    Begin VB.Label Label1 
  66.       BackStyle       =   0  'Transparent
  67.       Caption         =   "工资项目："
  68.       Height          =   225
  69.       Left            =   450
  70.       TabIndex        =   0
  71.       Top             =   435
  72.       Width           =   900
  73.    End
  74. End
  75. Attribute VB_Name = "main_gzsz_gzgs_lr"
  76. Attribute VB_GlobalNameSpace = False
  77. Attribute VB_Creatable = False
  78. Attribute VB_PredeclaredId = True
  79. Attribute VB_Exposed = False
  80. Dim rs1 As New ADODB.Recordset
  82. Private Sub Command1_Click()
  83.   Cnn.Execute ("update 工资公式表 set 初始值=" + Text1 + " where 项目名称='" + Combo1 + "'")
  84.   main_gzsz_gzgs.Adodc1.Refresh
  85.   Unload Me
  86. End Sub
  88. Private Sub Command2_Click()
  89.   Unload Me
  90. End Sub
  92. Private Sub Form_Load()
  93.   rs1.Open "select 项目名称 from 工资公式表 group by 项目名称", Cnn, adOpenKeyset, adLockOptimistic
  94.   If rs1.RecordCount > 0 Then
  95.   rs1.MoveFirst
  96.   Do While rs1.EOF = False
  97.     Combo1.AddItem rs1.Fields("项目名称")
  98.     rs1.MoveNext
  99.   Loop
  100.   End If
  101.   rs1.Close
  102.   Combo1 = main_gzsz_gzgs.DataGrid1.Columns(1)
  103.   Text1 = main_gzsz_gzgs.DataGrid1.Columns(2)
  104. End Sub