⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 添加工资信息.frm

📁 该系统是用VB开发的一个人事管理系统
💻 FRM
📖 第 1 页 / 共 2 页
字号:
         Left            =   240
         TabIndex        =   4
         Top             =   2640
         Width           =   1215
      End
      Begin VB.Label lblLabels 
         BackColor       =   &H00C0FFFF&
         Caption         =   "工作部门:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   2
         Left            =   240
         TabIndex        =   3
         Top             =   1920
         Width           =   1215
      End
      Begin VB.Label lblLabels 
         BackColor       =   &H00C0FFFF&
         Caption         =   "员工姓名:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   1
         Left            =   240
         TabIndex        =   2
         Top             =   1200
         Width           =   1215
      End
      Begin VB.Label lblLabels 
         BackColor       =   &H00C0FFFF&
         Caption         =   "员工编号:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   0
         Left            =   240
         TabIndex        =   1
         Top             =   600
         Width           =   1215
      End
   End
End
Attribute VB_Name = "frmAddGongzi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Dim adoshowrsJL As ADODB.Recordset
Dim msgstr As String
Dim MsgText As String
Dim mrc As ADODB.Recordset

Private Sub cmdDel_Click()
    Dim txtSQL As String
    If MsgBox("真的要删除记录吗?", vbOKCancel + vbExclamation, "警告") = vbOK Then
        txtSQL = "delete From 工资列表 Where 员工编号  ='" & Trim(combID.Text) & "'"
        ExecuteSQL txtSQL, msgstr
        combID_click
    End If
End Sub
Private Sub cmdEdit_Click()
    Dim txtSQL As String
    Dim mrcc As ADODB.Recordset
  If Not txtFields(3).Text <> "" And IsNumeric(txtFields(3).Text) = False Then
    MsgBox ("请在“基本工资”中输入数字")
    txtFields(3).SetFocus
    Exit Sub
  End If

 If Not txtFields(4).Text <> "" And IsNumeric(txtFields(4).Text) = False Then
    MsgBox ("请在“岗位工资”中输入数字")
    txtFields(4).SetFocus
    Exit Sub
 End If

 If Not txtFields(5).Text <> "" And IsNumeric(txtFields(5).Text) = False Then
    MsgBox ("请在“奖金”中输入数字")
    txtFields(5).SetFocus
    Exit Sub
 End If

If Not txtFields(6).Text <> "" And IsNumeric(txtFields(6).Text) = False Then
    MsgBox ("请在“公积金”中输入数字")
    txtFields(6).SetFocus
    Exit Sub
 End If

If Not txtFields(7).Text <> "" And IsNumeric(txtFields(7).Text) = False Then
    MsgBox ("请在“伙食补贴”中输入数字")
    txtFields(7).SetFocus
    Exit Sub
 End If

If Not txtFields(8).Text <> "" And IsNumeric(txtFields(8).Text) = False Then
    MsgBox ("请在“住房补贴”中输入数字")
    txtFields(8).SetFocus
    Exit Sub
 End If

If Not txtFields(9).Text <> "" And IsNumeric(txtFields(9).Text) = False Then
    MsgBox ("请在“养老补贴”中输入数字")
    txtFields(9).SetFocus
    Exit Sub
 End If

If Not txtFields(10).Text <> "" And IsNumeric(txtFields(10).Text) = False Then
    MsgBox ("请在“医疗保险”中输入数字")
    txtFields(10).SetFocus
    Exit Sub
 End If
 
If Not txtFields(11).Text <> "" And IsNumeric(txtFields(11).Text) = False Then
    MsgBox ("请在“交通补贴”中输入数字")
    txtFields(11).SetFocus
    Exit Sub
 End If

If Not txtFields(12).Text <> "" And IsNumeric(txtFields(12).Text) = False Then
    MsgBox ("请在“应扣工资”中输入数字")
    txtFields(12).SetFocus
    Exit Sub
 End If

If Not txtFields(13).Text <> "" And IsNumeric(txtFields(13).Text) = False Then
    MsgBox ("请在“应发工资”中输入数字")
    txtFields(13).SetFocus
    Exit Sub
End If

    txtSQL = "SELECT * From 工资列表 Where 员工编号  ='" & Trim(combID.Text) & "'"
    Set mrcc = ExecuteSQL(txtSQL, msgstr)
               
                
                mrcc.Fields(3) = Val(txtFields(3).Text)
                mrcc.Fields(4) = Val(txtFields(4).Text)
                mrcc.Fields(5) = Val(txtFields(5).Text)
                mrcc.Fields(6) = Val(txtFields(6).Text)
                mrcc.Fields(7) = Val(txtFields(7).Text)
                mrcc.Fields(8) = Val(txtFields(8).Text)
                mrcc.Fields(9) = Val(txtFields(9).Text)
                mrcc.Fields(10) = Val(txtFields(10).Text)
                mrcc.Fields(11) = Val(txtFields(11).Text)
                mrcc.Fields(12) = Val(txtFields(12).Text)
                mrcc.Fields(13) = Val(txtFields(13).Text)
                mrcc.Update
                mrcc.Close
                
                MsgBox "工资发放信息修改成功!", vbOKOnly + vbExclamation, "添加房屋资料信息"
    combID_click
End Sub
Private Sub Form_Load()
    subView
End Sub

Private Sub Command1_Click()
 Unload Me
End Sub

Private Sub cmdSave_Click()
Screen.MousePointer = vbDefault


 
 'If Not txtFields(0).Text <> "" Or IsNumeric(txtFields(0).Text) = False Then
 '   MsgBox ("员工编号只能是数字")
 '   txtFields(0).SetFocus
 '   Exit Sub
 'End If
 'If Not txtFields(1).Text <> "" Or IsNumeric(txtFields(1).Text) = True Then
 '   MsgBox ("请在“员工姓名”中输入文字")
 '   txtFields(1).SetFocus
 '   Exit Sub
 'End If
 
 
  If Not txtFields(3).Text <> "" And IsNumeric(txtFields(3).Text) = False Then
    MsgBox ("请在“基本工资”中输入数字")
    txtFields(3).SetFocus
    Exit Sub
  End If

 If Not txtFields(4).Text <> "" And IsNumeric(txtFields(4).Text) = False Then
    MsgBox ("请在“岗位工资”中输入数字")
    txtFields(4).SetFocus
    Exit Sub
 End If

 If Not txtFields(5).Text <> "" And IsNumeric(txtFields(5).Text) = False Then
    MsgBox ("请在“奖金”中输入数字")
    txtFields(5).SetFocus
    Exit Sub
 End If

If Not txtFields(6).Text <> "" And IsNumeric(txtFields(6).Text) = False Then
    MsgBox ("请在“公积金”中输入数字")
    txtFields(6).SetFocus
    Exit Sub
 End If

If Not txtFields(7).Text <> "" And IsNumeric(txtFields(7).Text) = False Then
    MsgBox ("请在“伙食补贴”中输入数字")
    txtFields(7).SetFocus
    Exit Sub
 End If

If Not txtFields(8).Text <> "" And IsNumeric(txtFields(8).Text) = False Then
    MsgBox ("请在“住房补贴”中输入数字")
    txtFields(8).SetFocus
    Exit Sub
 End If

If Not txtFields(9).Text <> "" And IsNumeric(txtFields(9).Text) = False Then
    MsgBox ("请在“养老补贴”中输入数字")
    txtFields(9).SetFocus
    Exit Sub
 End If

If Not txtFields(10).Text <> "" And IsNumeric(txtFields(10).Text) = False Then
    MsgBox ("请在“医疗保险”中输入数字")
    txtFields(10).SetFocus
    Exit Sub
 End If
 
If Not txtFields(11).Text <> "" And IsNumeric(txtFields(11).Text) = False Then
    MsgBox ("请在“交通补贴”中输入数字")
    txtFields(11).SetFocus
    Exit Sub
 End If

If Not txtFields(12).Text <> "" And IsNumeric(txtFields(12).Text) = False Then
    MsgBox ("请在“应扣工资”中输入数字")
    txtFields(12).SetFocus
    Exit Sub
 End If

If Not txtFields(13).Text <> "" And IsNumeric(txtFields(13).Text) = False Then
    MsgBox ("请在“应发工资”中输入数字")
    txtFields(13).SetFocus
    Exit Sub
    End If
 




SqlJL = "SELECT * From 工资列表 Where 员工编号  ='" & Trim(combID.Text) & "'"


Set adoshowrsJL = ExecuteSQL(SqlJL, msgstr)
'adoshowrsJL.Open SqlJL, db, adOpenStatic, adLockOptimistic
'adoshowrsJL.Requery

If Not adoshowrsJL.EOF Then
   MsgBox "此员工的本月工资已存在,请输入新的员工工资!", vbExclamation + vbOKOnly, "信息框"
   Exit Sub
End If
Dim txtSQL As String
Dim mrcc As ADODB.Recordset
 txtSQL = "select * from 工资列表"
    Set mrcc = ExecuteSQL(txtSQL, msgstr)
   
                mrcc.AddNew
               
                
                mrcc.Fields(0) = Trim(combID.Text)
                mrcc.Fields(1) = Trim(txtName.Text)
                mrcc.Fields(2) = Trim(Combo1.Text)
                mrcc.Fields(3) = Val(txtFields(3).Text)
                mrcc.Fields(4) = Val(txtFields(4).Text)
                mrcc.Fields(5) = Val(txtFields(5).Text)
                mrcc.Fields(6) = Val(txtFields(6).Text)
                mrcc.Fields(7) = Val(txtFields(7).Text)
                mrcc.Fields(8) = Val(txtFields(8).Text)
                mrcc.Fields(9) = Val(txtFields(9).Text)
                mrcc.Fields(10) = Val(txtFields(10).Text)
                mrcc.Fields(11) = Val(txtFields(11).Text)
                mrcc.Fields(12) = Val(txtFields(12).Text)
                mrcc.Fields(13) = Val(txtFields(13).Text)
                mrcc.Update
                mrcc.Close
                
                
                MsgBox "工资信息添加成功!", vbOKOnly + vbExclamation, "添加房屋资料信息"
               
    combID_click
End Sub
Private Sub subView()
Dim i As Integer
Dim sSql As String
Dim MsgText As String


    Combo1.Clear
    combID.Clear
    txtName.Text = ""

    txtSQL = "select distinct 部门 from 员工基本信息表"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If Not mrc.EOF Then
        Do While Not mrc.EOF
            Combo1.AddItem Trim(mrc.Fields(0))
            mrc.MoveNext
        Loop
        Combo1.ListIndex = 0
    Else
    cmdSave.Enabled = False
    cmdEdit.Enabled = False
    cmdDel.Enabled = False
    End If
       
End Sub

Private Sub Combo1_click()
    combID.Clear
    txtSQL = "select * from 员工基本信息表 where 部门='" & Trim(Combo1.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If Not mrc.EOF Then
        Do While Not mrc.EOF
            combID.AddItem Trim(mrc.Fields(0))
            mrc.MoveNext
        Loop
        combID.ListIndex = 0
    End If
End Sub
Private Sub combID_click()
    Dim txtSQL As String
    Dim mrcc As ADODB.Recordset
    cmdSave.Enabled = True
    cmdEdit.Enabled = False
    cmdDel.Enabled = False
    txtSQL = "select * from 员工基本信息表 where 员工号 = '" & Trim(combID.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    txtName.Text = mrc.Fields(1)
    txtSQL = "SELECT * From 工资列表 Where 员工编号  ='" & Trim(combID.Text) & "'"
    Set mrcc = ExecuteSQL(txtSQL, msgstr)
    If Not mrcc.BOF And Not mrcc.EOF Then
        cmdSave.Enabled = False
        cmdEdit.Enabled = True
        cmdDel.Enabled = True
        txtFields(3).Text = mrcc.Fields(3)
        txtFields(4).Text = mrcc.Fields(4)
        txtFields(5).Text = mrcc.Fields(5)
        txtFields(6).Text = mrcc.Fields(6)
        txtFields(7).Text = mrcc.Fields(7)
        txtFields(8).Text = mrcc.Fields(8)
        txtFields(9).Text = mrcc.Fields(9)
        txtFields(10).Text = mrcc.Fields(10)
        txtFields(11).Text = mrcc.Fields(11)
        txtFields(12).Text = mrcc.Fields(12)
        txtFields(13).Text = mrcc.Fields(13)
    Else
        cmdSave.Enabled = True
        cmdEdit.Enabled = False
        cmdDel.Enabled = False
        txtFields(3).Text = ""
        txtFields(4).Text = ""
        txtFields(5).Text = ""
        txtFields(6).Text = ""
        txtFields(7).Text = ""
        txtFields(8).Text = ""
        txtFields(9).Text = ""
        txtFields(10).Text = ""
        txtFields(11).Text = ""
        txtFields(12).Text = ""
        txtFields(13).Text = ""
    End If
End Sub

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -