newmonth.frm

人力资源管理系统

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmNewMonth 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "建立新的工资月份："
   ClientHeight    =   2715
   ClientLeft      =   5085
   ClientTop       =   4110
   ClientWidth     =   4890
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2715
   ScaleWidth      =   4890
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定(&O)"
      Height          =   375
      Left            =   840
      TabIndex        =   8
      Top             =   2280
      Width           =   1215
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   2520
      TabIndex        =   7
      Top             =   2280
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Height          =   2055
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   4455
      Begin MSComCtl2.DTPicker DTPNewMonth 
         Height          =   375
         Left            =   1800
         TabIndex        =   9
         Top             =   1560
         Width           =   1695
         _ExtentX        =   2990
         _ExtentY        =   661
         _Version        =   393216
         Format          =   159449089
         CurrentDate     =   39105
      End
      Begin VB.Frame Frame2 
         Caption         =   "工资月份信息："
         Height          =   1215
         Left            =   240
         TabIndex        =   1
         Top             =   240
         Width           =   3975
         Begin VB.TextBox txtMaxMonth 
            Enabled         =   0   'False
            Height          =   270
            Left            =   1560
            TabIndex        =   5
            Top             =   720
            Width           =   1695
         End
         Begin VB.TextBox txtMinMonth 
            Enabled         =   0   'False
            Height          =   270
            Left            =   1560
            TabIndex        =   4
            Top             =   360
            Width           =   1695
         End
         Begin VB.Label Label2 
            Caption         =   "最大工资月份："
            Height          =   375
            Left            =   120
            TabIndex        =   3
            Top             =   720
            Width           =   1335
         End
         Begin VB.Label Label1 
            Caption         =   "最小工资月份："
            Height          =   375
            Left            =   120
            TabIndex        =   2
            Top             =   360
            Width           =   1455
         End
      End
      Begin VB.Label Label3 
         Caption         =   "新工资月份："
         Height          =   255
         Left            =   480
         TabIndex        =   6
         Top             =   1560
         Width           =   1215
      End
   End
End
Attribute VB_Name = "frmNewMonth"
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 Calculate = True Then
    Dim strSQL As String
    strSQL = "Update Bast Set Zu= '" + CStr(DTPNewMonth.Value) + "' where ID=1"
    ADOcn.Execute strSQL
    CurMonth = DTPNewMonth.Value
    Add_DutyInfo
    Calculate = False
    NewWageList
Else
    MsgBox "当前月份工资尚未结算，不能新增月份，请先结算！", vbOKOnly + vbExclamation, "警告"
End If
    Unload Me
End Sub
Private Sub Add_DutyInfo()
    Dim adors As New Recordset
    Dim strSQL As String
 
    Set adors.ActiveConnection = ADOcn
     
    strSQL = "Select * from 人事档案 order by 编号"
    adors.Open strSQL
    
    If adors.EOF Then
    Else
      Do While Not adors.EOF
      SQL = "Insert Into 考勤表(所属月份,员工编号,员工姓名,出勤天数,请假天数,迟到与早退次数,旷工天数,加班次数) "
      SQL = SQL + " Values('" + CurMonth + "','" + adors("编号") + "','" + adors("姓名") + "',31,0,0,0,0)"
      ADOcn.Execute SQL
      adors.MoveNext
      Loop
    End If
End Sub
Private Sub NewWageList()
    Dim adors As New Recordset
    Dim strSQL As String
    adors.ActiveConnection = ADOcn
    
    strSQL = "Select 编号,姓名,基本工资 From 人事档案 order by 编号"
    adors.Open strSQL
    
    Do While Not adors.EOF
        strSQL = "Insert Into 工资档案表(所属工资月份,员工编号,员工姓名,基本工资,计件工资,计时工资,提成工资,加班费,旷工费,技能工资,工龄工资,全勤奖,奖励总额,惩罚总额,津贴费,交通费,水电费,生活费,高温贴,房租费,其它保险费,养老保险费,失业保险费,医疗保险费,其它金额,应发工资,个人所得税,税后工资,其它扣额,实发工资)"
        strSQL = strSQL + " Values('" + CurMonth + "','" + adors("编号") + "','" + adors("姓名") + "'," + adors("基本工资") + ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)"
        ADOcn.Execute strSQL
        adors.MoveNext
    Loop
End Sub