📄 general.frm
字号:
Width = 735
End
Begin VB.Label Label14
Caption = "酱油"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 42
Top = 5040
Width = 615
End
Begin VB.Label Label13
Caption = "味噌"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Index = 0
Left = 480
TabIndex = 41
Top = 4680
Width = 735
End
Begin VB.Label Label12
Caption = "红椒粉"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 40
Top = 4320
Width = 855
End
Begin VB.Label Label11
Caption = "葡萄干"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 39
Top = 3960
Width = 855
End
Begin VB.Label Label10
Caption = "胡椒盒"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 38
Top = 3600
Width = 855
End
Begin VB.Label Label9
Caption = "黑胡椒粒"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 37
Top = 3240
Width = 975
End
Begin VB.Label Label8
Caption = "洋菜粉"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 36
Top = 2880
Width = 735
End
Begin VB.Label Label7
Caption = "蕃茄酱"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 35
Top = 2520
Width = 975
End
Begin VB.Label Label6
Caption = "优络乳"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 34
Top = 2160
Width = 855
End
Begin VB.Label Label5
Caption = "二砂"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 33
Top = 1800
Width = 615
End
Begin VB.Label Label4
Caption = "细砂"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 32
Top = 1440
Width = 615
End
Begin VB.Label Label3
Caption = "花生粉"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 31
Top = 1080
Width = 735
End
Begin VB.Label Label2
Caption = "沙拉油"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 30
Top = 720
Width = 735
End
Begin VB.Label Label1
Caption = "奶油"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 29
Top = 360
Width = 735
End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Form1.Show
Load Form1
Form1.Text17.Text = Form5.Text13(1).Text
Unload Me
End Sub
Private Sub Command2_Click()
Dim msg
oldmark = Data1.Recordset.Bookmark
msg = Form1.Text8.Text
msg = "日期 like '" & msg & "'"
Data1.Recordset.FindFirst msg
If Data1.Recordset.NoMatch Then
Data1.Recordset.Bookmark = oldmark
End If
End Sub
Private Sub Text13_GotFocus(Index As Integer)
Dim n1 As Long
Dim n2 As Long
Dim n3 As Long
Dim n4 As Long
Dim n5 As Long
Dim n6 As Long
Dim n7 As Long
Dim n8 As Long
Dim n9 As Long
Dim n10 As Long
Dim n11 As Long
Dim n12 As Long
Dim n13 As Long
Dim n14 As Long
Dim n15 As Long
Dim n16 As Long
Dim n17 As Long
Dim n18 As Long
Dim n19 As Long
Dim n20 As Long
Dim n21 As Long
Dim n22 As Long
Dim n23 As Long
Dim n24 As Long
Dim n25 As Long
Dim n26 As Long
Dim n27 As Long
Dim n28 As Long
Dim n29 As Long
Dim n30 As Long
Dim n31 As Long
If Text1(0).Text = "" Then
n1 = 0
Else
n1 = Text1(0).Text
End If
If Text2(0).Text = "" Then
n2 = 0
Else
n2 = Text2(0).Text
End If
If Text3(0).Text = "" Then
n3 = 0
Else
n3 = Text3(0).Text
End If
If Text4(0).Text = "" Then
n4 = 0
Else
n4 = Text4(0).Text
End If
If Text5(0).Text = "" Then
n5 = 0
Else
n5 = Text5(0).Text
End If
If Text6(0).Text = "" Then
n6 = 0
Else
n6 = Text6(0).Text
End If
If Text7(0).Text = "" Then
n7 = 0
Else
n7 = Text7(0).Text
End If
If Text8(0).Text = "" Then
n8 = 0
Else
n8 = Text8(0).Text
End If
If Text9(0).Text = "" Then
n9 = 0
Else
n9 = Text9(0).Text
End If
If Text10(0).Text = "" Then
n10 = 0
Else
n10 = Text10(0).Text
End If
If Text11.Text = "" Then
n11 = 0
Else
n11 = Text11.Text
End If
If Text12.Text = "" Then
n12 = 0
Else
n12 = Text12.Text
End If
If Text13(0).Text = "" Then
n13 = 0
Else
n13 = Text13(0).Text
End If
If Text14(0).Text = "" Then
n14 = 0
Else
n14 = Text14(0).Text
End If
If Text15.Text = "" Then
n15 = 0
Else
n15 = Text15.Text
End If
If Text16.Text = "" Then
n16 = 0
Else
n16 = Text16.Text
End If
If Text17.Text = "" Then
n17 = 0
Else
n17 = Text17.Text
End If
If Text18.Text = "" Then
n18 = 0
Else
n18 = Text18.Text
End If
If Text19.Text = "" Then
n19 = 0
Else
n19 = Text19.Text
End If
If Text20.Text = "" Then
n20 = 0
Else
n20 = Text20.Text
End If
If Text21.Text = "" Then
n21 = 0
Else
n21 = Text21.Text
End If
If Text22.Text = "" Then
n22 = 0
Else
n22 = Text22.Text
End If
If Text23.Text = "" Then
n23 = 0
Else
n23 = Text23.Text
End If
If Text24.Text = "" Then
n24 = 0
Else
n24 = Text24.Text
End If
If Text25.Text = "" Then
n25 = 0
Else
n25 = Text25.Text
End If
If Text26.Text = "" Then
n26 = 0
Else
n26 = Text26.Text
End If
If Text27.Text = "" Then
n27 = 0
Else
n27 = Text27.Text
End If
If Text28(0).Text = "" Then
n28 = 0
Else
n28 = Text28(0).Text
End If
If Text29.Text = "" Then
n29 = 0
Else
n29 = Text29.Text
End If
If Text28(1).Text = "" Then
n30 = 0
Else
n30 = Text28(1).Text
End If
If Text28(2).Text = "" Then
n31 = 0
Else
n31 = Text28(2).Text
End If
Text13(1).Text = n1 + n2 + n3 + n4 + n5 + n6 + n7 + n9 + n8 + n10 + n11 + n12 + n14 + n15 + n16 + n17 + n18 + n19 + n20 + n21 + n22 + n23 + n24 + n25 + n26 + n27 + n28 + n29 + n30 + n31
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -