?? linshi.frm
字號(hào):
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form linshi
BorderStyle = 1 'Fixed Single
Caption = "鐵東區(qū)婦幼保健院信息管理系統(tǒng)"
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個(gè)月"
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 = "女總?cè)藬?shù)"
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 = "男總?cè)藬?shù)"
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 = "總?cè)藬?shù)"
Height = 180
Left = 480
TabIndex = 4
Top = 2760
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "時(shí)間"
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 時(shí)間 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
'總?cè)藬?shù)
Dim sql1 As String
sql1 = "select count(id) as 總?cè)藬?shù) from 兒保檢查信息 where 時(shí)間 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼兒大小='" + Trim(tian) + "'"
Dim rs1 As New ADODB.Recordset
rs1.Open sql1, db
Label3.Caption = rs1("總?cè)藬?shù)")
'男總?cè)藬?shù)
Dim sql2 As String
sql2 = "select count(id) as 總?cè)藬?shù)2 from 兒保檢查信息 where 時(shí)間 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("總?cè)藬?shù)2")
'男正常總?cè)藬?shù)
Dim sql3 As String
sql3 = "select count(*) as 總?cè)藬?shù)3 from 兒保檢查信息 where 時(shí)間 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼兒大小='" + Trim(tian) + "' and 性別='男' and 智測(cè)>='85'"
Dim rs3 As New ADODB.Recordset
rs3.Open sql3, db
Label7.Caption = rs3("總?cè)藬?shù)3")
'男正常可疑總?cè)藬?shù)
Dim sql4 As String
sql4 = "select count(*) as 總?cè)藬?shù)4 from 兒保檢查信息 where 時(shí)間 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼兒大小='" + Trim(tian) + "' and 性別='男' and 智測(cè)>='70' and 智測(cè)<='84'"
Dim rs4 As New ADODB.Recordset
rs4.Open sql4, db
Label8.Caption = rs4("總?cè)藬?shù)4")
'男正常異常總?cè)藬?shù)
Dim sql5 As String
sql5 = "select count(*) as 總?cè)藬?shù)5 from 兒保檢查信息 where 時(shí)間 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼兒大小='" + Trim(tian) + "' and 性別='男' and 智測(cè)<'70' and 智測(cè)<>'0'"
Dim rs5 As New ADODB.Recordset
rs5.Open sql5, db
Label11.Caption = rs5("總?cè)藬?shù)5")
'女總?cè)藬?shù)
Dim sql6 As String
sql6 = "select count(id) as 總?cè)藬?shù)6 from 兒保檢查信息 where 時(shí)間 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("總?cè)藬?shù)6")
'女正常總?cè)藬?shù)
Dim sql7 As String
sql7 = "select count(*) as 總?cè)藬?shù)7 from 兒保檢查信息 where 時(shí)間 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼兒大小='" + Trim(tian) + "' and 性別='女' and 智測(cè)>='85'"
Dim rs7 As New ADODB.Recordset
rs7.Open sql7, db
Label16.Caption = rs7("總?cè)藬?shù)7")
'女可疑總?cè)藬?shù)
Dim sql8 As String
sql8 = "select count(*) as 總?cè)藬?shù)8 from 兒保檢查信息 where 時(shí)間 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼兒大小='" + Trim(tian) + "' and 性別='女' and 智測(cè)>='70' and 智測(cè)<='84'"
Dim rs8 As New ADODB.Recordset
rs8.Open sql8, db
Label15.Caption = rs8("總?cè)藬?shù)8")
'女正常異常總?cè)藬?shù)
Dim sql9 As String
sql9 = "select count(*) as 總?cè)藬?shù)9 from 兒保檢查信息 where 時(shí)間 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼兒大小='" + Trim(tian) + "' and 性別='女' and 智測(cè)<'70' and 智測(cè)<>'0'"
Dim rs9 As New ADODB.Recordset
rs9.Open sql9, db
Label12.Caption = rs9("總?cè)藬?shù)9")
Else
b1 = MsgBox("沒有找到指定記錄？", vbQuestion, "系統(tǒng)提示！")
Exit Sub
End If
End Sub
Private Sub Command2_Click()
tian = "6月"
Dim sql As String
sql = "select * from 兒保檢查信息 where 時(shí)間 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
'總?cè)藬?shù)
Dim sql1 As String
sql1 = "select count(id) as 總?cè)藬?shù) from 兒保檢查信息 where 時(shí)間 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼兒大小='" + Trim(tian) + "'"
Dim rs1 As New ADODB.Recordset
rs1.Open sql1, db
Label3.Caption = rs1("總?cè)藬?shù)")
'男總?cè)藬?shù)
Dim sql2 As String
sql2 = "select count(id) as 總?cè)藬?shù)2 from 兒保檢查信息 where 時(shí)間 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("總?cè)藬?shù)2")
'男正常總?cè)藬?shù)
Dim sql3 As String
sql3 = "select count(*) as 總?cè)藬?shù)3 from 兒保檢查信息 where 時(shí)間 between '" + Trim(sj1.Value) + "' and '" + Trim(sj2.Value) + "' and 幼兒大小='" + Trim(tian) + "' and 性別='男' and 智測(cè)>='85'"
Dim rs3 As New ADODB.Recordset
rs3.Open sql3, db
Label7.Caption = rs3("總?cè)藬?shù)3")
'男正常可疑總?cè)藬?shù)
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -