📄 frmaddgongfa.frm
字号:
VERSION 5.00
Begin VB.Form frmAddgongfa
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Form1"
ClientHeight = 4695
ClientLeft = 45
ClientTop = 435
ClientWidth = 8160
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4695
ScaleWidth = 8160
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdDel
Caption = "删除"
Height = 375
Left = 4440
TabIndex = 16
Top = 3840
Width = 1335
End
Begin VB.CommandButton cmdEdit
Caption = "修改"
Height = 375
Left = 2880
TabIndex = 15
Top = 3840
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "退出"
Height = 375
Left = 6120
TabIndex = 11
Top = 3840
Width = 1215
End
Begin VB.CommandButton Cmdsave
Caption = "保存"
Height = 375
Left = 1200
TabIndex = 10
Top = 3840
Width = 1335
End
Begin VB.Frame Frame1
BackColor = &H00C0C0C0&
Caption = "工资发放数据管理"
Height = 3615
Left = 120
TabIndex = 0
Top = 120
Width = 7935
Begin VB.ComboBox combID
BackColor = &H00C0FFC0&
Height = 300
Left = 1560
TabIndex = 14
Top = 480
Width = 1935
End
Begin VB.ComboBox Combo1
BackColor = &H00C0FFC0&
Height = 300
Left = 1560
TabIndex = 13
Top = 2040
Width = 1935
End
Begin VB.TextBox txtName
BackColor = &H00C0FFC0&
Enabled = 0 'False
Height = 375
Left = 1560
TabIndex = 12
Top = 1200
Width = 1935
End
Begin VB.TextBox Txtfields
BackColor = &H00C0FFC0&
Enabled = 0 'False
Height = 375
Index = 4
Left = 6000
TabIndex = 9
Top = 2040
Width = 1335
End
Begin VB.TextBox Txtfields
BackColor = &H00C0FFC0&
Height = 375
Index = 3
Left = 6000
TabIndex = 7
Top = 1200
Width = 1335
End
Begin VB.TextBox Txtfields
BackColor = &H00C0FFC0&
Enabled = 0 'False
Height = 375
Index = 2
Left = 6000
TabIndex = 5
Top = 480
Width = 1335
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 = 5
Left = 4320
TabIndex = 8
Top = 2040
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 = 4
Left = 4320
TabIndex = 6
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 = 3
Left = 4320
TabIndex = 4
Top = 480
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 = 2040
Width = 1095
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 = 1095
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 = 480
Width = 1095
End
End
End
Attribute VB_Name = "frmAddgongfa"
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 <> "" Or IsNumeric(txtFields(3).Text) = False Then
MsgBox ("请在”已领工资“填上数字")
txtFields(3).SetFocus
Exit Sub
End If
txtSQL = "select * from 工资发放 Where 员工编号 ='" & Trim(combID.Text) & "'"
Set mrcc = ExecuteSQL(txtSQL, msgstr)
mrcc.Fields(4) = Val(txtFields(3).Text)
mrcc.Fields(5) = Val(txtFields(4).Text)
mrcc.Update
mrcc.Close
MsgBox "工资发放信息修改成功！", vbOKOnly + vbExclamation, "添加房屋资料信息"
combID_click
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(2).Text <> "" Or IsNumeric(txtFields(2).Text) = False Then
' MsgBox ("请在”应发工资“填上数字")
' txtFields(2).SetFocus
' Exit Sub
'End If
If Not txtFields(3).Text <> "" Or IsNumeric(txtFields(3).Text) = False Then
MsgBox ("请在”已领工资“填上数字")
txtFields(3).SetFocus
Exit Sub
End If
If Not txtFields(4).Text <> "" Or IsNumeric(txtFields(4).Text) = False Then
MsgBox ("请在”未发工资“填上数字")
txtFields(4).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.BOF And 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(2).Text)
mrcc.Fields(4) = Val(txtFields(3).Text)
mrcc.Fields(5) = Val(txtFields(4).Text)
mrcc.Update
mrcc.Close
MsgBox "工资发放信息添加成功！", vbOKOnly + vbExclamation, "添加房屋资料信息"
combID_click
End Sub
Private Sub combID_click()
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 mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF Then
txtFields(2).Text = "还没确定！"
cmdSave.Enabled = False
txtFields(3).Text = ""
txtFields(4).Text = ""
Else
txtFields(2).Text = mrc.Fields(0)
cmdSave.Enabled = True
SqlJL = "SELECT * From 工资发放 Where 员工编号 ='" & Trim(combID.Text) & "'"
Set adoshowrsJL = ExecuteSQL(SqlJL, msgstr)
If Not adoshowrsJL.BOF And Not adoshowrsJL.EOF Then
cmdSave.Enabled = False
cmdEdit.Enabled = True
cmdDel.Enabled = True
txtFields(3).Text = adoshowrsJL.Fields(4)
txtFields(3).SelStart = 0
txtFields(3).SelLength = Len(txtFields(3))
Else
txtFields(3).Text = ""
cmdSave.Enabled = True
cmdEdit.Enabled = False
cmdDel.Enabled = False
End If
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
subView
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 txtFields_Change(Index As Integer)
If Index = 3 Then
If IsNumeric(txtFields(3).Text) And IsNumeric(txtFields(2).Text) Then
txtFields(4).Text = CStr(CInt(txtFields(2).Text) - CInt(txtFields(3).Text))
Else
txtFields(4).Text = ""
End If
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -