标题：物流管理系统－－开放源码 （可以下载了）
这二天进不了网站，总觉得少了点什么。每天我都要打开看看的。
上半年就承诺过将系统公开的，总认为还没完善，一直就拖着。
小弟不才，没学过编程。
自己开公司后，试用了好几个行业软件，价格最底3000，最高12000。价底的模块少，你还得与他们一起商量加模块，但加一个模块要500，真服了，不就是一个窗口吗。价高的功能太多，大多用不上，一台电脑还要加收600，用不起呀。想来想去就想自己编了。在网上选了二个，且都注册了网名，另一个BBS上提问总是没人回，郁闷。上了易表，问个问题下面好多人回，大家还在一起商讨哪个更适合。
这样一来就真的喜欢上了易表。原来用易表编了一个，也用了二年。后来将系统全推翻，重新用FOXTABLE来编。这几年没有编过其它行业的，总是围着这个系统来转。在网上解决了一个又一个难题。在这里真诚的感谢各位版主老师的解疑与帮助。
今天放出来，实话心里没有疙瘩与不快。这个作品虽是我用过心的，但更是在大家的帮助下完成的。希望能对新手（哈，比我新的手）有用。如您在参阅过程中有不明的请提出来，我会解释我的思路；如您在参阅过程中发现有不合适的地方，请你一定指出来，以便我更正。
感谢！
下载地址：
http://www.foxtable.com/download/zp/cargo.rar
先看看介面：
我喜欢窗口试录入，这样直接点。
此主题相关图片如下：1.jpg
图片太大，如何试小一点？
业务录入查看录入窗口：
此主题相关图片如下：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
很漂亮，我顶。
期待最终的成品。
很漂亮，我顶。
期待最终的成品。
这是最终的成品，是我正在用的。