📄 frmdwyxhzdc.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{0B81E4A9-BE4E-4AEF-9272-33AB5B51C6FC}#1.0#0"; "XPControls.ocx"
Begin VB.Form FrmDWYXHZDC
BackColor = &H00D3DABC&
BorderStyle = 1 'Fixed Single
Caption = "阳性汇总导出"
ClientHeight = 6750
ClientLeft = 45
ClientTop = 330
ClientWidth = 10140
Icon = "FrmDWYXHZDC.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6750
ScaleWidth = 10140
StartUpPosition = 2 '屏幕中心
Begin MSComDlg.CommonDialog CommonDialog1
Left = 4860
Top = 3120
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Frame Frame4
BackColor = &H00D3DABC&
Caption = "导出方式"
Height = 735
Index = 1
Left = 3030
TabIndex = 13
Top = 5910
Width = 2475
Begin VB.OptionButton optXMu
BackColor = &H00D3DABC&
Caption = "按项目"
Height = 345
Left = 1380
TabIndex = 15
Top = 270
Width = 945
End
Begin VB.OptionButton optKShi
BackColor = &H00D3DABC&
Caption = "按科室"
Height = 345
Left = 270
TabIndex = 14
Top = 270
Value = -1 'True
Width = 915
End
End
Begin VB.Frame Frame1
BackColor = &H00D3DABC&
Caption = "选择项目"
Height = 5775
Left = 5610
TabIndex = 5
Top = 90
Width = 4425
Begin MSComctlLib.TreeView tvwXMu
Height = 5430
Left = 90
TabIndex = 6
Top = 240
Width = 4245
_ExtentX = 7488
_ExtentY = 9578
_Version = 393217
HideSelection = 0 'False
LabelEdit = 1
Style = 7
Checkboxes = -1 'True
Appearance = 1
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
Begin MSComctlLib.ListView LvwDWei
Height = 5685
Left = 120
TabIndex = 4
Top = 180
Width = 5385
_ExtentX = 9499
_ExtentY = 10028
View = 2
LabelWrap = -1 'True
HideSelection = 0 'False
AllowReorder = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = 12582912
BackColor = 12648384
BorderStyle = 1
Appearance = 1
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
NumItems = 3
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "单位编号"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "单位名称"
Object.Width = 5292
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "体检日期"
Object.Width = 2540
EndProperty
End
Begin VB.Frame Frame3
Appearance = 0 'Flat
BackColor = &H80000018&
ForeColor = &H80000008&
Height = 495
Left = 450
TabIndex = 0
Top = 3960
Width = 3375
Begin VB.OptionButton optNNTY
BackColor = &H80000018&
Caption = "所有"
Height = 255
Left = 240
TabIndex = 2
Top = 180
Value = -1 'True
Width = 795
End
Begin VB.OptionButton optMale
BackColor = &H80000018&
Caption = "男"
Height = 255
Left = 1365
TabIndex = 1
Top = 180
Width = 795
End
Begin VB.OptionButton optFemale
BackColor = &H80000018&
Caption = "女"
Height = 255
Left = 2490
TabIndex = 3
Top = 180
Width = 795
End
End
Begin VB.Frame Frame4
BackColor = &H00D3DABC&
Caption = "附加内容"
Height = 735
Index = 0
Left = 120
TabIndex = 10
Top = 5910
Width = 2835
Begin VB.CheckBox ChkDCZJJY
BackColor = &H00D3DABC&
Caption = "总检建议"
Height = 315
Left = 1620
TabIndex = 12
Top = 270
Width = 1125
End
Begin VB.CheckBox ChkDCZJJL
BackColor = &H00D3DABC&
Caption = "总检结论"
Height = 315
Left = 210
TabIndex = 11
Top = 270
Width = 1125
End
End
Begin VB.Frame Frame2
BackColor = &H00D3DABC&
Height = 735
Left = 5610
TabIndex = 7
Top = 5910
Width = 4425
Begin XPControls.XPCommandButton cmdOK
Height = 435
Left = 660
TabIndex = 8
ToolTipText = "以EXCEL格式导出"
Top = 210
Width = 1155
_ExtentX = 2037
_ExtentY = 767
Caption = "导 出"
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 cmdExit
Height = 435
Left = 2520
TabIndex = 9
Top = 180
Width = 1155
_ExtentX = 2037
_ExtentY = 767
Caption = "退 出"
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
End
Attribute VB_Name = "FrmDWYXHZDC"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
On Error GoTo ErrMsg
Dim Status
Dim strSQL As String
Dim strTemp As String
Dim strSelect As String
Dim strTJ As String
Dim strCondition As String
Dim strKSMC As String
Dim rstemp As ADODB.Recordset
Dim rsPerson As ADODB.Recordset
Dim rsHZ As ADODB.Recordset
Dim nodTemp As Node
Dim blnKShi As Boolean '是否选择了科室。使用变量避免多次访问控件
Dim blnExportZJJL As Boolean
Dim blnExportZJJY As Boolean
Dim strOldColumn As String
Dim strDXPYSX As String
Dim strXXPYSX As String
Dim intType As Integer
Dim strXMID As String
Dim strFileName As String
Dim i As Integer, j As Integer, l As Integer
Dim arrKSMC() As String '按科室导出时的列标题
Dim arrKSMC_XX() As String
Dim arrXXTitle() As String '按项目导出时的列标题
Dim arrXXMC() As String
Dim arrDXPYSX() As String
Dim arrXXID() As String
Dim arrXXPYSX() As String
Dim arrXXType() As Integer
Dim intXXIndex As Integer
Dim blnHave As Boolean
Dim blnSel As Boolean
Dim strYYID As String
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -