📄 住院收入日汇总表.frm
字号:
Hang = 20
Set r1 = db.OpenRecordset("SELECT CZY_NAME FROM CZY_TABLE WHERE CZY_ID='" + CZYID + "'")
If Not r1.EOF Then
cname = r1!CZY_NAME
End If
r1.Close
U1 = "┌────┬────┬───────┬───────┬────┬────┬───────┬───────┬────┬────┬───────┬───────┐"
U2 = "├────┼────┼───────┼───────┼────┼────┼───────┼───────┼────┼────┼───────┼───────┤"
U3 = "└────┴────┴───────┴───────┴────┴────┴───────┴───────┴────┴────┴───────┴───────┘"
U4 = "│住 院 号│患者姓名│ 预交金额 │ 使用金额 │住 院 号│患者姓名│ 预交金额 │ 使用金额 │住 院 号│患者姓名│ 预交金额 │ 使用金额 │"
Set rs = db.OpenRecordset("SELECT ZY_ID,ZY_NAME,PREMONEY,useMONEY FROM ZY_IN_OUT1 where prndate=cdate('" + Text1.Text + "')")
U5 = " " + Left(Text1.Text, 4) + "年" + Mid(Text1.Text, 6, 2) + "月" + Mid(Text1.Text, 9, 2) + "日 在院病人预交金及医药费明细"
If rs.EOF Then
rs.Close
MsgBox "无可打印数据"
Exit Sub
End If
Printer.ScaleMode = 6
Printer.PaperSize = 39
Printer.Font = "宋体"
Printer.FontSize = 17
U = 0
Printer.Print
Printer.Print U5
Printer.FontSize = 8
Printer.Print
Printer.Print " 打印时间" + CStr(Date) + " " + CStr(Time) + " 操作员：" + CZYID + "-" + cname
Hang = 35
P = 0
U = 0
While Not rs.EOF
If H = 0 Then
Printer.Print U1
Printer.Print U4
Printer.Print U2
H = H + 1
End If
pu = "│"
For i = 1 To 3
If Not rs.EOF Then
pu = pu + rs!ZY_ID + "│" + Space(8 - DxLen(DxLeft(rs!zy_name, 8))) + DxLeft(rs!zy_name, 8) + "│" + _
Space(14 - DxLen(DxLeft(CStr(Format(rs!premoney, "0.00")), 14))) + DxLeft(CStr(Format(rs!premoney, "0.00")), 14) + "│" + _
Space(14 - DxLen(DxLeft(CStr(Format(rs!usemoney, "0.00")), 14))) + DxLeft(CStr(Format(rs!usemoney, "0.00")), 14) + "│"
P = P + rs!premoney
U = U + rs!usemoney
rs.MoveNext
Else
pu = pu + " │ │ │ │"
End If
Next i
Printer.Print pu
H = H + 1
If H = Hang Then
Printer.Print U3
H = 0
Printer.NewPage
Hang = 40
Else
Printer.Print U2
End If
Wend
If H = 0 Then
Printer.Print U1
End If
Printer.Print "│ 合 计 │ │" + Space(14 - DxLen(DxLeft(CStr(Format(P, "0.00")), 14))) + DxLeft(CStr(Format(P, "0.00")), 14) + "│" + _
Space(14 - DxLen(DxLeft(CStr(Format(U, "0.00")), 14))) + DxLeft(CStr(Format(U, "0.00")), 14) + "│" + _
" │ │ │ │ │ │ │ │"
Printer.Print U3
Printer.EndDoc
rs.Close
H = 0
MsgBox "打印结束"
End Sub
Private Sub Command4_Click()
Dim rs As Recordset
Dim r1 As Recordset
Dim i As Integer
Dim U1 As String
Dim U2 As String
Dim U3 As String
Dim U4 As String
Dim U5 As String
Dim P As Currency
Dim U As Currency
Dim R As Currency
Dim Hang As Integer
Dim H As Integer
Dim cname As String
Hang = 20
Set r1 = db.OpenRecordset("SELECT CZY_NAME FROM CZY_TABLE WHERE CZY_ID='" + CZYID + "'")
If Not r1.EOF Then
cname = r1!CZY_NAME
End If
r1.Close
H = 0
U1 = "┌─────┬─────┬───────┐"
U2 = "├─────┼─────┼───────┤"
U3 = "└─────┴─────┴───────┘"
U4 = "│ 住 院 号 │ 患者姓名 │ 剩余金额 │"
Set rs = db.OpenRecordset("SELECT F_ZYID AS ZY_ID,HZXM AS ZY_NAME,F_REST AS RESTMONEY FROM ZY_CYHZFY1 WHERE prndate=cdate('" + Text1.Text + "') AND F_REST<0")
U5 = " 应收医疗款明细"
If rs.EOF Then
rs.Close
MsgBox "无可打印数据！"
Exit Sub
End If
Printer.ScaleMode = 6
Printer.PaperSize = 1
Printer.Font = "宋体"
Printer.FontSize = 16
U = 0
Printer.Print
Printer.Print U5
Printer.FontSize = 10.5
Printer.Print
Printer.Print " " + CZYID + "-" + cname + " " + Text1.Text
Hang = 20
P = 0
U = 0
R = 0
While Not rs.EOF
If H = 0 Then
Printer.Print U1
Printer.Print U4
Printer.Print U2
H = H + 1
End If
Printer.Print "│ " + rs!ZY_ID + " │" + Space(10 - DxLen(DxLeft(rs!zy_name, 10))) + DxLeft(rs!zy_name, 10) + "│" + _
Space(14 - DxLen(DxLeft(CStr(Format(Abs(rs!RESTMONEY), "0.00")), 14))) + DxLeft(CStr(Format(Abs(rs!RESTMONEY), "0.00")), 14) + "│"
R = R + rs!RESTMONEY
H = H + 1
If H = Hang Then
Printer.Print U3
H = 0
Printer.NewPage
Hang = 25
Else
Printer.Print U2
End If
rs.MoveNext
Wend
If H = 0 Then
Printer.Print U1
End If
Printer.Print "│ 合 计 │ │" + _
Space(14 - DxLen(DxLeft(CStr(Format(Abs(R), "0.00")), 14))) + DxLeft(CStr(Format(Abs(R), "0.00")), 14) + "│"
Printer.Print U3
Printer.EndDoc
rs.Close
H = 0
MsgBox "打印结束"
End Sub
Private Sub Command5_Click()
Dim rs As Recordset
Dim r1 As Recordset
Dim i As Integer
Dim U1 As String
Dim U2 As String
Dim U3 As String
Dim U4 As String
Dim U5 As String
Dim P As Currency
Dim U As Currency
Dim R As Currency
Dim Hang As Integer
Dim H As Integer
Dim cname As String
Hang = 20
Set r1 = db.OpenRecordset("SELECT CZY_NAME FROM CZY_TABLE WHERE CZY_ID='" + CZYID + "'")
If Not r1.EOF Then
cname = r1!CZY_NAME
End If
r1.Close
H = 0
U1 = "┌─────┬─────┬───────┐"
U2 = "├─────┼─────┼───────┤"
U3 = "└─────┴─────┴───────┘"
U4 = "│ 住 院 号 │ 患者姓名 │ 剩余金额 │"
Set rs = db.OpenRecordset("SELECT F_ZYID AS ZY_ID,HZXM AS ZY_NAME,F_REST AS RESTMONEY FROM ZY_CYHZFY1 WHERE prndate=cdate('" + Text1.Text + "') AND F_REST>0")
U5 = " 其它应付款(出院患者存款)明细"
If rs.EOF Then
rs.Close
MsgBox "无可打印数据！"
Exit Sub
End If
Printer.ScaleMode = 6
Printer.PaperSize = 1
Printer.Font = "宋体"
Printer.FontSize = 14
U = 0
Printer.Print
Printer.Print U5
Printer.FontSize = 10.5
Printer.Print
Printer.Print " " + CZYID + "-" + cname + " " + Text1.Text
Hang = 20
P = 0
U = 0
R = 0
While Not rs.EOF
If H = 0 Then
Printer.Print U1
Printer.Print U4
Printer.Print U2
H = H + 1
End If
Printer.Print "│ " + rs!ZY_ID + " │" + Space(10 - DxLen(DxLeft(rs!zy_name, 10))) + DxLeft(rs!zy_name, 10) + "│" + _
Space(14 - DxLen(DxLeft(CStr(Format(rs!RESTMONEY, "0.00")), 14))) + DxLeft(CStr(Format(rs!RESTMONEY, "0.00")), 14) + "│"
R = R + rs!RESTMONEY
H = H + 1
If H = Hang Then
Printer.Print U3
H = 0
Printer.NewPage
Hang = 25
Else
Printer.Print U2
End If
rs.MoveNext
Wend
If H = 0 Then
Printer.Print U1
End If
Printer.Print "│ 合 计 │ │" + _
Space(14 - DxLen(DxLeft(CStr(Format(R, "0.00")), 14))) + DxLeft(CStr(Format(R, "0.00")), 14) + "│"
Printer.Print U3
Printer.EndDoc
rs.Close
H = 0
MsgBox "打印结束！"
End Sub
Private Sub Form_Load()
Text1.Text = CStr(Date)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Form3.Enabled = True
Form3.SetFocus
End Sub
Private Sub VScroll1_Change()
Text1.Text = CStr(Date + VScroll1.Value)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -