这二天进不了网站，总觉得少了点什么。每天我都要打开看看的。

    上半年就承诺过将系统公开的，总认为还没完善，一直就拖着。

    小弟不才，没学过编程。

    自己开公司后，试用了好几个行业软件，价格最底3000，最高12000。价底的模块少，你还得与他们一起商量加模块，但加一个模块要500，真服了，不就是一个窗口吗。价高的功能太多，大多用不上，一台电脑还要加收600，用不起呀。想来想去就想自己编了。在网上选了二个，且都注册了网名，另一个BBS上提问总是没人回，郁闷。上了易表，问个问题下面好多人回，大家还在一起商讨哪个更适合。

     这样一来就真的喜欢上了易表。原来用易表编了一个，也用了二年。后来将系统全推翻，重新用FOXTABLE来编。这几年没有编过其它行业的，总是围着这个系统来转。在网上解决了一个又一个难题。在这里真诚的感谢各位版主老师的解疑与帮助。

     今天放出来，实话心里没有疙瘩与不快。这个作品虽是我用过心的，但更是在大家的帮助下完成的。希望能对新手（哈，比我新的手）有用。如您在参阅过程中有不明的请提出来，我会解释我的思路；如您在参阅过程中发现有不合适的地方，请你一定指出来，以便我更正。

     感谢！

下载地址：

http://www.foxtable.com/download/zp/cargo.rar

先看看介面：

我喜欢窗口试录入，这样直接点。

图片太大，如何试小一点？

业务录入查看录入窗口：

此主题相关图片如下：2.jpg

所有业务将一目了然。我是按日期排序的，且能及时反映出每一单业务的利润。

查将也方便。因还没搞懂全表查询，只能按单表查询。

如查业务号，只能在先指定业务录入表。如查柜号，只能先指定柜号录入表。但想想哪10000多的系统也是这样选择查询的，也没什么不好。呵呵。

右边是新业务录入，放在这主要是不用点空间，能节省空间就节省点吧。

业务录入窗口：

这个是重点，系统的重之重。呵呵！所有的资料均在此录入，

此主题相关图片如下：3.jpg

熟悉此行业的同事，一看就明白了。因公司小，没有将操作及文件分开，统一叫商务。对客户是从头跟 到尾。

实时的统计与显示，费用的计算与思维逻辑的转变费了我将一个月的时间。帮助中跨表的计算这一章看了N多遍，也演算了N多遍。哪个着迷呀，天天搞到转钟。白天要上班啦，没办法。

记住了，锁单后你将不能再增加或删除行的。以免结单后数据又被人不小心删除了。哪财务就麻烦大了，对不上帐的。

最让我感到有成就感的，还是这个销帐功能：

此主题相关图片如下：4.jpg

点击销帐，双击客户，选择是收款还是付款进入此窗口。

这个也是化了我最多时间的设计。以前是没有“销帐明细”这个表的，都是直接提取“费用录入”表来销帐。

但想想还是太危险，万一操作不当不小心删除了源数据，哪真是头大了。所以才想到用中转表来操作，这样更安全一点。

看看我销帐明细中的公式：

\'...
dim dr as datarow = e.datarow
dim ds as row = tables("收付凭证").current
dim dh as datarow = datatables("汇率表").find("[源币制] = \'" & dr("币制") & "\' and [折算币制] = \'" & dr("收付币制") & "\'")
dim s,s1 as string
if vars("开关") = "开" then
    Select Case e.datacol.name
        case "选择"
            if e.NewValue = true
                if ds("币别") = "" then
                    Dim Result As DialogResult
                    Result = MessageBox.Show("请选择收付币种!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
                    If Result = DialogResult.ok Then
                        dr("选择") = false
                        Return
                    end if
                end if
                if dr("收付编号") = ds("凭证号") OrElse dr.isnull("收付编号") then
                    dr("收付编号") = ds("凭证号")
                    dr("收付币制") = ds("币别")
                Else
                    Dim Result1 As DialogResult
                    Result1 = MessageBox.Show("你只能销余额!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
                    If Result1 = DialogResult.ok Then
                        dr("选择") = false
                        Return
                    end if
                end if
            Elseif e.NewValue = false then
                if dr("收付编号") = ds("凭证号")
                    dr("收付编号") = nothing
                    dr("收付币制") = nothing
                end if
            end if
        case "收付币制"
            if dh isnot nothing then
                dr("兑换率") = dh("兑换率")
                s = dr("金额") & dh("折算符") & dr("兑换率")
                dr("收付金额") = eval(s)
            Else
                dr("兑换率") = nothing
                dr("收付金额") = nothing
            end if
        case "兑换率"
            if dh isnot nothing AndAlso dr("兑换率") isnot nothing then
                s = dr("金额") & dh("折算符") & dr("兑换率")
                dr("收付金额") = eval(s)
            end if
        case "收付金额"
            if dh isnot nothing then
                if dh("折算符") = "*" then
                    s1 = dr("收付金额") & "/" & dr("兑换率")
                Elseif dh("折算符") = "/" then
                    s1 = dr("收付金额") & "*" & dr("兑换率")
                end if
                dr("折算金额") = eval(s1)
            end if
            if e.NewValue = nothing then
                dr("折算金额") = nothing
                dr("销余额") = nothing
            end if
            dr("余额") = dr("金额") - dr("折算金额")
            DataTables("收付凭证").DataCols("凭证号").RaiseDataColChanged(ds.datarow)
        case "销余额"
            if  e.NewValue <> 0 then
                dr("余额编号") = ds("凭证号")
            Else
                dr("余额编号") = nothing
            end if
            dr("余额") = dr("金额") - dr("折算金额") - dr("销余额")
            DataTables("收付凭证").DataCols("凭证号").RaiseDataColChanged(ds.datarow)
    end select
end if

以前没有开关，总是死循环。加了开关，先填入数据再计算快捷多了。

销帐后直接写入后台数据库，是不是很方便？

今天深圳有飓风，刚停了雨，要回家了。

系统已发给狐爸，是开发版本的。要下的狐友们等狐爸转好了发上来吧。

密码都是 888

很漂亮，我顶。

期待最终的成品。

这是最终的成品，是我正在用的。