📄 frmsum.frm
字号:
TabIndex = 41
Top = 285
Width = 540
End
Begin VB.Label Label37
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "卫生费"
ForeColor = &H00000000&
Height = 180
Left = 1755
TabIndex = 40
Top = 1755
Width = 540
End
Begin VB.Label Label38
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "鼻 饲"
ForeColor = &H00000000&
Height = 180
Left = 3435
TabIndex = 39
Top = 1755
Width = 540
End
Begin VB.Label Label39
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "诊察费"
ForeColor = &H00000000&
Height = 180
Left = 3435
TabIndex = 38
Top = 2115
Width = 540
End
Begin VB.Label Label40
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "陪住费"
ForeColor = &H00000000&
Height = 180
Left = 5115
TabIndex = 37
Top = 1755
Width = 540
End
Begin VB.Label Label41
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "转诊费"
ForeColor = &H00000000&
Height = 180
Left = 1750
TabIndex = 36
Top = 1035
Width = 540
End
Begin VB.Label Label42
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "导 尿"
ForeColor = &H00000000&
Height = 180
Left = 1755
TabIndex = 35
Top = 2115
Width = 540
End
Begin VB.Label Label43
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "材料费"
ForeColor = &H00000000&
Height = 180
Left = 5120
TabIndex = 34
Top = 2115
Width = 540
End
End
Begin VB.CommandButton Command4
Caption = "登记&(W)"
Height = 350
Left = 1620
TabIndex = 29
Top = 5655
Width = 1200
End
Begin VB.CommandButton Command3
Caption = "关闭&(C)"
Height = 350
Left = 7560
TabIndex = 32
Top = 5655
Width = 1200
End
Begin VB.CommandButton Command2
Caption = "结算打印&(P)"
Height = 350
Left = 6240
TabIndex = 31
Top = 5655
Width = 1200
End
Begin VB.CommandButton Command1
Caption = "保存&(S)"
Height = 350
Left = 2985
TabIndex = 30
Top = 5655
Width = 1200
End
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = 4680
Top = 0
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.Label Label44
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 180
Left = 4320
TabIndex = 99
Top = 5760
Width = 90
End
Begin VB.Line Line1
BorderColor = &H000000FF&
X1 = 0.212
X2 = 15.523
Y1 = 9.737
Y2 = 9.737
End
End
Attribute VB_Name = "frmsum"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public rq1 As String
Public rq2 As String
Public zfy As Currency
Public bool As Currency
'转换函数
Function Up(Dxs As String) As String
Dim Sw As Integer, SzP As Integer, SzUp As Integer, TempStr As String, DXStr As String
Sw = Len(Trim(Dxs))
SzP = InStr(1, Trim(Dxs), ".")
If SzP = 0 Then
Dim i As Integer
For i = 1 To Sw
TempStr = Right(Trim(Dxs), i)
TempStr = Left(TempStr, 1)
TempStr = Converts(TempStr)
Select Case i
Case 1
If TempStr = "零" Then
TempStr = "元"
Else
TempStr = TempStr + "元"
End If
Case 2
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "拾"
End If
Case 3
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "佰"
End If
Case 4
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "仟"
End If
Case 5
If TempStr = "零" Then
TempStr = "万"
Else
TempStr = TempStr + "万"
End If
Case 6
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "拾"
End If
Case 7
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "佰"
End If
Case 8
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "仟"
End If
Case 9
If TempStr = "零" Then
TempStr = "亿"
Else
TempStr = TempStr + "亿"
End If
End Select
Dim TempA As String
TempA = Left(Trim(DXStr), 1)
If TempStr = "零" Then
Select Case TempA
Case "零"
DXStr = DXStr
Case "元"
DXStr = DXStr
Case "万"
DXStr = DXStr
Case "亿"
DXStr = DXStr
Case Else
DXStr = TempStr + DXStr
End Select
Else
DXStr = TempStr + DXStr
End If
Next
Else
For i = 1 To SzP - 1
TempStr = Right(Trim(Dxs), i + (Sw - SzP + 1))
TempStr = Left(TempStr, 1)
TempStr = Converts(TempStr)
Select Case i
Case 1
If TempStr = "零" Then
TempStr = "元"
Else
TempStr = TempStr + "元"
End If
Case 2
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "拾"
End If
Case 3
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "佰"
End If
Case 4
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "仟"
End If
Case 5
If TempStr = "零" Then
TempStr = "万"
Else
TempStr = TempStr + "万"
End If
Case 6
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "拾"
End If
Case 7
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "佰"
End If
Case 8
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "仟"
End If
Case 9
If TempStr = "零" Then
TempStr = "亿"
Else
TempStr = TempStr + "亿"
End If
Case Else
'超过999999999时自动删除
TempStr = ""
End Select
TempA = Left(Trim(DXStr), 1)
If TempStr = "零" Then
Select Case TempA
Case "零"
DXStr = DXStr
Case "元"
DXStr = DXStr
Case "万"
DXStr = DXStr
Case "亿"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -