📄 frmpeoplemanage.frm
字号:
TabIndex = 35
Top = 5400
Width = 375
End
Begin VB.Label Label19
Caption = "单位编号"
Height = 255
Left = 5280
TabIndex = 34
Top = 5400
Width = 855
End
Begin VB.Label Label18
Caption = "职工帐号"
Height = 255
Left = 4320
TabIndex = 33
Top = 5400
Width = 855
End
Begin VB.Label Label17
Caption = "手机"
Height = 255
Left = 3240
TabIndex = 32
Top = 5400
Width = 495
End
Begin VB.Label Label16
Caption = "办公电话"
Height = 255
Left = 1680
TabIndex = 31
Top = 5400
Width = 975
End
Begin VB.Label Label15
Caption = "家庭电话"
Height = 255
Left = 360
TabIndex = 30
Top = 5400
Width = 735
End
Begin VB.Label Label14
Caption = "电子邮件地址"
Height = 255
Left = 7800
TabIndex = 21
Top = 4560
Width = 1095
End
Begin VB.Label Label13
Caption = "身份证号码"
Height = 255
Left = 6600
TabIndex = 20
Top = 4560
Width = 975
End
Begin VB.Label Label12
Caption = "婚姻状况"
Height = 255
Left = 5400
TabIndex = 19
Top = 4560
Width = 855
End
Begin VB.Label Label11
Caption = "健康状况"
Height = 255
Left = 4200
TabIndex = 18
Top = 4560
Width = 855
End
Begin VB.Label Label10
Caption = "毕业院校"
Height = 255
Left = 3120
TabIndex = 17
Top = 4560
Width = 975
End
Begin VB.Label Label9
Caption = "文化程度"
Height = 255
Left = 1680
TabIndex = 16
Top = 4560
Width = 975
End
Begin VB.Label Label8
Caption = "民族"
Height = 255
Left = 480
TabIndex = 15
Top = 4560
Width = 615
End
Begin VB.Label Label7
Caption = "籍贯"
Height = 255
Left = 8040
TabIndex = 7
Top = 3720
Width = 855
End
Begin VB.Label Label6
Caption = "年龄"
Height = 255
Left = 6840
TabIndex = 6
Top = 3720
Width = 495
End
Begin VB.Label Label5
Caption = "出生日期"
Height = 255
Left = 5400
TabIndex = 5
Top = 3720
Width = 855
End
Begin VB.Label Label4
Caption = "性别"
Height = 255
Left = 4320
TabIndex = 4
Top = 3720
Width = 735
End
Begin VB.Label Label3
Caption = "姓名简码"
Height = 255
Left = 3000
TabIndex = 3
Top = 3720
Width = 975
End
Begin VB.Label Label2
Caption = "姓名"
Height = 255
Left = 1800
TabIndex = 2
Top = 3720
Width = 975
End
Begin VB.Label Label1
Caption = "职员编号"
Height = 255
Left = 240
TabIndex = 1
Top = 3720
Width = 855
End
End
Attribute VB_Name = "frmPeopleManage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cbbDepCode_Change()
'根据cbbDepCode.Text查询单位名称
Dim db As New DataBases
Dim strSQL As String
Dim rs As Recordset
strSQL = "select 单位名称 from"
strSQL = strSQL + " 组织机构编码表 where 单位编号 = '"
strSQL = strSQL + Me.cbbDepCode.Text + "'"
Set rs = db.RunSelectSQL(strSQL)
If Not rs.EOF Then
'查询结果不为空进行赋值
Text18.Text = rs("单位名称")
Else
'否则清空TextBox
Text16.Text = ""
End If
End Sub
Private Sub Form_Load()
Dim db As New DataBases
Adodc1.ConnectionString = db.sConn
Adodc2.ConnectionString = db.sConn
cbbSex.AddItem ("男")
cbbSex.AddItem ("女")
End Sub
Private Sub grdDataGrid_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Dim rs As Recordset
Set rs = Adodc1.Recordset
If rs("职员编号").ActualSize > 0 Then
Text1.Text = rs("职员编号")
Else
Text1.Text = ""
End If
If rs("姓名").ActualSize > 0 Then
Text2.Text = rs("姓名")
Else
Text2.Text = ""
End If
If rs("姓名简码").ActualSize > 0 Then
Text3.Text = rs("姓名简码")
Else
Text3.Text = ""
End If
If rs("性别").ActualSize > 0 Then
cbbSex.Text = rs("性别")
Else
cbbSex.Text = ""
End If
If rs("出生日期").ActualSize > 0 Then
Text4.Text = rs("出生日期")
Else
Text4.Text = ""
End If
If rs("年龄").ActualSize > 0 Then
Text5.Text = rs("年龄")
Else
Text5.Text = ""
End If
If rs("籍贯").ActualSize > 0 Then
Text6.Text = rs("籍贯")
Else
Text6.Text = ""
End If
If rs("民族").ActualSize > 0 Then
Text7.Text = rs("民族")
Else
Text7.Text = ""
End If
If rs("文化程度").ActualSize > 0 Then
Text8.Text = rs("文化程度")
Else
Text8.Text = ""
End If
If rs("毕业学校").ActualSize > 0 Then
Text9.Text = rs("毕业学校")
Else
Text9.Text = ""
End If
If rs("婚姻状况").ActualSize > 0 Then
Text10.Text = rs("婚姻状况")
Else
Text10.Text = ""
End If
If rs("身份证号码").ActualSize > 0 Then
Text11.Text = rs("身份证号码")
Else
Text11.Text = ""
End If
If rs("电子邮件地址").ActualSize > 0 Then
Text12.Text = rs("电子邮件地址")
Else
Text12.Text = ""
End If
If rs("健康状况").ActualSize > 0 Then
Text13.Text = rs("健康状况")
Else
Text13.Text = ""
End If
If rs("家庭电话").ActualSize > 0 Then
Text14.Text = rs("家庭电话")
Else
Text14.Text = ""
End If
If rs("办公电话").ActualSize > 0 Then
Text15.Text = rs("办公电话")
Else
Text15.Text = ""
End If
If rs("手机").ActualSize > 0 Then
Text16.Text = rs("手机")
Else
Text16.Text = ""
End If
If rs("单位编号").ActualSize > 0 Then
cbbDepCode.Text = rs("单位编号")
cbbDepCode_Change
Else
cbbDepCode.Text = ""
Text18.Text = ""
End If
If rs("备注").ActualSize > 0 Then
Text19.Text = rs("备注")
Else
Text19.Text = ""
End If
If rs("职工账号").ActualSize > 0 Then
Text20.Text = rs("职工账号")
Else
Text20.Text = ""
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
'判断按下的是否为“Save”按钮
If StrComp(Button.Key, "btnSave") = 0 Then
If Trim(Text5.Text) = "" Then
MsgBox "年龄不能为空"
Exit Sub
End If
Dim rs As Recordset
Set rs = Adodc1.Recordset
If Text1.DataChanged Then
rs("职员编号") = Trim(Text1.Text)
End If
If Text2.DataChanged Then
rs("姓名") = Text2.Text
End If
If Text3.DataChanged Then
rs("姓名简码") = Text3.Text
End If
rs("性别") = cbbSex.Text
If Text4.DataChanged Then
rs("出生日期") = Text4.Text
End If
If Text5.DataChanged Then
rs("年龄") = Trim(Text5.Text)
End If
If Text6.DataChanged Then
rs("籍贯") = Text6.Text
End If
If Text7.DataChanged Then
rs("民族") = Text7.Text
End If
If Text8.DataChanged Then
rs("文化程度") = Text8.Text
End If
If Text9.DataChanged Then
rs("毕业学校") = Text9.Text
End If
If Text10.DataChanged Then
rs("婚姻状况") = Text10.Text
End If
If Text11.DataChanged Then
rs("身份证号码") = Text11.Text
End If
If Text12.DataChanged Then
rs("电子邮件地址") = Text12.Text
End If
If Text13.DataChanged Then
rs("健康状况") = Text13.Text
End If
If Text14.DataChanged Then
rs("家庭电话") = Text14.Text
End If
If Text15.DataChanged Then
rs("办公电话") = Text15.Text
End If
If Text16.DataChanged Then
rs("手机") = Text16.Text
End If
rs("单位编号") = cbbDepCode.Text
If Text19.DataChanged Then
rs("备注") = Text19.Text
End If
If Text20.DataChanged Then
rs("职工账号") = Text20.Text
End If
'通过Adodc1更新数据库数据
Adodc1.Recordset.UpdateBatch adAffectAll
MsgBox "数据修改成功"
ElseIf StrComp(Button.Key, "btnDelete") = 0 Then
If MsgBox("确定要删除么？", vbYesNo) = vbYes Then
Dim db As New DataBases
Dim strNum As String
strNum = Adodc1.Recordset("职员编号")
'删除工资发放历史表的相关内容
db.RunSelectSQL ("DELETE FROM 工资发放历史表 WHERE 职员编号='" + strNum + "'")
'删除月工资统计表的相关内容
db.RunSelectSQL ("DELETE FROM 月工资统计表 WHERE 职员编号='" + strNum + "'")
'删除职员惩罚表的相关内容
db.RunSelectSQL ("DELETE FROM 职员惩罚表 WHERE 职员编号='" + strNum + "'")
'删除职员奖励表的相关内容
db.RunSelectSQL ("DELETE FROM 职员奖励表 WHERE 职员编号='" + strNum + "'")
'删除职员基本信息表的相关内容
db.RunSelectSQL ("DELETE FROM 职员基本信息表 WHERE 职员编号='" + strNum + "'")
Adodc1.Refresh
End If
ElseIf StrComp(Button.Key, "btnNew") = 0 Then
Adodc1.Recordset.AddNew
' grdDataGrid_RowColChange
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -