shouhuo.frm

一个自己编写的小型超市管理系统,实现比较简单的功能,供初学者学习参考用.

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form shouhuo 
   BackColor       =   &H00FFC0C0&
   Caption         =   "售货"
   ClientHeight    =   8970
   ClientLeft      =   60
   ClientTop       =   420
   ClientWidth     =   14040
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   8970
   ScaleWidth      =   14040
   WindowState     =   2  'Maximized
   Begin VB.TextBox txtTiao 
      Height          =   375
      Left            =   5640
      TabIndex        =   5
      Top             =   2700
      Width           =   1695
   End
   Begin VB.TextBox txtShu 
      Height          =   375
      Left            =   9120
      TabIndex        =   4
      Top             =   2700
      Width           =   1335
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "加入"
      Height          =   495
      Left            =   11040
      TabIndex        =   3
      Top             =   2640
      Width           =   855
   End
   Begin VB.CommandButton cmdTijiao 
      Caption         =   "提交"
      Height          =   375
      Left            =   7560
      TabIndex        =   1
      Top             =   7200
      Width           =   1575
   End
   Begin VB.CommandButton cmdCls 
      Caption         =   "清除"
      Height          =   495
      Left            =   11520
      TabIndex        =   0
      Top             =   6360
      Width           =   1335
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   2655
      Left            =   3720
      TabIndex        =   2
      Top             =   3540
      Width           =   9255
      _ExtentX        =   16325
      _ExtentY        =   4683
      _Version        =   393216
      Cols            =   4
      FixedCols       =   0
      BackColorBkg    =   16761024
      GridColor       =   16777152
   End
   Begin VB.Label Label10 
      BackStyle       =   0  'Transparent
      Caption         =   "条形码"
      Height          =   315
      Left            =   4800
      TabIndex        =   7
      Top             =   2760
      Width           =   735
   End
   Begin VB.Label Label11 
      BackStyle       =   0  'Transparent
      Caption         =   "数量"
      Height          =   375
      Left            =   8520
      TabIndex        =   6
      Top             =   2760
      Width           =   735
   End
End
Attribute VB_Name = "shouhuo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rsKucun As ADODB.Recordset
Dim stqSql As String, strMsg As String

Private Sub cmdAdd_Click()
    strsql = "select * from 库存表 where 条形码 = '" & txtTiao.Text & "'"
    Set rsKucun = ExecuteSQL(strsql, strMsg)
    
    If rsKucun.PageCount = 0 Then
        MsgBox "不存在此商品！"
        Exit Sub
    End If
    
    rsKucun.MoveFirst
    MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) = rsKucun.Fields("条形码").Value
    MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) = rsKucun.Fields("商品名称").Value
    MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2) = txtShu.Text
    MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3) = rsKucun.Fields("零售价").Value
    
    MSFlexGrid1.Rows = Val(MSFlexGrid1.Rows) + 1
    MSFlexGrid1.Row = Val(MSFlexGrid1.Row) + 1
End Sub
Private Sub cmdCls_Click()
    MSFlexGrid1.Clear
    MSFlexGrid1.Row = 1
    MSFlexGrid1.Rows = 2
    MSFlexGrid1.TextMatrix(0, 0) = "条形码"
    MSFlexGrid1.TextMatrix(0, 1) = "商品名称"
    MSFlexGrid1.TextMatrix(0, 2) = "数量"
    MSFlexGrid1.TextMatrix(0, 3) = "零售价"
End Sub

Private Sub cmdTijiao_Click()
    Dim i As Integer, j As Double
    Dim rsShouhuo As ADODB.Recordset
    
    Money = 0
    Set rsShouhuo = ExecuteSQL("select * from 售货表", strMsg)
    For i = 1 To MSFlexGrid1.Row - 1
        rsShouhuo.AddNew
        rsShouhuo.Fields("条形码").Value = MSFlexGrid1.TextMatrix(i, 0)
        rsShouhuo.Fields("数量").Value = MSFlexGrid1.TextMatrix(i, 2)
        rsShouhuo.Fields("应收金额").Value = Val(MSFlexGrid1.TextMatrix(i, 2)) * Val(MSFlexGrid1.TextMatrix(i, 3))
        rsShouhuo.Fields("日期时间").Value = Format(Date, "yyyy-mm-dd") & " " & Format(Time, "hh-nn-ss")
        
        Money = Money + Val(MSFlexGrid1.TextMatrix(i, 2)) * Val(MSFlexGrid1.TextMatrix(i, 3))
        '修改库存量
        strsql = "select * from 库存表 where 条形码 = '" & MSFlexGrid1.TextMatrix(i, 0) & "'"
        Set rsKucun = ExecuteSQL(strsql, strMsg)
        rsKucun.MoveFirst
        rsKucun.Fields("库存量").Value = Val(rsKucun.Fields("库存量").Value) - Val(txtShu.Text)
        rsKucun.UpdateBatch adAffectCurrent
    Next i
    rsShouhuo.UpdateBatch adAffectCurrent
    
    j = Val(InputBox("请输入实收金额", , , Me.Width / 3, Me.Height / 3))
    
    MsgBox "提交成功！ 找零" & j - Money & "元"
End Sub

Private Sub Form_Load()
    MSFlexGrid1.ColWidth(0) = 2000
    MSFlexGrid1.ColWidth(1) = 2000
    MSFlexGrid1.ColWidth(2) = 2000
    MSFlexGrid1.ColWidth(3) = 2000
    
    MSFlexGrid1.TextMatrix(0, 0) = "条形码"
    MSFlexGrid1.TextMatrix(0, 1) = "商品名称"
    MSFlexGrid1.TextMatrix(0, 2) = "数量"
    MSFlexGrid1.TextMatrix(0, 3) = "零售价"
End Sub