销售管理系统的设计与实现

　　End Sub
　　Private Sub Form_Unload(Cancel As Integer)
　　frm_main.Enabled=True ’设置主窗体有效
　　End Sub
　　Private Sub Command1_Click() ’统计汇总客户销售商品信息
　　Adodc1.RecordSource="select 商品名称,count(*)as 销售品种,sum(数量)as 销售数量,sum(金额)as 销售金额,客户全称,销售员,操作员from销售信息表where日期between’"+Str(DTP1.Value)+"’and’"+Str(DTP2.Value)+"’group by 商品名称,客户全称,销售员,操作员"
　　Adodc1.Refresh
　　Set DataGrid1.DataSource=Adodc1
　　End Sub
　　Private Sub Command2_Click()
　　Call CmdEnd(Me)
　　End Sub
　　6.2 公共模块
　　由于程序中对数据库连接串是整个程序共用的,所有窗体都是用它连接数据源,而且还有一些跨窗体的变量,所以应该使用公共模块来存放这些全避变量。
　　单击“工程”→“添加模块”菜单,打开一个公共模块,在其中添加如下代码：
　　Public Function Cnn() As String ’定义函数
　　’返回一个数据库连接
　　Cnn="Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=XSGL"
　　End Function
　　上面的Cnn被赋予的值是ADO的连接串属性,其中Provider是数据源的提供者,中间一部分表示使用此数据源不用密码,账号为sa。最后的Data Source 部分是前面建立的ODBC数据源的名称。
　　6.3 销售开单
　　销售开单模块是销售管理系统的核心模块之一。销售开单模块通过运用ToolBar、TreeView、MSFlexGrid控件,使界面更加直观、易用。本模块主要功能是对每笔销售出库业务进行记录,生成相对应的销售凭证。
　　
　　7 结 论
　　本系统以Visual Basic6.0作为前台开发工具，用SQL Server2000作为后台数据库,根据销售环节信息量大,要求信息反馈迅速等特点的具体需求进行设计的,并利用计算机管理技术,把科学管理的技术及管理方式融入到企业销售管理中,可极大地提高工作效率和企业的管理水平,使企业能够随着市场的动态变化而随时调整销售业务流程。此外,系统界面友好、操作性强,基本可以满足公司对于销售管理系统的需求。