住院收入日汇总表.frm

这是一个医院管理系统中的院长查询模块

VERSION 5.00
Begin VB.Form frmHospitalAccounting 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "住院管理-报表打印"
   ClientHeight    =   2295
   ClientLeft      =   1140
   ClientTop       =   1995
   ClientWidth     =   6795
   ControlBox      =   0   'False
   Icon            =   "住院收入日汇总表.frx":0000
   LinkTopic       =   "Form24"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   2295
   ScaleWidth      =   6795
   Begin VB.Frame Frame2 
      Height          =   750
      Left            =   75
      TabIndex        =   5
      Top             =   1425
      Width           =   6615
      Begin VB.CommandButton Command1 
         Caption         =   "打 印&P"
         BeginProperty Font 
            Name            =   "隶书"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   390
         Left            =   375
         TabIndex        =   7
         Top             =   210
         Width           =   2475
      End
      Begin VB.CommandButton Command2 
         Cancel          =   -1  'True
         Caption         =   "退 出&Q"
         BeginProperty Font 
            Name            =   "隶书"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   390
         Left            =   3555
         TabIndex        =   6
         Top             =   225
         Width           =   2475
      End
   End
   Begin VB.Frame Frame1 
      Height          =   960
      Left            =   60
      TabIndex        =   1
      Top             =   435
      Width           =   6630
      Begin VB.VScrollBar VScroll1 
         Height          =   360
         Left            =   5430
         Max             =   10000
         Min             =   -10000
         TabIndex        =   4
         Top             =   345
         Width           =   270
      End
      Begin VB.TextBox Text1 
         BackColor       =   &H00C0FFC0&
         BeginProperty Font 
            Name            =   "System"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000C0&
         Height          =   360
         Left            =   3510
         Locked          =   -1  'True
         TabIndex        =   3
         Text            =   "2000-02-25"
         Top             =   345
         Width           =   2025
      End
      Begin VB.Label Label2 
         Caption         =   "请输入汇总日期"
         BeginProperty Font 
            Name            =   "隶书"
            Size            =   15.75
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   375
         Left            =   930
         TabIndex        =   2
         Top             =   360
         Width           =   2340
      End
   End
   Begin VB.Label Label1 
      Caption         =   "住 院 收 入 汇 总 表"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   360
      Left            =   1590
      TabIndex        =   0
      Top             =   90
      Width           =   3675
   End
End
Attribute VB_Name = "frmHospitalAccounting"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
 Dim rs As Recordset
 Dim U As String
 Dim U1 As String
 Dim U2 As String
 Dim U3 As String
 Dim A(20) As Currency
 Dim B(20) As Currency
 Dim C(20) As String
 Dim i As Integer
 Dim FA As String
 Dim FB As String
 Dim cname As String
 Dim lsh As Long
 Dim DATE1 As Date
 DATE1 = CDate(Text1.Text)
 Set rs = db.OpenRecordset("SELECT CZY_NAME FROM CZY_TABLE WHERE CZY_ID='" + CZYID + "'")
  
 cname = rs!CZY_NAME
 rs.Close
 Set rs = db.OpenRecordset("select * from zy_skhz where RBDATE=CDATE('" + Text1.Text + "')")
 If rs.EOF Then
  rs.Close
  MsgBox "今日无可打印数据！"
  Exit Sub
 End If
 lsh = rs!lsh
 For i = 1 To 19
  FA = "A" & CStr(i)
  FB = "B" & CStr(i)
  A(i) = rs.Fields(FA)
  B(i) = rs.Fields(FB)
 Next i
 C(1) = "医疗收入            "
 C(2) = "药品收入            "
 C(3) = "预收医疗款          "
 C(4) = "其它应付款          "
 C(5) = "    ——出院患者存款"
 C(6) = "      ——代扣保险费"
 C(7) = "      ——爱健卡优惠"
 C(8) = "应收在院病人医药费  "
 C(9) = "应收医疗款          "
C(10) = "其他支出            "
C(11) = "      ——健康俱乐部"
C(12) = "现金                "
C(13) = "银行存款            "
C(14) = "合计                "
C(15) = "预收医疗款贷方余额  "
C(17) = "应收医疗款借方余额  "
C(18) = "应收医药费借方余额  "
C(16) = "出院患者存款贷方余额"
C(19) = "本日应交(退)现金    "
  U = "┌──────────┬───────┬───────┐"
 U2 = "├──────────┼───────┼───────┤"
 U3 = "└──────────┴───────┴───────┘"
Printer.ScaleMode = 6
Printer.PaperSize = 39
Printer.Font = "隶书"
Printer.FontSize = 22
Printer.CurrentX = 12
Printer.FontUnderline = True
Printer.Print "  爱 龄 奇 医 院  "
'Printer.Font = "宋体"
Printer.FontSize = 15
Printer.FontUnderline = False
Printer.CurrentX = 5
Printer.Print "   (" + CStr(Year(DATE1)) + "." + Format(CStr(Month(DATE1)), "00") + "." + CStr(Day(DATE1)) + ")住院收入汇总表   "
Printer.Font = "宋体"
Printer.FontSize = 5
Printer.Print
Printer.Font = "宋体"
Printer.FontSize = 9
Printer.Print " 总第" + CStr(lsh) + "号" + Space(10) + "第" + Space(7) + "号" + Space(12) + "附单据　　张"
Printer.FontSize = 10.5
Printer.Print U
 Printer.Print "│   科  目  名  称   │   借    方   │   贷    方   │"
 For i = 1 To 19
   If A(i) = 0 Then
   ' A(I) = ""
   End If
   If B(i) = 0 Then
  '  B(I) = ""
   End If
   U1 = "│" + C(i) + "│" + Space(14 - DxLen(DxCStr(Format(A(i), "0.00")))) + DxCStr(Format(A(i), "0.00")) + _
        "│" + Space(14 - DxLen(DxCStr(Format(B(i), "0.00")))) + DxCStr(Format(B(i), "0.00")) + "│"
   Printer.Print U2
   Printer.Print U1
Next i
Printer.Print U3
'Printer.Font = "隶书"
Printer.FontSize = 9
Printer.Print "   主管会计：" + Space(18) + "操作员：" + CZYID + "-" + cname
Printer.Print
Printer.Print "   出 纳 员：" + Space(18) + "交款人："
Printer.EndDoc
MsgBox "打印结束"

End Sub

Private Sub Command2_Click()
 Unload Me
End Sub



Private Sub Command3_Click()
 Dim rs As Recordset
 Dim r1 As Recordset
 Dim i As Integer
 Dim pu As String
 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