【VB开源代码栏目提醒】：网学会员为需要VB开源代码的朋友们搜集整理了Main_Tfgl.frm相关资料，希望对各位网友有所帮助!

    VERSION 5.00
    Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
    Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
    Begin VB.Form Main_Tfgl 
       BorderStyle     =   1  'Fixed Single
       Caption         =   "门诊退费"
       ClientHeight    =   5595
       ClientLeft      =   45
       ClientTop       =   330
       ClientWidth     =   10740
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   5595
       ScaleWidth      =   10740
       StartUpPosition =   1  '所有者中心
       Begin VB.CommandButton CmdEnd 
          Caption         =   "返回"
          Height          =   390
          Left            =   8940
          TabIndex        =   13
          Top             =   5085
          Width           =   1695
       End
       Begin VB.CommandButton CmdCancel 
          Caption         =   "作废"
          Enabled         =   0   'False
          Height          =   390
          Left            =   7260
          TabIndex        =   12
          Top             =   5085
          Width           =   1695
       End
       Begin VB.CommandButton CmdTF 
          Caption         =   "退费"
          Enabled         =   0   'False
          Height          =   390
          Left            =   5580
          TabIndex        =   11
          Top             =   5085
          Width           =   1695
       End
       Begin VB.Frame Frame4 
          Caption         =   "退费项目"
          ForeColor       =   &H000000FF&
          Height          =   2925
          Left            =   5355
          TabIndex        =   10
          Top             =   2055
          Width           =   5310
          Begin MSHierarchicalFlexGridLib.MSHFlexGrid MS2 
             Height          =   2070
             Left            =   135
             TabIndex        =   25
             Top             =   315
             Width           =   5040
             _ExtentX        =   8890
             _ExtentY        =   3651
             _Version        =   393216
             Cols            =   20
             AllowBigSelection=   0   'False
             SelectionMode   =   1
             _NumberOfBands  =   1
             _Band(0).Cols   =   20
             _Band(0).GridLinesBand=   1
             _Band(0).TextStyleBand=   0
             _Band(0).TextStyleHeader=   0
             _Band(0)._NumMapCols=   19
             _Band(0)._MapCol(0)._Name=   "病案类型"
             _Band(0)._MapCol(0)._RSIndex=   0
             _Band(0)._MapCol(1)._Name=   "病案号"
             _Band(0)._MapCol(1)._RSIndex=   1
             _Band(0)._MapCol(2)._Name=   "患者"
             _Band(0)._MapCol(2)._RSIndex=   2
             _Band(0)._MapCol(3)._Name=   "费用类别"
             _Band(0)._MapCol(3)._RSIndex=   3
             _Band(0)._MapCol(4)._Name=   "就诊科室"
             _Band(0)._MapCol(4)._RSIndex=   4
             _Band(0)._MapCol(5)._Name=   "医生"
             _Band(0)._MapCol(5)._RSIndex=   5
             _Band(0)._MapCol(6)._Name=   "就诊次数"
             _Band(0)._MapCol(6)._RSIndex=   6
             _Band(0)._MapCol(6)._Alignment=   7
             _Band(0)._MapCol(7)._Name=   "帐单号"
             _Band(0)._MapCol(7)._RSIndex=   7
             _Band(0)._MapCol(7)._Alignment=   7
             _Band(0)._MapCol(8)._Name=   "处方号"
             _Band(0)._MapCol(8)._RSIndex=   8
             _Band(0)._MapCol(8)._Alignment=   7
             _Band(0)._MapCol(9)._Name=   "项目号"
             _Band(0)._MapCol(9)._RSIndex=   9
             _Band(0)._MapCol(9)._Alignment=   7
             _Band(0)._MapCol(10)._Name=   "类别"
             _Band(0)._MapCol(10)._RSIndex=   10
             _Band(0)._MapCol(11)._Name=   "药品或诊疗项目名称"
             _Band(0)._MapCol(11)._RSIndex=   11
             _Band(0)._MapCol(12)._Name=   "数量"
             _Band(0)._MapCol(12)._RSIndex=   12
             _Band(0)._MapCol(13)._Name=   "单价"
             _Band(0)._MapCol(13)._RSIndex=   13
             _Band(0)._MapCol(13)._Alignment=   7
             _Band(0)._MapCol(14)._Name=   "金额"
             _Band(0)._MapCol(14)._RSIndex=   14
             _Band(0)._MapCol(14)._Alignment=   7
             _Band(0)._MapCol(15)._Name=   "执行科室"
             _Band(0)._MapCol(15)._RSIndex=   15
             _Band(0)._MapCol(16)._Name=   "收据号"
             _Band(0)._MapCol(16)._RSIndex=   16
             _Band(0)._MapCol(17)._Name=   "发票号"
             _Band(0)._MapCol(17)._RSIndex=   17
             _Band(0)._MapCol(18)._Name=   "日期"
             _Band(0)._MapCol(18)._RSIndex=   18
          End
          Begin VB.Label lbltfzje 
             BackStyle       =   0  'Transparent
             ForeColor       =   &H000000FF&
             Height          =   225
             Left            =   3075
             TabIndex        =   22
             Top             =   2550
             Width           =   2100
          End
          Begin VB.Label Label7 
             BackStyle       =   0  'Transparent
             Caption         =   "总金额："
             Height          =   255
             Left            =   2325
             TabIndex        =   20
             Top             =   2550
             Width           =   2670
          End
       End
       Begin VB.Frame Frame1 
          Height          =   645
          Left            =   75
          TabIndex        =   2
          Top             =   795
          Width           =   10605
          Begin VB.TextBox Text1 
             BackColor       =   &H00FFFFFF&
             Height          =   285
             Left            =   990
             TabIndex        =   4
             Top             =   225
             Width           =   3450
          End
          Begin VB.Label Lblfph 
             BackStyle       =   0  'Transparent
             ForeColor       =   &H000000FF&
             Height          =   210
             Left            =   4260
             TabIndex        =   15
             Top             =   270
             Width           =   1545
          End
          Begin VB.Label LblDate 
             BackStyle       =   0  'Transparent
             ForeColor       =   &H000000FF&
             Height          =   210
             Left            =   7365
             TabIndex        =   5
             Top             =   270
             Width           =   2115
          End
          Begin VB.Label Label3 
             BackStyle       =   0  'Transparent
             Caption         =   "收据号：                                                                日期："
             Height          =   195
             Left            =   225
             TabIndex        =   3
             Top             =   285
             Width           =   9750
          End
       End
       Begin VB.Frame Frame2 
          Height          =   645
          Left            =   75
          TabIndex        =   6
          Top             =   1320
          Width           =   10605
          Begin VB.Label Lblsfdate 
             BackStyle       =   0  'Transparent
             ForeColor       =   &H00FF0000&
             Height          =   210
             Left            =   8790
             TabIndex        =   18
             Top             =   255
             Width           =   1545
          End
          Begin VB.Label Lblhzxm 
             BackStyle       =   0  'Transparent
             ForeColor       =   &H00FF0000&
             Height          =   210
             Left            =   4530
             TabIndex        =   17
             Top             =   255
             Width           =   1545
          End
          Begin VB.Label Lblbah 
             BackStyle       =   0  'Transparent
             ForeColor       =   &H00FF0000&
             Height          =   210
             Left            =   1005
             TabIndex        =   16
             Top             =   255
             Width           =   1545
          End
          Begin VB.Label Label4 
             BackSt