主题：[分享]ERP之财务

https://pan.baidu.com/s/1jIOOec2

财务系统算是较专业的一环,分享出来让大家体会foxtable也可以如此.

 

 你做的那个文件，好大！！！是数据太多还是图片什么的太多？

 

 建议处理一下压缩项目，同时截几张图发上瞧瞧。

 

抱歉!老师,是视频档.之前上传有问题,现再上传试试看.

抱歉!老师试了还是不行.

上传图片？http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

请教下楼主,你那个中英文的界面是如何实现的?是后台SQL数据库中专门用一个表来记录所有控件与字段的中英文对照吗?

用checkBox控件就可以做到

 

If e.Sender.Checked Then

    Dim lbs As String() = {"幣別", "匯率", "啟用日期", "選擇列"}

    For i As Integer = 1 To lbs.Length

        e.Form.Controls("Label" & i).Text = lbs(i - 1)

    Next

   

    Dim caps As String() = {"幣別", "幣名", "匯率", "啟用日期"}

    For i As Integer = 0 To caps.Length - 1

        Tables(e.Form.Name & "_Table1").Cols(i).Caption = caps(i)

    Next

    DataTables("ExchangeRate").BuildHeader

Else

    Dim lbs As String() = {"CurrencyNo","ExchangeRate", "UseDate", "Select"}

    For i As Integer = 1 To lbs.Length

        e.Form.Controls("Label" & i).Text = lbs(i - 1)

    Next

   

    Dim caps As String() = {"CurrencyNo", "CurrencyName", "ExchangeRate", "UseDate"}

    For i As Integer = 0 To caps.Length - 1

        Tables(e.Form.Name & "_Table1").Cols(i).Caption = caps(i)

    Next

    DataTables("ExchangeRate").BuildHeader

End If

也许还有更好的方式,老师们可以指导.

这种方式字段改变名称不就完了，全部要重新修改。我看用友，金蝶等都是类似用一个后台表，其中用f_en,F_Chn,f_Thn等字段记录不同的语言值，加载表时可能根据打开系统时选择的语言方式来自动显示不同的语言，我是觉得这种方式用于表中的字段显示还可以，如果窗口中的各个控件也要这样来显示，就显得很繁琐了，故才想问下楼主的方式是否更好，不知老师们是否有更好的方式？

谢谢指点！我会如此做是因为有些是海外发行上市公司,公司内部需要中英文报表才会这样设计,不需要退出系统做切换.