📄 frm进货报表.frm
字号:
VERSION 5.00
Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#2.0#0"; "THREED20.OCX"
Object = "{8D650141-6025-11D1-BC40-0000C042AEC0}#3.0#0"; "ssdw3b32.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frm进货报表
BorderStyle = 3 'Fixed Dialog
Caption = "进货报表"
ClientHeight = 4260
ClientLeft = 45
ClientTop = 330
ClientWidth = 7005
Icon = "frm进货报表.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 4260
ScaleWidth = 7005
ShowInTaskbar = 0 'False
Begin VB.CommandButton cmdCReport
Caption = "汇总报表[&C]"
Height = 540
Left = 3755
TabIndex = 17
Top = 3225
Width = 1290
End
Begin VB.Frame Frame2
Caption = "商品筛选"
Height = 1050
Left = 270
TabIndex = 10
Top = 1635
Width = 6585
Begin VB.TextBox txtCode
Height = 315
Left = 600
TabIndex = 12
Top = 525
Width = 1485
End
Begin SSDataWidgets_B.SSDBCombo cmbBigType
Height = 300
Left = 2475
TabIndex = 13
Top = 555
Width = 1275
DataFieldList = "Column 0"
_Version = 196614
DataMode = 2
RowHeight = 423
Columns.Count = 2
Columns(0).Width= 2196
Columns(0).Caption= "分类编码"
Columns(0).Name = "分类编码"
Columns(0).CaptionAlignment= 2
Columns(0).DataField= "Column 0"
Columns(0).DataType= 8
Columns(0).FieldLen= 256
Columns(1).Width= 2328
Columns(1).Caption= "分类名称"
Columns(1).Name = "分类名称"
Columns(1).CaptionAlignment= 2
Columns(1).DataField= "Column 1"
Columns(1).DataType= 8
Columns(1).FieldLen= 256
_ExtentX = 2249
_ExtentY = 529
_StockProps = 93
BackColor = -2147483643
DataFieldToDisplay= "Column 1"
End
Begin SSDataWidgets_B.SSDBCombo cmbMidType
Height = 300
Left = 4830
TabIndex = 14
Top = 555
Width = 1275
DataFieldList = "Column 0"
_Version = 196614
DataMode = 2
RowHeight = 423
Columns.Count = 2
Columns(0).Width= 2064
Columns(0).Caption= "分类编码"
Columns(0).Name = "分类编码"
Columns(0).CaptionAlignment= 2
Columns(0).DataField= "Column 0"
Columns(0).DataType= 8
Columns(0).FieldLen= 256
Columns(1).Width= 2566
Columns(1).Caption= "分类名称"
Columns(1).Name = "分类名称"
Columns(1).CaptionAlignment= 2
Columns(1).DataField= "Column 1"
Columns(1).DataType= 8
Columns(1).FieldLen= 256
_ExtentX = 2249
_ExtentY = 529
_StockProps = 93
BackColor = -2147483643
DataFieldToDisplay= "Column 1"
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "大分类"
Height = 180
Left = 2505
TabIndex = 16
Top = 345
Width = 540
End
Begin VB.Label lblMidType
AutoSize = -1 'True
Caption = "中分类"
Height = 180
Left = 4815
TabIndex = 15
Top = 300
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "商品编码"
Height = 180
Left = 630
TabIndex = 11
Top = 255
Width = 720
End
End
Begin VB.Frame Frame1
Caption = "报表条件"
Height = 1170
Left = 240
TabIndex = 3
Top = 285
Width = 6600
Begin MSComCtl2.DTPicker dtpDateBegin
Height = 300
Left = 2355
TabIndex = 4
Top = 615
Width = 1740
_ExtentX = 3069
_ExtentY = 529
_Version = 393216
Format = 58195968
CurrentDate = 36510
End
Begin MSComCtl2.DTPicker dtpDateEnd
Height = 315
Left = 4605
TabIndex = 6
Top = 600
Width = 1770
_ExtentX = 3122
_ExtentY = 556
_Version = 393216
Format = 58195968
CurrentDate = 36510
End
Begin SSDataWidgets_B.SSDBCombo cmbSaleStyle
Height = 285
Left = 570
TabIndex = 7
Top = 615
Width = 1605
DataFieldList = "Column 0"
_Version = 196614
DataMode = 2
RowHeight = 397
Columns(0).Width= 2942
Columns(0).Caption= "销售类型"
Columns(0).Name = "销售类型"
Columns(0).CaptionAlignment= 2
Columns(0).DataField= "Column 0"
Columns(0).DataType= 8
Columns(0).FieldLen= 256
_ExtentX = 2831
_ExtentY = 503
_StockProps = 93
BackColor = -2147483643
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "进货时间"
Height = 180
Left = 2355
TabIndex = 9
Top = 360
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "销售方式"
Height = 180
Left = 570
TabIndex = 8
Top = 375
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "到"
Height = 180
Left = 4305
TabIndex = 5
Top = 660
Width = 180
End
End
Begin MSComDlg.CommonDialog dlgPrinter
Left = 315
Top = 3000
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton cmdExit
Caption = "退出[&X]"
Height = 540
Left = 5400
TabIndex = 2
Top = 3225
Width = 1290
End
Begin VB.CommandButton cmdReport
Caption = "报表[&R]"
Height = 540
Left = 2110
TabIndex = 1
Top = 3225
Width = 1290
End
Begin Threed.SSCommand cmdPrintSet
Height = 540
Left = 465
TabIndex = 0
Top = 3225
Width = 1290
_ExtentX = 2275
_ExtentY = 953
_Version = 131073
Caption = "打印设置[&S]"
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 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 cmbSaleStyle_InitColumnProps()
cmbSaleStyle.AddItem "经销"
cmbSaleStyle.AddItem "代销"
End Sub
Private Sub cmdCReport_Click()
On Error Resume Next
Dim Mytemp, TypeTemp
If cmbSaleStyle.Text = "" Then
MsgBox "请选择销售方式!!", vbInformation, "提示窗口"
Exit Sub
End If
Temp = cmbSaleStyle.Text & "进货单"
TypeTemp = ""
If cmbBigType.Text <> "" Then
If cmbMidType.Text <> "" Then
TypeTemp = " AND SUBSTRING(商品编码,3,2)='" & Trim(cmbBigType.Columns(0).Text) & Trim(cmbMidType.Columns(0).Text) & "'"
Else
TypeTemp = " AND SUBSTRING(商品编码,3,1)='" & Trim(cmbBigType.Columns(0).Text) & "'"
End If
End If
If txtCode.Text <> "" Then
TypeTemp = TypeTemp & " AND 商品编码 like '" & Trim(txtCode.Text) & "'"
End If
' If dtpDateBegin.Value = dtpDateEnd.Value Then
' Mytemp = " WHERE 制表日期='" & Format(dtpDateBegin.Value, "YYYY-MM-DD") & "'"
' Else
Mytemp = " WHERE 制表日期 BETWEEN '" & Format(dtpDateBegin.Value, "YYYY-MM-DD") & _
"' AND '" & Format(dtpDateEnd.Value, "YYYY-MM-DD") & "'"
' End If
sSQL = "SELECT 制表日期,商品编码,品名,单位,SUM(进价) AS 进价," & _
" SUM(零售价) AS 零售价,SUM(进价金额) AS 进价金额,SUM(售价金额) " & _
" AS 售价金额,SUM(进货数量) AS 进货数量 FROM " & Temp & Mytemp & TypeTemp & _
" GROUP BY 制表日期,商品编码,品名,单位 "
If envDStar.rscmd进货汇总报表.State = adStateOpen Then
envDStar.rscmd进货汇总报表.Close
End If
envDStar.Commands("cmd进货汇总报表").CommandText = sSQL
envDStar.Commands("cmd进货汇总报表").Execute
envDStar.rscmd进货汇总报表.Open
Load rpt进货汇总报表
rpt进货汇总报表.Title = cmbSaleStyle.Text & "进货报表"
rpt进货汇总报表.Sections("ReportHeader").Controls("lblDateB").Caption = Format(dtpDateBegin.Value, "YYYY-MM-DD")
rpt进货汇总报表.Sections("ReportHeader").Controls("lblDateE").Caption = Format(dtpDateEnd.Value, "YYYY-MM-DD")
rpt进货汇总报表.Show
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdPrintSet_Click()
dlgPrinter.ShowPrinter
End Sub
Private Sub cmdReport_Click()
On Error Resume Next
Dim Mytemp, TypeTemp
If cmbSaleStyle.Text = "" Then
MsgBox "请选择销售方式!!", vbInformation, "提示窗口"
Exit Sub
End If
Temp = cmbSaleStyle.Text & "进货单"
TypeTemp = ""
If cmbBigType.Text <> "" Then
If cmbMidType.Text <> "" Then
TypeTemp = " AND SUBSTRING(商品编码,3,2)='" & Trim(cmbBigType.Columns(0).Text) & Trim(cmbMidType.Columns(0).Text) & "'"
Else
TypeTemp = " AND SUBSTRING(商品编码,3,1)='" & Trim(cmbBigType.Columns(0).Text) & "'"
End If
End If
If txtCode.Text <> "" Then
TypeTemp = TypeTemp & " AND 商品编码 like '" & Trim(txtCode.Text) & "'"
End If
' If dtpDateBegin.Value = dtpDateEnd.Value Then
' Mytemp = " WHERE 制表日期='" & Format(dtpDateBegin.Value, "YYYY-MM-DD") & "'"
' Else
Mytemp = " WHERE 制表日期 BETWEEN '" & Format(dtpDateBegin.Value, "YYYY-MM-DD") & _
"' AND '" & Format(dtpDateEnd.Value, "YYYY-MM-DD") & "'"
' End If
sSQL = "SHAPE {SELECT 制表日期 FROM " & Temp & Mytemp & " GROUP BY 制表日期} " & _
" AS cmd进货报表 APPEND ({SELECT 制表日期,商品编码,品名,单位," & _
" SUM(进价) AS 进价,SUM(零售价) AS 零售价,SUM(进价金额) AS 进价金额," & _
" SUM(售价金额) AS 售价金额,SUM(进货数量) AS 进货数量 FROM " & Temp & _
" WHERE 确认状态=1 " & TypeTemp & " GROUP BY 制表日期,商品编码,品名,单位} AS cmd进货明细 " & _
" RELATE '制表日期' TO '制表日期') AS cmd进货明细"
If envDStar.rscmd进货报表.State = adStateOpen Then
envDStar.rscmd进货报表.Close
End If
envDStar.Commands("cmd进货报表").CommandText = sSQL
envDStar.Commands("cmd进货报表").Execute
envDStar.rscmd进货报表.Open
Load rpt进货报表
rpt进货报表.Title = cmbSaleStyle.Text & "进货报表"
rpt进货报表.Sections("ReportHeader").Controls("lblDateB").Caption = Format(dtpDateBegin.Value, "YYYY-MM-DD")
rpt进货报表.Sections("ReportHeader").Controls("lblDateE").Caption = Format(dtpDateEnd.Value, "YYYY-MM-DD")
rpt进货报表.Show
End Sub
Private Sub Form_Load()
Call SetFormToCenter(Me)
dtpDateBegin.Value = Now
dtpDateEnd.Value = Now
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -