tj.frm

一个进销存系统,界面清楚,操作简单,是一个不错的企业进销存系统

VERSION 5.00
Begin VB.Form tj 
   Caption         =   "统计合计"
   ClientHeight    =   2235
   ClientLeft      =   4620
   ClientTop       =   4185
   ClientWidth     =   5025
   Icon            =   "tj.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   2235
   ScaleWidth      =   5025
   Begin VB.Frame Frame1 
      Caption         =   "统计合计"
      Height          =   1815
      Left            =   360
      TabIndex        =   0
      Top             =   120
      Width           =   4335
      Begin VB.CommandButton Command2 
         Caption         =   "毛  利  率"
         Height          =   495
         Left            =   2280
         TabIndex        =   2
         Top             =   720
         Width           =   1575
      End
      Begin VB.CommandButton Command1 
         Caption         =   "毛利及合计"
         Height          =   495
         Left            =   480
         TabIndex        =   1
         Top             =   720
         Width           =   1575
      End
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "C:\Program Files\YWGL\ywy.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "yw"
      Top             =   0
      Visible         =   0   'False
      Width           =   1140
   End
End
Attribute VB_Name = "tj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim sj As Double
Dim jj As Double
Dim xsl As Double
With Data1.Recordset
If .RecordCount = 0 Then Exit Sub
  .MoveFirst
Do While Not .EOF
  sj = sj + .Fields("售价").Value * .Fields("销售量").Value
  jj = jj + .Fields("进价").Value * .Fields("销售量").Value
  xsl = xsl + .Fields("销售量").Value
  .MoveNext
Loop
End With
Data1.Refresh

xbbox = MsgBox("统计结果：" & vbCrLf & "__________________________" & vbCrLf & vbCrLf & "销售量：" & Str(xsl) & vbCrLf & "售价之和：" & Str(sj) & "元" & "     " & vbCrLf & "进价之和：" & Str(jj) & "元" & "     " & vbCrLf & "毛 利 为：" & Str(sj - jj) & "元     " & vbCrLf & "_________________________" & vbCrLf, 64, "统计结果")

End Sub

Private Sub Command2_Click()
Dim sj As Double
Dim jj As Double
Dim xsl As Double
Dim lrl As Double
With Data1.Recordset
If .RecordCount = 0 Then Exit Sub
  .MoveFirst
Do While Not .EOF
  sj = sj + .Fields("售价").Value * .Fields("销售量").Value
  jj = jj + .Fields("进价").Value * .Fields("销售量").Value
  xsl = xsl + .Fields("销售量").Value
  .MoveNext
Loop
End With
lrl = (sj - jj) / jj
If lrl < 1 Then
  If lrl < 0 Then
   MsgBox "毛利率为：" + Left$(Str(lrl), 5) + "%"
  Else
   MsgBox "毛利率为：" + Mid$(Str(lrl), 3, 2) + "%"
  End If
Else
  MsgBox "毛利率为：" + Mid$(Str(lrl), 1, 4) + "%"
End If
End Sub