vb客户管理系统(论文+源程序) 第5页
图6.5 数据库备份与恢复窗体                  图6.6 操作员权限设置窗体
其中数据备份与恢复主要代码如代码6.2所示：
Dim connter As Integer
Dim sql, workarea(15) As String
ProgressBar1.Visible = True
ProgressBar1.Max = UBound(workarea)
ProgressBar1.Value = ProgressBar1.Min
   For connter = LBound(workarea) To UBound(workarea)
       workarea(connter) = "initial value" & connter
       ProgressBar1.Value = connter
       StrCnn.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=Backup"
       sql = "backup DATABASE Data_cggl TO disk='" & Text1.Text & "'"
       StrCnn.Execute (sql)     '执行SQL语句
       StrCnn.Close
  Next connter
  ProgressBar1.Value = ProgressBar1.Min
  MsgBox "数据库备份成功！"
代码6.2 数据备份与恢复
6.3客户信息管理模块的设计
客户信息管理模块主要实现如下功能以及其实现如下图6.7所示：
1、添加客户信息
2、修改客户信息
3、删除客户信息
该模块设计采用SSTab控件，SSTab控件提供了一组选项卡，每个都充当一个容器，包含了其他的控件。控件中每次只有一个选项卡是活动的，给用户提供了其所包含的控件，而其他选项卡都是隐藏的。要使用该控件，必须先确定打算如何在选项卡中放置其他控件。设置Tabs和TabsPerRow属性来创建选项卡并将它们安排成多行显示。然后在设计时选择每个选项卡。对于每个选项卡，绘制每个你想显示的控件。如果必要，设置Caption, Picture,TabHeight和TabMaxWidth属性来安排选项卡的上部。
　　在运行时，用户可以使用CTRL+TAB或使用选项卡上定义的加速键浏览每个选项卡。
也可以使用Style, ShowFocusRect, TabOrientation和WordWrap属性来自定义整个SSTab控件。
 图6.7 客户信息管理窗体
 从图6.2可以看出，此设计对于客户信息管理不仅操作简单，而且显示简洁。
6.4 客户订单管理模块设计
客户订单管理模块主要实现如下功能：
1、客户订单添加
2、客户订单修改
3、客户订单删除
其实现方法跟客户信息管理一样，因此不做详细说明请参考6.3部分。
6.5 采购信息管理模块的设计
采购信息管理模块主要实现如下功能：
1、采购员信息管理，如图6.8所示；
2、供应商信息管理，如图6.9所示
3、采购材料管理，如图6.10所示
4、采购订单管理，如图6.11所示
在采购订单管理中，单击【添加】按钮，单号自动生成，然后在“货物名称”文本框中按下<Enter>键选择订货信息，选择完毕后<E按下nter>键。订单管理窗体中除了数量、批号、金额和备注信息之外，其他信息全部自动录入到相应的文本框中，最后输入数量，系统自动核算金额。
 图6.8 采购员信息管理
图6.9 供应商信息管理
图6.10采购材料信息管理
图6.11订购信息查询管理
6.6 综合信息管理模块设计
综合信息管理模块主要实现如下功能：
1、到货信息管理
2、退货信息管理
3、库存信息管理
4、信息报表打印
 到货管理是对采购订单中涉及货物的接收管理，到货管理模块主要实现对订单到货信息的管理，对于同一个订单，可以进行多次到货并且每一次到货后，订单数量都能够相应的减少。在到货信息维护中，有订单数量、报损数量、报溢数量等维护到货信息的数量。订单数量是指本次到货中的订单发货数量。在录入到货信息时候，是根据货物订单信息进行录入的。如果该订单没有全部到货，在下次录入到货信息时，还可以看到改订单的信息；如果该订单已经全部到货，那么下次选择到货信息的时候，在选择列表中该订单信息就会被删除。也就是说，选择列表中永远都是部分到货或者没有到货的订单信息。到货信息查询和采购订单查询的设计思路类似，都可以根据日期字段或者非日期字段进行查询。到货信息管理窗体的运行效果如6.12所示。

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页