frm+Ԧ

注释：用VB开发的进销存系统源码

            Caption         =   "连锁店"
            Height          =   180
            Left            =   2475
            TabIndex        =   14
            Top             =   705
            Width           =   540
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "销售方式"
            Height          =   180
            Left            =   2280
            TabIndex        =   7
            Top             =   285
            Width           =   720
         End
      End
      Begin MSComDlg.CommonDialog dlgPrinter 
         Left            =   4560
         Top             =   1410
         _ExtentX        =   688
         _ExtentY        =   688
         _Version        =   393216
      End
      Begin Threed.SSCommand cmdExit 
         Height          =   435
         Left            =   3675
         TabIndex        =   5
         Top             =   2955
         Width           =   1185
         _ExtentX        =   2090
         _ExtentY        =   767
         _Version        =   131073
         Caption         =   "退出[&X]"
      End
   End
End
Attribute VB_Name = "frm库存报表"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


'***********************************************
'                   库存报表
'***********************************************


Option Explicit


Private Sub cmbGroup_InitColumnProps()
    On Error GoTo LinkErr
    Set RsTemp = Nothing
    RsTemp.Open "SELECT * FROM 分店主档", Conn, adOpenStatic, adLockReadOnly
    While Not RsTemp.EOF
        cmbGroup.AddItem RsTemp("分店编码") + vbTab + RsTemp("分店名称")
        RsTemp.MoveNext
    Wend
    Exit Sub
LinkErr:
    MsgBox "初始化数据错误！" & Err.Description, vbExclamation, "错误窗口"
End Sub

Private Sub cmbSaleStyle_InitColumnProps()
    cmbSaleStyle.AddItem "经销"
    cmbSaleStyle.AddItem "代销"
End Sub

Private Sub cmbBigType_Click()
    On Error Resume Next
    sSQL = "SELECT 本节点编码,本节点名称 FROM 商品分类表 WHERE 级别=2 AND 父节点名称='" & Trim(cmbBigType.Columns(1).Text) & "'"
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    cmbMidType.RemoveAll
    While Not RsTemp.EOF
        cmbMidType.AddItem RsTemp("本节点编码") & vbTab & Trim(RsTemp("本节点名称"))
        RsTemp.MoveNext
    Wend
End Sub

Private Sub cmbBigType_InitColumnProps()
    On Error Resume Next
    sSQL = "SELECT 本节点编码,本节点名称 FROM 商品分类表 WHERE 级别=1"
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    While Not RsTemp.EOF
        cmbBigType.AddItem RsTemp("本节点编码") & vbTab & Trim(RsTemp("本节点名称"))
        RsTemp.MoveNext
    Wend
End Sub


Private Sub cmdExit_Click()
    Unload Me
End Sub

Private Sub cmdPrint_Click()
    dlgPrinter.ShowPrinter
End Sub

