📄 frmrefamily.frm
字号:
ForeColor = &H00C00000&
Height = 330
IMEMode = 3 'DISABLE
ItemData = "frmReFamily.frx":0322
Left = 1080
List = "frmReFamily.frx":032C
TabIndex = 3
Top = 1788
Width = 1245
End
Begin VB.ComboBox cboXinB
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
IMEMode = 3 'DISABLE
ItemData = "frmReFamily.frx":0336
Left = 3330
List = "frmReFamily.frx":0340
TabIndex = 2
Top = 840
Width = 1245
End
Begin VB.Label Label11
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "职 务"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 4740
TabIndex = 19
Top = 1830
Width = 855
End
Begin VB.Label Label10
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "职 称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 2430
TabIndex = 18
Top = 1350
Width = 855
End
Begin VB.Label Label7
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "称 谓"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 4740
TabIndex = 17
Top = 450
Width = 855
End
Begin VB.Label Label29
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "工 号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 150
TabIndex = 16
Top = 450
Width = 855
End
Begin VB.Label Label31
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "职 工 名"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 2430
TabIndex = 15
Top = 420
Width = 855
End
Begin VB.Label Label32
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "工作年月"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 150
TabIndex = 14
Top = 1350
Width = 855
End
Begin VB.Label Label33
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "进校年月"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 4740
TabIndex = 13
Top = 1370
Width = 855
End
Begin VB.Label Label19
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "结婚年月"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 2430
TabIndex = 12
Top = 1830
Width = 855
End
Begin VB.Label Label26
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "单 位"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 150
TabIndex = 11
Top = 2310
Width = 855
End
Begin VB.Label Label4
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "婚 否"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 150
TabIndex = 10
Top = 1830
Width = 855
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "姓 名"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 150
TabIndex = 9
Top = 900
Width = 855
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "出生年月"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 4740
TabIndex = 8
Top = 910
Width = 855
End
Begin VB.Label Label3
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "性 别"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 2430
TabIndex = 7
Top = 870
Width = 855
End
End
Begin ComctlLib.StatusBar StaBar
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 0
Top = 3525
Width = 7530
_ExtentX = 13282
_ExtentY = 661
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 3
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 6
Alignment = 1
AutoSize = 2
Object.Width = 2646
MinWidth = 2646
TextSave = "2001-3-24"
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 2
Object.Width = 2646
MinWidth = 2646
TextSave = ""
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 1
Object.Width = 7893
MinWidth = 4586
TextSave = ""
Key = ""
Object.Tag = ""
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Attribute VB_Name = "frmReFamily"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'控件绑定
Dim Ctl(0 To 12) As Control
Dim CtlCount As Integer
'全局记录集
Dim rec As Recordset
'状态参数
Dim bEdit As Boolean
Dim bChanged As Boolean '编辑状态下当前记录是否被改变
'检测参数
Dim bDateNull As Boolean '当日期型控件内容为空时继续不中止添加过程也不输入
Dim bNumberNull As Boolean '当数字型控件内容为空时继续不中止添加过程也不输入
Private Sub cboChenW_Click()
If bEdit Then bChanged = True
End Sub
Private Sub cboHunY_Click()
If bEdit Then bChanged = True
End Sub
Private Sub cboXinB_Click()
If bEdit Then bChanged = True
End Sub
Private Sub cboZhiC_Click()
If bEdit Then bChanged = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -