毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

VB+access商品信息管理系统设计+源码 第7页

更新时间:2014-4-21:  来源:毕业论文
(2)设置表间关系
(3)设计字段属性
产品(product)表设计:                  商品类型(producttype)表设计:
订单(order)表设计:                   新订单(neworder)表设计:   
供应商(supplier)表设计:               供应(supply)表设计:
顾客(customer)表设计:                 用户(user)表设计:
   
(4)在各表中输入样本实例
产品(product)表实例
 
商品类型(producttype)表实例:
 
订单(order)表实例:
 VB+SQL Server智能排课系统
新订单(neworder)表实例:
 
供应商(supplier)表实例:
 
供应(supply)表实例:
 

顾客(customer)表实例:
 
用户(user)表实例:
 
4.5 可行性分析
技术可行性:开发本系统要求开发人员能够熟练运用VB等编程语言。目前技术人员已经掌握这些编程语言。因此,本次系统开发在技术上是可行的。
经济可行性:目前馨广源时尚生活馆已经具备相应的计算机等设备用于该系统的开发,对于技术资料,可以通过学校图书馆的资源得到。并且本系统开发所采用的开发工具都是开源的,陈本地。所以,在资金上该系统的花费不高,是可以接受的。
管理可行性:本系统操作简单、界面友好,所以即便不具有很多的计算机方面的知识的管理人员也可以很快学会,而且系统稳定,后期所需要投入的管理时间、资金都不需要很多,在管理上也是可行的。。

第五章 功能实现
现在需要为该店建立一个商品信息的管理系统,要求该系统可记录该店的商品、顾客、订单、供货商的综合信息,并实现对该店的商品、销售、供货的综合管理。针对馨广源时尚生活馆的特点以及以上的系统分析过程,在此设计并实现了一个小型的商品信息管理系统,可以实现商品信息、顾客信息、供货商信息的综合管理,提高商品营运的效率,同时大大节省了人力、物力,财力,提高其竞争能力。本系统的主要特点是:功能完善,实用性较强,还有操作简单,执行迅速等。
5.1 模块定义
模块设计代码如下:

Public G_UserName As String
Public G_FormNum As Integer
Public Function GoSql(ByVal sql As String, msgstring As String) As ADODB.Recordset
    '函数的功能为:执行Select、Insert、Delete、Update
    '等SQL语句,当执行Select时,返回记录集。
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    '异常处理,如果遇到异常调转到ErrSQL:处执行
    On Error GoTo ErrSQL:
    sql = Trim(sql)
    '创建连接
    Set cn = New ADODB.Connection
    '打开连接,语句中的ConnectString是一个函数,
    '用来返回连接数据库的字符串
    cn.Open ConnectString
    '判断是哪类SQL语句
    If Left(sql, 6) = LCase("insert") Or Left(sql, 6) = LCase("delete") Or Left(sql, 6) = LCase("update") Then
        cn.Execute sql
        msgstring = Left(sql, 6) & "操作成功!"
    Else
        Set rs = New ADODB.Recordset
        '执行Select语句,并得到查询结果
        rs.Open sql, cn, adOpenKeyset, adLockOptimistic
        '返回记录集对象
        Set GoSql = rs智能型充电器的电源和显示的设计
        msgstring = "查询到" & rs.RecordCount & "条记录"
    End If
GoSql_Exit:
    Set rs = Nothing
    Set cn = Nothing
    Exit Function
ErrSQL:
    msgstring = "查询错误:" & Err.Description
    Resume GoSql_Exit:
End Function
Public Function ConnectString() As String
    ConnectString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                        App.Path & "\..\商品信息管理系统\数据\XGYProduct.mdb;"
End Function
Sub main()

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

VB+access商品信息管理系统设计+源码 第7页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。