📄 frmqstorage.frm
字号:
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 840
TabIndex = 3
Top = 1860
Width = 1320
End
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 3135
Left = 120
TabIndex = 6
Top = 3600
Width = 10000
_ExtentX = 17648
_ExtentY = 5530
_Version = 393216
Cols = 7
FixedCols = 0
AllowUserResizing= 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "库 存 记 录 查 询"
BeginProperty Font
Name = "幼圆"
Size = 24
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 480
Left = 2280
TabIndex = 7
Top = 240
Width = 5280
End
End
Attribute VB_Name = "frmQStorage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rct As New ADODB.Recordset '声明连接到库存表的记录集
Dim rct1 As New ADODB.Recordset '声明连接到员工权限表的记录集
Dim id As Integer '声明表格中序号变量
Private Sub CmdAdd_Click()
frmGoodMOD.Show
With frmGoodMOD
.Caption = "添加商品" '修改窗体名称
.Show
.TxtID.Enabled = True
.TxtID = "" '窗体运行时，所有文本框为空
.TxtName = ""
.TxtAmount = ""
.TxtPrice = ""
.TxtUnit = ""
.TxtSPID = ""
rct.MoveFirst
If rct.EOF = True Then '如果原表中无记录，则新加记录编号为1001
TxtID.Text = "1001"
Else
rct.MoveLast
.TxtID.Text = Val(rct.Fields.Item(0).Value) + 1 '否则在为上条记录编号加1
End If
End With
End Sub
Private Sub CmdDel_Click()
Dim str1 As String
If MSFlexGrid1.Rows > 2 Then '判断表格中是否存在有效记录
If MSFlexGrid1.Row > 0 And MSFlexGrid1.Row < MSFlexGrid1.Rows - 1 Then '判断是否选中有效记录
If MsgBox("确定要删除该记录吗？", vbInformation + vbOKCancel, "操作警告！") = vbOK Then
str1 = "delete from storage where productid=" & "'" & MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) & "'"
QueryXFInfo (str1)
'依次将表格中所删记录后面的所有记录覆盖前一个记录，然后删除最后一个记录。
For id = MSFlexGrid1.Row To MSFlexGrid1.Rows - 2
MSFlexGrid1.TextMatrix(id, 1) = MSFlexGrid1.TextMatrix(id + 1, 1)
MSFlexGrid1.TextMatrix(id, 2) = MSFlexGrid1.TextMatrix(id + 1, 2)
MSFlexGrid1.TextMatrix(id, 3) = MSFlexGrid1.TextMatrix(id + 1, 3)
MSFlexGrid1.TextMatrix(id, 4) = MSFlexGrid1.TextMatrix(id + 1, 4)
MSFlexGrid1.TextMatrix(id, 5) = MSFlexGrid1.TextMatrix(id + 1, 5)
MSFlexGrid1.TextMatrix(id, 6) = MSFlexGrid1.TextMatrix(id + 1, 6)
Next id
MSFlexGrid1.RemoveItem (MSFlexGrid1.Rows - 2)
MsgBox "已删除所选记录！", vbInformation + vbOKOnly, "删除成功！"
Else
Exit Sub
End If
Else
MsgBox "无法删除，请点击要删除的记录！", vbInformation + vbOKOnly, "删除提示！"
Exit Sub
End If
Else
MsgBox "无记录可以删除！", vbInformation + vbOKOnly, "删除提示！"
Exit Sub
End If
End Sub
Private Sub CmdExit_Click()
Unload Me
End Sub
Private Sub CmdINT_Click()
If IsEmpty(rct) = False Then '判断查询表中是否有记录
Exit Sub
End If
id = 0
CmdQuery.Enabled = True
MSFlexGrid1.Clear
Dim X As Integer
For X = MSFlexGrid1.Rows - 1 To 2 Step -1
MSFlexGrid1.RemoveItem (X)
Next X
rct.MoveFirst
TxtID.Text = ""
TxtName.Text = ""
TxtSPID.Text = ""
OptAmount.Value = True
CmdDel.Enabled = False
CmdModify.Enabled = False
OptAmount.Value = True
Comb1.Text = Comb1.List(0)
Call PreView
End Sub
Private Sub CmdModify_Click()
If MSFlexGrid1.Row > 0 And MSFlexGrid1.Row < MSFlexGrid1.Rows - 1 Then '判断是否选中有效记录
frmGoodMOD.Caption = "修改商品"
frmGoodMOD.Show
Else
MsgBox "请选择要修改的记录！", vbInformation + vbOKOnly, "修改提示！"
Exit Sub
End If
End Sub
Private Sub CmdQuery_Click()
If IsEmpty(rct) = False Then '判断查询表中是否有记录
Exit Sub
End If
Dim intindex As Integer '声明查询结果计数变量
intindex = 0
id = 0
rct.MoveFirst
If OptID.Value = True Then '判断个查询条件是否被选中
If TxtID.Text <> "" Then
Do While Not rct.EOF
If rct.Fields.Item(0).Value Like "*" & TxtID.Text & "*" Then '找到符合查询条件的记录后
If flexView() = True Then '执行查询函数
End If
intindex = intindex + 1
rct.MoveNext
Else
rct.MoveNext
End If
Loop
If intindex > 0 Then
MsgBox "共有" & intindex & "条符合查询条件的记录！", vbInformation + vbOKOnly, "查询提示！"
Else
MsgBox "无符合查询条件的记录，请重新查询！", vbInformation + vbOKOnly, "查询提示！"
rct.MoveFirst
Call CmdINT_Click
Exit Sub
End If
Else
MsgBox "商品编号不能为空，请重输！", vbInformation + vbOKOnly, "查询提示！"
Exit Sub
End If
ElseIf OptName.Value = True Then
If TxtName.Text <> "" Then
Do While Not rct.EOF
If rct.Fields.Item(1).Value Like "*" & TxtName.Text & "*" Then
If flexView() = True Then
End If
intindex = intindex + 1
rct.MoveNext
Else
rct.MoveNext
End If
Loop
If intindex > 0 Then
MsgBox "共有" & intindex & "条符合查询条件的记录！", vbInformation + vbOKOnly, "查询提示！"
Else
MsgBox "无符合查询条件的记录，请重新查询！", vbInformation + vbOKOnly, "查询提示！"
rct.MoveFirst
Call CmdINT_Click
Exit Sub
End If
Else
MsgBox "商品名称不能为空，请重输！", vbInformation + vbOKOnly, "查询提示！"
Exit Sub
End If
ElseIf OptAmount.Value = True Then
Do While Not rct.EOF
Select Case Comb1.Text
Case "0--20.00"
If rct.Fields.Item(3).Value > 0 And rct.Fields.Item(3).Value <= 20 Then
If flexView() = True Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -