办公室日常管理信息系统(共30页).doc

《办公室日常管理信息系统(共30页).doc》由会员分享，可在线阅读，更多相关《办公室日常管理信息系统(共30页).doc（30页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选优质文档-倾情为你奉上课 程 设 计办公室日常信息管理系统组长： 组员： 目 录专心-专注-专业1 引 言 1.1 问题的提出随着社会的发展，企业的发展，职工数量的增加，人员的不断流动，平时我们常用的文件人工记录，文件记录已经渐渐不能满足现代化办公室的要求，查询起来也相当繁琐，得到的信息也不够准确，为了能使大量的企业和个人能够方便快捷的查询到办公室的各种信息，应该有一个功能比较全面的办公室管理系统。办公室日常管理信息系统是一个功能比较全面的信息管理系统，具有界面友好、高效迅速、反馈信息完整等特点。该软件采用.Net和强大的数据库软件开发工具进行开发，能够运行在各种操作系统上，不仅可以满足大

2、部分企业，还能应用在学校以及团体对办公室日常各种信息管理的需求，并且易于操作。办公室日常管理信息系统可以大大地提高办公室日常办公的效率，以及帮助减少在工作中可能出现的错误，为客户提供更好的服务。 本系统的开发主要包括后台数据库的建立、维护以及前端应用程序的开发两个方面。后台数据库使用SQL Server 2005。1.2任务与分析系统功能基本要求：文件管理信息：包括文件编号、文件类型、文件名称、存放位置等；考勤管理：包括员工编号、姓名、性别、时间、出勤情况等；查询员工的出勤情况。会议记录：包括会议编号、会议时间、主持者、记录人、会议内容等；办公室日常事务通告，包括公告编号、内容、通知人、时间。

3、按条件查询，统计。2 需求分析2.1添加功能添加一个文件的基本信息，包括文件名称，文件类型，文件编号，文件存放位置。会议记录需要添加主持者，会议内容，会议时间和记录人。2.2删除功能能够对一条已选中的记录进行删除。2.3 删除全部信息能够对于全部信息进行删除，系统初始化将清空所有的信息，此功能慎用！2.4显示功能显示所要查询的内容，显示出勤情况，查询文件情况，如存放位置。2.5查找功能根据键入条件（或是多个条件组合起来进行多条件查询）。2.6修改功能对选中的条目进行修改。3 总体设计3.1 程序框架设计系统入口文件信息管理理公告板文件信息编辑文件信息查询系统维护考勤信息管理考勤信息编辑考勤信息

4、查询退出公告板查询公告板编辑 会议记录会议记录查询会议记录编辑设置系统用户系统初始化 图3-1 系统总体框架图3.2 数据库系统设计3.2.1数据字典1)会议记录： 会议编号 字符型，主码，不能为空会议时间 时间型主持者 字符型 记录人 字符型 会议内容 字符型 2)考勤信息： 员工编号 int，主码，不能为空时间 datetime姓名 字符型性别 字符型出勤情况 字符型3)通知公告： 公告编号 字符型，主码，不能为空内容 字符型通知人 字符型公告时间 字符型4)系统用户： 用户名 字符型，主码，不能为空密码 字符型，不能为空权限 int5)文件管理： 文件编号 字符型，主码，不为空文件名称

5、字符型文件类型 字符型存储位置 字符型3.2.2 模型E-R图1.会议记录的E-R图如图1所示：主持者会议记录会议时间会议内容记录人3-2 会议记录E-R文件类型文件名称2.文件管理的E-R图如图2所示：文件编号存储位置 文件管理图3-3 文件管理E-R图3.会议记录的E-R图如图3所示：会议编号会议时间主持者会议记录会议内容 记录人 图4-4 会议记录E-R图4.通知公告E-R图如图4所示：通知公告编号通知人内容时间 图4-5 事务管理E-R图5.用户E-R图如图5所示：用户用户名密码 图4-6 用户E-R图3.2.3模型总体E-R图文件编号出勤情况文件类型姓名文件名称文件年龄考勤性别存放位

6、置日期管理编号参会人时间通知公告内容会议记录员通知人人记录人会议类容管理员姓名密码图4-7 总体E-R图3.2.4数据库一览1. 办公室日常事务管理如图1所示：图4-8 办公室日常事务通告2.会议记录如图2所示：图4-9 会议记录3.考勤管理如图3所示：图4-10 考勤管理4文件信息管理如图4所示：图4-11 文件信息管理5.系统用户如图4所示：图4-12 用户4程序设计4.1登陆模块登陆模块是共用户登陆的模块，也是程序的入口，他进行了和数据库的用户信息表进行了匹配。匹配成功则可以转到主界面。输入查询主页面Exit()图5-1 登陆主要代码：Public Class pass Dim n As

7、 Integer = 0 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim mytable As DataTable Dim mysql As String mysql = SELECT * FROM 系统用户 WHERE 用户名= & TextBox1.Text + AND 密码= & TextBox2.Text & mytable = Dbop.Exesql(mysql) If mytable.Rows.Count =

8、 0 Then 未找到用户记录 n += 1 If n 3 Then MsgBox(不存在该用户,继续登录, MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, 信息提示) TextBox1.Text = TextBox2.Text = TextBox1.Focus() Else MsgBox(已登录失败3次,退出系统, MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, 信息提示) Me.Close() End If Else userlevel = mytable.Rows(0)(权限) main.Show()

9、Me.Hide()End If End Sub4.2文件管理模块文件管理模块分成两个子模块，一个模块是文件操作，一个模块是文件查询。点击后进入相应的工作环境。文件录入模块主要负责数据的添加，修改，删除，需要输入文件的名称，文件的编号，文件的类型和文件的位置。代码如下： If flag = 1 Then 新增 mytable1 = Dbop.Exesql(SELECT * FROM 文件信息 WHERE 文件编号= & TextBox1.Text & ) If mytable1.Rows.Count = 1 Then MsgBox(输入的文件编号重复,不能新增, MsgBoxStyle.OkOn

10、ly, 信息提示) TextBox1.Focus() Exit Sub Else mysql = INSERT INTO 文件信息 VALUES( & _ TextBox1.Text & , & TextBox2.Text + , & ComboBox1.Text & , & TextBox4.Text & ) mytable1 = Dbop.Exesql(mysql) Me.Close() End If Else 修改 mysql = UPDATE 文件信息 SET 文件名称= & TextBox2.Text & _ ,文件类型= & ComboBox1.Text & ,存储位置= & Te

11、xtBox4.Text & WHERE 文件编号= & TextBox1.Text & mytable1 = Dbop.Exesql(mysql) Me.Close() End If End Sub而文件查询模块主要负责文件的检索，输入这些关键字来查询文件存放的位置等信息。代码如下： Private Sub selcmd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles selcmd1.Click 以下根据用户输入求得条件表达式condstr condstr = 存放过深滤条件 If TextB

12、ox1.Text Then condstr = 文件编号 Like & TextBox1.Text & % End If If TextBox2.Text Then If condstr Then condstr = condstr & AND 文件名称 Like & TextBox2.Text & % Else condstr = 文件名称 Like & TextBox2.Text & % End If End If If ComboBox1.Text Then If condstr Then condstr = condstr & AND 文件类型 = & ComboBox1.Text &

13、 Else condstr = 文件类型 = & ComboBox1.Text & End If End If If ComboBox2.Text Then If condstr Then condstr = condstr & AND 存储位置 = & ComboBox2.Text & Else condstr = 存储位置 = & ComboBox2.Text & End If End If mydv.RowFilter = condstr 过滤DataView中的记录 Call enbutton() End Sub4.3 会议记录管理模块该模块主要功能是对会议的基本信息进行增删改。代码如

14、下：Imports System.Data.SqlClientPublic Class 会议记录编辑 Public mydv As New DataView() Dim mytable As DataTable Dim mytable1 As DataTable Dim mytable2 As DataTable Dim condstr As String = 存放过深滤条件 Private Sub edstudent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TOD

15、O: 这行代码将数据加载到表“办公室日常管理DataSet.会议记录”中。您可以根据需要移动或移除它。 Me.会议记录TableAdapter.Fill(Me.办公室日常管理DataSet.会议记录) mytable = Dbop.Exesql(SELECT * FROM 会议记录) mydv = mytable.DefaultView 获得DataView对象mydv 以下设置DataGridView1的属性 DataGridView1.ReadOnly = True DataGridView1.DataSource = mydv DataGridView1.GridColor = Colo

16、r.RoyalBlue DataGridView1.ScrollBars = ScrollBars.Vertical DataGridView1.ColumnHeadersDefaultCellStyle.Font = New Font(隶书, 12) DataGridView1.CellBorderStyle = DataGridViewCellBorderStyle.Single DataGridView1.Columns(0).HeaderText = 会议编号 DataGridView1.Columns(0).AutoSizeMode = DataGridViewAutoSizeCol

17、umnMode.AllCells DataGridView1.Columns(1).HeaderText = 会议时间 DataGridView1.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns(2).HeaderText = 主持者 DataGridView1.Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns(3).HeaderText =

18、记录人 DataGridView1.Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells DataGridView1.Columns(3).HeaderText = 会议内容 DataGridView1.Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells 以下设置ComboBox2的绑定数据 mytable1 = Dbop.Exesql(SELECT 主持者 FROM 会议记录) ComboBox2.DataSource = mytabl

19、e1 ComboBox2.DisplayMember = 主持者 以下设置ComboBox2的绑定数据 mytable1 = Dbop.Exesql(SELECT 记录人 FROM 会议记录) ComboBox1.DataSource = mytable1 ComboBox1.DisplayMember = 记录人 以下初始化界面 TextBox1.Text = : TextBox2.Text = ComboBox1.Text = ComboBox2.Text = TextBox3.Text = Call enbutton() End Sub Private Sub retButton_Cli

20、ck(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles retButton.Click Me.Close() End Sub Private Sub selcmd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles selcmd1.Click 以下根据用户输入求得条件表达式condstr condstr = 存放过深滤条件 If TextBox1.Text Then condstr = 会议编号 Like & T

21、extBox1.Text & % End If If TextBox2.Text Then If condstr Then condstr = condstr & AND 会议内容 Like & TextBox2.Text & % Else condstr = 会议内容 Like & TextBox2.Text & % End If End If If ComboBox1.Text Then If condstr Then condstr = condstr & AND 记录人 = & ComboBox1.Text & Else condstr = 记录人 = & ComboBox1.Text

22、 & End If End If If ComboBox2.Text Then If condstr Then condstr = condstr & AND 主持者 = & ComboBox2.Text & Else condstr = 主持者 = & ComboBox2.Text & End If End If mydv.RowFilter = condstr 过滤DataView中的记录 Call enbutton() End Sub Private Sub selcmd2_Click(ByVal sender As System.Object, ByVal e As System.Ev

23、entArgs) Handles selcmd2.Click TextBox1.Text = TextBox2.Text = TextBox3.Text = ComboBox1.Text = ComboBox2.Text = End Sub Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick If e.RowIndex = 0 And e.RowI

24、ndex DataGridView1.RowCount - 1 Then no = DataGridView1.Rows(e.RowIndex).Cells(0).Value Else no = End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 新增 flag = 1 会议操作.ShowDialog() mytable = Dbop.Exesql(SELECT * FROM 会议记录) mydv =

25、mytable.DefaultView 获得DataView对象mydv DataGridView1.DataSource = mydv mytable1 = Dbop.Exesql(SELECT 主持者 FROM 会议记录) ComboBox2.DataSource = mytable1 ComboBox2.DisplayMember = 主持者 ComboBox2.Text = mydv.RowFilter = condstr 过滤DataView中的记录 Call enbutton() End Sub Private Sub Button3_Click(ByVal sender As S

26、ystem.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim mysql As String flag = 3 If no Then If MsgBox(真的要删除会议编号为 & Trim(no) & 的会议记录吗?, MsgBoxStyle.YesNo, 删除确认) = MsgBoxResult.Yes Then flag = 3 mysql = DELETE 会议记录 WHERE 会议编号= & no & mytable1 = Dbop.Exesql(mysql) mytable = Dbop.Exesql(SEL

27、ECT * FROM 会议记录) mydv = mytable.DefaultView 获得DataView对象mydv DataGridView1.DataSource = mydv mytable1 = Dbop.Exesql(SELECT 主持者 FROM 会议记录) ComboBox2.DataSource = mytable1 ComboBox2.DisplayMember = 主持者 ComboBox2.Text = mydv.RowFilter = condstr 过滤DataView中的记录 Call enbutton() End If Else MsgBox(先选择要删除的会

28、议记录, MsgBoxStyle.OkOnly, 信息提示) End If End Sub Private Sub enbutton() 当记录个数为0时不能使用相关按钮 TextBox4.Text = mydv.Count If mydv.Count = 0 Then Button3.Enabled = False no = 将要修改记录的编号置空值 Else Button3.Enabled = True no = mydv.Item(0)(会议编号) 将要修改记录的编号置第一条记录编号 End If End SubEnd Class 4.4考勤管理模块该模块主要负责对员工的考勤进行管理。包

29、括员工的出勤信息的增删改功能和员工出勤的查询功能。员工的出勤记录功能就是对员工考勤，由管理员来进行添加。代码如下： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 新增 flag = 1 操作窗体.ShowDialog() mytable = Dbop.Exesql(SELECT * FROM 考勤信息) mydv = mytable.DefaultView 获得DataView对象mydv DataGridView1.Data

30、Source = mydv 以下设置ComboBox2的绑定数据 mytable2 = Dbop.Exesql(SELECT 出勤情况 FROM 考勤信息) ComboBox3.DataSource = mytable2 ComboBox3.DisplayMember = 出勤情况 ComboBox3.Text = mydv.RowFilter = condstr 过滤DataView中的记录 Call enbutton() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.Ev

31、entArgs) Handles Button2.Click flag = 2 If no Then 操作窗体.ShowDialog() mytable = Dbop.Exesql(SELECT * FROM 考勤信息) mydv = mytable.DefaultView 获得DataView对象mydv DataGridView1.DataSource = mydv 以下设置ComboBox2的绑定数据 mytable2 = Dbop.Exesql(SELECT 出勤情况 FROM 考勤信息) ComboBox3.DataSource = mytable2 ComboBox3.Displa

32、yMember = 出勤情况 ComboBox3.Text = mydv.RowFilter = condstr 过滤DataView中的记录 Else MsgBox(先选择要修改的记录, MsgBoxStyle.OkOnly, 信息提示) End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim mysql As String flag = 3 If no Then If MsgBox(真的要删除编

33、号为 & Trim(no) & 的记录吗?, MsgBoxStyle.YesNo, 删除确认) = MsgBoxResult.Yes Then flag = 3 mysql = DELETE 考勤信息 WHERE 员工编号= & no & mytable1 = Dbop.Exesql(mysql) mytable = Dbop.Exesql(SELECT * FROM 考勤信息) mydv = mytable.DefaultView 获得DataView对象mydv DataGridView1.DataSource = mydv mydv.RowFilter = condstr 过滤DataV

34、iew中的记录 Call enbutton() End If Else MsgBox(先选择要删除的记录, MsgBoxStyle.OkOnly, 信息提示) End IfEnd Sub查询功能： Private Sub selcmd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles selcmd1.Click 以下根据用户输入求得条件表达式condstr condstr = 存放过深滤条件 If TextBox1.Text Then condstr = 员工编号 Like & TextBox1.Text & % End If If TextBox2.Text Then If condstr Then condstr = condstr & AND 姓名 Like & TextBox2.Text & % Else condstr = 姓名 Like & TextBox2.Text & % End If End If If ComboBox1.Text