Private Sub cmdShortReport_Click()
'   On Error Resume Next
'    Dim mType As String
'    If cmbSaleStyle.Text = "" Then
'        MsgBox "请选择销售方式!!", vbInformation, "提示窗口"
'        Exit Sub
'    End If
'    Temp = ""
'    mType = ""
'    If cmbBigType.Text <> "" Then
'            If cmbMidType.Text <> "" Then
'                Temp = " AND SUBSTRING(商品编码,3,2)='" & Trim(cmbBigType.Text) & Trim(cmbMidType.Text) & "'"
'            Else
'                Temp = " AND SUBSTRING(商品编码,3,1)='" & Trim(cmbBigType.Text) & "'"
'            End If
'    End If
'    If optCenter.Value Then
'        If envDStar.rscmd配送中心库存.State = adStateOpen Then
'            envDStar.rscmd配送中心库存.Close
'        End If
'        sSQL = " SHAPE {SELECT 'STORETEMP' AS STORETEMP FROM 配送中心库存}  " & _
'            " AS cmd配送中心库存 APPEND ({SELECT 'STORETEMP' AS STORETEMP," & _
'            " 商品编码,品名,数量,进价金额,售价金额,单位,经营方式  FROM 配送中心库存 " & _
'            " WHERE 经营方式='" & cmbSaleStyle.Text & "'" & Temp & "}" & _
'            " AS cmd配送中心库存报表 RELATE 'STORETEMP' TO 'STORETEMP') " & _
'            " AS cmd配送中心库存报表"
'        envDStar.Commands("cmd配送中心库存").CommandText = sSQL
'        envDStar.Commands("cmd配送中心库存").Execute
'        envDStar.rscmd配送中心库存.Open
'        Load rpt配送中心库存报表
'        rpt配送中心库存报表.Title = "双星集团青岛经营公司库存报表"
'        rpt配送中心库存报表.Show
'    Else
'        If envDStar.rscmd分店库存报表.State = adStateOpen Then
'            envDStar.rscmd分店库存报表.Close
'        End If
'        If cmbGroup.Text <> "" Then
'            mType = " WHERE 分店编码='" & Trim(cmbGroup.Text) & "'"
'        End If
'        sSQL = "SHAPE {SELECT 分店编码,分店名称 FROM 分店主档 " & mType & "} " & _
'            " AS cmd分店库存报表 APPEND ({SELECT * FROM 分店库存 WHERE 经营方式='" & cmbSaleStyle.Text & _
'            "'" & Temp & "}  AS cmd分店库存报表明细 RELATE '分店编码' TO '分店编码') " & _
'            " AS cmd分店库存报表明细"
'        envDStar.Commands("cmd分店库存报表").CommandText = sSQL
'        envDStar.Commands("cmd分店库存报表").Execute
'        envDStar.rscmd分店库存报表.Open
'        Load rpt分店库存报表
'        rpt分店库存报表.Title = "双星集团青岛经营公司分店库存报表"
'        rpt分店库存报表.Show
'    End If
'
   On Error Resume Next
    Dim mType As String
    If cmbSaleStyle.Text = "" Then
        MsgBox "请选择销售方式!!", vbInformation, "提示窗口"
        Exit Sub
    End If
    Temp = ""
    mType = ""
    If cmbBigType.Text <> "" Then
            If cmbMidType.Text <> "" Then
                Temp = " AND SUBSTRING(商品编码,3,2)='" & Trim(cmbBigType.Columns(0).Text) & Trim(cmbMidType.Columns(0).Text) & "'"
            Else
                Temp = " AND SUBSTRING(商品编码,3,1)='" & Trim(cmbBigType.Columns(0).Text) & "'"
            End If
    End If
    If optCenter.Value Then
        If envDStar.rscmdStore.State = adStateOpen Then
            envDStar.rscmdStore.Close
        End If
        sSQL = " SELECT 商品编码,品名,数量,进价金额,售价金额,单位,经营方式  FROM 配送中心库存 " & _
            " WHERE 经营方式='" & cmbSaleStyle.Text & "'" & Temp & " ORDER BY 商品编码"
        envDStar.Commands("cmdStore").CommandText = sSQL
        envDStar.Commands("cmdStore").Execute
        envDStar.rscmdStore.Open
        Load rpt配送中心库存报表
        rpt配送中心库存报表.Title = GetSetting("进销存管理系统", "报表标题", "经营公司库存报表", "经营公司库存报表")
        rpt配送中心库存报表.Show
    Else
        If envDStar.rscmd分店库存报表.State = adStateOpen Then
            envDStar.rscmd分店库存报表.Close
        End If
        If cmbGroup.Text <> "" Then
            mType = " WHERE 分店编码='" & Trim(cmbGroup.Text) & "'"
        End If
        sSQL = "SHAPE {SELECT 分店编码,分店名称 FROM 分店主档 " & mType & "} " & _
            " AS cmd分店库存报表 APPEND ({SELECT * FROM 分店库存 WHERE 经营方式='" & cmbSaleStyle.Text & _
            "'" & Temp & " ORDER BY 商品编码}  AS cmd分店库存报表明细 RELATE '分店编码' TO '分店编码') " & _
            " AS cmd分店库存报表明细"
        envDStar.Commands("cmd分店库存报表").CommandText = sSQL
        envDStar.Commands("cmd分店库存报表").Execute
        envDStar.rscmd分店库存报表.Open
        Load rpt分店库存报表
        rpt分店库存报表.Title = GetSetting("进销存管理系统", "报表标题", "分店库存报表", "分店库存报表")
        rpt分店库存报表.Show
    End If


End Sub

Private Sub Form_Load()
    Call SetFormToCenter(Me)
End Sub