集团公司管理系统

来源: www.wenxiancankao.com 作者:硕士毕业 发布时间:2019-07-26 "/plus/count.php?view=yes&aid=111&mid=1" type='text/javascript' language="javascript"> 人次
1 前言 1.1主题的背景和意义 随着计算机的普及,越来越多的公司通过计算机管理开始自己的业务,他们一直希望拥有一套好的管理软件来帮助他们提高工作效率和管理水平。该软件适用于集团
1 前言
1.1主题的背景和意义
随着计算机的普及,越来越多的公司通过计算机管理开始自己的业务,他们一直希望拥有一套好的管理软件来帮助他们提高工作效率和管理水平。该软件适用于集团公司管理,使用最新的操作系统管理数据,用户将使操作更简单,更直观,更方便。每个系统都可以独立运行一个独立的业务管理模块,系统可以大大提高企业管理的效率。随着科学技术和计算机科学的成熟,对于大多数人来说,强大的功能不断得到改进,并已进入人类社会的各个领域,并发挥着越来越重要的作用。
集团企业在计算机上的应用与手工管理相比具有不可比拟的优势。例如:经济快速,易于查找,可靠性高,存储量大,安全性高,成本低。这些优势可以大大提高企业管理的效率。
1.2研究内容
管理信息系统是一种可收集、传输、存储、处理、输出、维护、管理和使用信息的人机系统。它不仅可以进行数据处理,而且将数据处理与优化的经济管理模型和仿真技术相结合,为各级领导提供决策支持信息。在情报、联网和分发方面开始发展。目前我国的建设、银行、农业、税收、石化、公安等领域具有不同的层次和不同类型的管理信息系统应用。
该项目的研究目标是管理集团公司的业务流程。主要功能如下。
1.具有管理员和用户权限之间的区别。
二。主要模块:下属公司、工具、人事档案、系统设置。
三。表单具有基本功能:最大化、最小化、关闭等。
第四章。具有特定权限的用户可以在登录后输入、删除和修改各种信息。
5.登录后,普通用户可以根据具体情况对各种信息进行查询和统计。
2 系统调研
需求研究分析阶段的研究对象是软件项目的用户需求。包括两个方面:一是必须充分了解用户的要求,不能接受所有要求;第二,准确表达接受的用户要求。只有良好描述的软件要求才能成为软件设计的基础。
2.1系统调研
这个假设假设假设陈的集团公司进行现场调查,了解公司相当大的组织结构和业务流程。
1、公司现状
本公司是一家中小型中介公司,公司现有员工12人,主要是下属公司经理.公司经理有店铺经理和店员,部门包括集团总部、水果店、超市、电影院、交易系统、图书管理、餐饮等部门。
2、业务现状
公司现在主要利用网络来管理业务。公司管理体系对企业进行信息化、标准化管理,大大降低了工作效率。
业务主要是各公司的正常业务。
2.2可行性分析
可行性研究的目的是确定该问题能否在尽可能短的时间内以最低的成本得到解决。可行性研究的目的不是解决问题,而是确定问题是否值得解决。可行性研究的实质是进行一个大大压缩和简化的系统分析和设计过程。一般来说,至少应该从以下三个方面研究每种解决方案的可行性。
1、操作的可行性分析
该系统的登录界面简单友好,采用了通用界面窗口的登录界面,而系统的开发则采用了较为常用的VB语言。这些策略使用户能够在不需要很长时间的情况下,快速地熟悉系统,掌握系统的操作方法。此外,为了方便系统管理和维护人员,用户在登录系统后会给出一些提示,使整个系统更加人性化,用户操作更加简单方便。
2、社会可行性分析
要想长期生存,首先必须拥有良好的企业文化。其次,你需要有一个健全的管理,然后采用科学的方法来实现可持续发展。最后,你必须与时俱进,不断改革,使企业的研究机构适应社会的变化。最重要的是确保科学的管理方法是企业获得长期发展竞争力的唯一途径。
3、技术可行性分析
以VISUALBASIC为开发工具,采用ADO数据库访问技术进行数据库访问,数据库建设采用Access技术。基于ADO的房屋中介管理系统的设计与实现。
(1)硬件可行性分析
对系统的硬件要求没有特殊要求。它只需要在正常的硬件配置中轻松实现,但需要保证系统的正常运行,并且效率很高。如果硬件极低,则可能导致系统性能低下和效率低下,导致整个系统的运行不顺畅。就个人计算机的当前配置而言,这很容易实现。因此,组管理系统的开发在硬件方面是可行的。
(2)软件可行性分析
VB语言提供了一种通用的机制,类似于借口动态模型,更集中的设计。此外,使用VB语言可以很容易地实现信息的模块化和存储。此外,代码重用也可以很好地反映出来。因此,考虑到系统的实际情况,选择了VB作为集团管理系统的开发语言。通过以上分析,系统在软件方面的设计和实现是可行的。
因此,我们进行了三个方面的可行性研究,可以看出,系统的开发并不是一个问题。
3 系统分析
在软件工程中,软件生命周期中的系统分析包括确定系统的功能和性能以及系统所需的运行环境。为了预测系统开发的前景,我们必须认真分析系统中的数据。
不仅需要对系统中的数据流进行分析,还需要对长期的数据存储进行分析。通过分析,得出业务流程图、数据字典、可行性分析等内容,为系统的设计奠定了基础。
3.1业务流程分析
图3-1 登录界面
3.2数据流程分析
数据流分析一般用数据流图来表示。包括外部实体、数据流、处理、数据文件表。它一般用图3/2来表示。
图3-2 数据流基本图
外部实体,外部实体是指系统外部的实体,不在系统中的单元或人员,但这些实体与系统之间存在信息传递关系。在集团公司管理系统中,外部实体具有用户和管理员。
数据流,数据流是指在系统中用来表示交换和传输的数据。住房中介管理系统的主要数据流包括租赁数据、销售数据等。
处理。处理是指系统对数据的操作、处理或处理。房屋中介管理系统处理有交易等。
数据存储。也就是说,一个文件,它指的是系统存储的数据文件。住房代理管理系统的文件包括商业记录等。
4 系统设计
在系统设计阶段,解决“如何做”的问题是非常重要的。将系统的逻辑模型转化为系统的信息结构或数据库物理模型和软件结构,设计每个软件模块的输入输出格式,形成系统设计指令或系统设计文件,这是直接的基础。在系统的实现阶段进行编程。
4.1功能设计
通过对系统功能需求的分析,设计和分解了系统的功能进度。功能分解过程是一个从抽象到具体的过程。为了提高集团公司的经营管理水平,降低集团公司管理人员的劳动强度,提高信息处理的速度和信息的准确性,为运营商提供更方便、更科学的服务。设计了集团管理系统,为运营商提供了更先进、更科学的服务体系。利用计算机设计了一个集团公司管理系统的方案。并能在一定程度上实现自动化。让计算机对房屋中介公司的数据库信息进行管理,实现公司的信息管理。作为租赁数据库系统,其主要功能应包括以下七个模块:
(1)管理员登录模块:您需要拥有管理员名称和密码:输入错误时应提醒,如果错误3次则不能再输入;如果正确,请进入主界面。管理员还可以重置密码。
(2)系统管理模块:用户和密码管理,这些信息可以修改和删除。用户管理包括添加和删除用户,用户数据是用户名和密码权限。密码管理修改当前用户的密码。为了修改密码,必须提供当前密码,这提高了系统的安全性。
(3)公司管理模块:包括各公司的信息增加和查询。
(4)员工管理模块:包括员工信息管理的增加和查询。
4.2功能结构设计
在系统的设计阶段,功能结构采用结构化系统设计方法,将集团公司管理系统的逻辑模型转换为信息结构或数据库物理模型和软件结构,形成设计规范或设计文档。集团公司管理系统。系统实现阶段编程的重要基础。基于系统功能需求分析,功能设计和系统功能的设计和分解。功能结构图是功能隶属关系图。图中的每个框称为功能模块。我们将整个系统分解为相对独立的模块,通过协调模块之间的关系实现整个软件系统的功能,从而获得系统的功能模块结构图。见图4-1。
管理体系有5个模块:系统管理、员工信息管理、下属公司管理、系统信息。
图4-2 功能结构图
5 系统实现
统一的人机界面不会增加用户的负担,因此用户总是以同样的方式思考和操作。最忌讳的是,每次更改屏幕时,用户都必须更改一组操作命令和操作方法。
5.1 登录模块实现
图5-1是房屋中介管理系统的登录界面设计。本模块的主要功能是登录系统。首先,接受从登录表单提交的用户名和密码,然后在后台进行处理。如果根据用户名在数据库中搜索用户,则将用户名和密码分别取出并分配给两个字符串变量。无论从数据库中读取的密码是否与登录时输入的密码匹配,如果两个密码相同,将根据权限值进入主界面,否则输出密码将出错。如果出现三个错误,系统将自动退出。这提高了系统的可靠性。
登录界面设计:添加SDI表单命名公司内部管理系统。添加另一个文本框和combo.extbox将密码设计为密码格式。加两个标签。详细的设计如图所示。
图5-1 登录界面
代码如下:
Dim tim As Integer
Private Sub cmdcancel_click()
Dim message As String
If Combo1.Text = "admin" and text2.Text = "123" then
登录界面.Hide
桌面界面.Show
Else
If tim = 3 Then
message=msgbox(“密码输入错误,请与管理员联系!”,0,“”
If message = vbOK Then End
End If
MsgBox(“密码错误,请重新输入密码!”)
tim = tim + 1
End If
End Sub
Private Sub cmdok_Click()
Combo1.Text = ““
text2.Text = ““
End Sub
5.2 主界面设计实现
系统的主界面是有用的SDI形式,如图5/2所示,主要是菜单管理,主菜单是:系统管理,下属公司信息,员工信息管理,查询,关于帮助。系统管理模块包括用户管理和密码修改;下属公司信息模块包括公司信息、添加信息和查询;员工信息管理模块包括员工信息、增加信息和查询;系统相关模块包括系统信息和帮助文件。
图5-2 主界面
代码如下:private sub b_click()。
系统文件.Show
End Sub
Private Sub c_Click()
计算器.Show
End Sub
Private Sub e_Click()
各公司软件系统。秀
End Sub
Private Sub g_Click()
管理员设置.Show
End Sub
Private Sub h_Click()
管理员设置.Show
End Sub
Private Sub i_Click()
人员奖惩.Show
End Sub
Private Sub j_Click()
退出界面.Show
End Sub
Private Sub n_Click()
帮助.Show
End Sub
Private Sub r_Click()
各公司组成.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button as MSComctlLib.Button)
Select Case Button.Index
Case 1
Call x_Click
Case 2
Call c_Click
End Select
End Sub
Private Sub u_Click()
管理员设置.Show
End Sub
Private Sub w_Click()
各公司资料.Show
End Sub
Private Sub x_Click()
视频.Show
End Sub
Private Sub y_Click()
人事档案查询。显示
End Sub
5.3管理员设置接口实现
管理员设置界面包括管理员登录和密码管理,如图5-3所示。密码管理是修改当前登录用户的密码。
图5-3 密码修改
图5-4 管理员登录
代码如下;
Dim tim As Integer
Private Sub Command1_Click()
Dim message As String
If text1. text = "admin" and text2. text = "123", then
管理员设置.Hide
管理员设置界面。显示
Else
If tim = 3 Then
message=msgbox(“密码输入错误,请与管理员联系!”,0,“”
If message = vbOK Then 警告.Show
End If
MsgBox(“密码错误,请重新输入密码!”)
tim = tim + 1
End If
End Sub
Private Sub Command2_Click()
Dim message As String
If text1. text = "admin" and text2. text = "123", then
管理员设置.Hide
表演。
Else
If tim = 3 Then
message=msgbox(“密码输入错误,请与管理员联系!”,0,“”
If message = vbOK Then 警告.Show
End If
MsgBox(“密码错误,请重新输入密码!”)
tim = tim + 1
End If
End Sub
5.4各公司界面实现
图5-5各公司的系统入口
代码如下:
Private Sub Command1_Click()
四季水果店.Show
End Sub
Private Sub Command2_Click()
超市.Show
End Sub
Private Sub Command3_Click()
登陆界面.Show
End Sub
Private Sub Command4_Click()
博瑞影视.Show
End Sub
Private Sub Command5_Click()
亮阳餐饮.Show
End Sub
Private Sub Command6_Click()
图书管理.Show
End Sub
图5-6公司信息查询
代码如下:
Private Sub Command1_Click()
如果Combo1.Text="公司名称",则
ADODC1.RecordSource="从操作中选择*,单位为:""或修剪(文本1文本)或"一只手"
Adodc1.Refresh
Exit Sub
Elseif组合1.text=公司领导
Adodc1.RecordSource =“从公司数据中选择*公司负责人='&& Trim(Text1.Text)&'”
Adodc1.Refresh
Exit Sub
ElseIf Combo1.Text = "Company Project" then
ADODC1.recordsource=select*从公司信息中选择公司项目='&trim(text1)。文本)&“.”
Adodc1.Refresh
Exit Sub
End If
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
5.5各工具界面实现
图5-7 计算器
代码如下:
Public a As String
Public b As Single
Public c As Single
Private command 1_Click (index Integer)
Text1.Text = Text1.Text & “ 0“
End Sub
Private Sub Command10_Click()
Text1.Text = Text1.Text & “ 9“
End Sub
Private Sub Command11_Click()
Text1.Text = Text1.Text & “ .“
End Sub
Private Sub Command12_Click()
If b = 1 Then
Text1. text = Val (text1. text) +val (a)
If c = 0 Then
Label1.Caption = Text1.Text
c = c + 1
ElseIf c = 1 Then
c = c + 1
Label2.Caption = Text1.Text
Else
Label1.Caption = Label2.Caption
Label2.Caption = Text1.Text
End If
End If
If b = 2 Then
Text1. text = Val (a) - val (text1. text)
If c = 0 Then
Label1.Caption = Text1.Text
c = c + 1
ElseIf c = 1 Then
c = c + 1
Label2.Caption = Text1.Text
Else
Label1.Caption = Label2.Caption
Label2.Caption = Text1.Text
End If
End If
If b = 3 Then
Text1.Text=Val(Text1.Text)*Val(A)
If c = 0 Then
Label1.Caption = Text1.Text
c = c + 1
ElseIf c = 1 Then
c = c + 1
Label2.Caption = Text1.Text
Else
Label1.Caption = Label2.Caption
Label2.Caption = Text1.Text
End If
End If
If b = 4 Then
Text1.Text = Val(a)/ Val(Text1.Text)
If c = 0 Then
Label1.Caption = Text1.Text
c = c + 1
ElseIf c = 1 Then
c = c + 1
Label2.Caption = Text1.Text
Else
Label1.Caption = Label2.Caption
Label2.Caption = Text1.Text
End If
End If
End Sub
Private Sub Command13_Click()
b = 1
a = Text1.Text
Val (a)
Text1.Text = “ “
End Sub
Private Sub Command14_Click()
If Text1.Text = ““ Then
Text1.Text = “-“
Else
b = 2
a = Text1.Text
Text1.Text = ““
End If
End Sub
Private Sub Command15_Click()
b = 3
a = Text1.Text
Text1.Text = ““
End Sub
Private Sub Command16_Click()
b = 4
a = Text1.Text
Text1.Text = ““
End Sub
Private Sub Command17_Click()
Text1.Text = ““
End Sub
Private Sub Command18_Click()
If Val(Text1.Text) < 0 Then
文本1。文本=输入错误,请输入正数!“
Else
Text1.Text=Sqr(Val(Text1.Text)
If c = 0 Then
Label1.Caption = Text1.Text
c = c + 1
ElseIf c = 1 Then
c = c + 1
Label2.Caption = Text1.Text
Else
Label1.Caption = Label2.Caption
Label2.Caption = Text1.Text
End If
End If
End Sub
Private Sub Command19_Click()
Dim t As Single
Dim k As Single
k = Val(Text1.Text): t = 1
If k < 0 Then
文本1。文本=输入错误,请输入正数!“
ElseIf k * 10 Mod 10 <> 0 Then
文本1。text=输入错误,请输入整数!“
Else
Do
t = t * k
k = k - 1
Loop Until k = 1
Text1.Text = t
If c = 0 Then
Label1.Caption = Text1.Text
c = c + 1
ElseIf c = 1 Then
c = c + 1
Label2.Caption = Text1.Text
Else
Label1.Caption = Label2.Caption
Label2.Caption = Text1.Text
End If
End If
End Sub
Private Sub Command2_Click()
Text1.Text = Text1.Text & “ 1“
End Sub
Private Sub Command21_Click()
Text1.Text=Cos(Val(Text1.Text)
If c = 0 Then
Label1.Caption = Text1.Text
c = c + 1
ElseIf c = 1 Then
c = c + 1
Label2.Caption = Text1.Text
Else
Label1.Caption = Label2.Caption
Label2.Caption = Text1.Text
End If
End Sub
Private Sub Command22_Click()
Text1.Text = Tan(Val(Text1.Text))
If c = 0 Then
Label1.Caption = Text1.Text
c = c + 1
ElseIf c = 1 Then
c = c + 1
Label2.Caption = Text1.Text
Else
Label1.Caption = Label2.Caption
Label2.Caption = Text1.Text
End If
End Sub
Private Sub Command20_Click()
Text1. text = sin (val (text1. text)).
If c = 0 Then
Label1.Caption = Text1.Text
c = c + 1
ElseIf c = 1 Then
c = c + 1
Label2.Caption = Text1.Text
Else
Label1.Caption = Label2.Caption
Label2.Caption = Text1.Text
End If
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text & “ 2“
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text & “ 3“
End Sub
Private Sub Command5_Click()
Text1.Text = Text1.Text & “ 4“
End Sub
Private Sub Command6_Click()
Text1.Text = Text1.Text & “ 5“
End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text & “ 6“
End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text & “ 7“
End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text & “ 8“
End Sub
Private Sub Form_Load()
Label3.Caption = Now
End Sub
Private Sub Label1_Click()
Text1.Text = Label1.Caption
End Sub
Private Sub Label2_Click()
Text1.Text = Label2.Caption
End Sub
5.6各员工界面实现
图5-8人员档案查询
Private Sub Command2_Click()
Text1.Text= "和Text2.Text=" 和Text3.Text= "和Text4.Text=" 和Combo1.Text= "和Combo2.Text="
End Sub
Private Sub Command1_Click()
If Combo1.Text = “姓名“ Then
Adodc1. RecordSource = "Choose the name of * from Chen =" & "Text1. text" &"“
Adodc1.Refresh
Exit Sub
ElseIf Combo1.Text = “性别“ Then
Adodc1.RecordSource= "select*from gender ='" & TRIM (Text1.Text) & "'"
Adodc1.Refresh
Exit Sub
ElseIf Combo1.Text = “年龄“ Then
Adodc1.RecordSource = "select * from Chen whereEAR ages = '" & Trim (Text1.Text) & "'"
Adodc1.Refresh
Exit Sub
ElseifCombo1.Text= "working hours"
Adodc1.RecordSource =“选择*来自陈的工作时间='&& Trim(Text1.Text)&”'
Adodc1.Refresh
Exit Sub
Elseif combo1. text= "work department" then
ADODC1.recordsource=select*从chen工作部门='&trim(text1.文本)&“.”
Adodc1.Refresh
Exit Sub
ElseIf Combo1.Text = “职位“ Then
Adodc1.RecordSource = "select * from Chen where where position = '" & Trim (Text1.Text) & "'"
Adodc1.Refresh
Exit Sub
Elseif combo1. text= "home address" then
Adodc1.RecordSource = “select * from 陈 where 家庭住址=‘“ & Trim(Text1.Text) & “‘“
Adodc1.Refresh
Exit Sub
ElseIf Combo1.Text = "Mobile number" then
ADODC1.recordsource=“select*从何处选择陈的手机号码='&trim(text1)。文本)&“”'“
Adodc1.Refresh
Exit Sub
End If
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Label3_Click()
End Sub
图5-9人员档案管理
代码如下:
Private Sub Command1_Click()
If Len (text 3.Text) 0 or Len (text 4 text), 0 or Len (text 1 text), = 0 or Len (text 2 text), = 0 or Len (text 5 text), = 0 or Len (text 6 text), = 0 or Len (Combo1.Text), = 0 or Len (Combo2.Text), and then = 0
MsgBox“员工信息不能为空!”,“重要提示”
Else
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Conn. open "provider = microsoft. jet. oledb. 4.0; data source =" & app. path & " chenshi. mdb"
rs.Open “select * from 陈“, conn, 2, 2
rs.AddNew
rS. field(``unit:'' ). Value=Text 1 Text. 
rs.Fields("gender").Value = Combo1.Text
rs.Fields("age").Value = Text2.Text
RS.字段(“工作时间”)。值=文本3。文本
Rs.field(“工作部门”)。value=Combo2.文本
rs.Fields("post").Value = Text4.Text
RS.字段(“家庭地址”)。值=text5.text
Rs.field(“移动电话号码”)。value=Text 6.文本
rs.Update
rs.Close
conn.Close
Iyn = MsgBox(“你确定信息是否正确并添加到文件中?”,vbYesNo + vbQuestion,“消息确认”
If yn = vbYes Then
MsgBox“记录已成功添加”、“记录状态”
Else
End If
End If
End Sub
Private Sub Command4_Click()
将nform设置为新的人事文件管理
Unload Me
nform.Show
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
5.7帮助界面实现
图5-10 帮助界面
6 使用说明
登录账号:admin
登录密码:123
管理员账号密码同上
7 总结
首先,在本系统的设计过程中,我参考和阅读了大量的在线搜索信息,使用了国家标准、行业标准、手册和相册等信息。其次,在系统开发中运用了大量的知识。通过系统的开发,提高了综合理论知识的应用,锻炼了我分析和解决实际问题的能力。最重要的是提高自学能力。开发平台和数据库设计工具,使用VB开发语言和Access数据库,这是我以前学到的。然而,所有在设计系统中使用的研究涉及到更多的知识,这个毕业设计帮助我学习更多的技能。可以说,利用计算机来解决任务繁重、管理效率低下的问题是一种很好的方法。在学习理论方面,我掌握了基础理论课程知识和专业课程知识。同时,我还编制了一些环节和系统设计综合测试方案。但这是我第一次真正开始设计管理软件。当我完成这个项目时,我遇到了各种各样的问题和我。缺乏能力等困难,在困难的过程中也大大提高了我解决问题的能力,使我学到了更多的理论知识和实践技能。然而,由于缺乏经验,我设计了一个非常简单的图形界面。只开发了基本功能。本次毕业设计是一个很好的例子,但也存在许多不足之处,有待进一步研究和完善。实践证明,该系统具有良好的发展前景。
 

原文地址:http://www.wenxiancankao.com/lunwenfanwen/qiyeguanli/111.html,如有转载请标明出处,谢谢。

您可能在寻找企业管理方面的范文,您可以移步到企业管理频道(http://www.wenxiancankao.com/lunwenfanwen/qiyeguanli/)查找