数据库机房管理系统的设计(SQL)
1、项目介绍
本系统旨在为机房管理员和学生日常业余上机查询提供方便。它的主要功能模块包括,管理员信息管理(包括添加,修改,删除),用户信息的管理(包括上机人员的添加,修改,删除)、学生消费金额查询等。
1.1、设计内容
设计内容:
创建数学学院机房管理系统,能对管理员信息,学生基本情况,用户消费信息,进行添加,修改,删除等操作。
内容要求:
(1). 在数据库中应有各种相关的表格,各个表之间应该建立相关的关系(通过外键约束),为表中的各个字段选择合适的数据类型及长度,设置主键。
(2). 表格中应有足够的数据记录,以便对数据库系统进行测试。
(3). 写报告时要按照数据库设计的各个步骤来进行详细的书写,每个步骤都要有,不能有缺漏。同时要注意设置字体的大小,以保持美观。
(4). 实验报告应包括需求分析、数据库设计、数据库建立、数据输入、应用系统的设计和开发、用户界面的设计和实现、系统安装和调试等。
2、需求分析
2.1、功能分析
(1).实现无人职守
(2).方便管理
(3).全面完善的查询功能
2.2、业务流程分析
2.3、系统功能模块
根据上机管理的特点,上机管理系统应具有如下基本功能:
(1).能对系统用户进行管理。
(2).能对管理员数据进行管理,即可以对管理员数据进行查询,增加,删除,修改操作。
(3).可对学生数据进行管理,即可以对学生数据进行查询,增加,删除,修改操作。
(4).可对上机数据进行管理,即可以对学生数据进行查询。
(5)对上机数据的查询可以按上网时间,消费金额查询。
机房上机管理系统功能模块可用下图表示:
2.4、工作流程图
工作流图,就是“业务过程的部分或整体在计算机应用环境下的自动化”,它主要解决的是“使在多个参与者之间按照某种预定义的规则传递文档、信息或任务的过程自动进行,从而实现某个预期的业务目标,或者促使此目标的实现”。
2.5、数据字典
(因设计篇幅原因,2.6-结尾大部分省略,如有需要可联系。)
2.6、数据流程图
3、概念模型设计
4、逻辑设计
4.1、E-R设计模式转换到关系模式
5、源代码及部分程序运行截图
MODULE1:
Module Module1
Public one As Integer
Public two As Integer
Public three As Integer
Public four As Integer
Public yonghu As String
Sub mian()
one =0
End Sub
End Module
FORM1
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Private SubForm1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs)Handles Me.GotFocus
If one = 1 Then
MenuItem2.Enabled = True
MenuItem3.Enabled = True
MenuItem4.Enabled = True
End If
End Sub
End Class
FORM2
Imports System.Data
Imports System.Data.SqlClient
Public Class Form2
Private SubButton1_Click(ByVal sender As System.Object, ByVale As System.EventArgs) HandlesButton1.Click
Dim myconn AsSqlConnection = New SqlConnection("server=(local);uid=sa;pwd=123456;database=数学学院机房管理系统")
Dim mydata AsSqlDataAdapter
Dim mySet As New DataSet()
Dim mytable As New DataTable()
Dim sql As String
sql ="Select * from 管理员基本情况 where 管理员号='" & Trim(TextBox1.Text) & "'" & "and密码='" & Trim(TextBox2.Text)& "'"
mydata = New SqlDataAdapter(sql, myconn)
mydata.Fill(mySet, "管理员基本情况")
mytable = mySet.Tables("管理员基本情况")
If mytable.Rows.Count > 0 Then
one = 1
Close()
Else
MsgBox("密码或用户名不正确,请重新输入!谢谢合作")
TextBox1.Text = ""
TextBox2.Text = ""
End If
End Sub
Private Sub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
Close()
End Sub
Private SubForm2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
End Sub