frmjbqctj.frm
来自「本系统可用于医院和专业体检中心的健康体检管理」· FRM 代码 · 共 1,259 行 · 第 1/4 页
FRM
1,259 行
Top = 90
Width = 8955
Begin MSComctlLib.ListView lvwJG
Height = 3885
Left = 120
TabIndex = 3
Top = 270
Width = 8685
_ExtentX = 15319
_ExtentY = 6853
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = 16777152
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 = 36
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "疾病名称"
Object.Width = 2470
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "选择人数"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 2
Text = "患病人数"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "患病人数%"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "0-29男"
Object.Width = 1587
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "0-29男%"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 6
Text = "0-29女"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 7
Text = "0-29女%"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 8
Text = "30-39男"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(10) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 9
Text = "30-39男%"
Object.Width = 2028
EndProperty
BeginProperty ColumnHeader(11) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 10
Text = "30-39女"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(12) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 11
Text = "30-39女%"
Object.Width = 2028
EndProperty
BeginProperty ColumnHeader(13) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 12
Text = "40-49男"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(14) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 13
Text = "40-49男%"
Object.Width = 2028
EndProperty
BeginProperty ColumnHeader(15) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 14
Text = "40-49女"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(16) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 15
Text = "40-49女%"
Object.Width = 2028
EndProperty
BeginProperty ColumnHeader(17) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 16
Text = "50-59男"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(18) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 17
Text = "50-59男%"
Object.Width = 2028
EndProperty
BeginProperty ColumnHeader(19) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 18
Text = "50-59女"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(20) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 19
Text = "50-59女%"
Object.Width = 2028
EndProperty
BeginProperty ColumnHeader(21) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 20
Text = "60-69男"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(22) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 21
Text = "60-69男%"
Object.Width = 2028
EndProperty
BeginProperty ColumnHeader(23) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 22
Text = "60-69女"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(24) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 23
Text = "60-69女%"
Object.Width = 2028
EndProperty
BeginProperty ColumnHeader(25) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 24
Text = "70-79男"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(26) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 25
Text = "70-79男%"
Object.Width = 2028
EndProperty
BeginProperty ColumnHeader(27) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 26
Text = "70-79女"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(28) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 27
Text = "70-79女%"
Object.Width = 2028
EndProperty
BeginProperty ColumnHeader(29) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 28
Text = "80-89男"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(30) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 29
Text = "80-89男%"
Object.Width = 2028
EndProperty
BeginProperty ColumnHeader(31) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 30
Text = "80-89女"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(32) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 31
Text = "80-89女%"
Object.Width = 2028
EndProperty
BeginProperty ColumnHeader(33) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 32
Text = "90-100男"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(34) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 33
Text = "90-100男%"
Object.Width = 2293
EndProperty
BeginProperty ColumnHeader(35) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 34
Text = "90-100女"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(36) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 35
Text = "90-100女%"
Object.Width = 2293
EndProperty
End
End
Begin VB.Frame Frame8
BackColor = &H00FFFFC0&
Caption = "人数统计"
Height = 4875
Left = 3630
TabIndex = 0
Top = 4440
Width = 8955
Begin MSChart20Lib.MSChart MSChart1
Height = 4575
Left = 30
OleObjectBlob = "FrmJBQCTJ.frx":1982
TabIndex = 1
Top = 270
Width = 8895
End
End
End
Attribute VB_Name = "FrmJBQCTJ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim arrYYID()
Dim arrResult()
Dim arrBHMC()
Dim arrBHJYDMID()
Dim m_lngSelectedPersons() As Long
Dim m_lngSelectedPersons_Male() As Long
Dim m_lngSelectedPersons_Female() As Long
Dim mintBHCount As Integer '选择的病患数目
Dim mlngBRCount As Long '符合条件的全部体检人员数目
Dim mlngBRCount_Male As Long '
Dim mlngBRCount_Female As Long
Dim mblQuery As Boolean '标识是否已查找过
Private Sub ChkNone_Click()
Dim i As Integer
If ChkNone.Value = vbChecked Then
ChkTotal.Value = vbUnchecked
For i = 1 To Me.lvwBH.ListItems.Count
lvwBH.ListItems(i).Checked = False
Next i
End If
mblQuery = False
End Sub
Private Sub ChkTotal_Click()
Dim i As Integer
If ChkTotal.Value = vbChecked Then
ChkNone.Value = vbUnchecked
For i = 1 To Me.lvwBH.ListItems.Count
lvwBH.ListItems(i).Checked = True
Next i
End If
mblQuery = False
End Sub
Private Sub CmbTJDW_Change()
mblQuery = False
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdExport_Click()
Call PrintAndExport(False)
End Sub
Private Sub cmdPrint_Click()
Call PrintAndExport(True)
End Sub
Private Sub cmdQuery_Click()
On Error GoTo ErrMsg
Dim Status
Dim i, K As Integer
Dim strSQL As String
Dim rstemp As ADODB.Recordset
Dim strCondition As String
Me.MousePointer = vbHourglass
mintBHCount = 0
lvwJG.ListItems.Clear
'查找符合条件的所有体检人员的数目,为计算百分比做准备
' Set rsTemp = New ADODB.Recordset
' strSQL = "select Count(*) as 体检人数 from SET_GRXX"
strCondition = "QRDJ=1" & " and TJRQ between '" & dtpStart.Value _
& "' and '" & dtpEnd.Value & " 23:59:00'"
If CmbTJDW.Text <> "" Then
strCondition = strCondition & " and YYID='" & arrYYID(CmbTJDW.ListIndex) & "'"
End If
' strSQL = strSQL & " where " & strCondition
' rsTemp.Open strSQL, GCon, adOpenStatic, adLockReadOnly
' mlngBRCount = rsTemp("体检人数")
' rsTemp.Close
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?