📄 frmprod.frm
字号:
Width = 1350
End
Begin VB.Label Label
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00808080&
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
Height = 225
Index = 3
Left = 525
TabIndex = 34
Top = 840
Width = 1305
End
Begin VB.Label Label
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Unit Cost"
BeginProperty Font
Name = "Chicago"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 4
Left = 945
TabIndex = 33
Top = 2280
Width = 885
End
Begin VB.Label Label
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Quantity"
BeginProperty Font
Name = "Chicago"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 5
Left = 990
TabIndex = 32
Top = 3000
Width = 840
End
Begin VB.Label Label
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Date Purchased"
BeginProperty Font
Name = "Chicago"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 6
Left = 300
TabIndex = 31
Top = 4440
Width = 1530
End
Begin VB.Label Label
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Description"
BeginProperty Font
Name = "Chicago"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 7
Left = 720
TabIndex = 30
Top = 1200
Width = 1110
End
Begin VB.Label Label
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Selling Cost"
BeginProperty Font
Name = "Chicago"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 9
Left = 690
TabIndex = 29
Top = 2640
Width = 1140
End
Begin VB.Label Label
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Total Cost"
BeginProperty Font
Name = "Chicago"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 10
Left = 855
TabIndex = 28
Top = 3765
Width = 975
End
End
Begin VB.Shape Shape1
BorderColor = &H00FFFFFF&
BorderWidth = 2
Height = 6360
Left = 15
Top = 15
Width = 9300
End
End
Attribute VB_Name = "frmProduct"
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 : frmProduct #
'# description : Product Masterfile #
'# e-mail : walter@wancom.8k.com #
'# url : http://wancom.8k.com #
'# #
'##############################################
Dim dummy As DAO.Recordset
Dim datprimary As DAO.Recordset
Dim rec_Isnew As Boolean
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
Private Sub cmdDel_Click()
On Error Resume Next
EditMode = True
If Not Search_Exist(txtField(1), "PRODCODE", "INVOICE_DETAIL") Then
Call MessageBox("frmProduct", "Are you sure you want to delete Product Code " + datprimary("PRODCODE") + " ?", 1)
frmMessageBox2.Show
Else
Call MessageBox("frmProduct", "Cannot delete record, Record exist in Sales", 0)
frmMessageBox2.Show
End If
Call MacButton(" Delete", frmProduct.cmdDel, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub
Private Sub cmdDel_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Delete", frmProduct.cmdDel, 0, 0, 73, 50, frmLogin.Source, 74, 0, 1)
End Sub
Private Sub cmdDel_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Delete", frmProduct.cmdDel, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub
Private Sub cmdEdit_Click()
' On Error GoTo ErrorEdit
EditMode = True
Press_Buttons ("Edit")
txtField(2).SetFocus
txtField(1).TabStop = False
'ErrorEdit:
' Call MessageBox("frmProduct", Err.Description, 0)
End Sub
Private Sub cmdEdit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Edit", frmProduct.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", frmProduct.cmdEdit, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub
Private Sub cmdExit_Click()
EditMode = False
Unload Me
End Sub
Private Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Exit", frmProduct.cmdExit, 0, 0, 73, 50, frmLogin.Source, 74, 0, 1)
End Sub
Private Sub cmdExit_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Exit", frmProduct.cmdExit, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub
Private Sub cmdFind_Click()
On Error Resume Next
EditMode = True
Call FindBox(" Find by Product Description ", _
"PROD_STOCKS", "PRODDES", 0, 1, "frmLogin")
Call MacButton(" Find", frmProduct.cmdFind, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub
Public Sub FindProductDes()
On Error Resume Next
strs = "select * from PROD_STOCKS where PRODDES = '" & frmFind.txtWord & "'"
Set dummy = frmLogin.db.OpenRecordset(strs)
If dummy.AbsolutePosition <> -1 Then
datprimary.MoveFirst
Do While Not datprimary.EOF
If datprimary("PRODDES") = frmFind.txtWord Then
Exit Do
End If
datprimary.MoveNext
Loop
Display_Fields
Enable_Buttons
Else
Call MessageBox("frmProduct", "Product Description not found", 0)
End If
End Sub
Private Sub cmdFind_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Find", frmProduct.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", frmProduct.cmdFind, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub
Private Sub cmdLast_Click()
Press_Buttons ("Last")
End Sub
Private Sub cmdLast_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton("q", frmProduct.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", frmProduct.cmdLast, 0, 0, 100, 50, frmLogin.Source, 138, 39, 3)
End Sub
Private Sub cmdNew_Click()
On Error Resume Next
EditMode = False
If datprimary.RecordCount = 0 Then
txtField(1).Text = "1"
Else
datprimary.MoveLast
txtField(1).Text = Val(datprimary("PRODCODE")) + 1
End If
Press_Buttons ("New")
DatePick.Value = Get_Last_Date("PDATE", "PROD_STOCKS")
txtField(1).SetFocus
End Sub
Private Sub cmdNew_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" New", frmProduct.cmdNew, 0, 0, 73, 50, frmLogin.Source, 74, 0, 1)
End Sub
Private Sub cmdNew_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" New", frmProduct.cmdNew, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub
Private Sub cmdNext_Click()
Press_Buttons ("Next")
End Sub
Private Sub cmdNext_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton("u", frmProduct.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", frmProduct.cmdNext, 0, 0, 100, 49, frmLogin.Source, 138, 39, 3)
End Sub
Private Sub cmdOk_Click()
BoxContainer2.Visible = False
End Sub
Private Sub cmdPicture_Click()
On Error GoTo CancelLoad
cdlPicture.ShowOpen
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -