Visual FoxPro 的疑难杂症

tstan135

虽然在 CHILD 里 SET 了 INDEX， 但在 REPORT 显示出来（在 CHILD 的部分）的并没有跟着 CHILD 的 INDEX SHOW IN ASCENDING 而是跟着 TABLE 里的来显示就如 FIRST IN FIRST OUT。

白日梦

tstan135

已经在 CHILD 里 SET 了 INDEX，但在 CHILD 的部分 RECORD 还是不能 SHOW IN ASCENDING。

tstan135

1.请问在报表里的 FIELD 有 DATE，SUPPLIER，ITEM。。。。 ，要是在 DATE SET 了 PRINT WHEN 的 CONDITION 了，其它的 FIELD 如：SUPPLIER，ITEM 在 PRINT WHEN 的 CONDITION 是 '当 DATE 有显示时它才显示'或 '当第一个 FIELD 有显示时它才显示'这样的 COMMAND 应该怎样写？

2.为什么 SET 了 PRINT WHEN 后，虽然它没有显示出来，但在计算 SUM 时却会计算在内？有何方法不让它计算没有显示出来 DATA 吗？

白日梦

1. = !empty(Date)

2. sum = iif( empty(Date), qty, 0)

tstan135

2. sum = iif( empty(Date), qty, 0)

以上的方法不行。因为我是在 PRINT WHEN 里的 PRINT REPEATED VALUS 设位 NO。虽然它没有显示 REPEAT 的 DATA ，但在计算 SUM 时却会计算在内？请问有何方法不让它计算没有显示出来 DATA 吗？

tstan135

在 REPORT 的 PRINT WHEN 里，我有两个 CONDITION ：不要 REPEATED VALUE 和 如果 DATE 是空的话 不要显示。
请问在 Print only when expenssion is true: 里应该怎样写？

tstan135

请问在 SET DEAFAULT TO 这里，应该怎样写才可以随时更改 PROGRAM 的 FOLDER，把它放进不同 FOLDER 里，而不需要重新编写 CODE？
如 DATABASE 在 INVOICE 的 FOLDER 里，可随时放进以下的 FOLDER 里：
\FOX\INVOICE
\SALES\INVOICE
\MG\INVOICE

白日梦

SET DEFAULT TO 指令会造成 Run 时找不到 Program,Form,Report

建议用 SET PATH TO 来控制 DATABASE 在那一个 FOLDER。

或 USE ( cFolder + '\INVOICE') ORDER INVOICE
cFolder are either '\FOX' or '\SALES' or '\MG'

tstan135

请问要写一个收租记录的 PROGRAM 应该如何设计？
需要注意到哪些？
谢谢！

白日梦

那得看顾客/使用者需要应用/处理什么样的资料。

注意不是顾客要怎样做你就做给他，虽然 Customer is always right, but they are not professional。不然的话吃力不讨好。有时侯，你也要 show 你自己的专业意见。让顾客见到你像 software consultant 形象，这样才可互相配合， win-win strategy。

tstan135

请问要如何才能当 KEY IN DATA 时，让它自动生成一个 RECORDKEY？这个 RECORDKEY 是由 12 个英文字母及数字组成的，而且不能重复。请问应该怎样写？

白日梦

放入 cmdAdd.Click 里

1. 
   
2. cPV = Left(z_YM2,4)+'-'+Right(z_YM2,2)+'-'
   
3. Select Bill1
   
4. Set Filter To Ref=z_Ref And No=cPV
   
5. Go bottom
   
6. cPV = cPV+Padl(Int(Val(Right(No,3)))+1,3,'0')
   
7. dPV = Ctod(Str(Day(Date()),2,0)+'/'+Right(z_YM2,2)+'/'+Left(z_YM2,4))
   
8. Insert Into Bill1 (Ref,No,Date) Values (z_Ref,cPV,dPV)
   
9. Set Filter To Ref=z_Ref
   
10. Thisform.Refresh
    

复制代码

z_Ref & z_YM2 is Public Variable,z_Ref = 'PV:'，z_YM2 = '200410'
我的是 14 Alphanumeric，你自己拿去变化。

astral

如果是用artificial key的话,可以直接用 sys(2015)来产生10char的unique ID

max5007

白日梦老大可以成为VFP论坛的老大了

白日梦

astral 于 25-10-2004 11:22 AM  说 :
如果是用artificial key的话,可以直接用 sys(2015)来产生10char的unique ID

没用过，刚刚试了很 random。

楼上帖子是 sequence 的。刚开发的给酒店管理系统用，不知有没有 bug。
PV:2004-09-099
PV:2004-10-001
PV:2004-10-002
PV:2004-10-003
PV:2004-10-004
:
PV:2004-11-001
PV:2004-11-002
:

白日梦

VFP 9 beta 只能玩玩下，有时间限制，到 April 2005 就 expired。
所以 distribute 给顾客的应用软件就要用 VFP 8 or below。

我的 system 是 multi users environment 的，
在 local area network 里 多人使用，绝对没有问题，

但是，
如果要做到 通过 internet 做 remote control 或使用这个 system，
又或者是通过 internet 看这个 system 的某些 report,

各位有什么样的建议呢？？？

白日梦

max5007 于 25-10-2004 11:23 AM  说 :
白日梦老大可以成为VFP论坛的老大了

这里的老大是坛主们。

astral

白日梦 于 25-10-2004 01:38 PM  说 :

没用过，刚刚试了很 random。

哦~ 其实它是用timer + machineID所产生的unique ID,主要是用来当artificial key,多数是internally用来link parent和child的key.