Visual FoxPro 的疑难杂症

白日梦

我使用 set relation to 及 set filter to

astral

可以在SELECT statement中加入JOIN来连接多个tables

enry98

tstan135 于 8-1-2005 03:02  说 :
现在的问题是不知如何设计 REPORT 才能和第二张图片一样，因为 under colour 的记录都会成为 field 了。

把 Query 里的 SQL command paste 出来 看看.............

tstan135

enry98 于 9-1-2005 12:56 AM  说 :

把 Query 里的 SQL command paste 出来 看看.............

SELECT Fabric.fabric, Fabric.colour, SUM(Fabric.cost);
FROM ;
     FABRIC.DBF;
GROUP BY Fabric.fabric, Fabric.colour;
ORDER BY Fabric.fabric, Fabric.colour;
INTO CURSOR SYS(2015)  
DO (_GENXTAB) WITH 'Query',.t.,.t.,.t.,,,,.t.,0,.t.
BROWSE NOMODIFY

enry98

color 里的group 如 Dark,white,washing,light,medium,s_bleach

会时常更改的吗 ？ 如以后会有新的加入 或 只是这六个？

tstan135

enry98 于 9-1-2005 01:51 AM  说 :
color 里的group 如 Dark,white,washing,light,medium,s_bleach

会时常更改的吗 ？ 如以后会有新的加入 或 只是这六个？

以目前来讲，应该不会。如果会应该怎样设计？不会又如何设计？

tstan135

enry98 于 9-1-2005 01:51 AM  说 :
color 里的group 如 Dark,white,washing,light,medium,s_bleach
会时常更改的吗 ？ 如以后会有新的加入 或 只是这六个？

1.请问 enry98, 应该如何设计?

2.在 combo box 里，除了把 style 换成 Drowdown list 外，请问还有其它方法可以使它可以用箭头键来更换 combo box 里的资料吗?

3.在表格里有个日期的控件是用 ole 控件做成的，请问要如何才能使它在按 enter 后就会如何跳到下一个控件?

enry98

tstan135 于 9-1-2005 09:49  说 :

以目前来讲，应该不会。如果会应该怎样设计？不会又如何设计？

一定 要确定 有多少个， 这样比较容易设计报表.............
因为 如果是6 个group 你就必须在 报表的Detail Area 放 6个field ...........

在VFP 的报表 , 如果要列印一列 资料 ， 就要在Detail Area 放一个 field............

照你给的图片来 ， 你应该要放6 个field 在report 里............

[ Last edited by enry98 on 19-1-2005 at 01:37 PM ]

tstan135

SELECT Fabric.fabric, Fabric.colour, SUM(Fabric.cost);
FROM ;
     FABRIC.DBF;
GROUP BY Fabric.fabric, Fabric.colour;
ORDER BY Fabric.fabric, Fabric.colour;
INTO CURSOR SYS(2015)  
DO (_GENXTAB) WITH 'Query',.t.,.t.,.t.,,,,.t.,0,.t.
BROWSE NOMODIFY

请问为什么以上在 Query 里的 SQL command 当我把 project build exe file 来执行时就会就 error? "File does not exit."

tstan135

tstan135 于 22-1-2005 05:42 PM  说 :
请问为什么以上在 Query 里的 SQL command 当我把 project build exe file 来执行时就会就 error? "File does not exit."

请问 enry98,您知道是什么原因吗？

enry98

tstan135 于 24-1-2005 10:01  说 :

请问 enry98,您知道是什么原因吗？

不清楚 ........要请教高手了.........


我自己的解决方法  ..............

1. CREATE CURSOR TempA(Cname C(10),Fname1 N(5,2),Fname2 N(5,2),Fname3 N(5,2),Fname4 N(5,2),Fname5 N(5,2),Fname6 N(5,2))
   
2. 
   
3. 
   
4. SELECT Fabric.fabric, Fabric.colour, SUM(Fabric.cost) as Cost;
   
5. FROM ;
   
6.      FABRIC.DBF;
   
7. GROUP BY Fabric.fabric, Fabric.colour;
   
8. ORDER BY Fabric.fabric, Fabric.colour;
   
9. INTO CURSOR TempB
   
10. 
    
11. Select TempB
    
12. scan all
    
13. 
    
14.   M.TmpColour=Alltrim(Tempb.Colour)
    
15.   M.TmpCost=Tempb.Cost
    
16.    
    
17.   Select TempA
    
18.   append bank
    
19.   replace cname with Tempb.fabric
    
20. 
    
21.    
    
22.   Do Case
    
23.      Case M.TmpColour='Dark'   
    
24.         replace fname1 with M.TmpCost  
    
25.      Case M.TmpColour='Light'
    
26.         replace fname2 with M.TmpCost  
    
27.      Case M.TmpColour='Medium'
    
28.         replace fname3 with M.TmpCost  
    
29.      Case M.TmpColour='S_bleach'
    
30.         replace fname4 with M.TmpCost   
    
31.      Case M.TmpColour='Washing'
    
32.         replace fname5 with M.TmpCost
    
33.      Case M.TmpColour='White'
    
34.         replace fname6 with M.TmpCost
    
35.   Endcase  
    
36. 
    
37. Endscan
    
38. 
    
39. Select TempA
    
40. GO TOP
    
41. report form xxx preview
    

复制代码

把以上的 code 随便 copy 去某个  button.click()
接下来 就是 create report xxx .... 在 field.expression 放TempA.Cname1....,第二个..TempA.Fname1.........

[ Last edited by enry98 on 24-1-2005 at 10:51 AM ]

tstan135

enry98,谢谢您的指点。
以上的 code 我需要做些修改就可以了。

tstan135

1.一个 Program 需要在 network 里 sharing 让几个 user 使用。
请问应该要如何设计及需要注意哪些？

2.请问要让 program 自由安装在哪一个folder 里，这样的 code 需要怎样写？

白日梦

tstan135 于 26-1-2005 10:53 AM  说 :
1.一个 Program 需要在 network 里 sharing 让几个 user 使用。
请问应该要如何设计及需要注意哪些？

VFP 自动处理的，你需要在 set as main 的 code .prg files加入下指令
Set Exclusive Off
Set Lock Off
Set Multilocks Off
Set Refresh To 1,1
Set Reprocess To 2

其他要 Record lock 或 File lock 的指令如 Replace,Delete，参考 VFP 的 rlock(), flock() 函数。

2.请问要让 program 自由安装在哪一个folder 里，这样的 code 需要怎样写？

VFP 的编程通常用 Set Default To "\Program files\xyz\"
或 full path 如 Do \Program files\xyz\code1.prg

InstallShield 安装程式的就改一改 [INSTALLDIR]。

enry98

白日梦 于 26-1-2005 13:44  说 :

VFP 自动处理的，你需要在 set as main 的 code .prg files加入下指令
Set Exclusive Off
Set Lock Off
Set Multilocks Off
Set Refresh To 1,1
Set Reprocess To 2

其他要 Record lock 或 File lock 的指令如 Replace,Delete，参考 VFP 的 rlock(), flock() 函数。

我是 用table buffering command 来用在 multiuser environments 的， 可是 仍然无法解决
要控制 user人数的问题.........
如果 100 个user share 那个program, 那么那100 user 都可以 run program.........

白日梦

我使用 user.dbf 里 login 和 logout 两个 DateTime 属性的资料栏，
当 login 时 logout 就空掉，直到 logout 为止。
count empty(logout) 就知道多少 user 使用着。

enry98

白日梦 于 26-1-2005 14:17  说 :
我使用 user.dbf 里 login 和 logout 两个 DateTime 属性的资料栏，
当 login 时 logout 就空掉，直到 logout 为止。
count empty(logout) 就知道多少 user 使用着。

要是 那个 user 不正常 退出， 如 program 用到一半电脑 hang , user restart 电脑，
或者 没电.........

这样 那个 logout 不是 一直 empty ? 或者说 被霸占着.........

白日梦

这是没办法排除的作业系统问题，我也没有良策。

enry98

我有一个 方法...........可是 还没测试过......

user.dbf 加多一个 ComputerName field 用来储存　ComputerName　,　然后　每次　login
就　check 同样ComputerName上次的logout　有没有empty ，　如果有　就填　时间进去．．．．．．．　

不知　可行吗　？

tstan135

要是 create 两个 cursor － TempA 和 TempB。
请问要如何可以让 cursor TempA 的 record copy 到 cursor TempB？
我用：

1. select TempB
   
2. append from TemA
   

复制代码

就有 error。（TempA.dbf dose not exit)