Visual FoxPro 的疑难杂症

astral

enry98 于 27-10-2004 04:31 PM  说 :


我在某VFP中文论坛 有看到一编有关文章，

“ 一个无须编程将原vfp软件B/S化方案”

好像 是通过winxp 本身的Remote Desktop Connection ...........不需 html、asp、VBScript之类的...



我本身 也 ...

其实可以通过类似citrix metaframe来达成...

白日梦

enry98 于 27-10-2004 04:31 PM  说 :
可能 你们会不相信 ， 我已经不用菜单......

因为 user 嫌麻烦 ， 我通常都是form 给多多个button ， button也不要太小个........
因为 我的user里 有些是连 mouse 也拿不稳的...........

user 反而喜欢 按 button.............

类似 MYOB Accounting 的 Button Menu User Interface Form

白日梦

enry98
可以分享你用 VFP 怎样通过 PC Anywhere 及 StreamyX 来做 WAN database ?

我公司及母亲家都安装了宽频，想试试。

astral

我们公司是早期用windows terminal service,后来就用citrix metaframe让许多的site 同时logon进server运行一些program... 其实就像remote desktop那样,program是在server上运行的,user只是把input送去可server,而server只是传送画面回来給user,所以即使user只用56Kbps也能用,最重要的是它可以同时让多人使用,且可以print到local的printer来...

tstan135

请问 thisform.text1.value = Date(), 这句＜thisform.text1.value ＞ 可否用 variable 来代替？请问应该怎样做？

enry98

astral 于 28-10-2004 09:35  说 :
我们公司是早期用windows terminal service,后来就用citrix metaframe让许多的site 同时logon进server运行一些program... 其实就像remote desktop那样,program是在server上运行的,user只是把input送去可server,而 ...

我上篇 提到的 “ 一个无须编程将原vfp软件B/S化方案”........ 跟你提的大致 一样.....
谁要 这篇 文章 短讯我你的email ..........


TO 白老大 ：

  其实 PCAnywhere 只可以同时 让1个user remote 那架电脑而已 ,如 要多人的 就要上面所提到的....

我的做法是 install 一个No-IP （http://www.noip.com/）的软件在  家里的电脑以便每当connect上网时可以知道IP， 然后 打开 PCAnywhere  Network host waiting........

到Office后 set 那个IP 到 PCAnywhere Network Remote 就 可以了 connect ..........

白日梦

enry98 于 28-10-2004 11:03 AM  说 :
  其实 PCAnywhere 只可以同时 让1个user remote ...

谢谢你提供的。
不是我要的方法，我想知道 VFP 有关相容 .NET 技术的，多人网际网络连线。

tstan135 于 28-10-2004 10:09 AM  说 :
请问 thisform.text1.value = Date(), 这句＜thisform.text1.value ＞ 可否用 variable 来代替？请问应该怎样做？

你想着很简单，什么问题就编程简单了。

可以的，把 Date() 换掉 <varible> or <alias.field> 都行。

[ Last edited by 白日梦 on 28-10-2004 at 01:57 PM ]

astral

其实...如果以VFP作为rich client,那就可以用web services来和server communicate...

但是如果想要用VFP来render content 給 thin client...那还是直接用vb.net/c#吧...

astral

tstan135 于 28-10-2004 10:09 AM  说 :
请问 thisform.text1.value = Date(), 这句＜thisform.text1.value ＞ 可否用 variable 来代替？请问应该怎样做？

不明白你想问什么...
如果是...想要偷懒不想每次用＜thisform.text1.value ＞来assign 或 access value的花...你可以... 在 text1的controlsource property内放个variable,然后你就可以不需要用<thisform.text1.value>而改成直接用那个variable就好...
eg:
text1.controlsource 的controlsource = myVar
你就可以这样:
myVar = date()
结果就是text1.value就变成date()的value了...不过记得refresh text1一下,不然它可能不会show改变后的value...

enry98 于 27-10-2004 16:31  说 :

我本身 也有试过 用 PC ANYWHERE 通过 internet（streamyx） 来使用
放在我家里电脑的vfp program.........不会 很慢......
不过 我都是以玩玩为主........而且都是在同一个州...........
如果 连到外州....或国外 就不知如何..........

我也想过用 pc anywhere 或 net meeting 之类的 program 。。
不过这些好像都是点对点 peer to peer 的 program 。。
并不能同时让三台电脑连线。。

