📄 linshi.frm

📁 小型医院管理
💻 FRM
📖 第 1 页 / 共 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 Command3_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 Command4_Click()

tian = "9月"

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 Command5_Click()

tian = "1.5岁"

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 Command6_Click()







tian = "1岁"

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("总人数")
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -