📄 frmsaleform.frm
字号:
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 255
Left = 6390
TabIndex = 31
Top = 1335
Width = 2100
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "找零："
ForeColor = &H00808000&
Height = 180
Index = 4
Left = 5715
TabIndex = 30
Top = 1335
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "付款："
ForeColor = &H00808000&
Height = 180
Index = 0
Left = 5715
TabIndex = 29
Top = 1005
Width = 540
End
Begin VB.Line Line1
X1 = 5610
X2 = 5610
Y1 = 870
Y2 = 1635
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "销售编号："
ForeColor = &H00808000&
Height = 180
Left = 300
TabIndex = 28
Top = 435
Width = 900
End
Begin VB.Label lbSheetID
AutoSize = -1 'True
BackStyle = 0 'Transparent
ForeColor = &H00C00000&
Height = 180
Left = 1425
TabIndex = 26
Top = 390
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "日期："
Height = 180
Index = 1
Left = 9300
TabIndex = 25
Top = 1440
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "专卖店名称："
ForeColor = &H00808000&
Height = 180
Index = 3
Left = 330
TabIndex = 24
Top = 975
Width = 1080
End
Begin VB.Shape Shape1
Height = 855
Index = 0
Left = 150
Top = 825
Width = 8535
End
Begin VB.Line Line2
X1 = 180
X2 = 5610
Y1 = 1230
Y2 = 1230
End
Begin VB.Shape Shape1
Height = 765
Index = 1
Left = 180
Top = 870
Width = 8445
End
Begin VB.Label lbUnit
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 285
Left = 1845
TabIndex = 23
Top = 1320
Width = 60
End
Begin VB.Image imgDraft
Height = 900
Left = 7305
Picture = "frmSaleForm.frx":0000
Top = -3180
Visible = 0 'False
Width = 900
End
Begin VB.Image imgExcute
Height = 900
Left = 7470
Picture = "frmSaleForm.frx":0C02
Top = -1830
Visible = 0 'False
Width = 900
End
Begin VB.Image imgSuccess
Height = 900
Left = 7500
Picture = "frmSaleForm.frx":175F
Top = -915
Visible = 0 'False
Width = 900
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 10650
Top = 2730
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 11
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSaleForm.frx":2227
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSaleForm.frx":2543
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSaleForm.frx":285F
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSaleForm.frx":2B7B
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSaleForm.frx":2E97
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSaleForm.frx":31B3
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSaleForm.frx":3A8F
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSaleForm.frx":3DAB
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSaleForm.frx":40C7
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSaleForm.frx":43E3
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSaleForm.frx":4CBF
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar tbOrder
Align = 1 'Align Top
Height = 765
Left = 0
TabIndex = 27
Top = 0
Width = 11910
_ExtentX = 21008
_ExtentY = 1349
ButtonWidth = 1455
ButtonHeight = 1349
AllowCustomize = 0 'False
Wrappable = 0 'False
Style = 1
ImageList = "ImageList1"
DisabledImageList= "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "新建单据"
Key = "new"
Object.ToolTipText = "新建单据"
Object.Tag = "新建单据"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "现在入帐"
Key = "check"
Object.ToolTipText = "现在入帐"
Object.Tag = "现在入帐"
ImageIndex = 7
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "打印单据"
Key = "print"
Object.ToolTipText = "打印单据"
ImageIndex = 10
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 2
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "set"
Text = "(&C) 打印设置..."
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "print"
Text = "(&P) 打印..."
EndProperty
EndProperty
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "删除操作"
Key = "del"
Object.ToolTipText = "删除操作"
ImageIndex = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "关闭返回"
Key = "return"
Object.ToolTipText = "关闭返回"
ImageIndex = 11
EndProperty
EndProperty
Begin Threed.SSPanel lbStatus
Height = 630
Left = 9705
TabIndex = 33
Top = 120
Width = 2160
_Version = 65536
_ExtentX = 3810
_ExtentY = 1111
_StockProps = 15
Caption = "全球通商务管理系统"
ForeColor = 255
BackColor = 12632256
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Fixedsys"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderWidth = 1
BevelOuter = 0
RoundedCorners = 0 'False
FloodColor = 16776960
FloodShowPct = 0 'False
Alignment = 0
Autosize = 1
Begin VB.Label lbDate
AutoSize = -1 'True
Caption = "00:00:00"
ForeColor = &H00404040&
Height = 180
Left = 1020
TabIndex = 34
Top = 330
Width = 720
End
Begin VB.Label Label3
Caption = "现在时间："
ForeColor = &H00404040&
Height = 240
Left = 120
TabIndex = 35
Top = 345
Width = 975
End
End
End
End
Attribute VB_Name = "frmSaleForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim New_AniCur As New AniCursor
Dim New_AniCur1 As New AniCursor '动画光标
Dim UnitID_old As String
Dim ProductID_old As String
Dim Grid_old As GridCoord
Dim EnterType As Integer
Dim GetProduct As ProductRef
Dim ProductLay As Integer
Dim SheetChange As Boolean
Dim sType As Integer '当前类型
Private Sub cmdDisplayorder_Click()
ConfigOrder "Select * From OrderSheet"
End Sub
Private Sub cmdReturn_Click()
If picBrowser.Left >= 0 Then
If txtUnitID.Enabled = True Then
tbOrder.Buttons(6).Enabled = True
tbOrder.Buttons(8).Enabled = True
tbOrder.Buttons(2).Enabled = True
Else
tbOrder.Buttons(6).Enabled = False
End If
tbOrder.Buttons(4).Enabled = True
tbOrder.Buttons(1).Enabled = True
Exit Sub
End If
End Sub
Private Sub cmdSelect_Click()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -