📄 费用汇总查询.frm
字号:
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "镜检费"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 15
Left = 3690
TabIndex = 12
Top = 7080
Visible = 0 'False
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "理疗费"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 14
Left = 9420
TabIndex = 11
Top = 6495
Visible = 0 'False
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "放疗费"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 13
Left = 6555
TabIndex = 10
Top = 6480
Visible = 0 'False
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "婴儿费"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 12
Left = 3690
TabIndex = 9
Top = 6480
Visible = 0 'False
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "化验费"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 11
Left = 4530
TabIndex = 8
Top = 4365
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "120车费"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 10
Left = 390
TabIndex = 7
Top = 4350
Width = 1335
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "其它费"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 9
Left = 4560
TabIndex = 6
Top = 3660
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "输血费"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 5
Left = 4560
TabIndex = 5
Top = 2265
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "手术费"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 4
Left = 555
TabIndex = 4
Top = 2265
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "处置费"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 3
Left = 4560
TabIndex = 3
Top = 1575
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "药 费"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 2
Left = 555
TabIndex = 2
Top = 1575
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "取暖费"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 1
Left = 4560
TabIndex = 1
Top = 885
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "住院费"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 0
Left = 555
TabIndex = 0
Top = 885
Width = 1020
End
End
Attribute VB_Name = "frmPatientCollectQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
CxZyh = ""
Unload Me
frmPatientQuery.Enabled = True
frmPatientQuery.Show
End Sub
Private Sub Command2_Click()
Dim U As String
Dim u1 As String
Dim u2 As String
Dim I As Integer
Dim j As Integer
Printer.PaperSize = 256
Printer.Height = 8000
Printer.Width = 100000
Printer.Font = "宋体"
Printer.FontSize = 15
Printer.Print " 患者费用汇总清单"
Printer.FontSize = 10.5
Printer.Print " ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━"
Printer.Print
Printer.Print " 打印时间：" + CStr(Date) + " " + CStr(Time) + " 患者住院号：" + CxZyh
U = "┏━━━━┯━━━━━━━━━━┯━━━━┯━━━━━━━━━━┯━━━━┯━━━━━━━━━━┓"
u2 = "┠────┼──────────┼────┼──────────┼────┼──────────┨"
Printer.Print U
For I = 0 To 5
u1 = "┃ "
For j = 0 To 2
u1 = u1 + Space(6 - DxLen(Label1(j + 3 * I).Caption)) + Label1(j + 3 * I).Caption + " │" + Space(20 - DxLen(Text1(j + I * 3).Text)) + Text1(j + I * 3).Text
If j = 2 Then
u1 = u1 + "┃"
Else
u1 = u1 + "│ "
End If
Next j
Printer.Print u1
Printer.Print u2
Next I
u1 = "┃ 其 它 │" + Space(20 - DxLen(Text1(18).Text)) + Text1(18).Text + "│ │ │ │ ┃"
U = "┗━━━━┷━━━━━━━━━━┷━━━━┷━━━━━━━━━━┷━━━━┷━━━━━━━━━━┛"
Printer.Print u1
Printer.Print U
U = " 预交金：" + Text1(19).Text + " 使用费用：" + Text1(20).Text + " 剩余费用：" + Text1(21).Text + " 制表人：" + CzyID
Printer.Print U
Printer.EndDoc
End Sub
Private Sub Form_Load()
Dim rs As Recordset
Dim CII(42) As Double
Dim I As Integer
For I = 0 To 21
Text1(I).Text = ""
Next I
Set rs = DB.OpenRecordset("SELECT * FROM ZY_ZYHZFY,XM_TABLE WHERE LEFT(ZY_ZYHZFY.XMDM,2)=LEFT(XM_TABLE.XM_ID,2) AND ZY_ID='" + Trim(CxZyh) + "'")
While Not rs.EOF
CII(Val(Left(Trim(rs!JSBZ), 2))) = CII(Val(Left(Trim(rs!JSBZ), 2))) + rs!ZJE
rs.MoveNext
Wend
rs.Close
For I = 1 To 19
If CII(I) <> 0 Then
Text1(I - 1).Text = Format(CStr(CII(I)), "0.00")
End If
Next I
Set rs = DB.OpenRecordset("SELECT * FROM ZY_IN_OUT WHERE ZY_ID='" + Trim(CxZyh) + "'")
If Not rs.EOF Then
Text1(19).Text = CStr(rs!premoney)
Text1(20).Text = CStr(rs!usemoney)
Text1(21).Text = CStr(rs!RESTMONEY)
End If
rs.Close
End Sub
Private Sub Text1_DblClick(Index As Integer)
If Index > 19 Then
Exit Sub
End If
frmPatientQuery.Combo1.ListIndex = Index
frmPatientQuery.Data1.RecordSource = "SELECT MZFLOW AS 流水号,xmmx_table.xm_name AS 项目名称,SKRQ AS 收款日期,ZJE AS 项目收费,xm_sl as 项目数量,XM_DW AS 项目单位 FROM ZY_ZYHZFY LEFT JOIN XMMX_TABLE ON ZY_ZYHZFY.XMDM=XMMX_TABLE.XM_ID WHERE ZY_ID='" + Trim(CxZyh) + "' AND EXISTS (SELECT * FROM XM_TABLE WHERE JSBZ='" + Trim(Left(frmPatientQuery.Combo1.Text, 2)) + "' AND LEFT(ZY_ZYHZFY.XMDM,2)=LEFT(XM_TABLE.XM_ID,2)) order by skrq"
frmPatientQuery.Tag = Label1(Index).Caption
'frmPatientQuery.Command9_Click
Command1_Click
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -