form1.frm

超市管理~~~ 付款~审核~收货~退货~~~~ AND SO ON

VERSION 5.00
Object = "{CFA7AFF4-3242-4269-9172-7389D695AE01}#1.0#0"; "StoneXP.ocx"
Object = "{DAAC6951-59A4-4C08-9D6E-FE3919B64861}#1.0#0"; "FlexCell.ocx"
Begin VB.Form Form1 
   Caption         =   "库存查看"
   ClientHeight    =   7545
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10095
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   7545
   ScaleWidth      =   10095
   StartUpPosition =   1  '所有者中心
   Begin StoneXP.XPButton XPButton1 
      Height          =   375
      Left            =   4680
      TabIndex        =   5
      Top             =   75
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   661
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ButtonStyle     =   1
      Caption         =   "查 看"
      MouseIcon       =   "Form1.frx":000C
      MousePointer    =   99
   End
   Begin VB.TextBox Text2 
      Appearance      =   0  'Flat
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "0"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   1
      EndProperty
      Height          =   270
      Left            =   3240
      TabIndex        =   2
      Top             =   120
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "0"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   1
      EndProperty
      Height          =   270
      Left            =   1080
      TabIndex        =   1
      Top             =   120
      Width           =   1095
   End
   Begin FlexCell.Grid Grid1 
      Height          =   6735
      Left            =   -240
      TabIndex        =   0
      Top             =   840
      Width           =   9855
      _ExtentX        =   17383
      _ExtentY        =   11880
      Appearance      =   0
      Cols            =   5
      Rows            =   30
   End
   Begin VB.Label Label2 
      Caption         =   "数量大于:"
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   2400
      TabIndex        =   4
      Top             =   165
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "数量少于:"
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   240
      TabIndex        =   3
      Top             =   140
      Width           =   855
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'作者：性灵工作室
'发布日期：2007/03/03
'描    述：简单小型超市采购系统
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Private Sub Form_Load()
End Sub
Private Sub Form_Resize()
If Me.WindowState <> 1 Then
    Grid1.Left = 0
    Grid1.Width = Me.Width
    Grid1.Top = 600
    Grid1.Height = Me.Height - 1150
End If
End Sub
Private Sub seeku()
On Error GoTo finish:
Set cg2 = cnn.Execute(sql)
Grid1.Cols = 8
Grid1.Rows = 1
For i = 1 To Grid1.Cols - 1
Grid1.Cell(0, i).Text = cg2.Fields(i - 1).Name
Next
Do While Not cg2.EOF
 Grid1.Rows = Grid1.Rows + 1
 Grid1.Cell(Grid1.Rows - 1, 0).Text = Grid1.Rows - 1
 For i = 1 To Grid1.Cols - 1
  If cg2.Fields(i - 1) = Null Then
  Grid1.Cell(Grid1.Rows - 1, i).Text = ""
  Else
  Grid1.Cell(Grid1.Rows - 1, i).Text = cg2.Fields(i - 1)
   If Mid(Grid1.Cell(Grid1.Rows - 1, i).Text, 1, 1) = "." Then
   Grid1.Cell(Grid1.Rows - 1, i).Text = "0" & Grid1.Cell(Grid1.Rows - 1, i).Text
   End If
  End If
  Next
  cg2.MoveNext
Loop
Exit Sub
finish:
 MsgBox Err.Description
End Sub

Private Sub xpbutton1_Click()
If Text1.Text <> "" And Text2.Text <> "" Then
sql = "select * from 库存 where 数量<" & Text1.Text & " or 数量>" & Text2.Text
seeku
ElseIf Text1.Text <> "" Then
sql = "select * from 库存 where 数量<" & Text1.Text
seeku
ElseIf Text2.Text <> "" Then
sql = "select * from 库存 where 数量<" & Text2.Text
seeku
Else
sql = "select * from 库存"
seeku
End If
Text1.Text = ""
Text2.Text = ""
End Sub