ncr.frm

杂货店管理原代码(商业代码

      Top             =   840
      Width           =   1095
   End
   Begin VB.TextBox Text2 
      BackColor       =   &H00C0C0C0&
      DataField       =   "可乐杯"
      DataSource      =   "Data1"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   1320
      TabIndex        =   3
      Top             =   480
      Width           =   1095
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H00C0C0C0&
      DataField       =   "外带纸杯"
      DataSource      =   "Data1"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1320
      TabIndex        =   1
      Top             =   120
      Width           =   1095
   End
   Begin VB.Label Label13 
      Caption         =   "小计"
      ForeColor       =   &H000000C0&
      Height          =   375
      Left            =   3120
      TabIndex        =   24
      Top             =   1080
      Width           =   495
   End
   Begin VB.Label Label12 
      Caption         =   "其他"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   720
      TabIndex        =   22
      Top             =   4200
      Width           =   495
   End
   Begin VB.Label Label11 
      Caption         =   "纸巾"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   720
      TabIndex        =   20
      Top             =   3840
      Width           =   495
   End
   Begin VB.Label Label10 
      Caption         =   "便当盒"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   480
      TabIndex        =   18
      Top             =   3480
      Width           =   735
   End
   Begin VB.Label Label9 
      Caption         =   "橡皮筋"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   480
      TabIndex        =   16
      Top             =   3120
      Width           =   735
   End
   Begin VB.Label Label8 
      Caption         =   "牙签"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   720
      TabIndex        =   14
      Top             =   2760
      Width           =   615
   End
   Begin VB.Label Label7 
      Caption         =   "沙拉盒"
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   480
      TabIndex        =   12
      Top             =   2400
      Width           =   735
   End
   Begin VB.Label Label6 
      Caption         =   "筷子"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   720
      TabIndex        =   10
      Top             =   2040
      Width           =   615
   End
   Begin VB.Label Label5 
      Caption         =   "汤匙"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   720
      TabIndex        =   8
      Top             =   1680
      Width           =   615
   End
   Begin VB.Label Label4 
      Caption         =   "汤杯"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   720
      TabIndex        =   6
      Top             =   1320
      Width           =   615
   End
   Begin VB.Label Label3 
      Caption         =   "红茶杯"
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   480
      TabIndex        =   4
      Top             =   960
      Width           =   855
   End
   Begin VB.Label Label2 
      Caption         =   "可乐杯"
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   480
      TabIndex        =   2
      Top             =   600
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "外带杯袋"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   1095
   End
End
Attribute VB_Name = "Form3"
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.Text16.Text = Form3.Text13.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()
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



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


Text13.Text = n1 + n2 + n3 + n4 + n5 + n6 + n7 + n9 + n8 + n10 + n11 + n12

End Sub