顾客（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] 下一页