📄 pandian.frm
字号:
Width = 1320
End
Begin VB.Label Label1
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 = 3240
TabIndex = 16
Top = 240
Width = 1215
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 = 375
Left = 360
TabIndex = 15
Top = 240
Width = 1095
End
Begin VB.Label Label3
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 = 6360
TabIndex = 14
Top = 240
Width = 615
End
Begin VB.Label Label5
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 = 360
TabIndex = 13
Top = 720
Width = 1215
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 = 375
Left = 6360
TabIndex = 12
Top = 720
Width = 615
End
Begin VB.Label Label7
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 = 3240
TabIndex = 11
Top = 1200
Width = 735
End
Begin VB.Label Label8
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 = 360
TabIndex = 10
Top = 1200
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 = 255
Left = 3240
TabIndex = 9
Top = 720
Width = 1215
End
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 495
Left = 0
TabIndex = 0
Top = 6645
Width = 9165
_ExtentX = 16166
_ExtentY = 873
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 4
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 3528
MinWidth = 3528
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 5292
MinWidth = 5292
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
EndProperty
BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 4410
MinWidth = 4410
Object.Tag = ""
EndProperty
EndProperty
End
End
Attribute VB_Name = "pandian"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public dqcount As Integer
Private Sub Command1_Click()
'Debug.Print DTPicker1.Value
Command3.Enabled = False
Command2.Enabled = True
On Error Resume Next
'If MSFlexGrid1.TextMatrix(dqcount, 0) = "*" Then
' MsgBox "已是记录头。 ", vbExclamation, "提示"
' Exit Sub
'Else
Data2.Recordset.MoveFirst
Call Form_Activate
'End If
End Sub
Private Sub Command2_Click()
Command3.Enabled = True
Command1.Enabled = True
'If MSFlexGrid1.TextMatrix(dqcount, 0) = "#" Then
' MsgBox "已到记录尾。 ", vbExclamation, "提示"
' Exit Sub
' Else
On Error Resume Next
Data2.Recordset.MoveNext
Call Form_Activate
'End If
End Sub
Private Sub Command3_Click()
Command2.Enabled = True
'If MSFlexGrid1.TextMatrix(dqcount, 0) = "*" Then
' MsgBox "已到记录头。 ", vbExclamation, "提示"
' Exit Sub
'Else
On Error GoTo endthis
Data2.Recordset.MovePrevious
Call Form_Activate
'End If
endthis:
End Sub
Private Sub Command4_Click()
'If MSFlexGrid1.TextMatrix(dqcount, 0) = "#" Then
' MsgBox "已是记录尾。 ", vbExclamation, "提示"
' Exit Sub'
'Else
Command3.Enabled = True
Command1.Enabled = True
Command2.Enabled = False
On Error GoTo endthis
Data2.Recordset.MoveLast
Call Form_Activate
'End If
endthis:
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub Command6_Click()
pdkcsp.Show
End Sub
Private Sub Command7_Click()
If Text4.Text = "" Then
MsgBox "现有数量不能为空。 ", vbInformation, "提示"
Text4.SetFocus
Exit Sub
End If
If Len(Text6.Text) Then
MsgBox "备注不能超过25个字。 ", vbInformation, "提示"
Text6.SetFocus
Exit Sub
End If
Data3.Recordset.AddNew
Data3.Recordset("spbh") = Text1.Text
Data3.Recordset("gg") = Text2.Text
'Data3.Recordset("ys") = Text3.Text
Data3.Recordset("xysl") = Val(Text4.Text)
Data3.Recordset("sy") = Val(Text5.Text)
Data3.Recordset("bz") = Text6.Text
Data3.Recordset("jsr") = Label4.Caption
'Data3.Recordset("syje") = Val(Text7.Text)
Data3.Recordset("pdrq") = DTPicker1.Value
Data3.Recordset.Update
Data3.Refresh
If Val(Text4.Text) <> Data2.Recordset("kcsl") Then
Data2.Recordset.Edit
Data2.Recordset("kcsl") = Val(Text4.Text)
Data2.Recordset.Update
Data2.Refresh
End If
End Sub
Private Sub DTPicker1_Click()
'Text7.Text = CVar(DTPicker1.Value)
End Sub
Private Sub Form_Activate()
Data3.Recordset.MoveLast
zycount = Data3.Recordset.RecordCount
Data3.Recordset.MoveFirst
Data3.Recordset.MoveNext
Data3.Recordset.MoveFirst
MSFlexGrid1.ColWidth(0) = 200
MSFlexGrid1.ColWidth(1) = 1500
MSFlexGrid1.ColWidth(2) = 1500
MSFlexGrid1.ColWidth(3) = 1000
MSFlexGrid1.ColWidth(4) = 1500
MSFlexGrid1.TextMatrix(0, 1) = " 商品编号"
MSFlexGrid1.TextMatrix(0, 2) = " 规格"
MSFlexGrid1.TextMatrix(0, 3) = "库存数量 "
MSFlexGrid1.TextMatrix(0, 4) = " 库位 "
MSFlexGrid1.TextMatrix(0, 5) = " 备注 "
On Error GoTo endthis
firstspbh = Data2.Recordset("spbh")
Text1.Text = Data2.Recordset("spbh")
Text2.Text = Data2.Recordset("gg")
'Text3.Text = Data2.Recordset("ys")
Text4.Text = Data2.Recordset("xysl")
'drow = MSFlexGrid1.Row
'MSFlexGrid1.TextMatrix(drow, 0) = "8"
'MSFlexGrid1.TextMatrix(1, 0) = "*"
'Data2.Recordset.MoveLast
'incount = Data2.Recordset.RecordCount
'MSFlexGrid1.TextMatrix(incount, 0) = "#"
'Data2.Recordset.MoveFirst
Text4.SetFocus
Data4.Recordset.MoveLast
incount = Data4.Recordset.RecordCount
Data4.Recordset.MoveFirst
Data4.Recordset.MoveNext
endthis:
'MsgBox "已是记录头或尾。 ", vbExclamation, "提示"
Exit Sub
End Sub
Private Sub Form_Initialize()
Command3.Enabled = False
Command1.Enabled = False
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 kcpd"
Data4.DatabaseName = App.Path & "\db1.mdb"
Data4.RecordSource = "select * from zyzl"
Label4.Caption = dlm
End Sub
Private Sub MSFlexGrid1_Click()
c = MSFlexGrid1.Row
Text1.Text = MSFlexGrid1.TextMatrix(c, 1)
Text2.Text = MSFlexGrid1.TextMatrix(c, 2)
'Text3.Text = MSFlexGrid1.TextMatrix(c, 3)
Text4.Text = MSFlexGrid1.TextMatrix(c, 4)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -