📄 frmrs.frm
字号:
Top = 3360
Width = 1095
End
Begin VB.Label Label10
Caption = "合同终止时间"
Height = 255
Left = 6360
TabIndex = 52
Top = 3840
Width = 1095
End
Begin VB.Label Label11
Caption = "职工类型"
Height = 255
Left = 4920
TabIndex = 51
Top = 840
Width = 855
End
Begin VB.Label Label12
Caption = "工 龄"
Height = 255
Left = 6360
TabIndex = 50
Top = 4320
Width = 1095
End
Begin VB.Label Label13
Caption = "生日"
Height = 255
Left = 2520
TabIndex = 49
Top = 2280
Width = 375
End
Begin VB.Label Label14
Caption = "年龄"
Height = 255
Left = 240
TabIndex = 48
Top = 2280
Width = 615
End
Begin VB.Label Label15
Caption = "文化程度"
Height = 255
Left = 4920
TabIndex = 47
Top = 1320
Width = 735
End
Begin VB.Label Label16
Caption = "民族"
Height = 255
Left = 240
TabIndex = 46
Top = 1800
Width = 375
End
Begin VB.Label Label17
Caption = "婚姻状况"
Height = 255
Left = 240
TabIndex = 45
Top = 2760
Width = 735
End
Begin VB.Label Label18
Caption = "政治面貌"
Height = 255
Left = 4920
TabIndex = 44
Top = 2280
Width = 735
End
Begin VB.Label Label19
Caption = "身份证号"
Height = 255
Left = 240
TabIndex = 43
Top = 3360
Width = 735
End
Begin VB.Label Label20
Caption = "籍贯"
Height = 255
Left = 2520
TabIndex = 42
Top = 2760
Width = 375
End
Begin VB.Label Label21
Caption = "联系电话"
Height = 255
Left = 3240
TabIndex = 41
Top = 3360
Width = 735
End
Begin VB.Label Label22
Caption = "手机"
Height = 255
Left = 4920
TabIndex = 40
Top = 2760
Width = 375
End
Begin VB.Label Label23
Caption = "家庭住址"
Height = 255
Left = 240
TabIndex = 39
Top = 3840
Width = 735
End
Begin VB.Label Label24
Caption = "健康状况"
Height = 375
Left = 240
TabIndex = 38
Top = 720
Width = 375
End
End
Begin VB.Frame Frame2
Height = 855
Left = 120
TabIndex = 5
Top = 5640
Width = 9255
Begin MSForms.CommandButton cmdNew
Height = 375
Left = 240
TabIndex = 13
Tag = "新建记录"
Top = 360
Width = 975
Caption = "新建"
PicturePosition = 327683
Size = "1720;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdOk
Height = 375
Left = 1320
TabIndex = 12
Top = 360
Width = 975
Caption = "保存"
PicturePosition = 327683
Size = "1720;661"
Picture = "frmRS.frx":73A7
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdDel
Height = 375
Left = 2400
TabIndex = 11
Top = 360
Width = 975
Caption = "删除"
PicturePosition = 327683
Size = "1720;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdChange
Height = 375
Left = 3480
TabIndex = 10
Top = 360
Width = 975
Caption = "修改"
PicturePosition = 327683
Size = "1720;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdPrint
Height = 375
Left = 4560
TabIndex = 9
Top = 360
Width = 975
Caption = "导出"
PicturePosition = 327683
Size = "1720;661"
Picture = "frmRS.frx":7741
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdSearch
Height = 375
Left = 5640
TabIndex = 8
Top = 360
Width = 975
Caption = "查找"
PicturePosition = 327683
Size = "1720;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdExit
Height = 375
Left = 7800
TabIndex = 7
Top = 360
Width = 975
Caption = "退出"
PicturePosition = 327683
Size = "1720;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton CommandButton2
Height = 375
Left = 6720
TabIndex = 6
Top = 360
WhatsThisHelpID = 5
Width = 975
Caption = "帮助 "
PicturePosition = 327683
Size = "1720;661"
Picture = "frmRS.frx":987B
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
End
Begin VB.Frame Frame3
Height = 5055
Left = -74880
TabIndex = 4
Top = 480
Width = 9255
Begin MSFlexGridLib.MSFlexGrid grdHM
Height = 4695
Left = 120
TabIndex = 62
Top = 240
Width = 9015
_ExtentX = 15901
_ExtentY = 8281
_Version = 393216
BackColorBkg = -2147483643
GridColor = 16744576
SelectionMode = 1
AllowUserResizing= 3
End
End
Begin VB.Frame Frame4
Height = 855
Left = -74880
TabIndex = 3
Top = 5640
Width = 9255
Begin MSForms.CommandButton cmdExitHM
Height = 375
Left = 7560
TabIndex = 66
Top = 360
Width = 1095
Caption = "退出"
PicturePosition = 327683
Size = "1931;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdChgHM
Height = 375
Left = 2040
TabIndex = 65
Top = 360
Width = 1095
Caption = "修改"
PicturePosition = 327683
Size = "1931;661"
Picture = "frmRS.frx":9CCD
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdDelHM
Height = 375
Left = 3600
TabIndex = 64
Top = 360
Width = 1095
Caption = "删除"
PicturePosition = 327683
Size = "1931;661"
Picture = "frmRS.frx":C47F
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdAddHM
Height = 375
Left = 480
TabIndex = 63
Top = 360
Width = 1095
Caption = "添加"
PicturePosition = 327683
Size = "1931;661"
Picture = "frmRS.frx":E5B9
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
End
End
Begin MSForms.CommandButton cmdShwAllRrd
Height = 375
Left = 120
TabIndex = 16
Top = 240
Width = 2175
Caption = "显示全部员工名单"
PicturePosition = 327683
Size = "3836;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
End
Begin MSComDlg.CommonDialog cdgPic
Left = 5280
Top = 7920
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
End
Attribute VB_Name = "frmRS"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*****************************************************
'
'
'*************************************
Dim strFileName As String
Dim blnChange As Boolean
'定义信息初始化结构
Private Type MYINFO
InfoNO As Integer
InfoName As String * 30
End Type
Dim fso As FileSystemObject
Dim fld As Folder
Dim fl As File
Dim strFullFilePath As String
Dim info As MYINFO
Dim blnDelPhoto As Boolean
'添加家庭成员
Public Sub cmdAddHM_Click()
If fGH.Caption = "" Then Exit Sub
frmAddHM.gh = fGH.Caption
frmAddHM.Show vbModal
End Sub
'添加工作经历
Public Sub cmdAddJob_Click()
If fGH.Caption = "" Then Exit Sub
frmAddJob.gh = fGH.Caption
frmAddJob.Show vbModal
End Sub
'添加照片
Private Sub cmdAddPhoto_Click()
cdgPic.Filter = "*.jpg|*.jpg|*.*|*.*"
cdgPic.ShowOpen
pic.Picture = LoadPicture(cdgPic.FileName)
strFileName = cdgPic.FileName
End Sub
'修改员工基本信息
Private Sub cmdChange_Click()
Call EnabledControl
txtGH.Enabled = False
cmdNew.Enabled = False
cmdOk.Enabled = True
cmdDel.Enabled = False
Dim rs As ADODB.Recordset
Dim strSql As String
Dim strMsg As String
blnChange = True
End Sub
'修改家庭成员
Public Sub cmdChgHM_Click()
Dim iRow As Integer
Dim strSql As String
Dim strMsg As String
Dim rs As ADODB.Recordset
Dim rtn
If grdHM.Row <= 0 Or frdhm > grdHM.Rows - 1 Then Exit Sub
iRow = grdHM.Row
'v为id号
v = grdHM.TextMatrix(iRow, 1)
If v = "" Then Exit Sub
strSql = "select * from t_hm where ID=" & v
Set rs = ExecuteSQL(strSql, strMsg)
frmChgHM.txtXM = rs.Fields("成员姓名").Value
If IsNull(rs.Fields("与本人关系").Value) Then
frmChgHM.txtGX = ""
Else
frmChgHM.txtGX = rs.Fields("与本人关系").Value
End If
If IsNull(rs.Fields("担任职务").Value) Then
frmChgHM.txtZW = ""
Else
frmChgHM.txtZW = rs.Fields("担任职务").Value
End If
frmChgHM.dtpRQ = rs.Fields("出生日期").Value
If IsNull(rs.Fields("工作单位").Value) Then
frmChgHM.txtDW = ""
Else
frmChgHM.txtDW = rs.Fields("工作单位").Value
End If
If IsNull(rs.Fields("政治面貌").Value) Then
frmChgHM.cboMM = ""
Else
frmChgHM.cboMM = rs.Fields("政治面貌").Value
End If
If IsNull(rs.Fields("联系电话").Value) Then
frmChgHM.txtDH = ""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -