企业管理系统.doc

--

第页共NUMPAGES13页

企业管理系统设计报告

姓名：谢鸿昌

班级：商务0901班

学号:20094375一：系统目标设计及功能分析：

企业管理系统，是指能够体现企业管理的大部分职能（包括决策、计划、组织、领导、监控、分析等等），能够提供实时、相关、准确、完整的数据，为管理者提供决策依据的一种软件。使企业可以实现规范化的管理。
推动企业考勤管理走向科学化、现代化，适应现代企业制度的要求。
使管理员可以很简单地完成日常的管理工作。
职工管理：对全企业的人员的基本情况进行管理。
干部管理：对技术干部、党政干部和后备干部的管理
职工培训管理：培训的内容、地点、时间、经费等。
旅差管理：对企业人员出差的管理，包括出差的起始时间、花费、地点、业务等。

二：数据库概念结构设计:

企业管理系统
技术干部
职工培训管理
旅差管理
干部管理
党政干部
后备干部

职工管理
职工增加
职工减少
职工变动
人员档案

实体之间的总体ER图设计如下：

人员档案
职工变动
才
职工减少

职工增加

职工管理

企业管理系统

位于

位于

位于

位于

干部管理

旅差管理

职工管理

后备干部

党政干部

技术干部

三：数据库逻辑结构设计：

设计“干部管理表”的表结构，如表所示

表“干部管理表”的表结构

字段名数据类型字段长度是否为空干部IDint4否姓名Varchar15(30)否出生日期Varchar20(40)否工作时间Char15否职务Varchar8是

（2）表设计图如下：

干部管理表VB窗口界面：

干部管理表VB窗口命令：
DimcnAsNewConnection
DimrsAsNewRecordset

PrivateSubCommand1_Click()
添加干部.Show
EndSub

PrivateSubCommand4_Click()
DimsqlAsString,comboAsString,xingAsString
Dimsql1AsString
combo=Combo1
xing=Text1
Ifxing=""Orcombo=""Then
sql="select*from干部管理表orderby职务asc"
Else
sql="select‘挑选‘*from干部管理表where"&combo&"like'%"&xing&"%'"
EndIf
Ifcn.State=0Thencn.Open‘如果连接（cn）的状态等于零（即关闭）
Setrs.ActiveConnection=cn活动链接为（cn）即打开SQL
Ifrs.State=1Thenrs.Close
rs.CursorLocation=adUseClient
rs.LockType=adLockBatchOptimistic
rs.Opensql
SetDataGrid1.DataSource=rs
EndSub

PrivateSubDataGrid1_Click()

EndSub

PrivateSubForm_Load()

'CallMove((Screen.Width*2-Width*2),(Screen.Height-heigth)/2.5)

Me.Width=8300
Me.Height=5700
'Me.BorderStyle=
DimsAsString
s="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=false;InitialCatalog=wang;DataSource=."
cn.ConnectionString=s
Ifz=1Then
Command1.Enabled‘激活’=False
Command2.Enabled=False
Command3.Enabled=False
EndIf
EndSub
PrivateSubForm_Unload(CancelAsInteger)
Ifcn.State=1Then
cn.Close
EndIf
EndSub

再次就例举一个vb命令

（3）设计“旅差管理表”的表结构，如表所示
表“旅差管理表”的表结构

字段名数据类型字段长度是否为空部门narchar4否姓名varchar15(30)否出生日期varchar20(40)否出差地点Char15否出差原因Char8是

（4）表设计图如下：

（5）设计“职工信息表”的表结构，如表所示
表“职工信息表”的表结构

字段名数据类型字段长度是否为空员工IDin