📄 frmtab.frm
字号:
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "开票数量"
Height = 255
Index = 7
Left = 3330
TabIndex = 7
Top = 1530
Width = 915
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "提货人"
Height = 255
Index = 6
Left = 4650
TabIndex = 6
Top = 1110
Width = 675
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "备注说明"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 300
TabIndex = 5
Top = 3870
Width = 915
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "司磅员"
Height = 255
Index = 4
Left = 210
TabIndex = 4
Top = 3030
Width = 915
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "欠存大写"
Height = 255
Index = 3
Left = 210
TabIndex = 3
Top = 2490
Width = 915
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "当日发出"
Height = 255
Index = 2
Left = 180
TabIndex = 2
Top = 2010
Width = 915
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "开票时间"
Height = 255
Index = 1
Left = 210
TabIndex = 1
Top = 1560
Width = 915
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "发货单位"
Height = 255
Index = 0
Left = 240
TabIndex = 0
Top = 1110
Width = 915
End
Begin VB.Shape Shape5
Height = 975
Left = 5490
Top = 1410
Width = 1035
End
Begin VB.Shape Shape4
Height = 555
Index = 1
Left = 4770
Top = 2850
Width = 1095
End
Begin VB.Shape Shape4
Height = 555
Index = 0
Left = 2490
Top = 2850
Width = 1095
End
Begin VB.Shape Shape3
Height = 975
Left = 3240
Top = 1410
Width = 1095
End
Begin VB.Line Line2
X1 = 1320
X2 = 1320
Y1 = 930
Y2 = 4680
End
Begin VB.Line Line1
X1 = 90
X2 = 7500
Y1 = 3390
Y2 = 3390
End
Begin VB.Shape Shape2
BackColor = &H00E0E0E0&
Height = 495
Index = 1
Left = 120
Top = 2370
Width = 7425
End
Begin VB.Shape Shape2
Height = 495
Index = 0
Left = 120
Top = 1410
Width = 7425
End
Begin VB.Shape Shape1
BackColor = &H00FFFFFF&
BorderWidth = 2
Height = 3735
Left = 120
Top = 960
Width = 7425
End
End
Attribute VB_Name = "frmTab"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
Option Explicit
'##################################################################
'## 过程名称：Command1_Click
'## 参数： 无
'##################################################################
Private Sub Command1_Click()
Unload Me
End Sub
'##################################################################
'## 过程名称：Command2_Click
'## 参数： 无
'##################################################################
Private Sub Command2_Click()
Command1.Visible = False
Command2.Visible = False
frmTab.PrintForm
Command1.Visible = True
Command2.Visible = True
End Sub
'##################################################################
'## 过程名称：Command3_Click
'## 参数： 无
'##################################################################
Private Sub Command3_Click()
Dim strQueryA As String
Dim strQueryB As String
Dim STRU As String
STRU = Combo1.Text
Select Case STRU
Case "壹"
Label11.Caption = "联 存根"
Case "贰"
Label11.Caption = "联 发货人"
' Case "叁"
' Label11.Caption = "联 货主"
End Select
strQueryA = "SELECT * FROM Tab WHERE 装船日期='" & CStr(DTPicker1.Value) & "' AND 提货人='" & CStr(Text10.Text) & "' "
Adodc1.RecordSource = strQueryA
Adodc1.Refresh
If Text8.Text = "0" Then
Text9.Text = "零吨"
Else
Text9.Text = changemoney(Val(Text8.Text)) + "零吨"
End If
End Sub
'##################################################################
'## 过程名称：Form_Load
'## 参数： 无
'##################################################################
Private Sub Form_Load()
Label4.Caption = Date
End Sub
'##################################################################
'## 函数名称：changnum
'## 参数：num 为Integer型
'As String'## 返回类型：As String
'##################################################################
Private Function changnum(num As Integer) As String
Select Case num
Case 0
changnum = "零"
Case 1
changnum = "壹"
Case 2
changnum = "贰"
Case 3
changnum = "叁"
Case 4
changnum = "肆"
Case 5
changnum = "伍"
Case 6
changnum = "陆"
Case 7
changnum = "柒"
Case 8
changnum = "捌"
Case 9
changnum = "玖"
End Select
End Function
'##################################################################
'## 函数名称：changemoney
'## 参数：num 类型不确定
'As String'## 返回类型：As String
'##################################################################
Public Function changemoney(num) As String
Dim money1 As String
Dim tn As Integer
Dim ST1, T1, k1 As String
Dim k2 As String
Dim k3 As String
If num = 0 Then
changemoney = " "
Exit Function
End If
If num < 0 Then
changemoney = "负" + changemoney(Abs(num))
Exit Function
End If
money1 = Trim(Str(num))
tn = InStr(money1, ".") '小数位置
k1 = ""
If tn <> 0 Then
ST1 = Right(money1, Len(money1) - tn)
If ST1 <> "" Then
T1 = Left(ST1, 1)
ST1 = Right(ST1, Len(ST1) - 1)
If T1 <> "" Then
k1 = k1 + changnum(Val(T1)) + "" '角
End If
If ST1 <> "" Then
T1 = Left(ST1, 1)
k1 = k1 + changnum(Val(T1)) + "" '分
End If
End If
ST1 = Left(money1, tn - 1)
Else
ST1 = money1
End If
k2 = ""
If ST1 <> "" Then
T1 = Right(ST1, 1)
ST1 = Left(ST1, Len(ST1) - 1)
k2 = changnum(Val(T1)) + k2
End If
If ST1 <> "" Then
T1 = Right(ST1, 1)
ST1 = Left(ST1, Len(ST1) - 1)
If T1 <> "0" Then
k2 = changnum(Val(T1)) + "拾" + k2
Else
If Left(k2, 1) <> "零" Then k2 = "零" + k2
End If
End If
If ST1 <> "" Then
T1 = Right(ST1, 1)
ST1 = Left(ST1, Len(ST1) - 1)
If T1 <> "0" Then
k2 = changnum(Val(T1)) + "佰" + k2
Else
If Left(k2, 1) <> "零" Then k2 = "零" + k2
End If
End If
If ST1 <> "" Then
T1 = Right(ST1, 1)
ST1 = Left(ST1, Len(ST1) - 1)
If T1 <> "0" Then
k2 = changnum(Val(T1)) + "仟" + k2
Else
If Left(k2, 1) <> "零" Then k2 = "零" + k2
End If
End If
k3 = ""
If ST1 <> "" Then
T1 = Right(ST1, 1)
ST1 = Left(ST1, Len(ST1) - 1)
k3 = changnum(Val(T1)) + k3
End If
If ST1 <> "" Then
T1 = Right(ST1, 1)
ST1 = Left(ST1, Len(ST1) - 1)
If T1 <> "0" Then
k3 = changnum(Val(T1)) + "拾" + k3
Else
If Left(k3, 1) <> "零" Then k3 = "零" + k3
End If
End If
If ST1 <> "" Then
T1 = Right(ST1, 1)
ST1 = Left(ST1, Len(ST1) - 1)
If T1 <> "0" Then
k3 = changnum(Val(T1)) + "佰" + k3
Else
If Left(k3, 1) <> "零" Then k3 = "零" + k3
End If
End If
If ST1 <> "" Then
T1 = Right(ST1, 1)
ST1 = Left(ST1, Len(ST1) - 1)
If T1 <> "0" Then
k3 = changnum(Val(T1)) + "仟" + k3
End If
End If
If Right(k2, 1) = "零" Then k2 = Left(k2, Len(k2) - 1)
If Len(k3) > 0 Then
If Right(k3, 1) = "零" Then k3 = Left(k3, Len(k3) - 1)
k3 = k3 & "万"
End If
changemoney = IIf(k3 & k2 = "", k1, k3 & k2 & "点" & k1) '元
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -