frmselldcheck.frm

VB编写的超市管理系统

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmSellDcheck 
   BackColor       =   &H00C0C0FF&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "销售盘点"
   ClientHeight    =   5550
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   9000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5550
   ScaleWidth      =   9000
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdDelMonth 
      Caption         =   "删除当月"
      Height          =   375
      Left            =   5880
      TabIndex        =   7
      Top             =   1320
      Width           =   1095
   End
   Begin VB.CommandButton cmdMonth 
      Caption         =   "显示当月"
      Height          =   375
      Left            =   3120
      TabIndex        =   6
      Top             =   1320
      Width           =   1095
   End
   Begin VB.CommandButton cmdPrint 
      Caption         =   "打印"
      Height          =   375
      Left            =   7200
      TabIndex        =   5
      Top             =   1320
      Width           =   1095
   End
   Begin VB.CommandButton cmdDel 
      Caption         =   "删除当日"
      Height          =   375
      Left            =   4560
      TabIndex        =   4
      Top             =   1320
      Width           =   1095
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   3495
      Left            =   480
      TabIndex        =   3
      Top             =   1680
      Width           =   8295
      _ExtentX        =   14631
      _ExtentY        =   6165
      _Version        =   393216
   End
   Begin VB.CommandButton cmdView 
      Caption         =   "显示当日"
      Height          =   375
      Left            =   1680
      TabIndex        =   2
      Top             =   1320
      Width           =   1095
   End
   Begin MSComCtl2.DTPicker DTPicker1 
      Height          =   375
      Left            =   3240
      TabIndex        =   1
      Top             =   720
      Width           =   3135
      _ExtentX        =   5530
      _ExtentY        =   661
      _Version        =   393216
      Format          =   166395905
      CurrentDate     =   38879
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "日期"
      Height          =   255
      Left            =   2280
      TabIndex        =   0
      Top             =   840
      Width           =   615
   End
End
Attribute VB_Name = "frmSellDcheck"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Sql As String
Dim RS As ADODB.Recordset
Private Sub cmdDel_Click()
'删除当日销售
Me.MSFlexGrid1.Clear
Sql = "delete from 销售表 where 销售日期='" & Me.DTPicker1.Value & "'"
dbOperate Sql
End Sub
Private Sub cmdDelMonth_Click()
'删除当月销售
Me.MSFlexGrid1.Clear
Sql = "delete from 销售表 where left(销售日期,7)='" & Left(Me.DTPicker1.Value, 7) & "'"
dbOperate Sql
End Sub

Private Sub cmdMonth_Click()
'显示当月销售情况
Dim sum As Single
Sql = "select * from 销售查询表 where left(销售日期,7)='" & Left(Me.DTPicker1.Value, 7) & "'"
writeMS Sql, Me.MSFlexGrid1
For i = 1 To Me.MSFlexGrid1.Rows - 2
    sum = sum + Me.MSFlexGrid1.TextMatrix(i, Me.MSFlexGrid1.Cols - 1)
Next i
Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows - 1, Me.MSFlexGrid1.Cols - 1) = sum
End Sub

Private Sub cmdPrint_Click()
writeMSFlexGrid Me.MSFlexGrid1, "销售盘点"
End Sub
Private Sub cmdView_Click()
'显示当日销售情况
Dim sum As Single
Sql = "select * from 销售查询表 where 销售日期='" & Me.DTPicker1.Value & "'"
writeMS Sql, Me.MSFlexGrid1
For i = 1 To Me.MSFlexGrid1.Rows - 2
    sum = sum + Me.MSFlexGrid1.TextMatrix(i, Me.MSFlexGrid1.Cols - 1)
Next i
Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows - 1, Me.MSFlexGrid1.Cols - 1) = sum
End Sub