📄 linshi.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form linshi
BorderStyle = 1 'Fixed Single
Caption = "铁东区妇幼保健院信息管理系统"
ClientHeight = 5475
ClientLeft = 60
ClientTop = 345
ClientWidth = 7440
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5475
ScaleWidth = 7440
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command9
Caption = "3岁"
Height = 375
Left = 4080
TabIndex = 29
Top = 1920
Width = 855
End
Begin VB.CommandButton Command8
Caption = "2.5岁"
Height = 375
Left = 2880
TabIndex = 28
Top = 1920
Width = 855
End
Begin VB.CommandButton Command7
Caption = "2岁"
Height = 375
Left = 1680
TabIndex = 27
Top = 1920
Width = 855
End
Begin VB.CommandButton Command6
Caption = "1岁"
Height = 375
Left = 5280
TabIndex = 26
Top = 1200
Width = 855
End
Begin VB.CommandButton Command5
Caption = "1.5岁"
Height = 375
Left = 360
TabIndex = 25
Top = 1920
Width = 855
End
Begin VB.CommandButton Command4
Caption = "9月"
Height = 375
Left = 4080
TabIndex = 24
Top = 1200
Width = 855
End
Begin VB.CommandButton Command3
Caption = "6月"
Height = 375
Left = 2880
TabIndex = 23
Top = 1200
Width = 855
End
Begin VB.CommandButton Command2
Caption = "3个月"
Height = 375
Left = 1680
TabIndex = 22
Top = 1200
Width = 855
End
Begin VB.CommandButton Command1
Caption = "42天"
Height = 375
Left = 360
TabIndex = 3
Top = 1200
Width = 975
End
Begin MSComCtl2.DTPicker sj2
Height = 375
Left = 2880
TabIndex = 2
Top = 480
Width = 1455
_ExtentX = 2566
_ExtentY = 661
_Version = 393216
Format = 61800449
CurrentDate = 38634
End
Begin MSComCtl2.DTPicker sj1
Height = 375
Left = 960
TabIndex = 1
Top = 480
Width = 1455
_ExtentX = 2566
_ExtentY = 661
_Version = 393216
Format = 61800449
CurrentDate = 38634
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "女总人数"
Height = 180
Left = 480
TabIndex = 21
Top = 3720
Width = 720
End
Begin VB.Label Label18
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 1440
TabIndex = 20
Top = 3720
Width = 90
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "正常"
Height = 180
Left = 2040
TabIndex = 19
Top = 3720
Width = 360
End
Begin VB.Label Label16
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 2640
TabIndex = 18
Top = 3720
Width = 90
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 3840
TabIndex = 17
Top = 3720
Width = 90
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "可疑"
Height = 180
Left = 3240
TabIndex = 16
Top = 3720
Width = 360
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "异常"
Height = 180
Left = 4320
TabIndex = 15
Top = 3720
Width = 360
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 4920
TabIndex = 14
Top = 3720
Width = 90
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 4920
TabIndex = 13
Top = 3240
Width = 90
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "异常"
Height = 180
Left = 4320
TabIndex = 12
Top = 3240
Width = 360
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "可疑"
Height = 180
Left = 3240
TabIndex = 11
Top = 3240
Width = 360
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 3840
TabIndex = 10
Top = 3240
Width = 90
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 2640
TabIndex = 9
Top = 3240
Width = 90
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "正常"
Height = 180
Left = 2040
TabIndex = 8
Top = 3240
Width = 360
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 1440
TabIndex = 7
Top = 3240
Width = 90
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "男总人数"
Height = 180
Left = 480
TabIndex = 6
Top = 3240
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 1200
TabIndex = 5
Top = 2760
Width = 90
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "总人数"
Height = 180
Left = 480
TabIndex = 4
Top = 2760
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "时间"
Height = 180
Left = 240
TabIndex = 0
Top = 600
Width = 360
End
End
Attribute VB_Name = "linshi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
tian = "42天"
Dim sql As String
sql = "select * from 儿保检查信息 where 时间 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼儿大小='" + Trim(tian) + "'"
Dim rs As New ADODB.Recordset
rs.Open sql, db
If Not rs.EOF Then
'总人数
Dim sql1 As String
sql1 = "select count(id) as 总人数 from 儿保检查信息 where 时间 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼儿大小='" + Trim(tian) + "'"
Dim rs1 As New ADODB.Recordset
rs1.Open sql1, db
Label3.Caption = rs1("总人数")
'男总人数
Dim sql2 As String
sql2 = "select count(id) as 总人数2 from 儿保检查信息 where 时间 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼儿大小='" + Trim(tian) + "' and 性别='男'"
Dim rs2 As New ADODB.Recordset
rs2.Open sql2, db
Label5.Caption = rs2("总人数2")
'男正常总人数
Dim sql3 As String
sql3 = "select count(*) as 总人数3 from 儿保检查信息 where 时间 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼儿大小='" + Trim(tian) + "' and 性别='男' and 智测>='85'"
Dim rs3 As New ADODB.Recordset
rs3.Open sql3, db
Label7.Caption = rs3("总人数3")
'男正常可疑总人数
Dim sql4 As String
sql4 = "select count(*) as 总人数4 from 儿保检查信息 where 时间 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼儿大小='" + Trim(tian) + "' and 性别='男' and 智测>='70' and 智测<='84'"
Dim rs4 As New ADODB.Recordset
rs4.Open sql4, db
Label8.Caption = rs4("总人数4")
'男正常异常总人数
Dim sql5 As String
sql5 = "select count(*) as 总人数5 from 儿保检查信息 where 时间 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼儿大小='" + Trim(tian) + "' and 性别='男' and 智测<'70' and 智测<>'0'"
Dim rs5 As New ADODB.Recordset
rs5.Open sql5, db
Label11.Caption = rs5("总人数5")
'女总人数
Dim sql6 As String
sql6 = "select count(id) as 总人数6 from 儿保检查信息 where 时间 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼儿大小='" + Trim(tian) + "' and 性别='女'"
Dim rs6 As New ADODB.Recordset
rs6.Open sql6, db
Label18.Caption = rs6("总人数6")
'女正常总人数
Dim sql7 As String
sql7 = "select count(*) as 总人数7 from 儿保检查信息 where 时间 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼儿大小='" + Trim(tian) + "' and 性别='女' and 智测>='85'"
Dim rs7 As New ADODB.Recordset
rs7.Open sql7, db
Label16.Caption = rs7("总人数7")
'女可疑总人数
Dim sql8 As String
sql8 = "select count(*) as 总人数8 from 儿保检查信息 where 时间 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼儿大小='" + Trim(tian) + "' and 性别='女' and 智测>='70' and 智测<='84'"
Dim rs8 As New ADODB.Recordset
rs8.Open sql8, db
Label15.Caption = rs8("总人数8")
'女正常异常总人数
Dim sql9 As String
sql9 = "select count(*) as 总人数9 from 儿保检查信息 where 时间 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼儿大小='" + Trim(tian) + "' and 性别='女' and 智测<'70' and 智测<>'0'"
Dim rs9 As New ADODB.Recordset
rs9.Open sql9, db
Label12.Caption = rs9("总人数9")
Else
b1 = MsgBox("没有找到指定记录？", vbQuestion, "系统提示！")
Exit Sub
End If
End Sub
Private Sub Command2_Click()
tian = "6月"
Dim sql As String
sql = "select * from 儿保检查信息 where 时间 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼儿大小='" + Trim(tian) + "'"
Dim rs As New ADODB.Recordset
rs.Open sql, db
If Not rs.EOF Then
'总人数
Dim sql1 As String
sql1 = "select count(id) as 总人数 from 儿保检查信息 where 时间 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼儿大小='" + Trim(tian) + "'"
Dim rs1 As New ADODB.Recordset
rs1.Open sql1, db
Label3.Caption = rs1("总人数")
'男总人数
Dim sql2 As String
sql2 = "select count(id) as 总人数2 from 儿保检查信息 where 时间 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼儿大小='" + Trim(tian) + "' and 性别='男'"
Dim rs2 As New ADODB.Recordset
rs2.Open sql2, db
Label5.Caption = rs2("总人数2")
'男正常总人数
Dim sql3 As String
sql3 = "select count(*) as 总人数3 from 儿保检查信息 where 时间 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼儿大小='" + Trim(tian) + "' and 性别='男' and 智测>='85'"
Dim rs3 As New ADODB.Recordset
rs3.Open sql3, db
Label7.Caption = rs3("总人数3")
'男正常可疑总人数
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -