frminquireincondition.frm

VB礼品店销售管理系统 包括ACCESS数据库访问职工管理 账单管理

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmInquireInCondition 
   Caption         =   "入库信息查询条件"
   ClientHeight    =   3510
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4920
   Icon            =   "frmInquireInCondition.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3510
   ScaleWidth      =   4920
   StartUpPosition =   2  '屏幕中心
   Begin VB.ComboBox cmbPersonId 
      Height          =   300
      Left            =   2040
      TabIndex        =   3
      Top             =   1800
      Visible         =   0   'False
      Width           =   2175
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确  定"
      Height          =   615
      Left            =   1440
      TabIndex        =   2
      Top             =   2640
      Width           =   1935
   End
   Begin MSComCtl2.DTPicker DTPend 
      Height          =   375
      Left            =   2040
      TabIndex        =   1
      Top             =   1080
      Width           =   2175
      _ExtentX        =   3836
      _ExtentY        =   661
      _Version        =   393216
      Format          =   21168129
      CurrentDate     =   38885
   End
   Begin MSComCtl2.DTPicker DTPstart 
      Height          =   375
      Left            =   2040
      TabIndex        =   0
      Top             =   330
      Width           =   2175
      _ExtentX        =   3836
      _ExtentY        =   661
      _Version        =   393216
      Format          =   21168129
      CurrentDate     =   38885
   End
   Begin VB.Frame Frame1 
      Height          =   2415
      Left            =   0
      TabIndex        =   4
      Top             =   0
      Width           =   4935
      Begin VB.Label lbPerson 
         AutoSize        =   -1  'True
         Caption         =   "员 工 编 号"
         Height          =   180
         Left            =   480
         TabIndex        =   7
         Top             =   1850
         Visible         =   0   'False
         Width           =   990
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "查询终止时间"
         Height          =   180
         Left            =   480
         TabIndex        =   6
         Top             =   1150
         Width           =   1080
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "查询起始时间"
         Height          =   180
         Left            =   480
         TabIndex        =   5
         Top             =   405
         Width           =   1080
      End
   End
   Begin VB.Frame Frame2 
      BorderStyle     =   0  'None
      Height          =   1095
      Left            =   0
      TabIndex        =   8
      Top             =   2400
      Width           =   4935
   End
End
Attribute VB_Name = "frmInquireInCondition"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdOK_Click()
On Error GoTo errhandle
    
    startdate = DTPstart.Value & " 00:00:00"
    enddate = DTPend.Value & " 23:59:59"
    If mode = 1 Then
        'sqlstring = "select * from product where instocktime>=" & CDate(startdate) & " and instocktime<" & _
        '                CDate(enddate)
        sqlstring = "select ProductID,ProductName,TreeSort,JinhuoPrice,Number,JinhuoPrice*Number as SumPrice,MarketPrice,LowestPrice,Picture,InstockTime from product " & _
                     " where instocktime>=cdate('" & startdate & "') and instocktime<cdate('" & _
                       enddate & "') order by cdate(instocktime) desc"
        frmInquireInstock.Adodc1.CommandType = adCmdText
        frmInquireInstock.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbFile & ";Persist Security Info=False"
        frmInquireInstock.Adodc1.RecordSource = sqlstring
        frmInquireInstock.Adodc1.Refresh
        Set frmInquireInstock.DataGrid1.DataSource = frmInquireInstock.Adodc1
        
        If Not frmInquireInstock.Adodc1.Recordset.BOF Then
            frmInquireInstock.txtName = frmInquireInstock.Adodc1.Recordset.Fields("ProductName")
            frmInquireInstock.txtProductId = frmInquireInstock.Adodc1.Recordset.Fields("ProductID")
            s = Split(frmInquireInstock.Adodc1.Recordset.Fields("instocktime"), " ")
            frmInquireInstock.DTPDate.Value = s(0)
            frmInquireInstock.DTPTime.Value = s(1)
            frmInquireInstock.txtIn = "￥" & Format(frmInquireInstock.Adodc1.Recordset.Fields("JinhuoPrice"), "###,###,###.00")
            frmInquireInstock.txtNumber = frmInquireInstock.Adodc1.Recordset.Fields("Number")
            frmInquireInstock.txtMarketPrice = "￥" & Format(frmInquireInstock.Adodc1.Recordset.Fields("marketprice"), "###,###,###.00")
            frmInquireInstock.txtLowest = "￥" & Format(frmInquireInstock.Adodc1.Recordset.Fields("lowestprice"), "###,###,###.00")
            frmInquireInstock.imgProduct.Picture = LoadPicture(frmInquireInstock.Adodc1.Recordset.Fields("picture"))
            frmInquireInstock.txtTreeSort = frmInquireInstock.Adodc1.Recordset.Fields("TreeSort")
            frmInquireInstock.txtSmallSumUp = "￥" & Format(frmInquireInstock.Adodc1.Recordset.Fields("SumPrice"), "###,###,###.00")

            sqlstring = "select sum(JinhuoPrice*Number) as JPrice from product " & _
                         " where instocktime>=cdate('" & startdate & "') and instocktime<cdate('" & _
                           enddate & "')"
            Set cn = New ADODB.Connection
            cn.Provider = "Microsoft.Jet.OLEDB.4.0"
            strconn = "Data Source=" & dbFile & ";Persist Security Info=False"
            cn.Open ConnectionString:=strconn
            Set rs = New ADODB.Recordset
            rs.ActiveConnection = cn
            rs.CursorType = adOpenStatic
            rs.Open sqlstring
            frmInquireInstock.txtSumUp = "￥" & Format(Str(rs.Fields("Jprice")), "###,###,###.00")
            rs.Close
            Set rs = Nothing
            cn.Close
            Set cn = Nothing
        Else
            MsgBox "此段时间内没有产品的入库信息，请重新查询！", 48, "信息提示"
            frmInquireInstock.txtSumUp = "￥" & Format(Str(0), "###,###,###.00")
            Exit Sub
        End If
        Unload Me
'        If InquireInstockFlag = True Then
'            frmInquireInstock.SetFocus
'        Else
            frmInquireInstock.Show
'        End If
    ElseIf mode = 2 Then
        sqlstring = "select lsh,productid,ProductName,InPrice,SalesPrice,Shuliang," & _
                    "lirun,CustomerID,SalesPersonID,SaleDate from tabsales " & _
                    "where saledate>=cdate('" & startdate & "') and saledate<cdate('" & _
                        enddate & "')  order by cdate(saledate) desc"
        frmSalesinfo.Adodc1.CommandType = adCmdText
        frmSalesinfo.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbFile & ";Persist Security Info=False"
        frmSalesinfo.Adodc1.RecordSource = sqlstring
        frmSalesinfo.Adodc1.Refresh
        Set frmSalesinfo.DataGrid1.DataSource = frmSalesinfo.Adodc1
      
        sqlstring = "select productid,sum(shuliang),sum(lirun) from tabsales " & _