📄 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"
Begin VB.Form frm分店库存初始化
BorderStyle = 3 'Fixed Dialog
Caption = "分店库存初始化"
ClientHeight = 6615
ClientLeft = 45
ClientTop = 330
ClientWidth = 10965
Icon = "frm分店库存初始化.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6615
ScaleWidth = 10965
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
Height = 765
Left = 75
TabIndex = 0
Top = 660
Width = 8640
Begin SSDataWidgets_B.SSDBCombo cmbGroup
Height = 270
Left = 1050
TabIndex = 1
Top = 270
Width = 1170
DataFieldList = "Column 0"
_Version = 196614
DataMode = 2
RowHeight = 397
Columns.Count = 2
Columns(0).Width= 2011
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= 2582
Columns(1).Caption= "部门名称"
Columns(1).Name = "部门名称"
Columns(1).CaptionAlignment= 2
Columns(1).DataField= "Column 1"
Columns(1).DataType= 8
Columns(1).FieldLen= 256
_ExtentX = 2064
_ExtentY = 476
_StockProps = 93
BackColor = -2147483643
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "连锁店"
Height = 180
Left = 375
TabIndex = 2
Top = 315
Width = 540
End
End
Begin Threed.SSPanel SSPanel1
Align = 1 'Align Top
Height = 555
Left = 0
TabIndex = 3
Top = 0
Width = 10965
_ExtentX = 19341
_ExtentY = 979
_Version = 131073
BorderWidth = 0
BevelInner = 1
Begin Threed.SSCommand cmdToolSelect
CausesValidation= 0 'False
Height = 465
Left = 3750
TabIndex = 11
Tag = "退出"
ToolTipText = "退出"
Top = 30
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "选择[&R]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdToolJian
CausesValidation= 0 'False
Height = 465
Left = 4680
TabIndex = 10
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "大件[&B]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdToolAdd
CausesValidation= 0 'False
Height = 465
Left = 36
TabIndex = 8
Tag = "新建"
ToolTipText = "新建单据"
Top = 36
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "新建[&N]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdToolSave
Height = 465
Left = 960
TabIndex = 7
Tag = "保存"
ToolTipText = "保存单据"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "保存[&S]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdToolDelete
CausesValidation= 0 'False
Height = 465
Left = 1890
TabIndex = 6
Tag = "删除"
ToolTipText = "删除当前单据"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "删除[&D]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdToolExit
CausesValidation= 0 'False
Height = 465
Left = 5640
TabIndex = 5
Tag = "退出"
ToolTipText = "退出"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "退出[&X]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdToolQuery
Height = 465
Left = 2805
TabIndex = 4
Tag = "保存"
ToolTipText = "保存单据"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "查询[&Q]"
ButtonStyle = 3
BevelWidth = 0
End
End
Begin SSDataWidgets_B.SSDBGrid grdDET
Align = 2 'Align Bottom
Height = 4980
Left = 0
TabIndex = 9
Top = 1635
Width = 10965
ScrollBars = 2
_Version = 196614
DataMode = 2
Col.Count = 8
BevelColorFrame = 4210752
BevelColorHighlight= 16777215
BevelColorShadow= 16777215
BevelColorFace = 12648384
AllowAddNew = -1 'True
AllowDelete = -1 'True
MultiLine = 0 'False
AllowColumnMoving= 2
AllowColumnSwapping= 0
SelectTypeRow = 1
ForeColorEven = 4210752
BackColorOdd = 16777215
RowHeight = 450
Columns.Count = 8
Columns(0).Width= 1905
Columns(0).Caption= "商品编码"
Columns(0).Name = "INCODE"
Columns(0).CaptionAlignment= 2
Columns(0).DataField= "Column 0"
Columns(0).DataType= 8
Columns(0).FieldLen= 12
Columns(1).Width= 3784
Columns(1).Caption= "商品名称"
Columns(1).Name = "SNAME"
Columns(1).CaptionAlignment= 2
Columns(1).DataField= "Column 1"
Columns(1).DataType= 8
Columns(1).FieldLen= 256
Columns(1).Locked= -1 'True
Columns(1).HasBackColor= -1 'True
Columns(1).BackColor= 16776960
Columns(2).Width= 1138
Columns(2).Caption= "单位"
Columns(2).Name = "UNIT"
Columns(2).Alignment= 1
Columns(2).CaptionAlignment= 2
Columns(2).DataField= "Column 2"
Columns(2).DataType= 8
Columns(2).FieldLen= 256
Columns(2).Locked= -1 'True
Columns(2).HasBackColor= -1 'True
Columns(2).BackColor= 16776960
Columns(3).Width= 2143
Columns(3).Caption= "颜色"
Columns(3).Name = "颜色"
Columns(3).CaptionAlignment= 2
Columns(3).DataField= "Column 3"
Columns(3).DataType= 8
Columns(3).FieldLen= 256
Columns(3).Style= 3
Columns(4).Width= 1191
Columns(4).Caption= "尺寸"
Columns(4).Name = "尺寸"
Columns(4).CaptionAlignment= 2
Columns(4).DataField= "Column 4"
Columns(4).DataType= 8
Columns(4).FieldLen= 256
Columns(4).Style= 3
Columns(5).Width= 1455
Columns(5).Caption= "单价"
Columns(5).Name = "单价"
Columns(5).Alignment= 1
Columns(5).CaptionAlignment= 2
Columns(5).DataField= "Column 5"
Columns(5).DataType= 4
Columns(5).NumberFormat= "#.00"
Columns(5).FieldLen= 256
Columns(5).HasBackColor= -1 'True
Columns(5).BackColor= 16776960
Columns(6).Width= 1693
Columns(6).Caption= "数量 "
Columns(6).Name = "数量"
Columns(6).Alignment= 1
Columns(6).CaptionAlignment= 2
Columns(6).DataField= "Column 6"
Columns(6).DataType= 2
Columns(6).NumberFormat= "#"
Columns(6).FieldLen= 256
Columns(7).Width= 2593
Columns(7).Caption= "金额"
Columns(7).Name = "金额"
Columns(7).Alignment= 1
Columns(7).CaptionAlignment= 2
Columns(7).DataField= "Column 7"
Columns(7).DataType= 4
Columns(7).NumberFormat= "#.00"
Columns(7).FieldLen= 256
Columns(7).Locked= -1 'True
Columns(7).HasBackColor= -1 'True
Columns(7).BackColor= 16776960
_ExtentX = 19341
_ExtentY = 8784
_StockProps = 79
BackColor = -2147483624
End
End
Attribute VB_Name = "frm分店库存初始化"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************
' 分店库存初始化
'*************************************************
Option Explicit
Dim i, j As Integer
Private RsTemp As New ADODB.Recordset
Private Rs As New ADODB.Recordset
Private sSQL As String
Private Temp
Private JD As Single
Private Function SaveTable() As Boolean
On Error GoTo SaveErr
Conn.BeginTrans
sSQL = "DELETE 分店库存 WHERE 分店编码='" & Trim(cmbGroup.Text) & "'"
Cmd.ActiveConnection = Conn
Cmd.CommandText = sSQL
Cmd.Execute
grdDET.MoveFirst
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -