📄 frmsell.frm
字号:
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 = 4
Left = 9030
TabIndex = 21
Top = 3360
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 = 3
Left = 8850
TabIndex = 20
Top = 3030
Width = 540
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 = 2
Left = 6015
TabIndex = 19
Top = 240
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 = 0
Left = 765
TabIndex = 18
Top = 240
Width = 585
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 = 1
Left = 3360
TabIndex = 17
Top = 240
Width = 720
End
End
Begin VB.PictureBox CounterContainer
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 2630
Left = 240
ScaleHeight = 2625
ScaleWidth = 11445
TabIndex = 9
TabStop = 0 'False
Top = 600
Width = 11450
Begin VB.Label Label2
Alignment = 1 'Right Justify
BackColor = &H80000008&
BeginProperty Font
Name = "Times New Roman"
Size = 36
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 735
Left = 360
TabIndex = 33
Top = 1560
Width = 3495
End
Begin VB.Label Label1
BackColor = &H80000008&
BeginProperty Font
Name = "楷体_GB2312"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 735
Left = 360
TabIndex = 32
Top = 720
Width = 3495
End
Begin VB.Label TerminalDescription
Alignment = 1 'Right Justify
BackColor = &H00000000&
BeginProperty Font
Name = "Arial"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 405
Left = 240
TabIndex = 23
Top = 240
Width = 11010
End
Begin VB.Label TerminalCounter
Alignment = 1 'Right Justify
BackColor = &H00000000&
Caption = "0.00"
BeginProperty Font
Name = "Arial"
Size = 72
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 1695
Left = 240
TabIndex = 10
Top = 720
Width = 11010
End
End
Begin VB.PictureBox titleBar
BorderStyle = 0 'None
Height = 375
Left = 120
ScaleHeight = 375
ScaleWidth = 11655
TabIndex = 5
TabStop = 0 'False
Top = 90
Width = 11655
Begin VB.PictureBox Maximized
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 280
Left = 11065
MouseIcon = "frmSell.frx":0C28
MousePointer = 99 'Custom
ScaleHeight = 285
ScaleWidth = 315
TabIndex = 8
TabStop = 0 'False
Top = 60
Width = 315
End
Begin VB.PictureBox Minimized
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 280
Left = 11335
MouseIcon = "frmSell.frx":0F32
MousePointer = 99 'Custom
ScaleHeight = 285
ScaleWidth = 315
TabIndex = 7
TabStop = 0 'False
Top = 60
Width = 315
End
Begin VB.PictureBox Closed
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 280
Left = 0
MouseIcon = "frmSell.frx":123C
MousePointer = 99 'Custom
ScaleHeight = 285
ScaleWidth = 315
TabIndex = 6
TabStop = 0 'False
Top = 60
Width = 315
End
End
Begin ComctlLib.ImageList ImageList1
Left = 600
Top = 7920
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 1
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmSell.frx":1546
Key = ""
EndProperty
EndProperty
End
End
End
Attribute VB_Name = "frmSelling"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim p_add, p_edit, p_save, p_undo, p_top, p_prev, p_next, p_last, p_del
Dim p_isadding, p_isediting, p_isnavigate
Dim dummy As adodb.Recordset
Dim datprimary2 As adodb.Recordset
Dim invoice As adodb.Recordset
Dim SellRs As adodb.Recordset
Dim InvoiceNum As Long
Dim TotalMoney As Single
Private Sub cmdAdd_Click()
' On Error GoTo ErrorAdd
Dim xCount
EditMode = False
If datPrimaryRS.Recordset.RecordCount = 0 Then
xCount = "1"
Else
datPrimaryRS.Recordset.MoveLast
xCount = Val(datPrimaryRS.Recordset.Fields("INVOICE_NO")) + 1
End If
Press_Button ("ADD")
datPrimaryRS.Recordset.AddNew
txtField(0).Text = xCount
DTPick.Value = Get_Last_Date("DATESOLD", "INVOICE")
txtField(1) = Get_OrNo
txtField(0).SetFocus
txtTotal = ""
'ErrorAdd:
' Call MessageBox("frmSelling", Err.Description, 0)
End Sub
Private Sub cmdAdd_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" New", frmSelling.cmdAdd, 0, 0, 73, 50, frmLogin.Source, 74, 0, 1)
End Sub
Private Sub cmdAdd_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" New", frmSelling.cmdAdd, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub
Private Sub cmdDelete_Click()
'On Error GoTo ErrorDelete
EditMode = True
Call MacButton(" Delete", frmSelling.cmdDelete, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
Call MessageBox("frmSelling", "Are you sure you want to delete Invoice #" + txtField(0) + " ?", 1)
frmMessageBox2.Show
'ErrorDelete:
' Call MessageBox("frmSelling", Err.Description, 0)
End Sub
Private Sub cmdDelete_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Delete", frmSelling.cmdDelete, 0, 0, 73, 50, frmLogin.Source, 74, 0, 1)
End Sub
Private Sub cmdDelete_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Delete", frmSelling.cmdDelete, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub
Private Sub cmdClose_Click()
EditMode = False
Screen.MousePointer = vbDefault
Unload Me
End Sub
Private Sub cmdClose_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Exit", frmSelling.cmdClose, 0, 0, 73, 50, frmLogin.Source, 74, 0, 1)
End Sub
Private Sub cmdClose_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Exit", frmSelling.cmdClose, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub
Private Sub cmdDetail_Click()
' On Error GoTo ErrorDetail
DetailBoxContainer.Visible = True
txtField(0).TabStop = False
txtField(1).TabStop = False
DTPick.TabStop = False
txtTotal.TabStop = False
txtPaid.TabStop = False
txtChange.TabStop = False
txtWord.TabStop = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -