sk_hj041.frm

小型医院管理

      Top             =   3720
      Width           =   210
   End
   Begin VB.Label 元 
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "元"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   3480
      TabIndex        =   2
      Top             =   3720
      Width           =   210
   End
   Begin VB.Label 角 
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "角"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   4080
      TabIndex        =   1
      Top             =   3720
      Width           =   210
   End
   Begin VB.Label 分 
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "分"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   4560
      TabIndex        =   0
      Top             =   3720
      Width           =   210
   End
End
Attribute VB_Name = "sk_hj041"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()

sql88 = "select * from 收费表 where id=" + CStr(sk_print04.c_id3)
Dim rs88 As New ADODB.Recordset
rs88.Open sql88, db


If Not rs88.EOF Then


z_bianma = rs88("编码")
z_name = Trim(rs88("姓名"))

        sql886 = "select * from 患者信息 where 姓名 ='" & Trim(z_name) & "'"
        Dim rs886 As New ADODB.Recordset
        rs886.Open sql886, db
        
        z_fname = Trim(rs886("发票姓名"))
        
        
        
        If z_fname = "0" Then
        z_name = rs88("姓名")
        Else
        z_name = z_fname
        End If




z_sj = rs88("日期")

z_yaofei = rs88("西药费")
If z_yaofei = 0 Then
z_yaofei = ""
Else
z_yaofei = FormatNumber(z_yaofei, 2)
End If
xiyao.Caption = z_yaofei





z_chusheng = rs88("中成药")
If z_chusheng = 0 Then
z_chusheng = ""
Else
z_chusheng = FormatNumber(z_chusheng, 2)
End If
zhongcheng.Caption = z_chusheng






z_fujian = rs88("中草药")
If z_fujian = 0 Then
z_fujian = ""
Else
z_fujian = FormatNumber(z_fujian, 2)
End If
zhongcao.Caption = z_fujian



z_fuke = rs88("检查费")
If z_fuke = 0 Then
z_fuke = ""
Else
z_fuke = FormatNumber(z_fuke, 2)
End If
Label1.Caption = z_fuke





z_chuzhi = rs88("电诊费")
If z_chuzhi = 0 Then
z_chuzhi = ""
Else
z_chuzhi = FormatNumber(z_chuzhi, 2)
End If
dianzhenfei.Caption = z_chuzhi


z_fangshi = rs88("化验费")
If z_fangshi = 0 Then
z_fangshi = ""
Else
z_fangshi = FormatNumber(z_fangshi, 2)
End If

huayanfei1.Caption = z_fangshi



z_erjian = rs88("照透费")
If z_erjian = 0 Then
z_erjian = ""
Else
z_erjian = FormatNumber(z_erjian, 2)
End If
zaotoufei1.Caption = z_erjian


z_huayan = rs88("治疗费")
If z_huayan = 0 Then
z_huayan = ""
Else
z_huayan = FormatNumber(z_huayan, 2)
End If
Label2.Caption = z_huayan



z_jiancha = rs88("处置费")
If z_jiancha = 0 Then
z_jiancha = ""
Else
z_jiancha = FormatNumber(z_jiancha, 2)
End If
chuzhi1.Caption = z_jiancha



z_shoushu = rs88("手术费")
If z_shoushu = 0 Then
z_shoushu = ""
Else
z_shoushu = FormatNumber(z_shoushu, 2)
End If
shoushu1.Caption = z_shoushu



z_zhaoxiang = rs88("床费")
If z_zhaoxiang = 0 Then
z_zhaoxiang = ""
Else
z_zhaoxiang = FormatNumber(z_zhaoxiang, 2)
End If

chaungfei.Caption = z_zhaoxiang


z_bc = rs88("体检费")
If z_bc = 0 Then
z_bc = ""
Else
z_bc = FormatNumber(z_bc, 2)
End If

tijianfei1.Caption = z_bc




z_daxie = rs88("大写金额")


'获得操作员编码

sql881 = "select * from 人名 where 姓名='" + Trim(CStr(v_denglu.v_name1)) + "'"
Dim rs881 As New ADODB.Recordset
rs881.Open sql881, db
If Not rs881.EOF Then
z_caozuo = rs881("编码")
Else
z_caozuo = "无"
End If







z_xiaoxie = rs88("金额")
If z_xiaoxie = 0 Then
z_xiaoxie = ""
Else
z_xiaoxie = FormatNumber(z_xiaoxie, 2)
End If

'编码.Caption = z_bianma
姓名.Caption = z_name
'时间.Caption = z_sj
时间.Caption = Date
大写.Caption = z_daxie






c = Len(Trim(大写.Caption))



If c = 2 Then
分.Caption = Left(大写.Caption, 1)
角.Caption = ""
元.Caption = ""
拾.Caption = ""
佰.Caption = ""
仟.Caption = ""
万.Caption = ""
End If

If c = 4 Then
分.Caption = Right(Left(大写.Caption, 3), 1)
角.Caption = Left(大写.Caption, 1)
元.Caption = ""
拾.Caption = ""
佰.Caption = ""
仟.Caption = ""
万.Caption = ""
End If

If c = 6 Then
分.Caption = Right(Left(大写.Caption, 5), 1)
角.Caption = Right(Left(大写.Caption, 3), 1)
元.Caption = Left(大写.Caption, 1)
拾.Caption = ""
佰.Caption = ""
仟.Caption = ""
万.Caption = ""
End If


If c = 8 Then
分.Caption = Right(Left(大写.Caption, 7), 1)
角.Caption = Right(Left(大写.Caption, 5), 1)
元.Caption = Right(Left(大写.Caption, 3), 1)
拾.Caption = Right(Left(大写.Caption, 1), 1)
佰.Caption = ""
仟.Caption = ""
万.Caption = ""




End If

If c = 10 Then
分.Caption = Right(Left(大写.Caption, 9), 1)
角.Caption = Right(Left(大写.Caption, 7), 1)
元.Caption = Right(Left(大写.Caption, 5), 1)
拾.Caption = Right(Left(大写.Caption, 3), 1)
佰.Caption = Left(大写.Caption, 1)
仟.Caption = ""
万.Caption = ""
End If

If c = 12 Then
分.Caption = Right(Left(大写.Caption, 11), 1)
角.Caption = Right(Left(大写.Caption, 9), 1)
元.Caption = Right(Left(大写.Caption, 7), 1)
拾.Caption = Right(Left(大写.Caption, 5), 1)
佰.Caption = Right(Left(大写.Caption, 3), 1)
仟.Caption = Left(大写.Caption, 1)
万.Caption = ""
End If

If c = 14 Then
分.Caption = Right(Left(大写.Caption, 13), 1)
角.Caption = Right(Left(大写.Caption, 11), 1)
元.Caption = Right(Left(大写.Caption, 9), 1)
拾.Caption = Right(Left(大写.Caption, 7), 1)
佰.Caption = Right(Left(大写.Caption, 5), 1)
仟.Caption = Right(Left(大写.Caption, 3), 1)
万.Caption = Left(大写.Caption, 1)
End If



















金额.Caption = z_xiaoxie
操作员.Caption = z_caozuo

'sk_hj041.PrintForm
End If
'Unload Me






End Sub

Private Sub 药费_Click()

End Sub

Private Sub 化验_Click()

End Sub