Visual FoxPro 的疑难杂症

tstan135

白日梦 于 15-6-2004 09:13 AM  说 :

Let's say,
Customer combobox is cboCustomer, this field must index
Address textbox  is txtAddress
TelNo textbox is txtTelNo
....

Combobox 的 field 是 index 了， 但为何它 shown 的 LISTS 是 A,B,C,a,b,c 而不是 a,A,b,B,c,C？请问要如何, 才能 shown 成 a,A,b,B,c,C？

白日梦

用 upper() 或 lower() 函数
index on upper(Customer) tag Customer

因为A,B,C,a,b,c的ASCII code 是 65,66,67,97,98,99. case sensitive.
upper() 或 lower(), case insensitive.

另一个方法就是用 ！放进textbox.format输入栏限制只有大写的输入。

我的 exe file 超过 10mb， 可有方法把它分散？ 不然通过 internet update 给顾客很麻烦。。

白日梦

1 多用 class 写，少用 program code。
  比较难做到，要改很多。

2 减少 form 浓缩输入在 formset。
  例如在一个 form 里连 account chart, product ID code等都可以输入。
  
3 分成几个 executable。
  例如 account 和 stock 和 payroll 和 ...
  当然 project 是各别的。

tstan135

1．在一个 Invoice 的 Program 里，有 Items, Quantity, Unit Price, Amount。请问要如何写及在哪里写才能使 Amount 自动计算？

2．因为每张 Invoice 的 Transaction 都不一样，所以请问要如何写及在哪里写才能使 Total自动计算全部的Amount?

白日梦

1. Let's say,
Invoice 的 detail 是 data grid 4 columns 控制
Thisform.Grid1.Column1.ControlSource = Inv2.Items
Thisform.Grid1.Column2.ControlSource = Inv2.Quantity
Thisform.Grid1.Column3.ControlSource = Inv2.Price
Thisform.Grid1.Column4.ControlSource = Inv2.Amount

在 Thisform.Grid1.Column2.Text1.Valid 编程
Thisform.Grid1.Column4.Text1.Value = This.Value * Inv2.Price

在 Thisform.Grid1.Column3.Text1.Valid 编程
Thisform.Grid1.Column4.Text1.Value = Inv2.Quantity * This.Value

在 Thisform.Grid1.Column4.Text1.When 编程
This.Value = Inv2.Quantity * Inv2.Price

2. Let's say,
The structure of 2 dbf files Inv1 & Inv2
Inv1.RefNo, must index
:
Inv1.Total

Inv2.RefNo, must index
Inv2.Items
:
Inv2.Amount

在 DataEnvironment 把 Inv2.Ref 联接 Inv1.Ref

在 Thisform.Grid1.Column4.Text1.Valid 编程
Select Inv2
Sum Amount To nTotal For Ref=Inv1.Ref
Select Inv1
Replace Total With nTotal

[ Last edited by 白日梦 on 17-6-2004 at 09:42 AM ]

tstan135

tstan135 于 16-6-2004 11:23 PM  说 :
1．在一个 Invoice 的 Program 里，有 Items, Quantity, Unit Price, Amount。请问要如何写及在哪里写才能使 Amount 自动计算？

请问如果再加上 TOTAL 要如何写及在哪里写才能使 TOTAL 自动计算全部的 Amount？

白日梦

答了，看回上面第 2 段。

tstan135

对不起，我不明白这段。请问可不可以再次说明？

白日梦 于 17-6-2004 09:40 AM  说 :
在 DataEnvironment 把 Inv2.Ref 联接 Inv1.Ref

在 Thisform.Grid1.Column4.Text1.Valid 编程
Select Inv2
Sum Amount To nTotal For Ref=Inv1.Ref
Select Inv1
Replace Total With nTotal
...

请问要如何联接，及 COMMNAD 应该写再哪里？

白日梦

tstan135 于 17-6-2004 11:41 AM  说 :
请问要如何联接，及 COMMNAD 应该写再哪里？

你create了inv1 & inv2 dbf files没？
然后才create invoice form
在 view menu -> Data Environment
+ 上面 2 个 table
drag inv2 的 ref index 去 inv1 的 ref

command 放进 Thisform.Grid1.Column4.Text1.Valid 里

tstan135

谢谢白日梦！
现在的难题是：我是用 WIZARD 的 BUTTON SET，当我 CLICK ‘ADD’就出现 ADD RECORD 的 OPTION （好象很不 User Friendly)。
按 DELETE 就把全部 DELETE 掉。
请问要如何 DESIGN 才能让 USER 容易使用？

[ Last edited by tstan135 on 17-6-2004 at 08:15 PM ]

白日梦

你正在做invoice吗？
由于一面invoice的form是同时控制2个table
所以不要用wizard的CommandGroup，自己design
因为在invoice form里有2个Add CommandButton
1个是Add New Invoice（Inv1.dbf加新记录）,第2个是Add New Detail（Inv2.dbf加新记录）
Delete也是同样情况。

tstan135

白日梦 于 18-6-2004 09:08 AM  说 :
你正在做invoice吗？
由于一面invoice的form是同时控制2个table
所以不要用wizard的CommandGroup，自己design
因为在invoice form里有2个Add CommandButton
1个是Add New Invoice（Inv1.dbf加新记录）,第2个是 ...

也许是我太笨，所以不会自己design。

tstan135

请问要如何才能只 PRINT 或 PREVIEW current record only？

tstan135

白日梦，请您再次说明要如何写及在哪里写才能在 COMBO BOX 上直接增加里面的项目。谢谢！

白日梦

tstan135 于 18-6-2004 04:29 PM  说 :
也许是我太笨，所以不会自己design。

慢慢来，罗马不是一天建起。你只不过是VFP新手罢了！最好是买几本书来学，有for Beginner的。

tstan135 于 18-6-2004 04:32 PM  说 :
请问要如何才能只 PRINT 或 PREVIEW current record only？

(Scope of Next 1 = Current record)
Report form ? Preview Next 1
(按印表机的CommandButton就可列印出来)

tstan135 于 18-6-2004 10:09 PM  说 :
请您再次说明要如何写及在哪里写才能在 COMBO BOX 上直接增加里面的项目。

ComboBox没有得加新的项目，我通常另外加TextBox来加。
因为它是用来列出另一个table的field来作选择。

[ Last edited by 白日梦 on 21-6-2004 at 01:38 PM ]

tstan135

白日梦 于 19-6-2004 11:56 AM  说 :

慢慢来，罗马不是一天建起。你只不过是VFP新手罢了！最好是买几本书来学，有for Beginner的。 ...

在我这儿要买本 FOXPRO 的书，简直难如登天。

tstan135

请问 (Scope of Next 1 = Current record) 要在哪里写?

白日梦

tstan135 于 21-6-2004 11:01 AM  说 :
在我这儿要买本 FOXPRO 的书，简直难如登天。

你住那一州？沙巴我没看到，我是在KL找得到，不过是version 3的书。

enry98

市面上VFP 的书 很多都是 for beginer 的......如果要深入点的确实难找..............

我有 VFP6 和 VFP 8 的E-Book 不过好像是中文的................

如果要请短信我，不过要给些时间我找找...........


一些VFP网站：
http://groups.google.com/groups? ... programmer.exchange

http://groups.google.com/groups? ... soft.public.fox.vfp

[ Last edited by enry98 on 21-6-2004 at 04:08 PM ]