Visual FoxPro 的疑难杂症

tstan135

白日梦 于 19-5-2005 09:13 AM  说 :

Command?.Click 编码

1. 
   
2. Go Bottom
   
3. cRef = 'INV:'+Padl(Int(Val(Right(Ref,6)))+1,3,'0')
   
4. Insert Into Bill1 (Ref,DateTime,Usr) Values (cRef,Datetime(),cUsr)
   
5. Thisform.Refresh
   

复制代码

1.这样的做法是事先就知道有多少个字母，而在 ubs 里它可以让 user 在不知道的情况下自由使用多个字母。

2.请问 pageframe 的颜色应该如何更改？

3.在文字框里，当 user 输入资料到达所设定 MaxLength 的数目时，focus 就会跳到下一行。请问如何让 focus 不会跳到下一行呢？

4.请问如何让所有 keyin 在 text box 的字母都是大写的？（不需要用到 caps lock）

5.在表格的 Keypress Event 里加入:

1. 
   
2. If nKeyCode= 27
   
3.   thisform.release
   
4. Endif
   

复制代码

我是想当焦点在文本框时，按 ESC 键后，在文本框的资料就会消失(这是原本的功能）。
当焦点在文本框以外的地点时，按 ESC 键后，表格就会释放。
请问应该怎样才能保留两者的功能?

[ Last edited by tstan135 on 22-5-2005 at 09:41 AM ]

白日梦

tstan135 于 19-5-2005 05:56 PM  说 :
1.这样的做法是事先就知道有多少个字母，而在 ubs 里它可以让 user 在不知道的情况下自由使用多个字母。

另外用 option 资料库存档。
option.inv_code = 'INV:'
option.cb_code  = 'CB:'

2.请问 pageframe 的颜色应该如何更改？

没有，更改 properties在子class中的 pageframe.page?.Backcolor

3.在文字框里，当 user 输入资料到达所设定 MaxLength 的数目时，focus 就会跳到下一行。请问如何让 focus 不会跳到下一行呢？

用 Set Confirm On

4.请问如何让所有 keyin 在 text box 的字母都是大写的？（不需要用到 caps lock）

Text1.Format = '!' && 没有输入字元限制
- 或者 -
Text1.InputMask = '!!!!!!!!!!' && 有输入字元限制

5.在表格的 Keypress Event 里加入:
我是想当焦点在文本框时，按 ESC 键后，在文本框的资料就会消失(这是原本的功能）。
当焦点在文本框以外的地点时，按 ESC 键后，表格就会释放。
请问应该怎样才能保留两者的功能?

你弄错了，把 KeyPress Event 所有编码删除。

要焦点在 TextBox 时候资料自动消失
Text1.Format = 'K'

在 form 加 CommandClose 按钮
CommandClose.Caption = 'Close'
CommandClose.Cancel = .T.
CommandClose.Click
Thisform.Release

tstan135

请问 grid 要在哪里设定才能不让 user resize?

白日梦

tstan135 于 8-6-2005 03:18 PM  说 :
请问 grid 要在哪里设定才能不让 user resize?

没有的阻止，

我试过改属性
.AllowColumnAutoFit = 2
.AllowHeaderSizing = .F.
.AllowRowSizing = .F.
使用者照样可以改来改去，除非 release form 再 do form 才还原。

flashang

可以的。

Grid1.Column1.Resizable = .F.

或

"right click" Grid "Edit"
Click "Column" ( 1, 2, 3, 4, ....)

在 Properties (All) 中的 Resizable = .F. - (False)

白日梦

多谢楼上指点，我没有留意到 Grid1.Column1 的属性。

加你4分奖励

flashang

tstan135 于 17-3-2005 01:14 AM  说 :


foxpro 可否也可以先排数字形态，才排字串形态呢？

INDEX ON PADR(VAL(code),10,"0")+ALLTRIM(code) TAG NUMTEXT

1
1J
14PQ+R
2
28WA
3+10J

flashang

weisely 于 11-3-2005 09:56 PM  说 :
我的 vfp 的程式在 network environment 之下[跑得很慢
尤其是在multiuser 的情况下运用 SQL 情况更加糟糕 .....
请问各位高手如何提高 SQL 在 network 环境中的性能 ?

dbf file 在 network environment 是 file sharing (full access), 效率不好
你可以用其他 sql server + vfp

flashang

tstan135 于 11-9-2004 08:31 PM  说 :
当 TEXT BOX 设定为 READONLY 时，其颜色就会变成灰色。请问如何把灰色换成别的颜色？

DisabledBackColor = readonly 的背景颜色。
DisabledForeColor + DisabledBackColor = disabled 的前景和背景颜色。

flashang

tstan135 于 14-8-2004 12:40 PM  说 :
又有个问题：要是我进去修改之前的 DATA，但是 CANCEL 出来，DATA 还是会被修改。请问有什么方法可以 CANCEL 出来后，DATA 还是跟未修改的一样？

用 BufferModeOverride
如果要保存，用 tableupdate(.T.)
如果不要保存，用 tablerevert(.T.)

flashang

tstan135 于 21-7-2004 12:45 PM  说 :
我用SQL找到我要的资料，但要如何才能让它显示在一个FORM里的GRID里？它的COMMAND要如何写？

thisform.grid2.ColumnCount = -1 && all column
thisform.grid2.RecordSource = 'test1'
thisform.grid2.RecordSourceType = 1

flashang

小李波特 于 16-6-2004 04:30 PM  说 :
我的 exe file 超过 10mb， 可有方法把它分散？ 不然通过 internet update 给顾客很麻烦。。

build app ?

flashang

小李波特 于 12-5-2004 06:27 PM  说 :
也就是说我不要让别人随便都可以 access 我的 database ..
可有方法？？？

我是用 database -- connection -- odbc
可以用不同的 database (mdb, interbase, mysql mssql, ...)
但是任何 database 都有 lost password tool...
只要 database 在别人的电脑就没办法避免。

tstan135

请问如何测定在输入的资料里有没有空格？

check the return value of function ASC()

[ Last edited by 小李波特 on 7-7-2005 at 05:38 PM ]

flashang

tstan135 于 7-7-2005 10:18 AM  说 :
请问如何测定在输入的资料里有没有空格？

可以用

isblank( value )

tstan135

flashang 于 7-7-2005 08:52 PM  说 :

可以用

isblank( value )

我的意思是说当用户输入ABCDEFGH时，要怎样知道在ABCDEFG有没有空格？
例如：用户可能输入成ABC DEFGH，ABCDEF GH等等。

lcStr = "ab Cd"
FOR lnCnt = 1 TO LEN(lcStr)
        lcChr = SUBSTR(lcStr, lnCnt, 1)
        ?lcChr + ": " + STR(ASC(lcChr))
ENDFOR

flashang

tstan135 于 8-7-2005 02:27 AM  说 :


我的意思是说当用户输入ABCDEFGH时，要怎样知道在ABCDEFG有没有空格？
例如：用户可能输入成ABC DEFGH，ABCDEF GH等等。

你如果不想要空格，可以在 textbox.format 输入 A

A Allows alphabetic characters only (no spaces or punctuation marks).

astral

wow~ flashang， 最近你还蛮活跃的, 好现象 来来来，顺便分享一下你对不同的buffer mode 的看法和心得

[ Last edited by astral on 9-7-2005 at 07:12 AM ]