📄 frmchainpdd.frm
字号:
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "日期"
Height = 180
Left = 4230
TabIndex = 18
Top = 1005
Width = 360
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "经营公司"
Height = 180
Left = 210
TabIndex = 17
Top = 990
Visible = 0 'False
Width = 720
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "录入员"
Height = 180
Left = 7845
TabIndex = 16
Top = 4275
Width = 540
End
Begin VB.Label Label22
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "连锁店"
Height = 180
Left = 7665
TabIndex = 15
Top = 1005
Width = 540
End
Begin VB.Label Label16
AutoSize = -1 'True
BackColor = &H80000018&
BackStyle = 0 'Transparent
Caption = "金额"
Height = 180
Left = 7590
TabIndex = 14
Top = 3945
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H80000018&
BackStyle = 0 'Transparent
Caption = "合计"
Height = 180
Left = 5070
TabIndex = 13
Top = 3975
Width = 360
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H80000018&
BackStyle = 0 'Transparent
Caption = "数量"
Height = 180
Left = 5820
TabIndex = 12
Top = 3975
Width = 360
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "备注"
Height = 180
Left = 735
TabIndex = 11
Top = 4485
Width = 360
End
End
Begin MSComctlLib.StatusBar sb1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 22
Top = 5925
Width = 11550
_ExtentX = 20373
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 15187
Key = "状态信息"
Object.Tag = "IDmsg"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
TextSave = "2002-04-15"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
TextSave = "20:15"
EndProperty
EndProperty
End
Begin Threed.SSPanel SSPanel1
Align = 1 'Align Top
Height = 555
Left = 0
TabIndex = 23
Top = 0
Width = 11550
_ExtentX = 20373
_ExtentY = 979
_Version = 131073
BorderWidth = 0
BevelInner = 1
Begin Threed.SSCommand cmdExit
CausesValidation= 0 'False
Height = 465
Left = 8445
TabIndex = 33
Tag = "退出"
ToolTipText = "退出"
Top = 30
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "退出[&X]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdNext
CausesValidation= 0 'False
Height = 465
Left = 5655
TabIndex = 32
Tag = "下一条"
ToolTipText = "翻至下一页"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "下一条[&M]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdPrev
CausesValidation= 0 'False
Height = 465
Left = 4725
TabIndex = 31
Tag = "上一条"
ToolTipText = "翻至上一页"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "上一条[&U]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdQuery
CausesValidation= 0 'False
Height = 465
Left = 3795
TabIndex = 30
Tag = "查询"
ToolTipText = "查询单据内容"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "查询[&Q]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdDelete
CausesValidation= 0 'False
Height = 465
Left = 2865
TabIndex = 29
Tag = "删除"
ToolTipText = "删除当前单据"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "删除[&D]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdSave
Height = 465
Left = 1935
TabIndex = 28
Tag = "保存"
ToolTipText = "保存单据"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "保存[&S]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdToolCommit
Height = 465
Left = 990
TabIndex = 27
Tag = "确认"
ToolTipText = "确认单据，使之生效"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "审核[&O]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdNew
CausesValidation= 0 'False
Height = 465
Left = 36
TabIndex = 26
Tag = "新建"
ToolTipText = "新建单据"
Top = 36
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "新建[&N]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdPrintBill
CausesValidation= 0 'False
Height = 465
Left = 6570
TabIndex = 25
Tag = "下一条"
ToolTipText = "打印单据"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "打印[&P]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdToolSelect
CausesValidation= 0 'False
Height = 465
Left = 7515
TabIndex = 24
Tag = "退出"
ToolTipText = "退出"
Top = 30
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "选择[&R]"
ButtonStyle = 3
BevelWidth = 0
End
End
Begin VB.Label Label6
BackColor = &H80000007&
Caption = "Label6"
Height = 5190
Left = 180
TabIndex = 34
Top = 645
Width = 11085
End
End
Attribute VB_Name = "frmChainPDD"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::::::::::::::::::::商品配送管理::::::::::::::::::::::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Option Explicit
Private Const TableName As String = "LSChainPDD"
Private QueryFlag As Boolean '记录查询状态
Private TableState As String '当前状态
Private Temp As String
Private QueryRs As New ADODB.Recordset
Private JD As Single
Private Sub SetButtonState(d As Boolean)
If d Then
cmdToolCommit.Caption = "弃审[&O]"
cmdSave.Enabled = False
cmdDelete.Enabled = False
grdDET.AllowUpdate = False
grdDET.SelectByCell = True
Else
cmdToolCommit.Caption = "审核[&O]"
cmdSave.Enabled = True
cmdDelete.Enabled = True
grdDET.AllowUpdate = True
grdDET.SelectByCell = False
End If
End Sub
Private Function AcceptVil(d As Boolean) As Boolean
On Error GoTo ComErr
Dim I As Integer
Dim RsS As New ADODB.Recordset
Dim sSQL As String, Qty As Single
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -