企业管理

开发平台：
Visual Basic

main_gzsz_kqsz.frm：源码内容
							VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form main_gzsz_kqsz 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Form1"
   ClientHeight    =   3825
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8370
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3825
   ScaleWidth      =   8370
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      Height          =   390
      Left            =   5190
      TabIndex        =   10
      Top             =   3225
      Width           =   1575
   End
   Begin VB.CommandButton Command1 
      Caption         =   "保存"
      Height          =   390
      Left            =   3360
      TabIndex        =   9
      Top             =   3225
      Width           =   1575
   End
   Begin TabDlg.SSTab SSTab1 
      Height          =   2925
      Left            =   135
      TabIndex        =   0
      Top             =   120
      Width           =   8025
      _ExtentX        =   14155
      _ExtentY        =   5159
      _Version        =   393216
      TabHeight       =   520
      TabCaption(0)   =   "全勤奖设置"
      TabPicture(0)   =   "main_gzsz_kqsz.frx":0000
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "Frame2"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "Frame1"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).ControlCount=   2
      TabCaption(1)   =   "旷工扣款设置"
      TabPicture(1)   =   "main_gzsz_kqsz.frx":001C
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "Frame4"
      Tab(1).ControlCount=   1
      TabCaption(2)   =   "加班计费设置"
      TabPicture(2)   =   "main_gzsz_kqsz.frx":0038
      Tab(2).ControlEnabled=   0   'False
      Tab(2).Control(0)=   "Frame3"
      Tab(2).ControlCount=   1
      Begin VB.Frame Frame4 
         BorderStyle     =   0  'None
         Height          =   2340
         Left            =   -74880
         TabIndex        =   23
         Top             =   480
         Width           =   7785
         Begin VB.OptionButton optKG 
            Caption         =   "不扣款"
            Height          =   360
            Index           =   0
            Left            =   150
            TabIndex        =   29
            Top             =   375
            Value           =   -1  'True
            Width           =   945
         End
         Begin VB.OptionButton optKG 
            Caption         =   "统一扣款方式    "
            Height          =   360
            Index           =   1
            Left            =   150
            TabIndex        =   28
            Top             =   795
            Width           =   1650
         End
         Begin VB.TextBox txtKGTY 
            Height          =   330
            Left            =   1860
            TabIndex        =   27
            Text            =   "0"
            Top             =   795
            Width           =   990
         End
         Begin VB.OptionButton optKG 
            Caption         =   "核算方式"
            Height          =   360
            Index           =   2
            Left            =   150
            TabIndex        =   26
            Top             =   1245
            Width           =   1170
         End
         Begin VB.TextBox txtKGHS1 
            Height          =   330
            Index           =   0
            Left            =   2535
            TabIndex        =   25
            Text            =   "0"
            Top             =   1245
            Width           =   990
         End
         Begin VB.TextBox txtKGHS1 
            Height          =   330
            Index           =   1
            Left            =   5400
            TabIndex        =   24
            Text            =   "0"
            Top             =   1245
            Width           =   990
         End
         Begin VB.Label lblKGTY 
            BackStyle       =   0  'Transparent
            Caption         =   "元/每天"
            Height          =   255
            Left            =   2910
            TabIndex        =   33
            Top             =   855
            Width           =   900
         End
         Begin VB.Label lblKGHS1 
            BackStyle       =   0  'Transparent
            Caption         =   "基本工资/"
            Height          =   240
            Index           =   0
            Left            =   1620
            TabIndex        =   32
            Top             =   1320
            Width           =   1695
         End
         Begin VB.Label lblKGHS1 
            BackStyle       =   0  'Transparent
            Caption         =   "天(月平均工作天数)*"
            Height          =   240
            Index           =   1
            Left            =   3615
            TabIndex        =   31
            Top             =   1320
            Width           =   1800
         End
         Begin VB.Label lblKGHS1 
            BackStyle       =   0  'Transparent
            Caption         =   "倍"
            Height          =   240
            Index           =   2
            Left            =   6480
            TabIndex        =   30
            Top             =   1320
            Width           =   240
         End
      End
      Begin VB.Frame Frame3 
         BorderStyle     =   0  'None
         Height          =   2355
         Left            =   -74895
         TabIndex        =   11
         Top             =   435
         Width           =   7830
         Begin VB.OptionButton optJB 
            Caption         =   "统一方式"
            Height          =   270
            Index           =   0
            Left            =   180
            TabIndex        =   17
            Top             =   390
            Value           =   -1  'True
            Width           =   1110
         End
         Begin VB.OptionButton optJB 
            Caption         =   "核算方式"
            Height          =   270
            Index           =   1
            Left            =   195
            TabIndex        =   16
            Top             =   930
            Width           =   1095
         End
         Begin VB.TextBox txtJBTY1 
            Height          =   330
            Left            =   1515
            TabIndex        =   15
            Text            =   "0"
            Top             =   360
            Width           =   945
         End
         Begin VB.TextBox txtJBHS1 
            Height          =   330
            Index           =   0
            Left            =   2370
            TabIndex        =   14
            Text            =   "0"
            Top             =   855
            Width           =   480
         End
         Begin VB.TextBox txtJBHS1 
            Height          =   330
            Index           =   1
            Left            =   4635
            TabIndex        =   13
            Text            =   "0"
            Top             =   855
            Width           =   480
         End
         Begin VB.TextBox txtJBHS1 
            Height          =   330
            Index           =   2
            Left            =   6885
            TabIndex        =   12
            Text            =   "0"
            Top             =   855
            Width           =   480
         End
         Begin VB.Label lblJBTY 
            BackStyle       =   0  'Transparent
            Caption         =   "元/每次"
            Height          =   315
            Left            =   2580
            TabIndex        =   22
            Top             =   420
            Width           =   1710
         End
         Begin VB.Label lblJBHS1 
            BackStyle       =   0  'Transparent
            Caption         =   "基本工资/"
            Height          =   225
            Index           =   0
            Left            =   1500
            TabIndex        =   21
            Top             =   930
            Width           =   885
         End
         Begin VB.Label lblJBHS1 
            BackStyle       =   0  'Transparent
            Caption         =   "天(月平均工作天数)/"
            Height          =   225
            Index           =   1
            Left            =   2895
            TabIndex        =   20
            Top             =   930
            Width           =   1785
         End
         Begin VB.Label lblJBHS1 
            BackStyle       =   0  'Transparent
            Caption         =   "小时(每天工作时间)*"
            Height          =   225
            Index           =   2
            Left            =   5145
            TabIndex        =   19
            Top             =   930
            Width           =   1785
         End
         Begin VB.Label lblJBHS1 
            BackStyle       =   0  'Transparent
            Caption         =   "倍"
            Height          =   225
            Index           =   3
            Left            =   7395
            TabIndex        =   18
            Top             =   930
            Width           =   225
         End
      End
      Begin VB.Frame Frame1 
         Height          =   705
         Left            =   120
         TabIndex        =   1
         Top             =   600
         Width           =   7770
         Begin VB.TextBox txtQQ 
            Height          =   330
            Index           =   0
            Left            =   1245
            TabIndex        =   2
            Text            =   "0"
            Top             =   285
            Width           =   1095
         End
         Begin VB.Label lblQQ 
            BackStyle       =   0  'Transparent
            Caption         =   "全勤奖金额：             元"
            Height          =   240
            Index           =   0
            Left            =   150
            TabIndex        =   3
            Top             =   360
            Width           =   2520
         End
      End
      Begin VB.Frame Frame2 
         Height          =   1245
         Left            =   120
         TabIndex        =   4
         Top             =   1185
         Width           =   7770
         Begin VB.TextBox txtQQ 
            Height          =   330
            Index           =   2
            Left            =   1065
            TabIndex        =   8
            Text            =   "0"
            Top             =   735
            Width           =   1095
         End
         Begin VB.TextBox txtQQ 
            Height          =   330
            Index           =   1
            Left            =   600
            TabIndex        =   7
            Text            =   "0"
            Top             =   300
            Width           =   1095
         End
         Begin VB.Label lblQQ 
            BackStyle       =   0  'Transparent
            Caption         =   "出勤              天以上可以领取全勤奖"
            Height          =   225
            Index           =   1
            Left            =   150
            TabIndex        =   6
            Top             =   375
            Width           =   3540
         End
         Begin VB.Label lblQQ 
            BackStyle       =   0  'Transparent
            Caption         =   "迟到或早退             次以上不能领取全勤奖"
            Height          =   225
            Index           =   2
            Left            =   135
            TabIndex        =   5
            Top             =   810
            Width           =   4005
         End
      End
   End
