gongxutype.frm

人力资源管理系统

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form frmGongXuType 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "计时工序类型："
   ClientHeight    =   4755
   ClientLeft      =   4830
   ClientTop       =   3675
   ClientWidth     =   7185
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4755
   ScaleWidth      =   7185
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   2775
      Left            =   120
      TabIndex        =   5
      Top             =   1200
      Width           =   6975
      _ExtentX        =   12303
      _ExtentY        =   4895
      _Version        =   393216
      SelectionMode   =   1
   End
   Begin VB.Frame Frame1 
      Caption         =   "计时工序信息："
      Height          =   975
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   6975
      Begin VB.CommandButton Command1 
         Caption         =   "转到(&T)"
         Height          =   375
         Left            =   4200
         TabIndex        =   4
         Top             =   360
         Width           =   1215
      End
      Begin VB.CommandButton Command2 
         Caption         =   "取消(&C)"
         Height          =   375
         Left            =   5400
         TabIndex        =   3
         Top             =   360
         Width           =   1215
      End
      Begin VB.TextBox txtGongxuName 
         Height          =   270
         Left            =   1200
         TabIndex        =   1
         Top             =   345
         Width           =   2655
      End
      Begin VB.Label Label2 
         Caption         =   "工序名称："
         Height          =   375
         Left            =   120
         TabIndex        =   2
         Top             =   360
         Width           =   1335
      End
   End
End
Attribute VB_Name = "frmGongXuType"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub MyRefresh()
    Dim strTitle As String
    Dim adors As New Recordset
    Dim strSQL As String
    Dim i As Integer
    
    adors.ActiveConnection = ADOcn
    
    MSFlexGrid1.Clear
    
    MSFlexGrid1.Rows = 1
    MSFlexGrid1.Cols = 3
    MSFlexGrid1.FixedRows = 0  '不锁定第一行
    '加表的标题
    strTitle = "工序号" + vbTab + "工序名称" + vbTab + "单价（元/件）"

    MSFlexGrid1.AddItem strTitle, 0
    MSFlexGrid1.FixedRows = 1    ' 锁定第一行
   
    If WageType = "time" Then
    strSQL = "Select * From 计时工资设置表 order by 工序号"
    ElseIf WageType = "piece" Then
    strSQL = "Select * From 计件工资设置表 order by 工序号"
    End If
    adors.Open strSQL
    i = 1
    Do While Not adors.EOF
       strTitle = adors("工序号") + vbTab + adors("工序名称") + vbTab + LTrim(adors("单价"))
        MSFlexGrid1.AddItem strTitle, i
        adors.MoveNext
        i = i + 1
   Loop
End Sub
Public Sub MyRefresh2()
    Dim strTitle As String
    Dim adors As New Recordset
    Dim strSQL As String
    Dim i As Integer
    
    adors.ActiveConnection = ADOcn
    
    MSFlexGrid1.Clear
    
    MSFlexGrid1.Rows = 1
    MSFlexGrid1.Cols = 3
    MSFlexGrid1.FixedRows = 0  '不锁定第一行
    '加表的标题
    strTitle = "提成序号" + vbTab + "提成项目名称" + vbTab + "提成率（%）"

    MSFlexGrid1.AddItem strTitle, 0
    MSFlexGrid1.FixedRows = 1    ' 锁定第一行
   
    strSQL = "Select * From 提成工资设置表 order by 提成序号"
   
    adors.Open strSQL
    i = 1
    Do While Not adors.EOF
       strTitle = adors("提成序号") + vbTab + adors("提成项目") + vbTab + LTrim(adors("提成率"))
        MSFlexGrid1.AddItem strTitle, i
        adors.MoveNext
        i = i + 1
   Loop
End Sub
Public Sub MyRefresh3()
    Dim strTitle As String
    Dim adors As New Recordset
    Dim strSQL As String
    Dim i As Integer
    
    adors.ActiveConnection = ADOcn
    
    MSFlexGrid1.Clear
    
    MSFlexGrid1.Rows = 1
    MSFlexGrid1.Cols = 2
    MSFlexGrid1.FixedRows = 0  '不锁定第一行
    '加表的标题
    If WageType = "reward" Then
    strTitle = "序号" + vbTab + "奖励类型名称"
    ElseIf WageType = "punish" Then
    strTitle = "序号" + vbTab + "惩罚类型名称"
    End If

    MSFlexGrid1.AddItem strTitle, 0
    MSFlexGrid1.FixedRows = 1    ' 锁定第一行
    
    If WageType = "reward" Then
    strSQL = "Select * From 奖励类型表 order by ID"
    adors.Open strSQL
    i = 1
    Do While Not adors.EOF
       strTitle = LTrim(adors("ID")) + vbTab + adors("奖励类型名称")
        MSFlexGrid1.AddItem strTitle, i
        adors.MoveNext
        i = i + 1
    Loop
    ElseIf WageType = "punish" Then
    strSQL = "Select * From 惩罚类型表 order by ID"
    adors.Open strSQL
    i = 1
    Do While Not adors.EOF
       strTitle = LTrim(adors("ID")) + vbTab + adors("惩罚类型名称")
        MSFlexGrid1.AddItem strTitle, i
        adors.MoveNext
        i = i + 1
    Loop
    End If
    
    
End Sub

Private Sub Form_Load()
If WageType = "time" Or WageType = "piece" Then
MyRefresh
ElseIf WageType = "lift" Then
MyRefresh2
ElseIf WageType = "reward" Or WageType = "punish" Then
MyRefresh3
End If
End Sub

Private Sub MSFlexGrid1_DblClick()
    Dim mystr As String
    If WageType = "time" Or WageType = "piece" Or WageType = "lift" Then
    MSFlexGrid1.Col = 1
    mystr = MSFlexGrid1.Text
    frmTime_Piece_LiftInfo.lblgongxu.Caption = mystr
    fuzhi
    ElseIf WageType = "reward" Or WageType = "punish" Then
    MSFlexGrid1.Col = 1
    mystr = MSFlexGrid1.Text
    frmReward_PunishInfo.lblgongxu.Caption = mystr
    End If
Unload Me
End Sub
Private Sub fuzhi()
Dim mystr As String
    MSFlexGrid1.Col = 2
    mystr = MSFlexGrid1.Text
    frmTime_Piece_LiftInfo.lblprice.Caption = mystr
End Sub