其实可以通过类似citrix metaframe来达成...

citrix server 我也是见过，确实很 powerful 。。
只是价格也是很 powerfule 的。。

请问 window terminal serivce 的技术和 citrix 是一样的吗？？

可能 你们会不相信 ， 我已经不用菜单......

因为 user 嫌麻烦 ， 我通常都是form 给多多个button ， button也不要太小个........
因为 我的user里 有些是连 mouse 也拿不稳的...........

user 反而喜欢 按 button.............

我现在使用 vfp 所设计的 system 也是很少用到那种传统的 drop down menu 了。。
都是设计到好像 window 的 icon menu 的 。。
很多 user 都是喜欢这些东东的啦。。

一个无须编程将原vfp软件B/S化方案

什么意思噢？？？

astral

window terminal service的也是需要license的...

window terminal serivce 的技术和 citrix 是一样的吗？？

tstan135

白日梦 于 28-10-2004 01:46 PM  说 :
你想着很简单，什么问题就编程简单了。
可以的，把 Date() 换掉 <varible> or <alias.field> 都 ...

astral 于 28-10-2004 03:01 PM  说 :
不明白你想问什么...
如果是...想要偷懒不想每次用＜thisform.text1.value ＞来assign 或 access value的花...你可以... 在 text1的controlsource property内放个variable,然后你就可以不需要用<thisform.t ...

我的是在 FORM1 里有几个 TEXT BOX 是用来 ACCEPT DATE 的，而 DATE 是从 FORM2 里的 CALENDAR 里选的。
所以我在每个让 FORM2 显示的 BUTTOM 里加入 cDate = 'thisform.text?.value'
而我只需要在 CALENDAR 里 加入 &cDate = DTOC(thisform.olecontrol1._Value) 这样 CALENDAR 的 VALUE 就会显示在 TEXT BOX 里了。
之前因为没有使用 & 所以一直不成功，才会来麻烦大家的。

白日梦

&cDate = DTOC(thisform.olecontrol1._Value)

你已研究到新东西，这是 macro 写法。

astral

这招我以前也常用,
可以动态build statement~ 很好用...

astral

小李波特 于 28-10-2004 04:51 PM  说 :
window terminal serivce 的技术和 citrix 是一样的吗？？

差不多...只是citirx的比较强

tstan135

白日梦 于 9-10-2004 11:01 AM  说 :
算总数的，

[code]
cYM = Str(nY,4,0)+Str(cM,2,0)
Use Item Order Item
* 成 0 除了 Stock Balance = Bal
Replace All Bf With 0, S_In With 0, S_Out With 0, Cf With 0
Select 0
Use St_In Order Item
Scan
Seek St_In.Item In Item
If Dtos(Date) < cYM
  Replace Bf With Bf + St_In.Qty, Cf With Cf + St_In.Qty In Item
Endif
If Dtos(Date) = cYM
  Replace In With In + St_In.Qty, Cf With Cf + St_In.Qty In Item
Endif
Endscan
Use St_Out Order Item
Scan
Seek St_Out.Item In Item
If Dtos(Date) < cYM
  Replace Bf With Bf + St_Out.Qty, Cf With Cf + St_Out.Qty In Item
Endif
If Dtos(Date) = cYM
  Replace Out With Out + St_Out.Qty, Cf With Cf + St_Out.Qty In Item
Endif
Endscan
Select Item
Report Form StSum To Printer Prompt Preview for Bf#0 And In#0 And Out#0 And Cf#0

请问白日梦：
以上的 CODE 要是要用在 CURSOR 里应该改哪些 COMMAND？
例如：USE， SCAN 等都不能使用在 CURSOR 里吗？

白日梦

你讲的 cursor 是在 view -> Data Environment 里 Add Table 吗？
把它空置。不用 cursor 就不必改罗！

tstan135

白日梦 于 2-11-2004 08:28 AM  说 :
你讲的 cursor 是在 view -> Data Environment 里 Add Table 吗？
把它空置。不用 cursor 就不必改罗！

不，我是说 在 create 一个 temporary cursor 里的 cursor。

astral

脊本上用create cursor产生的cursor可以当成table来用...就是说可以用table可用的command,例如:use, scan, replace, append,甚至modify structure都可以...把它当成local的temp table 来用