《Visual Basic 管理信息开发案例 教学课件 ppt 作者 武新华 第5－7章 第5章 企业日常合同信息管理系统》由会员分享，可在线阅读，更多相关《Visual Basic 管理信息开发案例 教学课件 ppt 作者 武新华 第5－7章 第5章 企业日常合同信息管理系统（187页珍藏版）》请在金锄头文库上搜索。
1、第5章 企业日常合同信息管理系统,5.1 系统开发的功能分析 5.2 设计好自己的数据库 5.3 系统开发过程的实现 5.4 应用程序的打包和发布 5.5 相关开发技术介绍 5.6 最终运行结果的查看,5.1 系统开发的功能分析,5.1.1 设计目标 本管理信息系统设计的主要目标在于对销售和购货两种不同合同的管理上。对这两种不同合同的管理主要从以下几个方面来实现。,1销售合同的管理 本系统所要处理的内容有：合同信息的录入、修改、删除、查询和打印，销售合同的收款审定和合同查询统计表等。其中包括合同约定的起止时间、销售合同编号、项目负责人、所在地区、项目性质以及合同的执行情况等。 其中，合同设备清
2、单的查询主要由销售合同查询统计表和统计销售合同表两部分组成。,2购货合同的管理 本系统所要处理的内容有：合同信息的录入、删除、修改、查询和打印，购货合同修改凭证的录入、修改、删除、查询和打印，以及购货合同的查询统计等。其中包括合同起止时间、设备分类及合同编号。供应商的表格形式与销货合同相同。,5.1.2 需要实现的系统功能 为满足用户的工作需要，使公司的各项管理实现现代化，在确定了本系统的设计目标之后，特开发本公司管理信息系统，来完成各子系统之间的数据共享，实现需要的统一管理和自动数据传递；同时保证总经理系统能够对公司的整体工作进行管理、查询和监督等操作，这也是我们在本系统中要重点实现的系统功
3、能。,5.1.3 开发和运行环境 开发工具：Visual Basic 6.0中文版，后台所用数据库是Access 2000，同时建立ODBC数据库接口，完成多人共享操作的C/S结构。 运行环境：服务器为Windows NT Server 4.0以上版本；客户机为装有Windows 98以上版本的操作系统；服务器数据库采用Microsoft SQL Server 7.0或Access。,5.1.4 系统功能模块的设计 根据企业日常工作中的实际需求，结合实际管理情况的模块分析，本系统在设计时所要实现的主要功能如下： (1) 确立以公司总经理和财务部门为中心的管理模式，以及与各业务部门之间存在的业务
4、关系。 (2) 确保公司总经理能够及时了解公司的各种经营情况，并得到详尽、客观的数据。,(3) 公司各业务部门间能够实现及时的相互沟通，以确保能够掌握工作的进展情况。 (4) 本系统数据库由专人统一进行管理，并保证数据的安全和网络系统的运转正常。,5.2 设计好自己的数据库,根据公司的合同管理流程，结合上述的各功能需求，本系统将利用Access数据库实现表的建立，并通过Access数据库实现数据存储和管理。同时建立ODBC数据库接口，完成多人共享操作的C/S结构。当然，通过ODBC方式和标准的SQL语言，也可以升迁为SQL Server等数据库进行处理。,各表格的字段名称、数据类型及字段大小在
5、以下表格中都有明确的说明，读者可以按照这些说明来使用Access设计表格。 (1) 付款申请表如表5-2-1所示。 (2) 付款类别信息表如表5-2-2所示。 (3) 付款方式信息表如表5-2-3所示。 (4) 客户信息表如表5-2-4所示。,表5-2-1 付款申请表,表5-2-2 付款类别信息表,表5-2-3 付款方式信息表,表5-2-4 客户信息,(5) 供应商信息表如表5-2-5所示。 (6) 币种信息表如表5-2-6所示。 (7) 合同审批表如表5-2-7所示。 (8) 职员信息表如表5-2-8所示。 (9) 工程进度和人员配置情况表如表5-2-9所示。 (10) 施工单位档案表如表5
6、-2-10所示。 (11) 设备清单表如表5-2-11所示。,表5-2-5 供应商信息表,表5-2-6 币种信息表,表5-2-7 合同审批表,表5-2-8 职员信息表,表5-2-9 工程进度和人员配置情况表,表5-2-10 施工单位档案表,表5-2-11 设备清单表,(12) 设备目录表如表5-2-12所示。 (13) 设备分类信息表如表5-2-13所示。 (14) 收款类别信息表如表5-2-14所示。 (15) 购货合同登记表如表5-2-15所示。 (16) 购货合同供应商表如表5-2-16所示。,表5-2-12 设备目录表,表5-2-13 设备分类信息表,表5-2-14 收款类别信息表,表
7、5-2-15 购货合同登记表,表5-2-16 购货合同供应商表,(17) 购货合同表如表5-2-17所示。 (18) 购货合同设备表如表5-2-18所示。 (19) 购货合同纳税表如表5-2-19所示。 (20) 购货合同付款表如表5-2-20所示。 (21) 购货合同付款审定单表如表5-2-21所示。 (22) 购货合同到货情况表如表5-2-22所示。,表5-2-17 购货合同表,表5-2-18 购货合同设备表,表5-2-19 购货合同纳税表,表5-2-20 购货合同付款表,表5-2-21 购货合同付款审定表,表5-2-22 购货合同到货情况表,(23) 购货合同付款情况表，如表5-2-23
8、所示。 (24) 销货合同登记表如表5-2-24所示。 (25) 销货合同表如表5-2-25所示。 (26) 销货合同客户资料表如表5-2-26所示。 (27) 销售合同收款审定表如表5-2-27所示。,表5-2-23 购货合同付款情况表,表5-2-24 销货合同登记表,表5-2-25 销货合同表,表5-2-26 销货合同客户资料表,表5-2-27 销售合同收款审定表,(28) 销货合同交货情况如表5-2-28所示。 (29) 销货合同设备表如表5-2-29所示。(本节最后给出了在Access中的设计视图，如图5-2-1所示) (30) 销货合同交货方式如表5-2-30所示。 (31) 销货合
9、同收款表如表5-2-31所示。,表5-2-28 销货合同交货情况表,表5-2-29 销货合同设备表,图5-2-1 销货合同设备表视图,表5-2-30 销货合同交货方式表,表5-2-31 销货合同收款表,(32) 销货合同收款情况表如表5-2-32所示。 (33) 销货合同纳税表如表5-2-33所示。 (34) 合同的项目信息表如表5-2-34所示。,表5-2-32 销货合同收款情况表,表5-2-33 销货合同纳税表,表5-2-34 项目信息表,5.3 系统开发过程的实现,5.3.1 公用程序模块(Module1.bas)的设计 首先我们来看一下标准模块Module1中的内容：该程序模块定义了使
10、用的全部全局变量和函数，同时作为程序启动函数Main的定义部分。通常情况下，我们可以在Visual Basic程序中建立这样的模块程序，以便进行整个系统的各种公用变量和函数的初始化。,该模块的设计代码如下： Global fMainForm As MDIMain Global Constring As String Global curWork As String Sub Main() Constring = “PROVIDER=MSDASQL;driver=SQL Server;server=wlf;uid=sa;pwd=; database=e_ms;“ Set fMainForm = N
11、ew MDIMain fMainForm.Show End Sub,5.3.2 设计系统的主窗体(MDIMain) 用户可以通过该界面来调用本系统中的各种其他处理功能。由于该模块是整个系统启动后出现的主窗体，并且，该窗体使用了MDI窗体形式，其他被调用的窗体都作为子窗体出现在该窗体的内部，如图5-3-1所示，因此，该窗体同时也是用户操作的主要界面部分。,我们可以看到，在主窗体中有菜单栏、工具栏、TreeView控件与MSHFlexGrid数据绑定控件等。用户只要通过单击窗体上部的各个菜单项就可以执行其相对应的功能。例如：用户可以通过单击【执行】和【工具】这两个菜单项来调用其他的窗体。本窗体中的
12、对象主要是各个菜单项及其下属的各个子菜单。 本界面将要实现提供调用其他程序的菜单选择和显示当前合同信息的功能。每次启动程序后都自动提醒这两方面的功能。,图5-3-1 系统主界面,为本窗体中各控件添加的代码如下： Private Sub MDIForm_Load( ) Dim code As String code = GetSetting(“e_ms“, “personal“, “职员编号“, Default:=“ “) If code = “ “ Then dlgRegister.Show (1) End If,Picture1.Align = vbAlignLeft Picture1.Wi
13、dth = TreeView1.Width Picture2.Align = vbAlignRight Fill_Tree End Sub,接下来是要编写该菜单中通用的数据处理函数，该函数的功能是根据当前活动窗体来调用窗体上对应的ADO控件的数据记录处理功能。但在这里，只要每个窗体上的ADO名称相同，则这种操作都将是规范和统一的。这时需要添加如下设计代码：,Private Sub MDIForm_Resize( ) Picture2.Width = Me.Width - Picture1.Width End Sub Private Sub menuEditAdd_Click( ) Me.Act
14、iveForm.cmdAdd.Value = True End Sub Private Sub menuEditDelete_Click( ) Call Me.ActiveForm.cmdDelete_Click End Sub,Private Sub menuEditRefresh_Click( ) Call Me.ActiveForm.cmdRefresh_Click End Sub Private Sub menuEditUpdate_Click( ) Call Me.ActiveForm.cmdUpdate_Click End Sub Private Sub menuExcuteA_C
15、lick( ) frm_设备交款情况.Show End Sub,Private Sub menuExcuteI_Click( ) frm_合同收款情况.Show End Sub Private Sub menuFileClose_Click( ) Unload Me.ActiveForm End Sub Private Sub menuFileNew_Click( ) dlgNew.Show (1),Select Case curWork Case “销货合同“ frm_销货合同.Show Case “购货合同“ frm_购货合同.Show End Select End Sub,接着来输入如下
16、代码，使得本系统能够根据用户操作来选择其对应的处理程序： Private Sub menuFileOpen_Click( ) dlgOpen.Show (1) Select Case curWork Case “统计报表“ prjEMS.frmReport.Show Case “收款情况报表“ prjEMS.frm_销货合同收款情况.Show Case “付款情况报表“,prjEMS.frm_购货合同付款情况.Show Case “销货合同执行情况报表“ prjEMS.frm_销货合同交货情况.Show Case “购货合同执行情况报表“ Case “销货合同完成情况报表“ Case “购货合同完成情况报表“ End Select End Sub,当程序运行到这里的时候，上面的Select Case语句将可以实现对其他的窗体和报表的调用。例如：prjEMS.frm_购货合同付款情况、购货合同执行情况报表、销货合同完成情况报表、购货合同完成情况报表等。其设计代码如下：,Private Sub menuFileSend_Click( ) dlgSend.Show
