📄 添加工资信息.frm
字号:
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 + -