⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frminquery.frm

📁 这个是基于vb的物资信息管理系统
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
                If Val(Combo2) > Val(Combo5) Then
                    MsgBox "请正确选择月份！", vbOKOnly + vbExclamation, "信息提示"
                    Combo2.SetFocus
                    Exit Sub
                Else
                    If Val(Combo2) = Val(Combo5) Then
                        If Val(Combo3) > Val(Combo6) Then
                            MsgBox "请正确选择日期！", vbOKOnly + vbExclamation, "信息提示"
                            Combo3.SetFocus
                            Exit Sub
                        End If
                    End If
                End If
            End If
        End If
        str1 = Trim(Combo1) & "-" & Trim(Combo2) & "-" & Trim(Combo3)
        str2 = Trim(Combo4) & "-" & Trim(Combo5) & "-" & Trim(Combo6)
        str1 = Format(str1, "yyyy-mm-dd")
        str2 = Format(str2, "yyyy-mm-dd")
        Set Myrs1 = Mydb.OpenRecordset("select DISTINCT 进库单号码 from inlib where 进库日期>=#" + Format(str1, "yyyy-mm-dd") + "# and 进库日期<= #" + Format(str2, "yyyy-mm-dd") + "#")
        If Myrs1.RecordCount >= 1 Then
            MSFlexGrid1.Clear
            TableInit
            While Myrs1.EOF = False
                Set mrc = Mydb.OpenRecordset("select * from inlib where 进库单号码='" & Myrs1.Fields(0) & "'")
                Set Myrs2 = Mydb.OpenRecordset("select * from inlibdetail,goods where 进库单号码='" & 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
                mrc.Close
                Myrs2.Close
                Myrs1.MoveNext
            Wend
        Else
            MsgBox "在这段期间内没有进库记录！", vbOKOnly + vbExclamation, "信息提示"
            Exit Sub
        End If
        Myrs1.Close
    End If
End Sub

Private Sub Command2_Click()
    Mydb.Close
    Unload Me
    Project.StatusBar1.Panels(2).Text = "就绪"
End Sub

Private Sub Form_Load()
    Dim i As Integer, j As Integer
    Dim txtSQL As String
    Dim mrc As Recordset
    Set Mydb = OpenDatabase(App.Path + "\store.mdb")
    txtSQL = "select DISTINCT Year(进库日期) from inlib"
    Set mrc = Mydb.OpenRecordset(txtSQL)
    If mrc.EOF = False Then
        With mrc
            Do While Not .EOF
                Combo1.AddItem .Fields(0)
                Combo4.AddItem .Fields(0)
                .MoveNext
            Loop
        End With
        Combo1.ListIndex = 0
        Combo4.ListIndex = 0
        For i = 1 To 12
            Combo2.AddItem i
            Combo5.AddItem i
        Next i
        Combo2.Text = Month(Now())
        Combo5.Text = Month(Now())
        For i = 1 To 31
            Combo3.AddItem i
            Combo6.AddItem i
        Next i
        Combo3.Text = Day(Now())
        Combo6.Text = Day(Now())
    Else
        Command1.Enabled = False
    End If
    mrc.Close
    Option1.Value = True
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
    Combo1.Enabled = False
    Combo2.Enabled = False
    Combo3.Enabled = False
    Combo4.Enabled = False
    Combo5.Enabled = False
    Combo6.Enabled = False
    TableInit
End Sub

Private Sub TableInit()
    MSFlexGrid1.Rows = 1
    MSFlexGrid1.Cols = 13
    MSFlexGrid1.TextMatrix(0, 0) = "进库单号码"
    MSFlexGrid1.TextMatrix(0, 1) = "发票号码"
    MSFlexGrid1.TextMatrix(0, 2) = "进库日期"
    MSFlexGrid1.TextMatrix(0, 3) = "经办人"
    MSFlexGrid1.TextMatrix(0, 4) = "保管人"
    MSFlexGrid1.TextMatrix(0, 5) = "材料编码"
    MSFlexGrid1.TextMatrix(0, 6) = "材料名称"
    MSFlexGrid1.TextMatrix(0, 7) = "规格型号"
    MSFlexGrid1.TextMatrix(0, 8) = "计量单位"
    MSFlexGrid1.TextMatrix(0, 9) = "数量"
    MSFlexGrid1.TextMatrix(0, 10) = "单价"
    MSFlexGrid1.TextMatrix(0, 11) = "金额"
    MSFlexGrid1.TextMatrix(0, 12) = "备注"
End Sub

Private Sub Option1_Click()
    Text1.Enabled = True
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
    Combo1.Enabled = False
    Combo2.Enabled = False
    Combo3.Enabled = False
    Combo4.Enabled = False
    Combo5.Enabled = False
    Combo6.Enabled = False
End Sub

Private Sub Option2_Click()
    Text2.Enabled = True
    Text2.SetFocus
    Text1.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
    Combo1.Enabled = False
    Combo2.Enabled = False
    Combo3.Enabled = False
    Combo4.Enabled = False
    Combo5.Enabled = False
    Combo6.Enabled = False
End Sub

Private Sub Option3_Click()
    Text3.Enabled = True
    Text3.SetFocus
    Text2.Enabled = False
    Text1.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
    Combo1.Enabled = False
    Combo2.Enabled = False
    Combo3.Enabled = False
    Combo4.Enabled = False
    Combo5.Enabled = False
    Combo6.Enabled = False
End Sub

Private Sub Option4_Click()
    Text4.Enabled = True
    Text4.SetFocus
    Text2.Enabled = False
    Text3.Enabled = False
    Text1.Enabled = False
    Text5.Enabled = False
    Combo1.Enabled = False
    Combo2.Enabled = False
    Combo3.Enabled = False
    Combo4.Enabled = False
    Combo5.Enabled = False
    Combo6.Enabled = False
End Sub

Private Sub Option5_Click()
    Text5.Enabled = True
    Text5.SetFocus
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text1.Enabled = False
    Combo1.Enabled = False
    Combo2.Enabled = False
    Combo3.Enabled = False
    Combo4.Enabled = False
    Combo5.Enabled = False
    Combo6.Enabled = False
End Sub

Private Sub Option6_Click()
    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
    Combo1.Enabled = True
    Combo2.Enabled = True
    Combo3.Enabled = True
    Combo4.Enabled = True
    Combo5.Enabled = True
    Combo6.Enabled = True
    Combo1.SetFocus
End Sub


Private Sub Text1_GotFocus()
    Text2 = ""
    Text3 = ""
    Text4 = ""
    Text5 = ""
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Command1.SetFocus
    End If
End Sub

Private Sub Text2_GotFocus()
    Text1 = ""
    Text3 = ""
    Text4 = ""
    Text5 = ""
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Command1.SetFocus
    End If
End Sub

Private Sub Text3_GotFocus()
    Text1 = ""
    Text2 = ""
    Text4 = ""
    Text5 = ""
End Sub

Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Command1.SetFocus
    End If
End Sub

Private Sub Text4_GotFocus()
    Text1 = ""
    Text2 = ""
    Text3 = ""
    Text5 = ""
End Sub

Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Command1.SetFocus
    End If
End Sub

Private Sub Text5_GotFocus()
    Text1 = ""
    Text2 = ""
    Text3 = ""
    Text4 = ""
End Sub

Private Sub Text5_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Command1.SetFocus
    End If
End Sub
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -