📄 月收入对比查询.frm
字号:
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 405
Index = 3
Left = 7170
TabIndex = 24
Top = 600
Width = 1230
End
Begin VB.Label Label1
Caption = "五 月"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 405
Index = 4
Left = 150
TabIndex = 23
Top = 960
Width = 1230
End
Begin VB.Label Label1
Caption = "六 月"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 405
Index = 5
Left = 2520
TabIndex = 22
Top = 960
Width = 1230
End
Begin VB.Label Label1
Caption = "七 月"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 405
Index = 6
Left = 4830
TabIndex = 21
Top = 990
Width = 1230
End
Begin VB.Label Label1
Caption = "八 月"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 405
Index = 7
Left = 7170
TabIndex = 20
Top = 975
Width = 1230
End
Begin VB.Label Label1
Caption = "九 月"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 405
Index = 8
Left = 150
TabIndex = 19
Top = 1335
Width = 1230
End
Begin VB.Label Label1
Caption = "十 月"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 405
Index = 9
Left = 2505
TabIndex = 18
Top = 1335
Width = 1230
End
Begin VB.Label Label1
Caption = "十一月"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 405
Index = 10
Left = 4770
TabIndex = 17
Top = 1335
Width = 1230
End
Begin VB.Label Label1
Caption = "十二月"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 405
Index = 11
Left = 7110
TabIndex = 16
Top = 1335
Width = 1230
End
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 1 'ODBCCursor
DefaultType = 1 'UseODBC
Exclusive = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 420
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3120
Visible = 0 'False
Width = 1380
End
Begin MSChartLib.MSChart MSChart1
Height = 6570
Left = -165
OleObjectBlob = "月收入对比查询.frx":0000
TabIndex = 0
TabStop = 0 'False
Top = 90
Width = 11775
End
End
Attribute VB_Name = "frmChargeCompare"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If DS1 = "1" Then
MSChart1.TitleText = " " + CStr(Val(Mid(MSChart1.TitleText, 2, 4)) - 1) + "年 住院收入月对比查询 "
Data1.RecordSource = "ZY_SRyTJ '" + Mid(MSChart1.TitleText, 2, 4) + "'"
Data1.Refresh
Data1.Recordset.MoveFirst
i = 0
ssmmm = 0
While Not Data1.Recordset.EOF
Label2(i).Caption = Data1.Recordset!v
MSChart1.Row = i + 1
MSChart1.Data = Data1.Recordset!v
ssmmm = ssmmm + Val(Data1.Recordset!v)
i = i + 1
Data1.Recordset.MoveNext
Wend
Label8 = CStr(Val(Mid(MSChart1.TitleText, 2, 4)) - 1) + "-12-26 至 " + Mid(MSChart1.TitleText, 2, 4) + "-12-25 收入合计：" + CStr(Format(ssmmm, "0.00"))
End If
If DS1 = "2" Then
MSChart1.TitleText = " " + CStr(Val(Mid(MSChart1.TitleText, 2, 4)) - 1) + "年 门诊月收入对比查询 "
Data1.RecordSource = "mzsr_yTJ '" + Mid(MSChart1.TitleText, 2, 4) + "'"
Data1.Refresh
Data1.Recordset.MoveFirst
i = 0
ssmmm = 0
While Not Data1.Recordset.EOF
Label2(i).Caption = Data1.Recordset!v
MSChart1.Row = i + 1
MSChart1.Data = Data1.Recordset!v
ssmmm = ssmmm + Val(Data1.Recordset!v)
i = i + 1
Data1.Recordset.MoveNext
Wend
Label8 = CStr(Val(Mid(MSChart1.TitleText, 2, 4)) - 1) + "-12-26 至 " + Mid(MSChart1.TitleText, 2, 4) + "-12-25 收入合计：" + CStr(Format(ssmmm, "0.00"))
End If
If DS1 = "3" Then
MSChart1.TitleText = " " + CStr(Val(Mid(MSChart1.TitleText, 2, 4)) - 1) + "年 全院收入月对比查询 "
Data1.RecordSource = "ZY_SRyTJ '" + Mid(MSChart1.TitleText, 2, 4) + "'"
Data1.Refresh
Data1.Recordset.MoveFirst
i = 0
ssmmm = 0
While Not Data1.Recordset.EOF
Label2(i).Caption = Data1.Recordset!v
MSChart1.Row = i + 1
MSChart1.Data = Data1.Recordset!v
ssmmm = ssmmm + Val(Data1.Recordset!v)
i = i + 1
Data1.Recordset.MoveNext
Wend
Data1.RecordSource = "mzsr_yTJ '" + Mid(MSChart1.TitleText, 2, 4) + "'"
Data1.Refresh
Data1.Recordset.MoveFirst
i = 0
While Not Data1.Recordset.EOF
Label2(i).Caption = Val(Label2(i)) + Val(Data1.Recordset!v)
MSChart1.Row = i + 1
MSChart1.Data = Val(Label2(i))
ssmmm = ssmmm + Val(Data1.Recordset!v)
i = i + 1
Data1.Recordset.MoveNext
Wend
Label8 = CStr(Val(Mid(MSChart1.TitleText, 2, 4)) - 1) + "-12-26 至 " + Mid(MSChart1.TitleText, 2, 4) + "-12-25 收入合计：" + CStr(Format(ssmmm, "0.00"))
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
If DS1 = "1" Then
MSChart1.TitleText = " " + CStr(Val(Mid(MSChart1.TitleText, 2, 4)) + 1) + "年 住院收入月对比查询 "
Data1.RecordSource = "ZY_SRyTJ '" + Mid(MSChart1.TitleText, 2, 4) + "'"
Data1.Refresh
Data1.Recordset.MoveFirst
i = 0
ssmmm = 0
While Not Data1.Recordset.EOF
Label2(i).Caption = Data1.Recordset!v
MSChart1.Row = i + 1
MSChart1.Data = Data1.Recordset!v
ssmmm = ssmmm + Val(Data1.Recordset!v)
i = i + 1
Data1.Recordset.MoveNext
Wend
Label8 = CStr(Val(Mid(MSChart1.TitleText, 2, 4)) - 1) + "-12-26 至 " + Mid(MSChart1.TitleText, 2, 4) + "-12-25 收入合计：" + CStr(Format(ssmmm, "0.00"))
End If
If DS1 = "2" Then
MSChart1.TitleText = " " + CStr(Val(Mid(MSChart1.TitleText, 2, 4)) + 1) + "年 门诊月收入对比查询 "
Data1.RecordSource = "MZSR_yTJ '" + Mid(MSChart1.TitleText, 2, 4) + "'"
Data1.Refresh
Data1.Recordset.MoveFirst
i = 0
ssmmm = 0
While Not Data1.Recordset.EOF
Label2(i).Caption = Data1.Recordset!v
MSChart1.Row = i + 1
MSChart1.Data = Data1.Recordset!v
ssmmm = ssmmm + Val(Data1.Recordset!v)
i = i + 1
Data1.Recordset.MoveNext
Wend
Label8 = CStr(Val(Mid(MSChart1.TitleText, 2, 4)) - 1) + "-12-26 至 " + Mid(MSChart1.TitleText, 2, 4) + "-12-25 收入合计：" + CStr(Format(ssmmm, "0.00"))
End If
If DS1 = "3" Then
MSChart1.TitleText = " " + CStr(Val(Mid(MSChart1.TitleText, 2, 4)) + 1) + "年 全院收入月对比查询 "
Data1.RecordSource = "ZY_SRyTJ '" + Mid(MSChart1.TitleText, 2, 4) + "'"
Data1.Refresh
Data1.Recordset.MoveFirst
i = 0
ssmmm = 0
While Not Data1.Recordset.EOF
Label2(i).Caption = Data1.Recordset!v
MSChart1.Row = i + 1
MSChart1.Data = Data1.Recordset!v
ssmmm = ssmmm + Val(Data1.Recordset!v)
i = i + 1
Data1.Recordset.MoveNext
Wend
Data1.RecordSource = "MZSR_yTJ '" + Mid(MSChart1.TitleText, 2, 4) + "'"
Data1.Refresh
Data1.Recordset.MoveFirst
i = 0
'ssmmm = 0
While Not Data1.Recordset.EOF
Label2(i) = Val(Label2(i)) + Val(Data1.Recordset!v)
MSChart1.Row = i + 1
MSChart1.Data = Val(Label2(i))
ssmmm = ssmmm + Val(Data1.Recordset!v)
i = i + 1
Data1.Recordset.MoveNext
Wend
Label8 = CStr(Val(Mid(MSChart1.TitleText, 2, 4)) - 1) + "-12-26 至 " + Mid(MSChart1.TitleText, 2, 4) + "-12-25 收入合计：" + CStr(Format(ssmmm, "0.00"))
End If
End Sub
Private Sub Command4_Click()
Me.PrintForm
End Sub
Private Sub Form_Load()
Dim i As Integer
MSChart1.RowCount = 12
For i = 1 To 12
MSChart1.Row = i
MSChart1.RowLabel = CStr(i)
Next i
Data1.DatabaseName = MyDatabase
Data1.Connect = MyConnect
If DS1 = "1" Then
MSChart1.TitleText = " " + CStr(Val(Year(Date) - 1)) + "年 住院收入月对比查询 "
End If
If DS1 = "2" Then
MSChart1.TitleText = " " + CStr(Val(Year(Date) - 1)) + "年 门诊月收入对比查询 "
End If
If DS1 = "3" Then
MSChart1.TitleText = " " + CStr(Val(Year(Date) - 1)) + "年 全院月收入对比查询 "
End If
Call Command3_Click
End Sub
Private Sub Form_Unload(Cancel As Integer)
Form3.Enabled = True
Form3.SetFocus
End Sub
Private Sub VScroll1_Change()
End Sub
Private Sub VScroll2_Change()
Label5.Caption = CStr(Date + VScroll2.Value)
End Sub
Private Sub VScroll3_Change()
Label7.Caption = CStr(CDate(CStr(Year(Date) - 1) + "-12-15") + VScroll3.Value)
End Sub
Private Sub VScroll4_Change()
Label7.Caption = CStr(DateAdd("M", VScroll4.Value, CDate(CStr(Year(Date) - 1) + "-12-15")))
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -