📄 sk_hj04.frm
字号:
Width = 420
End
Begin VB.Label shoushu1
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 = 3000
TabIndex = 4
Top = 3360
Width = 630
End
Begin VB.Label chaungfei
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 = 3
Top = 3360
Width = 420
End
Begin VB.Label tijianfei1
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 = 5160
TabIndex = 2
Top = 3360
Width = 630
End
Begin VB.Label 大写
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "0000"
Height = 180
Left = 3000
TabIndex = 1
Top = 3720
Visible = 0 'False
Width = 360
End
Begin VB.Label 操作员
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "0000"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 7200
TabIndex = 0
Top = 4320
Width = 420
End
End
Attribute VB_Name = "sk_hj04"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command2_Click()
End Sub
Private Sub v_bianma_LostFocus()
End Sub
Private Sub Form_Load()
'读最后一条记录
sql88 = "select * from 收费表 where 操作员='" + Trim(CStr(v_denglu.v_name1)) + "' order by id DESC"
Dim rs88 As New ADODB.Recordset
rs88.Open sql88, db
If Not rs88.EOF Then
z_bianma = rs88("编码")
z_name = rs88("姓名")
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 = 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_hj04.PrintForm
End If
Unload Me
End Sub
Private Sub 处置_Click()
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -