小学期实践报告-基于Excel小型客户关系系统开发.docVIP

成都东软信息技术学院信管系 小学期实践报告 项目名称：基于Excel小型客户关系系统开发 专 业： 07客户关系 班 级： 1 班 指导教师： 曾 丽 学生学号： 16号 学生姓名： 范方云 组 别： 第7组 2009年　9月 7 日  目录 1 项目概述 - 1 - 1.1内容 - 1 - 1.2功能 - 1 - 1.3意义 - 1 - 2 项目实施 - 1 - 2.1 开发计划 - 1 - 2.2主要功能模块说明 - 1 - 3 项目总结 - 8 - 3.1结论 - 8 - 3.2心得 - 8 -  1 项目概述 1.1内容 本项目研究的是汽车销售系统的开发，研发的管理系统显示了员工档案表、客户信息表、销售单、商品表，商品明细表、商品分析表、合同表、权限管理等信息，主要是方便公司管理人表的管理。 1.2功能 随着现代科学技术的发展和人民生活水平的提高，人们对汽车的要求越来越强烈，汽车行列也越来越发达，在现今竞争越来越激烈，提高客户的管理也越来越来迫切。企业的发展离不开管理，客户的发展也离不开管理，因为管理才能规范化，管理才能出效益，管理才能实现客户价值，给企业带来利润最大化。 所以，管理是实现客户价值和企业利润最大化的体现login Private Sub UserForm_activate() Dim i As Integer Worksheets(用户权限).Activate For i = 1 To Worksheets(用户权限).Range(a3).CurrentRegion.Rows.count - 1 ComboBox1.AddItem Cells(i + 3, 1) Next i End Sub 登录按钮：Image1 通过连接权限表实现权限的分级 Private Sub Image1_Click() sname = ComboBox1.Text spwd = TextBox1.Text If Application.WorksheetFunction.CountIf(Worksheets(用户权限).Range(a4:a50), sname) = 0 Then MsgBox 你输入的用户名错误！ Else If spwd Application.WorksheetFunction.VLookup(sname, Worksheets(用户权限).Range(a4:c50), 2, False) Then MsgBox 你输入的密码错误！ Else sgrade = Application.WorksheetFunction.VLookup(sname, Worksheets(用户权限).Range(a4:c50), 3, False) Select Case sgrade Case 管理员 login.Hide page1.qxgl.Visible = True …… Sheets(销售单).Visible = True …… （该权限内设置允许显示的表及按钮） Sheets(用户权限).Visible = True page1.tb2 = 管理员 + - + ComboBox1.Text page1.Label1 = Sheets(用户权限).Cells(1, 7) page1.Show Case 一般管理员 login.Hide page1.qxgl.Visible = False …… Sheets(销售单).Visible = True …… （该权限内设置允许显示的表及按钮） Sheets(用户权限).Visible = False page1.tb2 = 一般管理员 + - + ComboBox1.Text page1.CB4.Visible = False page1.Label1 = Sheets(用户权限).Cells(1, 7) page1.Show Case 业务人员 login.Hide page1.qxgl.Visible = False …… Sheets(销售单).Visible = True …… （该权限内设置允许显示的表及按钮） Sheets(用户权限).Visible = False