frmmain.frm

学生宿舍管理系统vb源码

            '学生信息
            SetStudentHead
            Grid1.Column(1).Locked = True
            dbStr = "select * from student"
            opType = 0
            ShowRecord dbStr
            DataGrid
        Case "StudentAdd"
            '添加学生
            SetStudentHead
            Grid1.Column(1).Locked = False
            opType = 1
        Case "StudentEdit"
            '修改学生资料
            If Grid1.Cell(1, 1).Text = "" Then
                MsgBox "无数据可修改!", vbOKOnly + vbExclamation, "提示"
                Exit Sub
            End If
            opType = 2
        Case "StudentDel"
            '删除学生资料
            opType = 3
            If MsgBox("您确实要删除所选数据吗?", vbOKCancel + vbExclamation, "提示") = vbOK Then
                dbStr = "delete from student where Stu_Key in('"
                For i = Grid1.Selection.FirstRow To Grid1.Selection.LastRow
                    If Grid1.Cell(i, 1).Text <> "" Then
                        dbStr = dbStr & Grid1.Cell(i, 1).Text & "','"
                    End If
                Next i
                dbStr = Left(dbStr, Len(dbStr) - 2)
                dbStr = dbStr & ")"
                ExecuteSQL dbStr, MsgString     '执行删除
                '刷新数据
                SetStudentHead
                Grid1.Column(1).Locked = True
                dbStr = "select * from student"
                opType = 0
                ShowRecord dbStr
                DataGrid
                MsgBox "删除成功!", vbOKOnly + vbExclamation, "提示"
            End If
        Case "StudentCheck"
            '学生信息查询
            frmStudentCheck.Show 1, Me
            SetStudentHead
            Grid1.Column(1).Locked = True
            dbStr = QuaryString
            opType = 0
            ShowRecord dbStr
            DataGrid
        Case "DormInfo"
            '宿舍信息
            SetDormHead
            Grid1.Column(1).Locked = True
            dbStr = "select * from dorm"
            opType = 0
            ShowRecord dbStr
            DataGrid
        Case "DormAdd"
            '添加宿舍
            SetDormHead
            Grid1.Column(1).Locked = False
            opType = 1
        Case "DormEdit"
            '修改宿舍资料
            If Grid1.Cell(1, 1).Text = "" Then
                MsgBox "无数据可修改!", vbOKOnly + vbExclamation, "提示"
                Exit Sub
            End If
            opType = 2
        Case "DormDel"
            '删除宿舍资料
            opType = 3
            If MsgBox("您确实要删除所选数据吗?", vbOKCancel + vbExclamation, "提示") = vbOK Then
                dbStr = "delete from Dorm where Dor_Id in('"
                For i = Grid1.Selection.FirstRow To Grid1.Selection.LastRow
                    If Grid1.Cell(i, 1).Text <> "" Then
                        dbStr = dbStr & Grid1.Cell(i, 1).Text & "','"
                    End If
                Next i
                dbStr = Left(dbStr, Len(dbStr) - 2)
                dbStr = dbStr & ")"
                ExecuteSQL dbStr, MsgString     '执行删除
                '刷新数据
                SetDormHead
                Grid1.Column(1).Locked = True
                dbStr = "select * from dorm"
                opType = 0
                ShowRecord dbStr
                DataGrid
                MsgBox "删除成功!", vbOKOnly + vbExclamation, "提示"
            End If
        Case "DormCheck"
            '宿舍信息查询
            frmDormCheck.Show 1, Me
            SetDormHead
            Grid1.Column(1).Locked = True
            dbStr = QuaryString
            opType = 0
            ShowRecord dbStr
            DataGrid
        Case "SDInfo"
            '学生入住信息
            SetSDHead
            Grid1.Column(1).Locked = True
            dbStr = "select Student.Stu_Key,Student.Stu_Name,Student.Stu_Sex,Student.Stu_Class,"
            dbStr = dbStr & "Student.Stu_Polit,Student_Dorm.Dor_Id,Dorm.Dor_Num,Dorm.Dor_Fact "
            dbStr = dbStr & "from Student inner join Student_Dorm ON Student.Stu_Key = Student_Dorm.Stu_Key "
            dbStr = dbStr & "INNER JOIN Dorm ON Student_Dorm.Dor_Id = Dorm.Dor_Id"
            ShowRecord dbStr
            DataGrid
        Case "SDAdd"
            '学生入住
            SetSDHead
            frmSDAdd.Show 1, Me
            Grid1.Column(1).Locked = True
            dbStr = "select Student.Stu_Key,Student.Stu_Name,Student.Stu_Sex,Student.Stu_Class,"
            dbStr = dbStr & "Student.Stu_Polit,Student_Dorm.Dor_Id,Dorm.Dor_Num,Dorm.Dor_Fact "
            dbStr = dbStr & "from Student inner join Student_Dorm ON Student.Stu_Key = Student_Dorm.Stu_Key "
            dbStr = dbStr & "INNER JOIN Dorm ON Student_Dorm.Dor_Id = Dorm.Dor_Id"
            ShowRecord dbStr
            DataGrid
        Case "SDDel"
            '学生搬出
            If MsgBox("您确实要删除所选数据吗?", vbOKCancel + vbExclamation, "提示") = vbOK Then
                For i = Grid1.Selection.FirstRow To Grid1.Selection.LastRow
                    If Grid1.Cell(i, 1).Text <> "" Then
                        dbStr = "select * from Student_Dorm where Stu_Key='"
                        dbStr = dbStr & Grid1.Cell(i, 1).Text & "'"
                        If rst.State = adStateOpen Then rst.Close
                        Set rst = ExecuteSQL(dbStr, MsgString)
                        If rst.RecordCount > 0 Then
                            DorId = Trim(rst.Fields("Dor_Id").Value)
                            rst.Delete
                        End If
                        rst.Close
                        dbStr = "select * from Dorm where Dor_Id='" & DorId & "'"
                        Set rst = ExecuteSQL(dbStr, MsgString)
                        If rst.RecordCount > 0 Then
                            rst.MoveFirst
                            rst.Fields("Dor_Fact").Value = rst.Fields("Dor_Fact").Value - 1
                            rst.Update
                        End If
                        rst.Close
                    End If
                Next i
                '刷新数据
                SetSDHead
                Grid1.Column(1).Locked = True
                dbStr = "select Student.Stu_Key,Student.Stu_Name,Student.Stu_Sex,Student.Stu_Class,"
                dbStr = dbStr & "Student.Stu_Polit,Student_Dorm.Dor_Id,Dorm.Dor_Num,Dorm.Dor_Fact "
                dbStr = dbStr & "from Student inner join Student_Dorm ON Student.Stu_Key = Student_Dorm.Stu_Key "
                dbStr = dbStr & "INNER JOIN Dorm ON Student_Dorm.Dor_Id = Dorm.Dor_Id"
                ShowRecord dbStr
                DataGrid
                MsgBox "删除成功!", vbOKOnly + vbExclamation, "提示"
            End If
        Case "SDLeave"
            '学生离校
            If MsgBox("确实要离校吗?", vbOKCancel + vbExclamation, "提示") = vbOK Then
                For i = Grid1.Selection.FirstRow To Grid1.Selection.LastRow
                    If Grid1.Cell(i, 1).Text <> "" Then
                        '删除住宿信息中相关记录
                        dbStr = "select * from Student_Dorm where Stu_Key='"
                        dbStr = dbStr & Grid1.Cell(i, 1).Text & "'"
                        If rst.State = adStateOpen Then rst.Close
                        Set rst = ExecuteSQL(dbStr, MsgString)
                        If rst.RecordCount > 0 Then
                            DorId = Trim(rst.Fields("Dor_Id").Value)
                            rst.Delete
                        End If
                        rst.Close
                        '修改宿舍实住人数
                        dbStr = "select * from Dorm where Dor_Id='" & DorId & "'"
                        Set rst = ExecuteSQL(dbStr, MsgString)
                        If rst.RecordCount > 0 Then
                            rst.MoveFirst
                            rst.Fields("Dor_Fact").Value = rst.Fields("Dor_Fact").Value - 1
                            rst.Update
                        End If
                        rst.Close
                        '删除学生信息
                        dbStr = "delete from Student where Stu_Key='" & Grid1.Cell(i, 1).Text & "'"
                        ExecuteSQL dbStr, MsgString
                    End If
                Next i
                '刷新数据
                SetSDHead
                Grid1.Column(1).Locked = True
                dbStr = "select Student.Stu_Key,Student.Stu_Name,Student.Stu_Sex,Student.Stu_Class,"
                dbStr = dbStr & "Student.Stu_Polit,Student_Dorm.Dor_Id,Dorm.Dor_Num,Dorm.Dor_Fact "
                dbStr = dbStr & "from Student inner join Student_Dorm ON Student.Stu_Key = Student_Dorm.Stu_Key "
                dbStr = dbStr & "INNER JOIN Dorm ON Student_Dorm.Dor_Id = Dorm.Dor_Id"
                ShowRecord dbStr
                DataGrid
                MsgBox "离校成功!", vbOKOnly + vbExclamation, "提示"
            End If
        Case "SDCheck"
            '住宿信息查询
            frmSDCheck.Show 1, Me
            SetSDHead
            Grid1.Column(1).Locked = True
            dbStr = QuaryString
            opType = 0
            ShowRecord dbStr
            DataGrid
        Case "VisToday"
            '访客管理---今日来访
            SetVisitHead
            Grid1.Column(1).Locked = True
            Grid1.Column(6).Locked = True
            Grid1.Column(7).Locked = True
            Grid1.Column(8).Locked = True
            Grid1.Column(11).Locked = True
            opType = 0
            dbStr = "select * from visit where Vis_Date='" & Format(Now, "YYYY-MM-DD") & "'"
            ShowRecord dbStr
            DataGrid
        Case "VisAdd"
            '访客管理---来访登记
            SetVisitHead
            Grid1.Column(1).Locked = True
            Grid1.Column(6).Locked = True
            Grid1.Column(7).Locked = True
            Grid1.Column(8).Locked = True
            Grid1.Column(11).Locked = True
            opType = 1
        Case "VisLeave"
            '访客管理---访客离开
            If Grid1.Cell(1, 1).Text = "" Then
                MsgBox "无数据可供操作!", vbOKOnly + vbExclamation, "提示"
                Exit Sub
            End If
            For i = Grid1.Selection.FirstRow To Grid1.Selection.LastRow
                If Grid1.Cell(i, 1).Text <> "" Then
                    '修改访客离开时间
                    dbStr = "update visit set Vis_LeaTime='" & Format(Now, "HH:MM") & "' where Vis_Id=" & Grid1.Cell(i, 1).Text
                    ExecuteSQL dbStr, MsgString
                    '刷新显示数据
                    Grid1.Cell(i, 8).Text = Format(Now, "HH:MM")
                    Grid1.Refresh
                End If
            Next i
        Case "VisCheck"
            '访客管理---查询
            frmVisCheck.Show 1, Me  '显示访客查询窗体
            SetVisitHead            '设置表格表头
            Grid1.Column(1).Locked = True   '锁定表格第一列
            dbStr = QuaryString
            opType = 0
            ShowRecord dbStr        '执行查询
            DataGrid                '显示数据
        Case "HeaInfo"
            '卫生管理---信息浏览
            SetHealthHead
            Grid1.Column(1).Locked = True
            dbStr = "select * from health ORDER BY Hea_Date DESC"
            opType = 0
            ShowRecord dbStr
            DataGrid
        Case "HeaAdd"
            '卫生管理---卫生评定
            SetHealthHead
            Grid1.Column(1).Locked = True
            opType = 1
        Case "HeaEdit"
            '卫生管理---修改评定
            If Grid1.Cell(1, 1).Text = "" Then
                MsgBox "无数据可修改!", vbOKOnly + vbExclamation, "提示"
                Exit Sub
            End If
            Grid1.Column(1).Locked = True
            opType = 2
        Case "HeaDel"
            '卫生管理---删除评定
            opType = 3
            If MsgBox("您确实要删除所选数据吗?", vbOKCancel + vbExclamation, "提示") = vbOK Then
                dbStr = "delete from health where Hea_Id in("
                For i = Grid1.Selection.FirstRow To Grid1.Selection.LastRow
                    If Grid1.Cell(i, 1).Text <> "" Then
                        dbStr = dbStr & Grid1.Cell(i, 1).Text & ","
                    End If
                Next i
                dbStr = Left(dbStr, Len(dbStr) - 1)
                dbStr = dbStr & ")"
                ExecuteSQL dbStr, MsgString     '执行删除
                '刷新数据
                SetHealthHead
                Grid1.Column(1).Locked = True
                dbStr = "select * from health ORDER BY Hea_Date DESC"
                opType = 0
                ShowRecord dbStr
                DataGrid
                MsgBox "删除成功!", vbOKOnly + vbExclamation, "提示"
            End If
        Case "HeaCheck"
            '卫生管理---查询
            frmHeaCheck.Show 1, Me
            SetHealthHead