📄 defaultset.frm
字号:
Height = 255
Index = 3
Left = 3000
TabIndex = 24
Top = 2520
Width = 375
End
Begin VB.Label Label7
Caption = "元"
Height = 255
Index = 2
Left = 3000
TabIndex = 23
Top = 2880
Width = 375
End
Begin VB.Label Label7
Caption = "元"
Height = 255
Index = 1
Left = 6360
TabIndex = 22
Top = 720
Width = 375
End
Begin VB.Label Label7
Caption = "元"
Height = 255
Index = 0
Left = 3000
TabIndex = 21
Top = 720
Width = 375
End
Begin VB.Label Label6
Caption = "其它扣额："
Height = 255
Left = 3600
TabIndex = 17
Top = 2880
Width = 975
End
Begin VB.Label Label1
Caption = "失业保险："
Height = 255
Index = 11
Left = 3600
TabIndex = 16
Top = 2160
Width = 1215
End
Begin VB.Label Label1
Caption = "津 贴 费："
Height = 255
Index = 10
Left = 240
TabIndex = 15
Top = 1080
Width = 1215
End
Begin VB.Label Label1
Caption = "基本工资："
Height = 375
Index = 9
Left = 240
TabIndex = 14
Top = 720
Width = 1215
End
Begin VB.Label Label1
Caption = "房 租 费："
Height = 255
Index = 8
Left = 3600
TabIndex = 13
Top = 1800
Width = 1095
End
Begin VB.Label Label1
Caption = "高 温 贴："
Height = 255
Index = 7
Left = 240
TabIndex = 12
Top = 1800
Width = 1215
End
Begin VB.Label Label5
Caption = "其它保险："
Height = 375
Left = 3600
TabIndex = 11
Top = 2520
Width = 1215
End
Begin VB.Label Label4
Caption = "员工编号："
Height = 375
Left = 240
TabIndex = 10
Top = 360
Width = 1215
End
Begin VB.Label Label1
Caption = "员工姓名："
Height = 255
Index = 6
Left = 3600
TabIndex = 9
Top = 360
Width = 1215
End
Begin VB.Label Label1
Caption = "医疗保险："
Height = 255
Index = 5
Left = 240
TabIndex = 8
Top = 2520
Width = 1215
End
Begin VB.Label Label1
Caption = "生 活 费："
Height = 255
Index = 4
Left = 3600
TabIndex = 7
Top = 1440
Width = 1095
End
Begin VB.Label Label1
Caption = "交 通 费："
Height = 255
Index = 3
Left = 3600
TabIndex = 6
Top = 1080
Width = 975
End
Begin VB.Label Label1
Caption = "水 电 费："
Height = 255
Index = 2
Left = 240
TabIndex = 5
Top = 1440
Width = 1215
End
Begin VB.Label Label1
Caption = "养老保险："
Height = 255
Index = 1
Left = 240
TabIndex = 4
Top = 2160
Width = 1215
End
Begin VB.Label Label3
Caption = "其它金额："
Height = 255
Left = 240
TabIndex = 3
Top = 2880
Width = 1215
End
Begin VB.Label Label2
Caption = "技能工资："
Height = 255
Left = 3600
TabIndex = 2
Top = 720
Width = 1215
End
Begin VB.Label Label1
Caption = "Label1"
Height = 375
Index = 0
Left = 600
TabIndex = 1
Top = 360
Width = 1215
End
End
End
Attribute VB_Name = "frmDefaultSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdOK_Click()
Update
Unload Me
End Sub
Private Sub Form_Activate()
fuzhi
txtNum.Locked = True
txtName.Locked = True
End Sub
Private Sub fuzhi()
Dim adors As New Recordset
Dim strSQL As String
Set adors.ActiveConnection = ADOcn
strSQL = "Select * From 默认工资项目表 Where 员工编号='" + txtNum + "'"
adors.Open strSQL
If Not adors.EOF Then
txtName = adors("员工姓名")
txtBWage = LTrim(adors("基本工资"))
txtSkillWage = LTrim(adors("技能工资"))
txtJintie = LTrim(adors("津贴费"))
txtTrafic = LTrim(adors("交通费"))
txtEnergy = LTrim(adors("水电费"))
txtLife = LTrim(adors("生活费"))
txtTempriture = LTrim(adors("高温贴"))
txtRent = LTrim(adors("房租费"))
txtOInsurance = LTrim(adors("其它保险费"))
txtOldness = LTrim(adors("养老保险费"))
txtJobless = LTrim(adors("失业保险费"))
txtIllness = LTrim(adors("医疗保险费"))
txtOMoney = LTrim(adors("其它金额"))
txtMinuse = LTrim(adors("其它扣额"))
End If
End Sub
Private Sub Update()
txtNum.Locked = True
txtName.Locked = True
If txtBWage = "" Or txtSkillWage = "" Or txtJintie = "" Or txtTrafic = "" Or txtEnergy = "" Or txtLife = "" Or txtTempriture = "" Or txtRent = "" Or txtOInsurance = "" Or txtOldness = "" Or txtJobless = "" Or txtIllness = "" Or txtOMoney = "" Or txtMinuse = "" Then
MsgBox "请输入完整信息，没有请填“0”！", vbCritical + vbOKOnly, "信息提示"
Else '修改默认工资信息
Dim strSQL As String
strSQL = "Update 默认工资项目表 Set 基本工资= " + txtBWage + ",技能工资=" + txtSkillWage
strSQL = strSQL + ",津贴费=" + txtJintie + ",交通费=" + txtTrafic + ",水电费=" + txtEnergy + ",生活费=" + txtLife + ",高温贴=" + txtTempriture + ",房租费=" + txtRent + ",其它保险费=" + txtOInsurance
strSQL = strSQL + ",养老保险费=" + txtOldness + ",失业保险费=" + txtJobless + ",医疗保险费=" + txtIllness + ",其它金额=" + txtOMoney + ",其它扣额=" + txtMinuse
strSQL = strSQL + " Where 员工编号='" + txtNum + "'"
ADOcn.Execute strSQL
End If
MyRefresh_frmDefaultWage
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -