📄 frmprod.frm
字号:
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 3
Left = 1110
TabIndex = 34
Top = 840
Width = 720
End
Begin VB.Label Label
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "商品定价"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 4
Left = 1110
TabIndex = 33
Top = 2280
Width = 720
End
Begin VB.Label Label
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "库存数量"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 5
Left = 1110
TabIndex = 32
Top = 3000
Width = 720
End
Begin VB.Label Label
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "入库日期"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 6
Left = 1110
TabIndex = 31
Top = 4440
Width = 720
End
Begin VB.Label Label
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "商品说明"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 7
Left = 1110
TabIndex = 30
Top = 1200
Width = 720
End
Begin VB.Label Label
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "销售价格"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 9
Left = 1110
TabIndex = 29
Top = 2640
Width = 720
End
Begin VB.Label Label
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "商品价值"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 10
Left = 1110
TabIndex = 28
Top = 3765
Width = 720
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
Dim dummy As adodb.Recordset
Dim datprimary As adodb.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)
Set dummy = New adodb.Recordset
dummy.Open strs, myDB, 1, 3
If Not dummy.BOF 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
On Error GoTo BadLoad
Photo = LoadPicture(cdlPicture.filename)
On Error GoTo 0
On Error GoTo 0
Exit Sub
CancelLoad:
If Err.Number <> cdlCancel Then
Call MessageBox("frmProduct", Err.Description, 0)
frmMessageBox.Show
Else
Exit Sub
End If
BadLoad:
Call MessageBox("frmProduct", Err.Description, 0)
frmMessageBox.Show
Exit Sub
End Sub
Private Sub cmdPicture_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MacButton(" Change Picture", frmProduct.cmdPicture, 0, 0, 170, 30, frmLogin.Source, 182, 30, 2)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -