企业管理系统设计报告.doc

企业管理系统设计报告 姓 名： 班 级： 学 号: 一：系统目标设计及功能分析： 企业管理系统，是指能够体现企业管理的大部分职能（包括决策、计划、组织、领导、监控、分析等等），能够提供实时、相关、准确、完整的数据，为管理者提供决策依据的一种软件。 实体之间的总体ER图设计如下： 才 三：数据库逻辑结构设计： 设计“干部管理表”的表结构，如表所示 表“干部管理表”的表结构 字段名 数据类型 字段长度 是否为空 干部ID int 4 否 姓名 Varchar 15(30) 否 出生日期 Varchar 20(40) 否 工作时间 Char 15 否 职务 Varchar 8 是 （2）表设计图如下： 干部管理表 VB窗口 界面： 干部管理表 VB窗口 命令： Dim cn As New Connection Dim rs As New Recordset Private Sub Command1_Click() 添加干部.Show End Sub Private Sub Command4_Click() Dim sql As String, combo As String, xing As String Dim sql1 As String combo = Combo1 xing = Text1 If xing = Or combo = Then sql = select * from 干部管理表 order by 职务 asc Else sql = select‘挑选‘ * from 干部管理表 where combo like% xing % End If If cn.State = 0 Then cn.Open ‘如果连接（cn）的状态等于零（即关闭） Set rs.ActiveConnection = cn 活动链接为（cn）即打开SQL If rs.State = 1 Then rs.Close rs.CursorLocation = adUseClient rs.LockType = adLockBatchOptimistic rs.Open sql Set DataGrid1.DataSource = rs End Sub Private Sub DataGrid1_Click() End Sub Private Sub Form_Load() Call Move((Screen.Width * 2 - Width * 2), (Screen.Height - heigth) / 2.5) Me.Width = 8300 Me.Height = 5700 Me.BorderStyle = Dim s As String s = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=false;Initial Catalog=wang;Data Source=. cn.ConnectionString = s If z = 1 Then Command1.Enabled ?激活’ = False Command2.Enabled = False Command3.Enabled = False End If End Sub Private Sub Form_Unload(Cancel As Integer) If cn.State = 1 Then cn.Close End If End Sub 再次就例举一个vb命令 （3） 设计“旅差管理表”的表结构，如表所示 表“旅差管理表”的表结构 字段名 数据类型 字段长度 是否为空 部门 narchar 4 否 姓名 varchar 15(30) 否 出生日期 varchar 20(40) 否 出差地点 Char 15 否 出差原因 Char 8 是 （4）表设计图如下： （5） 设计“职工信息表”的表结构，如表所示 表“职工信息表”的表结构 字段名 数据类型 字段长度 是否为空 员工ID int 4 否 姓名 Varchar 8 否 出生日期 datetime 8 否 工作时间 smalldatetime 4 否 照片