📄 frmsingleview.frm
字号:
Top = 2760
Width = 1215
End
Begin VB.Label lblLabels
Caption = "政治面貌:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 11
Left = 3720
TabIndex = 28
Top = 2280
Width = 1095
End
Begin VB.Label lblLabels
Caption = "健康状况:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 10
Left = 120
TabIndex = 27
Top = 2280
Width = 1215
End
Begin VB.Label lblLabels
Caption = "婚姻状况:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 9
Left = 3720
TabIndex = 26
Top = 1800
Width = 1335
End
Begin VB.Label lblLabels
Caption = "籍贯:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 8
Left = 600
TabIndex = 25
Top = 1800
Width = 615
End
Begin VB.Label lblLabels
Caption = "民族:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 7
Left = 4200
TabIndex = 24
Top = 1320
Width = 735
End
Begin VB.Label lblLabels
Caption = "出生日期:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 6
Left = 120
TabIndex = 23
Top = 1320
Width = 1215
End
Begin VB.Label lblLabels
Caption = "性别:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 4200
TabIndex = 22
Top = 840
Width = 615
End
Begin VB.Label lblLabels
Caption = "姓名:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 4200
TabIndex = 21
Top = 360
Width = 615
End
Begin VB.Label lblLabels
Caption = "职务:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 600
TabIndex = 20
Top = 840
Width = 975
End
Begin VB.Label lblLabels
Caption = "代号ID:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 360
TabIndex = 19
Top = 360
Width = 975
End
Begin VB.Label lblLabels
Caption = "工资:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 16
Left = 600
TabIndex = 18
Top = 4200
Width = 735
End
End
End
Attribute VB_Name = "frmSingleView"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Visible = False
Command2.Visible = True
Command4.Visible = True
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
End Sub
Private Sub Command2_Click()
If Text2.Text = "" Then
MsgBox "请输入编号！"
Text2.SetFocus
End If
If MsgBox("确定保存当前资料吗？", vbInformation + vbYesNo, "保存资料？") = vbYes Then
Adodc1.Recordset.UpdateBatch
If ActionType = "Add" Then
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
End If
End If
End Sub
Private Sub Command3_Click()
If MsgBox("确定删除当前资料吗？", vbInformation + vbYesNo, "删除资料？") = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Refresh
End If
End Sub
Private Sub Command4_Click()
If MsgBox("放弃当前的操作并退出吗吗？", vbInformation + vbYesNo, "删除资料？") = vbYes Then
Adodc1.Recordset.CancelUpdate
Unload Me
End If
End Sub
Private Sub Command5_Click()
Command2.Visible = True
Command4.Visible = True
End Sub
Private Sub Command6_Click()
Load frm社会关系
frm社会关系.datPrimaryRS.ConnectionString = conStr
frm社会关系.datPrimaryRS.RecordSource = "select 代号ID,编号,关系人姓名,与本人关系,政治面貌,工作单位,职务,备注 from 社会关系 where 代号ID like " & Me.Text2.Text & " Order by 编号"
frm社会关系.datPrimaryRS.Refresh
frm社会关系.Show
End Sub
Private Sub Command7_Click()
Load frm个人简历
frm个人简历.datPrimaryRS.ConnectionString = conStr
frm个人简历.datPrimaryRS.RecordSource = "select 代号ID,编号,工作单位,职务,起始日期,证明人 from 个人简历 where 代号ID like " & Me.Text2.Text & " Order by 编号"
frm个人简历.datPrimaryRS.Refresh
frm个人简历.Show
End Sub
Private Sub Command8_Click()
Load frm家庭成员
frm家庭成员.datPrimaryRS.ConnectionString = conStr
frm家庭成员.datPrimaryRS.RecordSource = "select 代号ID,编号,成员姓名,与本人关系,出生年月,婚姻状况,政治面貌,文化程度,经济来源,工作单位,工资,职务 from 家庭成员 where 代号ID like " & Me.Text2.Text & " Order by 编号"
frm家庭成员.datPrimaryRS.Refresh
frm家庭成员.Show
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = conStr
Adodc1.RecordSource = "select 部门代号,部门,代号ID,姓名,职务,性别,籍贯,民族,出生日期,健康状况,婚姻状况,文化程度,政治面貌,家庭住址,进入单位时间,职称,工资,补贴,备注 from 职工信息 Order by 代号ID"
Adodc1.Refresh
Command1.Visible = False
Command2.Visible = False
Command3.Visible = False
Command4.Visible = False
Command5.Visible = False
Select Case ActionType
Case "Add"
Call Command1_Click
Case "Del"
Command3.Visible = True
Command4.Visible = True
Case "Edit"
Command2.Visible = True
Command4.Visible = True
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -