📄 frmsell.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form frmSelling
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
Caption = "商品编号"
ClientHeight = 7815
ClientLeft = 3135
ClientTop = 1860
ClientWidth = 12090
FillColor = &H00808080&
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7815
ScaleWidth = 12090
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.PictureBox BoxContainer
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
FillColor = &H00C0C0C0&
Height = 7680
Left = 0
ScaleHeight = 7680
ScaleWidth = 12060
TabIndex = 4
TabStop = 0 'False
Top = 0
Width = 12060
Begin VB.PictureBox DetailsContainer
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 4185
Left = 240
ScaleHeight = 4185
ScaleWidth = 11445
TabIndex = 11
TabStop = 0 'False
Top = 3360
Width = 11450
Begin VB.TextBox txtSellNum
Height = 375
Left = 2400
TabIndex = 31
Text = "Text1"
Top = 3480
Width = 2370
End
Begin VB.TextBox txtQuantitySold
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 6120
MultiLine = -1 'True
TabIndex = 28
Top = 3840
Visible = 0 'False
Width = 1695
End
Begin VB.TextBox txtWord
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 2400
TabIndex = 27
Top = 3000
Width = 2370
End
Begin VB.TextBox txtField
DataField = "ORNumber"
DataSource = "datPrimaryRS"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 1
Left = 4200
Locked = -1 'True
TabIndex = 26
Text = "100%"
Top = 217
Width = 1455
End
Begin VB.TextBox txtField
DataField = "Invoice_No"
DataSource = "datPrimaryRS"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 0
Left = 1500
Locked = -1 'True
MaxLength = 5
TabIndex = 25
Top = 217
Width = 1695
End
Begin ComctlLib.ListView ListView1
Height = 2175
Left = 360
TabIndex = 24
Top = 720
Width = 10935
_ExtentX = 19288
_ExtentY = 3836
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 327682
Icons = "ImageList1"
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin VB.TextBox txtChange
Alignment = 1 'Right Justify
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 9560
TabIndex = 3
Top = 3720
Width = 1695
End
Begin VB.TextBox txtPaid
Alignment = 1 'Right Justify
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 9560
TabIndex = 2
Top = 3360
Width = 1695
End
Begin VB.TextBox recTxt
Height = 285
Left = 6480
Locked = -1 'True
TabIndex = 16
TabStop = 0 'False
Top = 3480
Visible = 0 'False
Width = 1215
End
Begin VB.TextBox txtTotal
Alignment = 1 'Right Justify
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 9560
TabIndex = 1
Top = 3000
Width = 1695
End
Begin VB.PictureBox cmdTop
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 300
Left = 5880
MouseIcon = "frmSell.frx":0000
MousePointer = 99 'Custom
ScaleHeight = 300
ScaleWidth = 390
TabIndex = 15
TabStop = 0 'False
Top = 3075
Visible = 0 'False
Width = 390
End
Begin VB.PictureBox cmdPrev
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 300
Left = 6360
MouseIcon = "frmSell.frx":030A
MousePointer = 99 'Custom
ScaleHeight = 300
ScaleWidth = 390
TabIndex = 14
TabStop = 0 'False
Top = 3075
Visible = 0 'False
Width = 390
End
Begin VB.PictureBox cmdNext
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 300
Left = 6840
MouseIcon = "frmSell.frx":0614
MousePointer = 99 'Custom
ScaleHeight = 300
ScaleWidth = 390
TabIndex = 13
TabStop = 0 'False
Top = 3075
Visible = 0 'False
Width = 390
End
Begin VB.PictureBox cmdLast
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 300
Left = 7320
MouseIcon = "frmSell.frx":091E
MousePointer = 99 'Custom
ScaleHeight = 300
ScaleWidth = 390
TabIndex = 12
TabStop = 0 'False
Top = 3075
Visible = 0 'False
Width = 390
End
Begin MSComCtl2.DTPicker DTPick
DataField = "DateSold"
DataSource = "datPrimaryRS"
Height = 300
Left = 6500
TabIndex = 0
Top = 210
Width = 1455
_ExtentX = 2566
_ExtentY = 529
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CustomFormat = "MM/dd/yyyy"
Format = 51576835
CurrentDate = 36527
End
Begin VB.Label Lbls
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "商品编号"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Index = 6
Left = 840
TabIndex = 30
Top = 3000
Width = 720
End
Begin VB.Label Lbls
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "数量"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Index = 11
Left = 1200
TabIndex = 29
Top = 3405
Width = 360
End
Begin VB.Label Lbls
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "找零"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Index = 5
Left = 9030
TabIndex = 22
Top = 3720
Width = 360
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -