frmanalysis.frm

《超市进销存管理系统的开发与实现》 2、开发工具 Microsoft Visual Basic 6.0 3、运行环境 （1）、硬件环境 486DX/66MHz或更高

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmAnalysis 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "经营信息查看"
   ClientHeight    =   5355
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   10350
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5355
   ScaleWidth      =   10350
   ShowInTaskbar   =   0   'False
   Begin VB.Frame frmOp 
      Caption         =   "操作"
      Height          =   735
      Left            =   720
      TabIndex        =   6
      Top             =   600
      Width           =   8895
      Begin VB.CommandButton cmdClose 
         Caption         =   "关闭"
         Height          =   330
         Left            =   7800
         TabIndex        =   4
         Top             =   285
         Width           =   975
      End
      Begin VB.ComboBox cboOrder 
         Height          =   300
         ItemData        =   "frmAnalysis.frx":0000
         Left            =   3648
         List            =   "frmAnalysis.frx":000A
         Style           =   2  'Dropdown List
         TabIndex        =   1
         Top             =   300
         Width           =   855
      End
      Begin VB.TextBox txtCount 
         Height          =   350
         Left            =   5745
         MaxLength       =   20
         TabIndex        =   2
         Text            =   "txtCount"
         Top             =   275
         Width           =   735
      End
      Begin VB.ComboBox cboAnaType 
         Height          =   300
         ItemData        =   "frmAnalysis.frx":001A
         Left            =   1191
         List            =   "frmAnalysis.frx":002A
         Style           =   2  'Dropdown List
         TabIndex        =   0
         Top             =   300
         Width           =   1575
      End
      Begin VB.CommandButton cmdSearch 
         Caption         =   "查看"
         Default         =   -1  'True
         Height          =   330
         Left            =   6651
         TabIndex        =   3
         Top             =   285
         Width           =   975
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "显示数量："
         Height          =   180
         Left            =   4674
         TabIndex        =   10
         Top             =   360
         Width           =   900
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "前后："
         Height          =   180
         Left            =   2940
         TabIndex        =   9
         Top             =   360
         Width           =   540
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "分析内容："
         Height          =   180
         Left            =   120
         TabIndex        =   8
         Top             =   360
         Width           =   900
      End
   End
   Begin MSComctlLib.ListView lvAna 
      Height          =   3705
      Left            =   240
      TabIndex        =   5
      Top             =   1440
      Width           =   9930
      _ExtentX        =   17515
      _ExtentY        =   6535
      View            =   3
      LabelEdit       =   1
      LabelWrap       =   -1  'True
      HideSelection   =   0   'False
      FlatScrollBar   =   -1  'True
      FullRowSelect   =   -1  'True
      GridLines       =   -1  'True
      _Version        =   393217
      Icons           =   "imlViewBIcon"
      SmallIcons      =   "imlViewSIcon"
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
   Begin VB.Label labTitle 
      AutoSize        =   -1  'True
      Caption         =   "信息查看"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   285
      Left            =   4440
      TabIndex        =   7
      Top             =   120
      Width           =   1560
   End
End
Attribute VB_Name = "frmAnalysis"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Sub cmdClose_Click()
  Me.Hide
End Sub

Private Sub cmdSearch_Click()
  Dim nCount As Integer
  Dim IsDesc As Boolean
  Dim opMerch As New clsOpMerch
  Dim opBuy As New clsOpBuy
  Dim opSell As New clsOpSell
  Dim opDispose As New clsOpDispose

  nCount = Val(txtCount.Text)
  If nCount = 0 Then nCount = 10
  IsDesc = IIf(cboOrder.ListIndex = 0, True, False)
  Select Case cboAnaType.ListIndex
    Case 0    '库存分析
      opMerch.FindStorage lvAna, IsDesc, nCount
    Case 1    '进货分析
      opBuy.FindStorage lvAna, IsDesc, nCount
    Case 2:   '销售分析
      opSell.FindStorage lvAna, IsDesc, nCount
    Case 3    '报损分析
      opDispose.FindStorage lvAna, IsDesc, nCount
    Case Else
  End Select
  
  
End Sub

Private Sub Form_Load()
  cboAnaType.ListIndex = 0
  cboOrder.ListIndex = 0
  txtCount.Text = 10
End Sub