📄 frmsell.frm
字号:
Height = 225
Index = 8
Left = 7575
TabIndex = 47
Top = 1005
Width = 885
End
Begin VB.Label Lbls
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Product Code"
BeginProperty Font
Name = "Chicago"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Index = 7
Left = 7155
TabIndex = 46
Top = 645
Width = 1305
End
Begin VB.Label Lbls
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Item Description"
BeginProperty Font
Name = "Chicago"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Index = 6
Left = 615
TabIndex = 44
Top = 600
Width = 1650
End
End
Begin VB.PictureBox DetailsContainer
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 4185
Left = 240
ScaleHeight = 4185
ScaleWidth = 11445
TabIndex = 25
TabStop = 0 'False
Top = 3360
Width = 11450
Begin VB.PictureBox cmdTotal
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 450
Left = 240
MouseIcon = "frmSell.frx":091E
MousePointer = 99 'Custom
ScaleHeight = 450
ScaleWidth = 2355
TabIndex = 39
TabStop = 0 'False
Top = 3560
Width = 2355
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 = 5
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 = 4
Top = 3360
Width = 1695
End
Begin VB.TextBox recTxt
Height = 285
Left = 6720
Locked = -1 'True
TabIndex = 31
TabStop = 0 'False
Top = 3480
Visible = 0 'False
Width = 150
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 = 3
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 = 2760
MouseIcon = "frmSell.frx":0C28
MousePointer = 99 'Custom
ScaleHeight = 300
ScaleWidth = 390
TabIndex = 30
TabStop = 0 'False
Top = 3075
Width = 390
End
Begin VB.PictureBox cmdPrev
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 300
Left = 3240
MouseIcon = "frmSell.frx":0F32
MousePointer = 99 'Custom
ScaleHeight = 300
ScaleWidth = 390
TabIndex = 29
TabStop = 0 'False
Top = 3075
Width = 390
End
Begin VB.PictureBox cmdNext
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 300
Left = 3720
MouseIcon = "frmSell.frx":123C
MousePointer = 99 'Custom
ScaleHeight = 300
ScaleWidth = 390
TabIndex = 28
TabStop = 0 'False
Top = 3075
Width = 390
End
Begin VB.PictureBox cmdLast
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 300
Left = 4200
MouseIcon = "frmSell.frx":1546
MousePointer = 99 'Custom
ScaleHeight = 300
ScaleWidth = 390
TabIndex = 27
TabStop = 0 'False
Top = 3075
Width = 390
End
Begin VB.PictureBox cmdDetail
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 450
Left = 240
MouseIcon = "frmSell.frx":1850
MousePointer = 99 'Custom
ScaleHeight = 450
ScaleWidth = 2355
TabIndex = 26
TabStop = 0 'False
Top = 3000
Width = 2355
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 = 0
Top = 217
Width = 1695
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 = 3880
Locked = -1 'True
TabIndex = 1
Top = 217
Width = 1455
End
Begin MSDBGrid.DBGrid grdDataGrid
Bindings = "frmSell.frx":1B5A
Height = 2295
Left = 240
OleObjectBlob = "frmSell.frx":1B77
TabIndex = 32
TabStop = 0 'False
Top = 600
Width = 11010
End
Begin MSComCtl2.DTPicker DTPick
DataField = "DateSold"
DataSource = "datPrimaryRS"
Height = 300
Left = 6500
TabIndex = 2
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 = 24707075
CurrentDate = 36527
End
Begin VB.Label Lbls
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Change"
BeginProperty Font
Name = "Chicago"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Index = 5
Left = 8670
TabIndex = 38
Top = 3720
Width = 720
End
Begin VB.Label Lbls
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -