📄 frmaffirmlvw.frm
字号:
_ExtentX = 1667
_ExtentY = 661
Enabled = 0 'False
Caption = "打印导引单"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPControls.XPCommandButton cmdPay
Height = 375
Left = 6360
TabIndex = 19
Top = 300
Visible = 0 'False
Width = 795
_ExtentX = 1402
_ExtentY = 661
Enabled = 0 'False
Caption = "收费"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPControls.XPCommandButton cmdIDCardAndPerson
Height = 345
Left = 7261
TabIndex = 20
Top = 300
Width = 1125
_ExtentX = 1984
_ExtentY = 609
Enabled = 0 'False
Caption = "摄像和扫描"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.Frame Frame2
BackColor = &H00D3DABC&
Caption = "预约人员名单"
Height = 4755
Left = 30
TabIndex = 2
Top = 60
Width = 4290
Begin VB.Frame Frame4
BackColor = &H80000018&
Caption = "时间"
Height = 675
Left = 90
TabIndex = 4
Top = 3990
Width = 4065
Begin MSComCtl2.DTPicker dtpStart
Height = 345
Left = 570
TabIndex = 5
Top = 240
Width = 1245
_ExtentX = 2196
_ExtentY = 609
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 49676289
CurrentDate = 37987
MaxDate = 73415
MinDate = 36526
End
Begin MSComCtl2.DTPicker dtpEnd
Height = 345
Left = 2280
TabIndex = 6
Top = 240
Width = 1245
_ExtentX = 2196
_ExtentY = 609
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 49676289
CurrentDate = 37987
MaxDate = 73415
MinDate = 36526
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "到"
Height = 285
Index = 2
Left = 1950
TabIndex = 7
Top = 300
Width = 255
End
End
Begin VB.TextBox txtQuerySelfBH
Height = 285
Left = 1440
TabIndex = 3
ToolTipText = "请输入姓名或档案号然后回车"
Top = 3660
Width = 2745
End
Begin MSComctlLib.ListView Lvw1
Height = 3345
Left = 90
TabIndex = 8
Top = 180
Width = 4125
_ExtentX = 7276
_ExtentY = 5900
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483634
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 6
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "GUID"
Object.Width = 0
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "系统档案号"
Object.Width = 0
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "档案号"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "体检人"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "所属团体"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "体检日期"
Object.Width = 1764
EndProperty
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "快速查找："
Height = 285
Left = 120
TabIndex = 9
Top = 3690
Width = 1110
End
End
Begin VB.Frame Frame3
BackColor = &H80000018&
Caption = "当日登记名单"
Height = 3705
Left = 30
TabIndex = 0
Top = 4875
Width = 4275
Begin MSComctlLib.ListView Lvw2
Height = 3435
Left = 60
TabIndex = 1
Top = 210
Width = 4125
_ExtentX = 7276
_ExtentY = 6059
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483634
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 7
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "GUID"
Object.Width = 0
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "系统档案号"
Object.Width = 0
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "档案号"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "序号"
Object.Width = 1058
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "体检人"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "所属团体"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 6
Text = "体检日期"
Object.Width = 1764
EndProperty
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 6720
Top = 4290
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin ResizeLibCtl.ReSize ReSize1
Left = 3480
Top = 3840
_Version = 131072
_ExtentX = 741
_ExtentY = 741
_StockProps = 0
Enabled = -1 'True
FormMinWidth = 0
FormMinHeight = 0
FormDesignHeight= 8985
FormDesignWidth = 13860
End
Begin VB.Label lblCount
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "Label1"
ForeColor = &H80000008&
Height = 255
Left = 90
TabIndex = 75
Top = 8670
Width = 4185
End
End
Attribute VB_Name = "FrmAffirmLvw"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim menuOperation As OperationType
Dim arrYYID() As String '团体的预约ID数组，用于录入个人信息时使用
Dim arrFZ() As Integer '某团体的分组ID数组
Dim mnodChecked As Node
Dim mblnChecked As Boolean
Dim mintAffirm As Integer '当日已确认人数
Dim mintNotAffirm As Integer '当日未确认人数
Dim mblnAdd As Boolean '当前是否添加
Dim mblnBuCha As Boolean '是否补查
Dim mlngBuChaGUID As Long
Private Const lngAffirm As Long = &H98FB98 '确认后的背景
Private Const lngNotAffirm As Long = &HCBC0FF ' &H29C153 '未确认后的背景
'****************20040406加入 闻*************************
Dim mintGrid As Integer
Dim mstrStatus As String
'****************20040406加入 闻*************************
'用于在确认中存该人的会员卡号
Dim mTmpHYKH As String
'****************20040628加入 闻************************
'记录是否是复查
Public mblnReCheck As Boolean
'****************20040628加入 闻************************
Dim m_enuCheckType As CheckType
Dim clsPrintBarCode As clsBarCode
Dim m_blnSystemID As Boolean
Dim m_blnSelfID As Boolean
Dim m_strOldQuery As String '记录上次查询结果
Dim m_blnCompute As Boolean '是否允许计算价格
Dim m_strPhotoFile As String
Dim m_strScanFile As String
Private Sub CmbFZ_Click()
On Error GoTo ErrMsg
Dim Status
Dim strSQL As String
Dim rstemp As ADODB.Recordset
Dim i As Integer
Dim strDXID As String
Dim blnHave As Boolean
Dim strHealthID As String
Dim intFZID As Integer
' '根据该分组的体检日期更新dtpGTJRQ数值
' strSQL = "select * from FZ_FZSY" _
' & " where YYID='" & arrYYID(cmbGDWei.ListIndex) & "'" _
' & " and FZID=" & arrFZ(CmbFZ.ListIndex + 1)
' Set rsTemp = New ADODB.Recordset
' rsTemp.Open strSQL, GCon, adOpenStatic, adLockReadOnly
' If rsTemp.RecordCount = 1 Then
' If rsTemp("FZTJRQ") >= Date Then
' dtpGTJRQ.Value = rsTemp("FZTJRQ")
' Else
' dtpGTJRQ.Value = Date
' End If
' End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -