frmsell.frm

收银机库存销售管理程序

            Height          =   570
            Left            =   5160
            MouseIcon       =   "frmSell.frx":3A94
            MousePointer    =   99  'Custom
            ScaleHeight     =   570
            ScaleWidth      =   1095
            TabIndex        =   15
            TabStop         =   0   'False
            Top             =   240
            Width           =   1100
         End
         Begin VB.PictureBox cmdClose 
            Appearance      =   0  'Flat
            AutoRedraw      =   -1  'True
            BackColor       =   &H00CCCCCC&
            BorderStyle     =   0  'None
            ForeColor       =   &H80000008&
            Height          =   570
            Left            =   9960
            MouseIcon       =   "frmSell.frx":3D9E
            MousePointer    =   99  'Custom
            ScaleHeight     =   570
            ScaleWidth      =   1095
            TabIndex        =   14
            TabStop         =   0   'False
            Top             =   240
            Width           =   1100
         End
      End
      Begin VB.PictureBox titleBar 
         BorderStyle     =   0  'None
         Height          =   375
         Left            =   120
         ScaleHeight     =   375
         ScaleWidth      =   11655
         TabIndex        =   9
         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":40A8
            MousePointer    =   99  'Custom
            ScaleHeight     =   285
            ScaleWidth      =   315
            TabIndex        =   12
            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":43B2
            MousePointer    =   99  'Custom
            ScaleHeight     =   285
            ScaleWidth      =   315
            TabIndex        =   11
            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":46BC
            MousePointer    =   99  'Custom
            ScaleHeight     =   285
            ScaleWidth      =   315
            TabIndex        =   10
            TabStop         =   0   'False
            Top             =   60
            Width           =   315
         End
      End
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Height          =   8985
      Left            =   20
      Top             =   20
      Width           =   11990
   End
End
Attribute VB_Name = "frmSelling"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'##############################################
'#          Coded by Walter A. Narvasa        #
'#       POS2000 - Point of Sales System      #
'#                                            #
'#           area :  frmSelling               #
'#    description :  Selling Transaction      #
'#         e-mail :  [e-mail]     #
'#            url :  http://wancom.8k.com     #
'#                                            #
'##############################################

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 DAO.Recordset
Dim datprimary2 As DAO.Recordset
Dim invoice As DAO.Recordset
        
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
    txtQuantitySold.TabStop = True
    txtWord.SetFocus
    txtWord = ""
'ErrorDetail:
    Call MacButton("   Tag/Return Items", frmSelling.cmdDetail, 0, 0, 170, 30, frmLogin.Source, 147, 0, 2)
End Sub

Private Sub cmdDetail_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("   Tag/Return Items", frmSelling.cmdDetail, 0, 0, 170, 30, frmLogin.Source, 182, 30, 2)
End Sub

Private Sub cmdDetail_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("   Tag/Return Items", frmSelling.cmdDetail, 0, 0, 170, 30, frmLogin.Source, 147, 0, 2)
End Sub

Private Sub cmdEdit_Click()
'    On Error GoTo ErrorEdit
    EditMode = True
    Press_Button ("EDIT")
    datPrimaryRS.Recordset.Edit
'ErrorEdit:
'    Call MessageBox("frmSelling", Err.Description, 0)
End Sub

Private Sub cmdEdit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("    Edit", frmSelling.cmdEdit, 0, 0, 73, 50, frmLogin.Source, 74, 0, 1)
End Sub

Private Sub cmdEdit_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("    Edit", frmSelling.cmdEdit, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub

Private Sub cmdFind_Click()
'    On Error GoTo ErrorFind
    EditMode = True
    Call FindBox(" Find by Invoice Number ", _
                    "INVOICE", "INVOICE_NO", 0, 1, "frmLogin")
    Call MacButton("   Find", frmSelling.cmdFind, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
'ErrorFind:
'    Call MessageBox("frmSelling", Err.Description, 0)
End Sub

Public Sub FindInvoiceNo()
'    On Error GoTo ErrorFindInvoiceNo
    datPrimaryRS.Recordset.FindFirst "INVOICE_NO >= '" & frmFind.txtWord & "'"
'ErrorFindInvoiceNo:
'    Call MessageBox("frmSelling", Err.Description, 0)
End Sub


Private Sub cmdFind_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("   Find", frmSelling.cmdFind, 0, 0, 73, 50, frmLogin.Source, 74, 0, 1)
End Sub

Private Sub cmdFind_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("   Find", frmSelling.cmdFind, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub

Private Sub cmdLast_Click()
    On Error Resume Next
    Press_Button ("LAST")
End Sub

Private Sub cmdLast_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("q", frmSelling.cmdLast, 0, 0, 100, 50, frmLogin.Source, 112, 39, 3)
End Sub

Private Sub cmdLast_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("q", frmSelling.cmdLast, 0, 0, 100, 50, frmLogin.Source, 138, 39, 3)
End Sub

Private Sub cmdNext_Click()
    On Error Resume Next
    Press_Button ("NEXT")
End Sub

Private Sub cmdNext_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("u", frmSelling.cmdNext, 0, 0, 100, 49, frmLogin.Source, 112, 39, 3)
End Sub

Private Sub cmdNext_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("u", frmSelling.cmdNext, 0, 0, 100, 49, frmLogin.Source, 138, 39, 3)
End Sub

Private Sub cmdPrev_Click()
    On Error Resume Next
    Press_Button ("PREV")
End Sub

Private Sub cmdPrev_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("t", frmSelling.cmdPrev, 0, 0, 100, 50, frmLogin.Source, 112, 39, 3)
End Sub

Private Sub cmdPrev_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("t", frmSelling.cmdPrev, 0, 0, 100, 50, frmLogin.Source, 138, 39, 3)
End Sub

Private Sub cmdPrint_Click()
'    On Error GoTo ErrorPrint
    If txtPaid = "" Then
        Call MessageBox("frmSelling", "Cannot print if not yet paid..", 0)
    Else
        Call frmSelling.PrintInvoice
    End If
    Call MacButton("   Print", frmSelling.cmdPrint, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
'ErrorPrint:
End Sub

Private Sub cmdPrint_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("   Print", frmSelling.cmdPrint, 0, 0, 73, 50, frmLogin.Source, 74, 0, 1)
End Sub

Private Sub cmdPrint_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("   Print", frmSelling.cmdPrint, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub

Private Sub cmdHelp_Click()
'    On Error GoTo ErrorHelp
    Call MacButton("   Help", frmSelling.cmdHelp, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
'ErrorHelp:
'    Call MessageBox("frmSelling", Err.Description, 0)
End Sub

Private Sub cmdHelp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("   Help", frmSelling.cmdHelp, 0, 0, 73, 50, frmLogin.Source, 74, 0, 1)
End Sub

Private Sub cmdHelp_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("   Help", frmSelling.cmdHelp, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub

Private Sub cmdSave_Click()
'    On Error GoTo ErrorSave