📄 spck.frm
字号:
Top = 240
Width = 615
End
Begin VB.Label Label2
Caption = "商品名称"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 120
TabIndex = 10
Top = 720
Width = 975
End
Begin VB.Label Label6
Caption = "供货单位"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 120
TabIndex = 9
Top = 1680
Width = 975
End
Begin VB.Label Label9
Caption = "单位"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Left = 2520
TabIndex = 8
Top = 1200
Width = 495
End
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid
Bindings = "spck.frx":0442
Height = 3015
Left = 120
TabIndex = 5
Top = 3000
Width = 7575
_ExtentX = 13361
_ExtentY = 5318
_Version = 393216
Rows = 20
Cols = 7
BackColor = -2147483624
ForeColor = -2147483642
ForeColorFixed = 0
BackColorSel = 64
ForeColorSel = 16777215
BackColorBkg = 16777215
FocusRect = 2
GridLines = 3
AllowUserResizing= 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
End
Attribute VB_Name = "spck"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Me.Hide
czsp1.Show
End Sub
Private Sub Command2_Click()
End Sub
Private Sub Command3_Click()
If Combo1.Text = "" Then
MsgBox "销货单位不能为空。", vbCritical, "警告"
Combo1.SetFocus
Exit Sub
End If
If Len(Text16.Text) > 50 Then
MsgBox "备注不要多于25个字", vbCritical, "警告"
Text16.SetFocus
Exit Sub
End If
If Val(Text2.Text) = Val(Text12.Text) Then
Data2.Recordset.Delete
Data2.Refresh
Text12.Text = "0"
End If
If Val(Text2.Text) = Val(Text12.Text) Then
Data2.Recordset.Delete
Data2.Refresh
Text12.Text = "0"
End If
If Val(Text2.Text) < Val(Text12.Text) Then
Data2.Recordset.Edit
Data2.Recordset("kcsl") = Data2.Recordset("kcsl") - Val(Text2.Text)
Data2.Recordset.Update
Data2.Refresh
Text12.Text = Val(Text12.Text) - Val(Text2.Text)
End If
If Val(Text2.Text) > Val(Text12.Text) Then
MsgBox "出售数量不能超出当前库存量," & vbCrLf & vbCrLf & "请重新填写。", vbCritical, "警告"
MSFlexGrid.TextMatrix(0, 1) = " 商品编号"
MSFlexGrid.TextMatrix(0, 2) = " 规格"
MSFlexGrid.TextMatrix(0, 3) = " 库存数量 "
MSFlexGrid.TextMatrix(0, 4) = " 库位"
MSFlexGrid.TextMatrix(0, 5) = " 备注"
Exit Sub
Else
Data7.Recordset.MoveLast
End If
Data7.Recordset.AddNew
Data7.Recordset("spbh") = Text14.Text
Data7.Recordset("dj") = Text4.Text
Data7.Recordset("cksl") = Text2.Text
Data7.Recordset("gg") = Text7.Text
If Val(Text15.Text) = 0 Then
Data7.Recordset("ssje") = Val(Text13.Text)
Data7.Recordset("zk") = 0
ElseIf Val(Text15.Text) > 0 Then
Data7.Recordset("ssje") = Val(Text13.Text) - Val(Text15.Text)
Data7.Recordset("zk") = 0
ElseIf Val(Text15.Text) < 0 Then
Data7.Recordset("ssje") = Val(Text13.Text)
Data7.Recordset("zk") = -Val(Text15.Text)
End If
Data7.Recordset("bz") = Text16.Text
Data7.Recordset("ckrq") = Date
Data7.Recordset("jsr") = Label13.Caption
Data7.Recordset("xhdw") = Combo1.Text
'Data7.Recordset("kmbh") = Text17.Text
Data7.Recordset.Update
Data7.Refresh
MSFlexGrid.TextMatrix(0, 1) = " 商品编号"
MSFlexGrid.TextMatrix(0, 2) = " 规格"
MSFlexGrid.TextMatrix(0, 3) = " 库存数量 "
MSFlexGrid.TextMatrix(0, 4) = " 库位"
MSFlexGrid.TextMatrix(0, 5) = " 备注"
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Activate()
StatusBar1.Panels(3).Text = " 今天日期 " & Date
MSFlexGrid.ColWidth(0) = 200
MSFlexGrid.ColWidth(1) = 1600
MSFlexGrid.ColWidth(2) = 1500
MSFlexGrid.ColWidth(3) = 1200
MSFlexGrid.ColWidth(4) = 1500
MSFlexGrid.ColWidth(5) = 1000
MSFlexGrid.TextMatrix(0, 1) = " 商品编号"
MSFlexGrid.TextMatrix(0, 2) = " 规格"
MSFlexGrid.TextMatrix(0, 3) = " 库存数量 "
MSFlexGrid.TextMatrix(0, 4) = " 库位"
MSFlexGrid.TextMatrix(0, 5) = " 备注"
Data4.Recordset.MoveLast
combo1count = Data4.Recordset.RecordCount
Data4.Recordset.MoveFirst
Combo1.Clear
For i = 1 To combo1count
If Data4.Recordset("khlx") = "销货商" Then
Combo1.AddItem Data4.Recordset("dwmc")
End If
Data4.Recordset.MoveNext
Next
Data4.Recordset.MoveFirst
Data3.Recordset.MoveLast
Data3.Recordset.MoveFirst
Data3.Recordset.MoveNext
Data3.Recordset.MoveFirst
End Sub
Private Sub Form_Initialize()
MSFlexGrid.TextMatrix(0, 1) = " 编号"
MSFlexGrid.TextMatrix(0, 2) = " 商品编号"
MSFlexGrid.TextMatrix(0, 3) = " 库存数量 "
MSFlexGrid.TextMatrix(0, 4) = " 库位"
MSFlexGrid.TextMatrix(0, 5) = " 备注"
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\db1.mdb"
Data1.RecordSource = "select * from spxx"
Data2.DatabaseName = App.Path & "\db1.mdb"
Data2.RecordSource = "select * from kczk"
Data3.DatabaseName = App.Path & "\db1.mdb"
Data3.RecordSource = "select * from zyzl"
Data4.DatabaseName = App.Path & "\db1.mdb"
Data4.RecordSource = "select * from wldw"
Data5.DatabaseName = App.Path & "\db1.mdb"
Data5.RecordSource = "select * from spdhd"
Data6.DatabaseName = App.Path & "\db1.mdb"
Data6.RecordSource = "select * from spzjrk"
Data7.DatabaseName = App.Path & "\db1.mdb"
Data7.RecordSource = "select * from spzjck"
Label13.Caption = dlm
End Sub
Private Sub MSFlexGrid_Click()
dj = 1
c = spck.MSFlexGrid.Row
Data1.Recordset.FindFirst "spbh = " & "'" & MSFlexGrid.TextMatrix(c, 1) & "'"
Text9.Text = Data1.Recordset("spmc")
Text1.Text = Data1.Recordset("spcd")
Text3.Text = Data1.Recordset("dw")
Text10.Text = Data1.Recordset("ghs")
Text14.Text = Data1.Recordset("spbh")
'Data2.Recordset.FindFirst "spbh = " & "'" & MSFlexGrid.TextMatrix(c, 1) & "'"
'Data2.RecordSource = " select * from kczk where spbh = '" & MSFlexGrid.TextMatrix(c, 1) & "'" And "ys = '" & MSFlexGrid.TextMatrix(c, 3) & "'" And "gg= '" & MSFlexGrid.TextMatrix(c, 2) & "'"
'Sum (Data2.Recordset("kcsl")) while
Text12.Text = MSFlexGrid.TextMatrix(c, 3)
Text6.Text = MSFlexGrid.TextMatrix(c, 4)
On Error Resume Next
Text8.Text = MSFlexGrid.TextMatrix(c, 6)
Text7.Text = MSFlexGrid.TextMatrix(c, 2)
Data2.RecordSource = " select * from kczk where spbh = '" & Text14.Text & "' And " & "ys = '" & Text11.Text & "' And " & "gg= '" & Text7.Text & "'"
Data2.Refresh
MSFlexGrid.TextMatrix(0, 1) = " 商品编号"
MSFlexGrid.TextMatrix(0, 2) = " 规格"
MSFlexGrid.TextMatrix(0, 3) = " 库存数量 "
MSFlexGrid.TextMatrix(0, 4) = " 库位"
MSFlexGrid.TextMatrix(0, 5) = " 备注"
Text4.SetFocus
End Sub
Private Sub Text1_Click()
Call tishi
End Sub
Private Sub Text10_Click()
Call tishi
End Sub
Private Sub Text11_Click()
Call tishi
End Sub
Private Sub Text12_Click()
Call tishi
End Sub
Private Sub Text14_Click()
Call tishi
End Sub
Private Sub Text15_Click()
Text15.Text = Val(Text13.Text) - Val(Text5.Text)
End Sub
Private Sub Text3_Click()
Call tishi
End Sub
Private Sub Text5_Click()
Text5.Text = Val(Text4.Text) * Val(Text2.Text)
End Sub
Sub tishi()
MsgBox " 不可改写！ ", vbInformation, "提示"
Text4.SetFocus
End Sub
Private Sub Text6_Click()
Call tishi
End Sub
Private Sub Text7_Click()
Call tishi
End Sub
Private Sub Text8_Click()
Call tishi
End Sub
Private Sub Text9_Click()
Call tishi
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -