📄 frminquery.frm
字号:
MSFlexGrid1.Text = Format(Myrs2.Fields("金额"), "#0.00")
MSFlexGrid1.Col = 12
If IsNull(Myrs2.Fields("备注")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = Myrs2.Fields("备注")
End If
Myrs2.MoveNext
Wend
Myrs2.Close
Else
MsgBox "不存在这个进库单号码", vbOKOnly + vbExclamation, "信息提示"
Text1 = ""
Text1.SetFocus
Exit Sub
End If
Myrs1.Close
End If
End If
If Option2.Value = True Then
If Text2.Text = "" Then
MsgBox "请正确填写发票号码！", vbOKOnly + vbExclamation, "信息提示"
Text2.SetFocus
Exit Sub
Else
Set Myrs1 = Mydb.OpenRecordset("select * from inlib where 发票号码='" & Trim(Text2) & "'")
MSFlexGrid1.Clear
TableInit
If Myrs1.RecordCount >= 1 Then
Set Myrs2 = Mydb.OpenRecordset("select * from inlibdetail where 进库单号码='" & Myrs1.Fields("进库单号码") & "'")
Set mrc = Mydb.OpenRecordset("select * from goods where goodsid='" & Myrs2.Fields("材料编码") & "'")
While Myrs2.EOF = False
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = Myrs1.Fields("进库单号码")
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = Myrs1.Fields("发票号码")
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = Myrs1.Fields("进库日期")
MSFlexGrid1.Col = 3
If IsNull(Myrs1.Fields("经办人")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = Myrs1.Fields("经办人")
End If
MSFlexGrid1.Col = 4
If IsNull(Myrs1.Fields("保管人")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = Myrs1.Fields("保管人")
End If
MSFlexGrid1.Col = 5
MSFlexGrid1.Text = Myrs2.Fields("材料编码")
MSFlexGrid1.Col = 6
MSFlexGrid1.Text = mrc.Fields("goodsname")
MSFlexGrid1.Col = 7
MSFlexGrid1.Text = mrc.Fields("type")
MSFlexGrid1.Col = 8
MSFlexGrid1.Text = mrc.Fields("unit")
MSFlexGrid1.Col = 9
MSFlexGrid1.Text = Myrs2.Fields("数量")
MSFlexGrid1.Col = 10
MSFlexGrid1.Text = Format(Myrs2.Fields("单价"), "#0.00")
MSFlexGrid1.Col = 11
MSFlexGrid1.Text = Format(Myrs2.Fields("金额"), "#0.00")
MSFlexGrid1.Col = 12
If IsNull(Myrs2.Fields("备注")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = Myrs2.Fields("备注")
End If
Myrs2.MoveNext
Wend
mrc.Close
Myrs2.Close
Else
MsgBox "不存在这个发票号码", vbOKOnly + vbExclamation, "信息提示"
Text2 = ""
Text2.SetFocus
Exit Sub
End If
Myrs1.Close
End If
End If
If Option3.Value = True Then
If Text3.Text = "" Then
MsgBox "请正确填写材料编码！", vbOKOnly + vbExclamation, "信息提示"
Text3.SetFocus
Exit Sub
Else
Set Myrs1 = Mydb.OpenRecordset("select DISTINCT 进库单号码 from inlibdetail where 材料编码='" & Trim(Text3) & "'")
MSFlexGrid1.Clear
TableInit
If Myrs1.RecordCount >= 1 Then
While Myrs1.EOF = False
Set mrc = Mydb.OpenRecordset("select * from inlib where 进库单号码='" & Myrs1.Fields(0) & "'")
While mrc.EOF = False
Set Myrs2 = Mydb.OpenRecordset("select * from inlibdetail,goods where 材料编码='" & Trim(Text3) & "' and 进库单号码='" & Myrs1.Fields(0) & "' and goodsid=材料编码")
While Myrs2.EOF = False
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = mrc.Fields("进库单号码")
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = mrc.Fields("发票号码")
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = mrc.Fields("进库日期")
MSFlexGrid1.Col = 3
If IsNull(mrc.Fields("经办人")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = mrc.Fields("经办人")
End If
MSFlexGrid1.Col = 4
If IsNull(mrc.Fields("保管人")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = mrc.Fields("保管人")
End If
MSFlexGrid1.Col = 5
MSFlexGrid1.Text = Myrs2.Fields("材料编码")
MSFlexGrid1.Col = 6
MSFlexGrid1.Text = Myrs2.Fields("goodsname")
MSFlexGrid1.Col = 7
MSFlexGrid1.Text = Myrs2.Fields("type")
MSFlexGrid1.Col = 8
MSFlexGrid1.Text = Myrs2.Fields("unit")
MSFlexGrid1.Col = 9
MSFlexGrid1.Text = Myrs2.Fields("数量")
MSFlexGrid1.Col = 10
MSFlexGrid1.Text = Format(Myrs2.Fields("单价"), "#0.00")
MSFlexGrid1.Col = 11
MSFlexGrid1.Text = Format(Myrs2.Fields("金额"), "#0.00")
MSFlexGrid1.Col = 12
If IsNull(Myrs2.Fields("备注")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = Myrs2.Fields("备注")
End If
Myrs2.MoveNext
Wend
Myrs2.Close
mrc.MoveNext
Wend
mrc.Close
Myrs1.MoveNext
Wend
Else
MsgBox "不存在这个材料编码", vbOKOnly + vbExclamation, "信息提示"
Text3 = ""
Text3.SetFocus
Exit Sub
End If
Myrs1.Close
End If
End If
If Option4.Value = True Then
If Text4.Text = "" Then
MsgBox "请正确填写材料名称！", vbOKOnly + vbExclamation, "信息提示"
Text4.SetFocus
Exit Sub
Else
Set Myrs1 = Mydb.OpenRecordset("select * from goods where goodsname='" & Trim(Text4) & "'")
MSFlexGrid1.Clear
TableInit
If Myrs1.RecordCount >= 1 Then
While Myrs1.EOF = False
Set mrc = Mydb.OpenRecordset("select * from inlibdetail where 材料编码='" & Myrs1.Fields("goodsid") & "'")
While mrc.EOF = False
Set Myrs2 = Mydb.OpenRecordset("select * from inlib where 进库单号码='" & mrc.Fields("进库单号码") & "'")
While Myrs2.EOF = False
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = Myrs2.Fields("进库单号码")
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = Myrs2.Fields("发票号码")
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = Myrs2.Fields("进库日期")
MSFlexGrid1.Col = 3
If IsNull(Myrs2.Fields("经办人")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = Myrs2.Fields("经办人")
End If
MSFlexGrid1.Col = 4
If IsNull(Myrs2.Fields("保管人")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = Myrs2.Fields("保管人")
End If
MSFlexGrid1.Col = 5
MSFlexGrid1.Text = Myrs1.Fields("goodsid")
MSFlexGrid1.Col = 6
MSFlexGrid1.Text = Myrs1.Fields("goodsname")
MSFlexGrid1.Col = 7
MSFlexGrid1.Text = Myrs1.Fields("type")
MSFlexGrid1.Col = 8
MSFlexGrid1.Text = Myrs1.Fields("unit")
MSFlexGrid1.Col = 9
MSFlexGrid1.Text = mrc.Fields("数量")
MSFlexGrid1.Col = 10
MSFlexGrid1.Text = Format(mrc.Fields("单价"), "#0.00")
MSFlexGrid1.Col = 11
MSFlexGrid1.Text = Format(mrc.Fields("金额"), "#0.00")
MSFlexGrid1.Col = 12
If IsNull(mrc.Fields("备注")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = mrc.Fields("备注")
End If
Myrs2.MoveNext
Wend
Myrs2.Close
mrc.MoveNext
Wend
mrc.Close
Myrs1.MoveNext
Wend
Else
MsgBox "不存在这个材料名称", vbOKOnly + vbExclamation, "信息提示"
Text4 = ""
Text4.SetFocus
Exit Sub
End If
Myrs1.Close
End If
End If
If Option5.Value = True Then
If Text5.Text = "" Then
MsgBox "请正确填写规格型号！", vbOKOnly + vbExclamation, "信息提示"
Text5.SetFocus
Exit Sub
Else
Set Myrs1 = Mydb.OpenRecordset("select * from goods where type='" & Trim(Text5) & "'")
MSFlexGrid1.Clear
TableInit
If Myrs1.RecordCount >= 1 Then
While Myrs1.EOF = False
Set mrc = Mydb.OpenRecordset("select * from inlibdetail where 材料编码='" & Myrs1.Fields("goodsid") & "'")
While mrc.EOF = False
Set Myrs2 = Mydb.OpenRecordset("select * from inlib where 进库单号码='" & mrc.Fields("进库单号码") & "'")
While Myrs2.EOF = False
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = Myrs2.Fields("进库单号码")
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = Myrs2.Fields("发票号码")
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = Myrs2.Fields("进库日期")
MSFlexGrid1.Col = 3
If IsNull(Myrs2.Fields("经办人")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = Myrs2.Fields("经办人")
End If
MSFlexGrid1.Col = 4
If IsNull(Myrs2.Fields("保管人")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = Myrs2.Fields("保管人")
End If
MSFlexGrid1.Col = 5
MSFlexGrid1.Text = Myrs1.Fields("goodsid")
MSFlexGrid1.Col = 6
MSFlexGrid1.Text = Myrs1.Fields("goodsname")
MSFlexGrid1.Col = 7
MSFlexGrid1.Text = Myrs1.Fields("type")
MSFlexGrid1.Col = 8
MSFlexGrid1.Text = Myrs1.Fields("unit")
MSFlexGrid1.Col = 9
MSFlexGrid1.Text = mrc.Fields("数量")
MSFlexGrid1.Col = 10
MSFlexGrid1.Text = Format(mrc.Fields("单价"), "#0.00")
MSFlexGrid1.Col = 11
MSFlexGrid1.Text = Format(mrc.Fields("金额"), "#0.00")
MSFlexGrid1.Col = 12
If IsNull(mrc.Fields("备注")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = mrc.Fields("备注")
End If
Myrs2.MoveNext
Wend
Myrs2.Close
mrc.MoveNext
Wend
mrc.Close
Myrs1.MoveNext
Wend
Else
MsgBox "不存在这个规格型号", vbOKOnly + vbExclamation, "信息提示"
Text5 = ""
Text5.SetFocus
Exit Sub
End If
Myrs1.Close
End If
End If
If Option6.Value = True Then
If Val(Combo1) > Val(Combo4) Then
MsgBox "请正确选择年份！", vbOKOnly + vbExclamation, "信息提示"
Combo1.SetFocus
Exit Sub
Else
If Val(Combo1) = Val(Combo4) Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -