公司管理系统论文正稿

延安大学西安创新学院

专业综合课程设计

题目：集团公司管理系统

班级：计算机科学与技术1501 姓名：陈涛

学号： 1543041051 指导教师：柴荣军

职称：工程师

1 前言 ....................................... - 3 -

1.1课题的背景和意义 ....................... - 3 -

1.2研究内容 ............................... - 3 -

2 系统调研 ................................... - 4 -

2.1系统调研 ............................... - 4 -

2.2可行性分析 ............................. - 4 -

3 系统分析 ................................... - 5 -

3.2数据流程分析 ........................... - 7 -

4 系统设计 ................................... - 7 -

4.1功能设计 ............................... - 8 -

4.2功能结构设计 ........................... - 8 -

5 系统实现 ................................... - 9 -

5.1 登录模块实现........................... - 9 -

5.2 主界面设计实现........................ - 11 -

5.3 管理员设置界面实现.................... - 13 -

5.4各公司界面实现 ........................ - 15 -

5.5各工具界面实现 ........................ - 18 -

5.6各员工界面实现 ........................ - 27 -

5.7帮助界面实现 .......................... - 31 -

6 使用说明 .................................. - 32 -

7 总结 ...................................... - 32 -

1 前言

1.1课题的背景和意义

随着计算机的普及，越来越多的企业开始自己的业务通过使用计算机管理，他们一直想有一个良好的管理软件，以帮助他们提高工作效率和管理水平。该软件适用于集团式公司管理，采用最新的操作系统管理数据，用户将操作更容易，更直观，更方便。每个系统可以是一个独立的业务管理模块来独立操作，使用该系统可以大大提高企业管理效率。随着科学与技术，计算机科学的成熟，对于大多数人来说，强大的功能得到不断提高认识，它已进入人类社会的各个领域，并发挥着越来越重要的作用。

集团业务在计算机的应用，有着手工管理无法比拟的优点。例如：经济快速，容易找到的，可靠性高，存储量大，安全性高和成本低。这些优点能够极大地提高业务的管理的效率。

1.2研究内容

管理信息系统是一个收集、传输、存储、加工、输出、维护、管理和使用信息的人机系统，它不仅可以进行数据处理，而且还将数据处理与优化的经济管理模型、仿真技术等结合起来，向各级领导提供决策支持信息。开始朝着智能化、网络化、分布式的方向发展。目前，国内很多领域，建设、银行、农业、税务、石油化工、公安等都有不同层次、不同类型的管理信息系统的应用。

本课题的研究目标是对集团公司业务流程情况进行管理。主要实现以下几个功能。

1.具备管理员与用户权限区别。

2.主模块：下属公司，工具，人员档案，系统设置。

3.窗体具备基本功能：最大化，最小化，关闭等功能。

4.具有特定权限的用户登录后可以进行各种信息的录入、删除与修改操作。

5.普通用户登录后可以按照特定的条件查询统计各种信息。

2 系统调研

需求调研分析阶段研究的对象是软件项目的用户要求。包括两个方面：一要全面理解用户的各项要求，也不能接受所有的要求；二，要准确地表达被接受的用户要求。只有经过确切描述的软件需求才能成为软件设计的基础。

2.1系统调研

本次假设陈氏集团公司进行现场调研，了解了公司的相当组织结构和业务流程。

1、公司现状

本次调研的公司是个中小型的中介公司，公司现有人员12人，主要是下属公司管理人员。公司管理人员有店长和店员，部门包括集团总部、水果店、超市、影院、交易系统、图书管理、餐饮等几个部门。

2、业务现状

公司现主要采用网络对业务进行管理。有公司的管理系统对企业进行信息化和标准化管理，大大降低了工作效率。

业务主要是各公司的正常事务。

2.2可行性分析

可行性研究的目的就是在尽可能短的时间内用最小的代价确定问题是否能够解决。可行性研究的目的不是解决问题，而是确定问题是否值得去解。可行性研究的实质是要进行一次大大压缩简化的系统分析和设计过程。一般来说，至少应该从下述三方面研究每种解法的可行性。

1、操作的可行性分析

系统的登录界面简单和友好，采用常见的界面窗口的登录界面，而系统的开发则采用的是较为常用的VB语言开发。这些策使得用户不需要很长的时间就能够快速熟悉系统，并掌握系统的操作方法。此外，为了方便系统管理维护人员，用户登录系统后会给出了一些提示，使得整个系统更加人性化，用户操作更简单方便。

2、社会可行性分析

企业要长期生存，你必须先有一个良好的企业文化，其次需要有一个完善的

管理，再采用科学的方法实现可持续发展，最后还要与时俱进，不断改革，使企业的研究所的时间去适应社会的变化。最重要的是要确保科学的管理方法，为企业获得长远发展的竞争力提高的唯一途径。

3、技术可行性分析

本次拟采用Visual Basic作为开发工具，访问数据库采用ADO数据库访问技术，数据库采用ACCESS建立。设计一个基于ADO的房屋中介管理系统的设计与实现。

（1）硬件可行性分析

系统的硬件要求方面不存在特殊的要求，只需要在普通的硬件配置就能够轻松的实现，只是需要确保系统的正常工作即可，以及拥有较高的效率。如果有特别低的硬件，它可以导致系统的低性能以及效率低，从而导致整个系统的运行不顺畅。以目前普遍的个人计算机的配置而言，这是十分容易实现的。因此，集团管理系统的开发在硬件方面是可行的。

（2）软件可行性分析

VB语言提供了一个共同的机制类似的借口动态模型，设计更集中。另外，在使用VB语言可以很容易实现模块化和存储信息。此外，代码复用，也可以很好的体现。因此，考虑到系统的实际情况，选择VB作为集团管理系统开发语言的时候。通过上述分析，该系统的设计实现在软件方面是可行的。

因此，我们进行了三个方面的可行性研究，可以看出，该系统的开发是没有问题的。

3 系统分析

在软件工程中，软件生命周期中的系统分析，包括确定系统必须具有的功能和性能，系统要求的运行环境。并且预测系统发展的前景，必须仔细分析系统中的数据

，既要分析系统中的数据流，又要分析长期使用的数据存储。通过分析应该得出用业务流图、数据字典，可行性分析等内容，为系统的设计奠定基础。

3.1业务流程分析

图3-1 登录界面

3.2数据流程分析

数据流程分析一般采用数据流图表示。包括外部实体、数据流、加工处理、数据文件表。一般用图3-2表示。

数据加工

图3-2 数据流基本图

外部实体，外部实体指系统之外的实体，不在系统中的单位或人物，但是这些实体与系统之间有信息传递关系。在集团公司管理系统中，外部实体有用户和管理员等。

数据流，数据流是指系统中用于表示交流与传递的数据，房屋中介管理系统的主要数据流有出租数据、出售数据等等。

处理加工。处理加工是指系统对数据的操作加工或处理。房屋中介管理系统处理加工有交易等。

数据存储。也就是文件，指系统所存储数据的文件。房屋中介管理系统的文件包括业务记录等。

4 系统设计

在系统设计阶段，要着重解决“怎么做”的问题。将系统的逻辑模型转化为系统的信息结构或数据库物理模式及软件结构，并设计每个软件模块的输入、输出格式，形成系统设计说明书或系统设计文档，作为系统实施阶段编程的直接依据。

4.1功能设计

根据系统功能需求分析，对系统功能进进的设计和分解。功能分解的过程就是一个由抽象到具体的过程。为了提高集团公司业务管理水平，减轻集团公司管理人员的劳动强度，提高对信息处理速度与信息的准确性；为操作员提供更方便、科学的服务。设计了本集团管理系统，同时给操作员提供的一种更先进、科学的服务系统。用计算机来设计一个集团公司管理系统的方案。并能在一定程度上实现自动化。让计算机对房屋中介公司的数据库信息进行管理，实现公司信息化的管理。作为租赁数据库系统，其主要实现的功能应包括以下7个模块：（1）管理员登录模块：需要有管理员名称与密码：输入错误时要提醒，错

3次不能再输入；正确时进入主界面。管理员也可重置密码。

（2）系统管理模块：用户和密码管理；可以对这些信息进行修改、删除。用户管理包括添加用户和删除用户，用户数据为用户名称和密码权限。密码管理对当前用户的密码进行修改。必须提供当前的密码才能对密码进行修改，提高了系统的安全性。

（3）公司管理模块：包括各公司信息增加、查询等。

（4）员工管理模块：包括员工信息管理的增加、查询。

4.2功能结构设计

在本系统设计阶段，功能结构采用结构化的系统设计方法，将集团公司管理系统的逻辑模型转化为信息结构或数据库物理模式及软件结构，并形成集团公司管理系统设计说明书或设计文档，作为本系统实现阶段编程的重要依据。根据系统功能需求分析、功能设计和系统功能进行的设计和分解。功能结构图就是按功能从属关系画成的图表，图中的每一个框称为一个功能模块。我们将整个系统分解成相对独立的若干模块，通过对模块之间关系的协调来实现整个软件系统的功能，从而得到系统的功能模块结构图。如图4-1。

管理系统下共有5个模块为：系统管理，员工信息管理，下属公司管理，

系统关于。

图4-2 功能结构图

5 系统实现

统一的人机界面不至于会增加用户的负担，让用户始终用同一种方式思考与操作。最忌讳的是每换一个屏幕用户就要换一套操作命令与操作方法。

5.1 登录模块实现

如图5-1为房屋中介管理系统的登录界面设计。此模块主要功能是用于登录本系统，首先将从登录窗体提交的用户名和密码进行接受，之后在后台进行处理，按照用户名在数据库中进行查询如果查到该用户则将该用户的名称和密码全都取出来分别赋给两个字符串变量，判断从数据库中读出的密码与登录时输入的密码是否配比上，若两个密码相同则根据权限的值进入主界面，否则输出密码错误。如果三次错，就自动退出系统。这样提高了系统的可靠性。

登录界面的设计：添加SDI窗体命名为公司内部管理系统。再加1个textbox 和combo。Textbox设计password为密码格式。添加两个label。详细设计如图

。

图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()

各公司软件系统.Show

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()

人员档案查询.Show

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

管理员设置界面.Show

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

人员档案管理.Show

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()

If Combo1.Text = "公司名称" Then

Adodc1.RecordSource = "select * from 各公司资料where 公司名称='" & Trim(Text1.Text) & "'"

Adodc1.Refresh

Exit Sub

ElseIf Combo1.Text = "公司负责人" Then

Adodc1.RecordSource = "select * from 各公司资料where 公司负责人='" & Trim(Text1.Text) & "'"

Adodc1.Refresh

Exit Sub

ElseIf Combo1.Text = "公司项目" Then

Adodc1.RecordSource = "select * from 各公司资料where 公司项目='" & Trim(Text1.Text) & "'"

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 Sub Command1_Click(Index As 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)