📄 story.frm
字号:
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 375
Index = 1
Left = 3240
TabIndex = 30
Top = 1200
Width = 495
End
Begin VB.Label Label13
Caption = "其他"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Index = 0
Left = 480
TabIndex = 12
Top = 4920
Width = 855
End
Begin VB.Label Label12
Caption = "清洁用品"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 11
Top = 4200
Width = 975
End
Begin VB.Label Label11
Caption = "五金用品"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 10
Top = 3840
Width = 975
End
Begin VB.Label Label10
Caption = "文具用品"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 9
Top = 3480
Width = 975
End
Begin VB.Label Label9
Caption = "杀虫剂"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 8
Top = 3120
Width = 855
End
Begin VB.Label Label8
Caption = "抹布"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 7
Top = 2760
Width = 495
End
Begin VB.Label Label7
Caption = "小垃圾袋"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 6
Top = 2400
Width = 975
End
Begin VB.Label Label6
Caption = "大垃圾袋"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 5
Top = 2040
Width = 975
End
Begin VB.Label Label5
Caption = "保鲜膜"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 4
Top = 1680
Width = 735
End
Begin VB.Label Label4
Caption = "稳洁"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 3
Top = 1320
Width = 735
End
Begin VB.Label Label3
Caption = "爱地洁"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 2
Top = 960
Width = 735
End
Begin VB.Label Label2
Caption = "杯架"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 1
Top = 600
Width = 735
End
Begin VB.Label Label1
Caption = "围裙"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 0
Top = 240
Width = 615
End
End
Attribute VB_Name = "Form6"
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.Text18.Text = Form6.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 Data1_Validate(Action As Integer, Save As Integer)
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
If Text1.Text = "" Then
n1 = 0
Else
n1 = Text1.Text
End If
If Text2.Text = "" Then
n2 = 0
Else
n2 = Text2.Text
End If
If Text3.Text = "" Then
n3 = 0
Else
n3 = Text3.Text
End If
If Text4.Text = "" Then
n4 = 0
Else
n4 = Text4.Text
End If
If Text5.Text = "" Then
n5 = 0
Else
n5 = Text5.Text
End If
If Text6.Text = "" Then
n6 = 0
Else
n6 = Text6.Text
End If
If Text7.Text = "" Then
n7 = 0
Else
n7 = Text7.Text
End If
If Text8.Text = "" Then
n8 = 0
Else
n8 = Text8.Text
End If
If Text9.Text = "" Then
n9 = 0
Else
n9 = Text9.Text
End If
If Text10.Text = "" Then
n10 = 0
Else
n10 = Text10.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 Text13(2).Text = "" Then
n14 = 0
Else
n14 = Text13(2).Text
End If
Text13(1).Text = n1 + n2 + n3 + n4 + n5 + n6 + n7 + n9 + n8 + n10 + n11 + n12 + n13
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -