烟花爆竹经销管理

数据库设计
   数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高存储的效率，保证数据的完整性和一致性。另外，合理的数据库结构将非常有利于程序的实现。
2-1: 数据库需求分析
设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。
用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能够充分满足各种信息的输入和输出。收集基本数据、数据结构和数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。
通过对烟花爆竹经销管理的了解，总结出如下的需求信息：
 进货商品需要进行管理，所以需要一个jinhuobiao。
 销售商品需要进行管理，也需要一个xiaoshoubiao。
 所有的商品需要放到一起进行管理，同时也需要一个shangpingbiao。
 系统管理员需要进行统一管理，还需要一个guanliyuanbiao。
 只有管理员登录之后才可以使用系统。

[资料来源：www.THINK58.com]

 高级管理员不允许删除。进货、销售、商品信息都可进行浏览和删除。
 商品的利润和库存都可进行查询。
经过上述系统功能分析和需求总结，考虑到将来功能上的扩展，设计如下的数据项和数据结构：
 “管理员表”中包括有管理员、密码字段。
 “进货表”中包括有ID、记录日期、商品编号、产地、单价、数量、 实付款字段。
 “商品表”包括商品编号、商品名、产地、厂商、单价字段。。
 “销售表”包括ID、记录日期、商品编号、产地、单价、数量、实付款  字段。
 “管理员表”、“商品表”、“进货表”、“销售表”。由于开发时使用的数据量比较小，因此这些表都集中建立在同一个名为yhbzdate的数据库中。
数据库建好以后，选择“工具”菜单——“数据库实用工具”——“转换数据库”——“到早期Access数据库版本”，将数据库转换成早期数据库版本，以便实现兼容。
建立公共模块
在visual basic 中，我们用公共模块来存放整个工程项目公用的函数，全局变量,这样有利于代码的效率和维护。 选择“工程”菜单中的“添加模块”，为项目添加一个mypaid,保存为“mypaid.bas”。这就可以为公共模块添加代码了。 [资料来源：THINK58.com]
Option Explicit
Public conn As New ADODB.Connection
Public rstemp As New ADODB.Recordset
Public iflag As Integer [资料来源：http://THINK58.com]

Public Function transactsql(ByVal sql As String) As ADODB.Recordset
    Dim cont As ADODB.Connection
Dim rs As ADODB.Recordset
    Dim strconnection As String
    Dim strarray() As String
    Set cont = New ADODB.Connection
    Set rs = New ADODB.Recordset
        strconnection = "provider =microsoft.jet.oledb.4.0;
data source=" & App.Path & "\yhbzdate.mdb;"
        strarray = Split(sql)
        cont.Open strconnection
        If StrComp(UCase$(strarray(0)), "select", vbTextCompare) = 0 Then
          rs.Open Trim$(sql), cont, adOpenKeyset, adLockOptimistic
  
Set transactsql = rs
           iflag = 1
        Else think58.com [来源：http://think58.com]
           cont.Execute sql
           iflag = 1
        End If
transactsql_exit:
        Set rs = Nothing
        Set cont = Nothing
     Exit Function
transactsql_error:
        MsgBox "查询错误：" & Err.Description
        iflag = 2
    Resume transactsql_exit
End Function
Public Sub OpenTable(pAdo As Adodc, pRecordSource As String)
'打开一个表，得到一个数据集
     With pAdo
        .connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;
Data Source="  & App.Path & "\yhbzdate.mdb;
Persist Security Info=False"
        .CommandType = adCmdUnknown think58.com

        .RecordSource = pRecordSource
        .Refresh
     End With
End Sub
说明：在系统中，每个模块都要使用数据库。通过transactsql函数，我们就不需要在每次数据库操作中都重复输入数据库的连接，取结果和数据库的关闭等类似操作的代码，做到了程序的模块化。这样，后面所有要用到的添加，删除，查询和修改等操作都可以通过调用该函数来完成，得到相应的结果.
think58.com [版权所有：http://think58.com]