End
Attribute VB_Name = "main_gzsz_kqsz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As New ADODB.Recordset
Sub GS()
  If optKG(0).Value = True Then KGBH = 0
  If optKG(1).Value = True Then KGBH = 1
  If optKG(2).Value = True Then KGBH = 2
  If optJB(0).Value = True Then JBBH = 0
  If optJB(1).Value = True Then JBBH = 1
End Sub
Private Sub Command1_Click()
'  Dim a
'  rs.Open "考勤表", Cnn, adOpenKeyset, adLockOptimistic
'  If rs.RecordCount > 0 Then
'    a = IIf(rs.Fields("出勤天数") >= txtQQ(1) And rs.Fields("迟到或早退次数") <= txtQQ(2), txtQQ(0), 0)
'  End If
'  rs.Close
'------------------------------------------
  
  Cnn.Execute ("update 工资公式表 set 公式=" + txtQQ(0) + " where 项目名称='全勤奖金额'")
  Cnn.Execute ("update 工资公式表 set 公式=" + txtQQ(1) + " where 项目名称='出勤上限'")
  Cnn.Execute ("update 工资公式表 set 公式=" + txtQQ(2) + " where 项目名称='迟到下限'")
  If optKG(0).Value = True Then
    KGBH = 0
    Cnn.Execute ("update 工资公式表 set 公式=0 where 项目名称='旷工扣款方式编号'")
  End If
  If optKG(1).Value = True Then
    KGBH = 1
    Cnn.Execute ("update 工资公式表 set 公式=1 where 项目名称='旷工扣款方式编号'")
    Cnn.Execute ("update 工资公式表 set 公式=" + txtKGTY + " where 项目名称='旷工扣款'")
  End If
  If optKG(2).Value = True Then
    KGBH = 2
    Cnn.Execute ("update 工资公式表 set 公式=2 where 项目名称='旷工扣款方式编号'")
    Cnn.Execute ("update 工资公式表 set 公式=" + txtKGHS1(0) + " where 项目名称='旷工扣款天数'")
    Cnn.Execute ("update 工资公式表 set 公式=" + txtKGHS1(1) + " where 项目名称='旷工倍数'")
  End If
  If optJB(0).Value = True Then
    JBBH = 0
    Cnn.Execute ("update 工资公式表 set 公式=0 where 项目名称='加班计费方式编号'")
    Cnn.Execute ("update 工资公式表 set 公式=" + txtJBTY1 + " where 项目名称='加班费'")
  End If
  If optJB(1).Value = True Then
    JBBH = 1
    Cnn.Execute ("update 工资公式表 set 公式=1 where 项目名称='加班计费方式编号'")
    Cnn.Execute ("update 工资公式表 set 公式=" + txtJBHS1(0) + " where 项目名称='加班计费天数'")
    Cnn.Execute ("update 工资公式表 set 公式=" + txtJBHS1(1) + " where 项目名称='加班计费小时数'")
    Cnn.Execute ("update 工资公式表 set 公式=" + txtJBHS1(2) + " where 项目名称='加班倍数'")
  End If
End Sub
Private Sub Form_Load()
  
  If optKG(0).Value = True Then KGBH = 0
  If optKG(1).Value = True Then KGBH = 1
  If optKG(2).Value = True Then KGBH = 2
  If optJB(0).Value = True Then JBBH = 0
  If optJB(1).Value = True Then JBBH = 1
End Sub

						