📄 dlgfzmaintain.frm
字号:
VERSION 5.00
Object = "{0B81E4A9-BE4E-4AEF-9272-33AB5B51C6FC}#1.0#0"; "XPControls.ocx"
Begin VB.Form dlgFZMaintain
BackColor = &H80000018&
BorderStyle = 3 'Fixed Dialog
Caption = "分组人员维护"
ClientHeight = 4200
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 5850
Icon = "dlgFZMaintain.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4200
ScaleWidth = 5850
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.Frame Frame1
BackColor = &H80000018&
Caption = "个人基本信息"
Height = 3555
Left = 150
TabIndex = 2
Top = 60
Width = 5415
Begin VB.TextBox txtSelfBH
Height = 300
Left = 1545
TabIndex = 3
Top = 270
Width = 3405
End
Begin VB.ComboBox cmbFZ
ForeColor = &H00FF0000&
Height = 315
Left = 1545
Style = 2 'Dropdown List
TabIndex = 5
Top = 1080
Width = 3405
End
Begin VB.TextBox txtGYYRXM
Height = 300
Left = 1545
TabIndex = 4
Top = 675
Width = 3405
End
Begin VB.TextBox txtGYYRJTDH
Height = 300
Left = 1545
TabIndex = 8
Top = 2295
Width = 3405
End
Begin VB.TextBox txtGYYRBGDH
Height = 300
Left = 1545
TabIndex = 9
Top = 2685
Width = 3405
End
Begin VB.TextBox txtGYYRYDDH
Height = 300
Left = 1545
TabIndex = 10
Top = 3090
Width = 3405
End
Begin VB.TextBox txtGAGE
Height = 300
Left = 1545
TabIndex = 7
Top = 1905
Width = 1005
End
Begin VB.ComboBox cmbGSEX
Height = 315
ItemData = "dlgFZMaintain.frx":1982
Left = 1545
List = "dlgFZMaintain.frx":198C
Style = 2 'Dropdown List
TabIndex = 6
Top = 1485
Width = 1005
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "档案号："
Height = 255
Left = 60
TabIndex = 18
Top = 300
Width = 1425
End
Begin VB.Label Label41
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "所属分组："
ForeColor = &H00FF0000&
Height = 255
Left = 60
TabIndex = 17
Top = 1110
Width = 1425
End
Begin VB.Label Label21
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "姓名："
Height = 255
Left = 60
TabIndex = 16
Top = 705
Width = 1425
End
Begin VB.Label Label24
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "家庭电话："
Height = 255
Left = 60
TabIndex = 15
Top = 2310
Width = 1425
End
Begin VB.Label Label25
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "办公电话："
Height = 255
Left = 60
TabIndex = 14
Top = 2715
Width = 1425
End
Begin VB.Label Label26
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "移动电话："
Height = 255
Left = 60
TabIndex = 13
Top = 3120
Width = 1425
End
Begin VB.Label Label30
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "性别："
Height = 255
Left = 60
TabIndex = 12
Top = 1515
Width = 1425
End
Begin VB.Label Label32
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "年龄："
Height = 255
Left = 60
TabIndex = 11
Top = 1905
Width = 1425
End
End
Begin XPControls.XPCommandButton cmdCancel
Cancel = -1 'True
Height = 375
Left = 3090
TabIndex = 0
Top = 3720
Width = 930
_ExtentX = 1640
_ExtentY = 661
Caption = "取消(&C)"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPControls.XPCommandButton cmdOK
Height = 375
Left = 1890
TabIndex = 1
Top = 3720
Width = 945
_ExtentX = 1667
_ExtentY = 661
Caption = "确定(&O)"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Attribute VB_Name = "dlgFZMaintain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mlngGUID As Long
Dim mstrHealthID As String
Dim mstrPersonInfo As String
Dim mblnOK As Boolean
Dim mstrYYID As String '当前操作的单位编号
Dim menuOperation As OperationType
Private Sub CmbFZ_KeyPress(KeyAscii As Integer)
EnterToTab KeyAscii
End Sub
Private Sub cmbGSEX_KeyPress(KeyAscii As Integer)
EnterToTab KeyAscii
End Sub
Private Sub cmdCancel_Click()
mblnOK = False
Unload Me
End Sub
'**************************************************************************
'被调函数，显示个人基本信息（这些信息出现在团检人员导入的Excel文件中）
'参数1：操作类型
'参数2：团体编号
'参数3：个人信息结构体
'参数4：客户的唯一编号。如果参数1为添加，该参数为空
'参数5：分组编号，用于在添加时选中当前分组
'返回值：是否成功
'**************************************************************************
Public Function ShowFZPersonInfo(ByVal enuOperation As OperationType, ByVal strYYID As String, _
ByRef strPersonInfo As String, Optional ByVal lngGUID As Long, _
Optional ByVal intFZID As Integer) As Boolean
On Error GoTo ErrMsg
Dim Status
Dim strSQL As String
Dim rstemp As ADODB.Recordset
Dim i As Integer
Screen.MousePointer = vbHourglass
'保存客户编号
mlngGUID = lngGUID
'记录操作类型
menuOperation = enuOperation
'记录单位编号
mstrYYID = strYYID
'显示当前客户所在单位的所有分组
strSQL = "select distinct FZID,FZMC" _
& " from FZ_FZSY" _
& " where YYID='" & mstrYYID & "'"
Set rstemp = New ADODB.Recordset
rstemp.Open strSQL, GCon, adOpenStatic, adLockReadOnly
If Not rstemp.EOF Then
rstemp.MoveFirst
Do While Not rstemp.EOF
CmbFZ.AddItem rstemp("FZMC")
CmbFZ.ItemData(CmbFZ.NewIndex) = rstemp("FZID")
'选中当前分组
If rstemp("FZID") = intFZID Then
CmbFZ.ListIndex = CmbFZ.NewIndex
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -