?? 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 + -