VISUAL DBTOOLS 2.0 Q&A
環境
Q1：請問如何開新的專案？
A：只要你在WINDOWS中增加一個ICON,將捷徑內容設為C:\VD20\VD20.EXE Myproject即可
,其中VD20.EXE的PATH是按照你的安裝目錄所設定,而Myproject即為你的專案名稱,
專案名稱可自由定義。
Q2：請問 VD2.0 網路版或C/S版如何設定編譯成單機版使用？
A：可把重要的Table設成<獨佔模式>即可變成單機版。
Q3:VD的單機版與網路版有何差別？
A:VD的單機版只能使用實體磁碟的資料集(DataBase)，不能使用網路磁碟機的資料集，也 就是說單機版不能將DBF資料庫存至於網路上，甚至另外一台電腦上只能存放於本機中，而網路版卻是可以的。
Q4：請問VD2.0可以讀取64k以上的文字檔嗎?
A：VD2.0的MemoRead()與MemoWrite()是不能讀取64k以上的文字檔，你必須使用FOPEN()及FREAD()自行處理之。
Q5：請問 LAYER1 應如何刪除 ?
A：在Form右上的小圖示是簡化的功能，主要是為了方面切換Layer，若要刪除，您要使
用Layer Manager(桌面管理員)，在主功能表:<查看>-<桌面管理員>中可以叫出。
Q6：如何傳參數至一個專案，也就是說在 MAIN.INIT() 可以接收到參數 ?
A：在VD 專案圖示的捷徑內輸入VD20.EXE X.vds -pMYVAR,並在VD2.0中,用_DOS_PARA取出 -p的值即可! 其中 X.VDS 為專案名稱, -pMYVAR 為傳入參數指令, MYVAR為傳入之參數值,以本例而言,你將利用 _DOS_PARA取出 MYVAR 的值!
Q7:在普及版中Setlevel(0)不動作
A: Setlevel()在普及版不能執行是規格，在普及版中和VD版權有關的(例如切換前後台的那三個Button)，都是不能被取消的。
Q8：執行VD2.0時 , 如何直接進入設計模式 , 而不進入執行式?
A：在桌面[內容]的[目標]加入-g，如vd20.exe xxx.vds -g 即可。
Q9：1. 請問 vd2.0 的字典檔是放在哪一個檔案中 ?
2. 不同專案用到相同的資料集時, 其中一個專案會看不到資料字典
3. 是否有資料字典轉入轉出的功能
A:1.字典檔放在 [專案*.vds] 中,隨專案來儲存資料字典
2.不同專案有不同的資料字典,所以看不到資料字典
3.資料字典沒有轉入轉出的功能,但專案拷貝有資料字典拷貝功能
Q10：LOGINDB() 與 LOGINVD() 有何不同?
A：LOGINDB()：用來登錄至指定的DATABASE-C中，如此即可不必另外輸入User
密碼。
LOGINVD()：用來登錄至VD的用戶安全系統，如此VD可以為你自動控管資
料的權限及部門關係。
表單
Q11：VD2.0按下 [F10] 都會回到 MAIN FORM 請問如何關閉此設定？
A：可貼一MainMenu0,增加一個menuitem選項,將<顯示>屬性設成false,<熱鍵>屬性設成F10即可。
Q12：如何動態得知目前FOCUS元件與如何設定FOCUS？
A：1.如果是要得知自定函數是誰呼叫的，可使用THIS指標
例如:edit3的結束程序test()
if empty(this.text)
message('沒有輸入')
else
message(this.name)
endif
return .t.
另外也可使用Form.Activecontrol得知目前的Focused元件是誰。
2.下edit0.focused() 指令,即可Focus 到edit0 物件。
Q13:請問如何得知FORM是否開啟？
A:If !empty(getobj(form))
Message("FORM尚未開啟!!")
Endif
Q14：如何由程式中得知，我目前位於那一個form或元件？
A：可由THIS得知，請在 OnDblclick 寫一程式TEST(),內容如下
IF !EMPTY(THIS.NAME)
MESSAGE(THIS.NAME)
ENDIF
RETURN
Q15：如何檢查 FORM A 是否存在但不必開啟 FORM A ,且FORM A 設為複合視窗 ?
A：可用X=GETOBJ('FORMA')
IF EMPTY(X)
.....
ELSE
.....
ENDIF
Q16：在一個 Form 中如何動態取得作用中之欄位名稱 ?
A：在FORM有一個ACTIVECONTROL的屬性,代表目前正FOCUSED的CONTROL,為一個P型態(POINTER),你可以使用P.ClassName()來得知他的元件型別，並用P.Property來存取屬性。
Q17：請問當該欄位編輯時,如何按FORM中的某一BUTTON將其內容送入該欄位游標所在之位置?
A：a=atom(memo0.lines)
x=memo0.SelStart &&可得游標位置
x1=len(a)
a=substr(a,1,x)+'A'+substr(a,x+1,x1-x) &&游標位置加入'A'
mtoa(a,memo0.lines)
Q18：有沒有可能在form.main之前先打開一個form, 但必須focused在這個form上, 等
這個FORM完成後再進入MAIN FORM？
A：1.在main.init 寫newform('abc')
2.在abc.init 寫abc.showmodal() 即可
Q19：VD2.0如何取得form底下元件名稱與內容 ?
A：Y=main.ControlCount
T=0 &&此為從0開始
Do While T<Y
X=main.Controls(T)
message(x.name) &&取得名稱
T=T+1
EndDo
Q20：我在MAIN FROM 下貼一EDIT0及一BOTTON,在BOTTON的運算式中寫一程式內容
為EDIT0.CAPCOLOR="紅色",執行時出現 "屬性寫入時發生型別錯誤，EDIT0.CAPCOLOR"
之錯誤訊息,是否方法錯誤,應如何處理？
A：不能直接用EDIT0.CAPCOLOR="紅色" ,請改成EDIT0.CAPCOLOR=255或EDIT0.CAPCOLOR=STRTOCOLOR('clRed'), 另外VD的[命令管理員]中如果有定義紅色的號碼，則可以用語法 EDIT0.CAPCOLOR=紅色
Q21:請問Form Name 最長可以用幾個字元??
A:Form Name最多為23個字元,請勿超過!
Q22: NEWFORM一個名為TEST_AB的FORM, 上面貼有物件後存檔, 再NEWREP一個名為TEST_AB
的REPORT FORM時會有error ?
A: NEWFORM及NEWREP名稱不可相同,如果相同就會有錯誤訊息,所以請修改其他的名稱
Q23：我用OnMouseMove事件來處理元件的顏色改變
Sender = GetEvent(0)
Sender.color = 紅色
很高興滑鼠指到該元件,真的變紅色!但是當滑鼠指標移出時,該如何變回灰白色?
A：如果此元件是貼在FORM上,就用FORM的OnMouseMove事件來恢復處理元件的顏色。
報表
Q24：VD2.0報表的框線, 如何動態決定是否列印？
A：可以,只要動態在該區域的init(起始程序)設定 detail.BorderStyle=5 &&無
其各值說明如下：
0:psSolid(實心) 1:psDash(（----）)
2:psDot(（....）) 3:psDashDot(（-.-.）)
4:psDashDotDot(（-..-..）) 5:psClear(無)
6:psInsideFrame(內框)
Q25：在報表執行時遇到"串列索引超出邊界" 的訊息，不知道哪裡出了問題？
A：一般有用到某物件的LIST屬性時,當該屬性的LIST內容超過範圍就會有此現象(在
VD2.0 中LIST是可以使用陣列型態來控制,如屬性標示為A者)；另一種屬性為舉列
項目者,如ALIGNMENT為LEFT,RIGHT,CENTER，如你給他不正確的內容,也會有此訊息
(VD屬性型態為N),如果不是你有用程式控制的話,就是有某個物件亂掉了,這僅是用底
層來看這件事,如有實務發生的經驗者將對這個問題較有幫助,如果不能解決可以用COPY
另一個REPORT,再一個個刪掉來證明是那一個有問題。
Q26：因COPY REPORT 中的LABEL,誤選到DT表身,當CTL+V時即多了一個DT1,卻無法刪除。請問如何處理？
A：用物件編輯器,找出DT1,點選物件編輯器的左上角"-"號即可
Q27：我的需求如下:
甲廠商
上期結餘 100 (GH) * (A 檔)
本期進貨 88.04.01 100 (DT) (B 檔)
88.04.02 50
-----------------------------------------
本期應付 150 應付總額 250
-----------------------------------------
乙廠商
上期結餘 200 (GH)*
本期進貨 88.04.01 200 (DT)
88.04.02 50
-----------------------------------------
本期應付 250 應付總額 450
-----------------------------------------
問題:(GH) 中的甲廠商及乙廠商上期結餘 無法加總?請問該如何做,才可貼一個SUM 將上期結餘加起來?
A：你可以自行加總，方法如下:
1.在報表貼RH,RH貼一LABEL0,LABEL0的起始程序assign(label0.caption,'0')
2.在GH的結束程序assign(label0.caption,str(val(label0.caption)+上期結餘))
3.在RF貼一Label1 運算式設Label0.caption,(加總結果)
Q28：當報表設群組頁尾,那其小計如何印在其群組資料之尾筆右邊!如下:
001 WWWW WWWW 123
WWWW WWWW 456 579
002 XXXX XXXX 123 123
--------------------------------
A：把小計的sum元件貼在GF,sum上座標設成負數即可,GF高度設0
Q29:請問REPORT印表機與紙張的關係及VD20報表與Windows的印表機關係如何？
A:印表機部份:
VD20 REPORT 有存下印表機名稱,VD20 在打開 REPORT 時會先以REPORT存下的印表機為主,
如找不到再以WINDOWS的預設印表機為主,當然你也可以在INIT中設某印表機名稱即為那一台,如果你想換PRINTER,則可在[版面設定]中換掉PRINTER, PREVIEW及印表即會以你換掉的那台印表機為主。
紙張部份:
先有印表機,才有紙張,REPORT有存下紙張大小,當紙張大小為USER DEFINE(使用者自定大小)時,HeightInch及WidthInch才會有效,如果為其他,則此兩個屬性都無效(沒作用),當report 紙張大小可以被指定的PRINTER接受時,那就沒問題,但如果PRINTER不能接受此紙張大小
時,那會發生警告訊息(可以用<紙張不合警告>控制之), 此時會被改成A4 (沒辦法,印表機不接受)。
Q30: 已經設定好的報表高度(高度英吋)，如果使用者在版面設定中異動印表機，會導致高 度改變且不正確 ?
A: Report在打開後，會先檢查設定的印表機在不在，若是不在(可能是換了一台電腦執行VD)，則會自動選擇擇系統的預設印表機。然後再檢查紙張設定，若是該印表機沒有支援該紙張設定，會自動選擇A4。另外在執行模式設定印表機、紙張，也都可反應到設計模式的設定。
Q31: Memo field 在moveablepanel中會印不出來 ?
A: 這是對的,因為moveablepanel內不能放會長高的元件,他的用法是放在memo的下方,
他會根據memo的資料大小做下移。
Q32: report.init()
field0.caption='aaaaaaaaaaaa'
這在vd1.x是可以動態改變的，現在不行了?
A: 請使用『Captions』(有s)，不是『Caption』，這個『Caption』屬性是內部使用的，這是VD20的新規定。
Q33: 在reportform中去調整 "高度英吋" 實際預覽時，依然沒有變 ?
A: 如果[預設紙張大小]選擇[自行定義]，則調整"高度英吋"才有效,如果選一般的[A4]則需調整"高度"才可。
函數、命令
Q34：PARAMETER A1,A2,A3 如果呼叫TEST('AB','BB')時只傳了兩個參數，如何知道 A3 是無法存取？
A：下列兩種方式都可以
1.pcount() # 3
2.type('A3')='U'
Q35：陣列中可否有函數可自動重新資料排序功能?
A：陣列中沒有排序功能,但可自己寫，例如:有一 PUBLIC M1的陣列，執行以下 TEST()的內容就會排序:
EXTERNAL M1
i=1
DO WHILE i<=LEN(M1)-1
j=i+1
DO WHILE j<=LEN(M1)
IF M1[i]>M1[j]
TP=M1[i]
M1[i]=M1[j]
M1[j]=TP
ENDIF
j=j+1
ENDDO
i=i+1
ENDDO
Q36：請問於資料庫中地址列印時數字、郵遞區號半形如何轉成全形列印 ?
A：提供一個轉換程式STOS(string) (只能轉數字)
PARAMETER A
N=1
S=''
DO WHILE N<=LEN(A)
S=S+CHR(162)+CHR(ASC(SUBSTR(A,N,1))+127)
N=N+1
ENDDO
RETURN S
Q37： DTOC2()、DTOS()有何差別?
A：DTOC2()與DTOS()最大的不同為當_DATE_TYPE為7或8時,雖為YYYYMMDD或YYMMDD
前者為民國年,後者為西元年,也就是說當_DATE_TYPE=2,4,6時DTOC2()與DTOS()是一樣的,1,3,5,7,8是不一樣的。
Q38：請問如何測知軟碟機中的磁片是否處於防寫狀態？
A：您可在執行轉存動作前,先行拷貝一個小檔案到磁片上,或是以MEMOWRITE()函式將一
字串寫到磁片上：如: MEMOWRITE("A:\CHECKFD.TXT","CHECK FLOPPY DISK")
此時若是拷貝成功,則會傳回一個.T.值,可用此來測知!!若還是怕有萬一的情形發生,可建議您在拷貝完後,再以 FILE("A:\CHECKFD.TXT")來測知磁片上是否有此拷貝的檔案若有,則表示磁片並無防寫。
Q39：請問有無函數知道 BDE 的路徑名稱？
A：可用ALIASPATH(資料集名稱)，傳回值為路徑名稱。
Q40：有無函數可以檢查 "*.TXT" 是否為合法檔名 ?
A：FILE(file-C)檢查檔案是否存在。
【參數說明】
file-C:
‧為一包括路徑的檔名。
【傳回值】
一邏輯值。
若所指定的檔案存在，則傳回 .T.，反之傳回 .F.。
Q41：以前之autono()引數內有指定資料表,新的取消了,要如何知道是要對何資料表處理？
A：先用sele table 再autono()即可，資料表屬性內已有定義<自動編號>功能,是一般的應用，如果你有特殊的需求,請自行用autono()處理。
Q42：有一個資料表A, 要將數筆搜尋出的紀錄複製到陣列中,我已建好一個陣列B, ARRAY('B',100),不知該如何複製,另如何將已運算好的陣列資料逐筆EDIT到資料表A中？
A：沒有特殊函數,只能用do while 逐筆複製
i=1
do while !eof()
B[i]=table->field
skip 1
i=i+1
enddo
回存反過來即可，但必須注意陣列Ｂ最多為8192個元素。
Q43：請問vd20可否存放指標值?
例:PObj[1]=getobj("xform","edit0")
Pobj[1].caption="test"
以上無效!若將Pobj[1]改為變數 x 則可
A：陣列不能如此用，請改用
x=PObj[1]
x.caption='test'
Q44：請問陣列搜尋函數如何製作?
A：大概只能用傳統的方式了
array('abc')
tot=len(abc)
i=1
do while i<=tot
if abc[i]='搜尋值'
message('找到了')
endif
i=i+1
enddo
如果是二維以上陣列，就要多幾個do while 了。
Q45：請問toseek()的用途？
A：toseek(Table,ToSeek,RetExp,Append,SaveRec)
1.如果Table目前state()=1(代表在browse mode)則 toseek() 會去找 toseek的值, 如retexp沒定義,傳回.T.(找到)/.F.(找不到),如有retexp,則傳回retexp 的值(找不到則傳回空的資料) append則控制找不到是否新增,saverec則用來找到資料傳回後,則須恢復原來找之前的那筆。
2.如果Table目前state()=2或state()=3(代表目前為新增或編輯狀態)則 toseek() 會先去開立另一table,並用新的table去找toseek的值,retexp則與state()=1完全相同,但是如果為此狀態者,append及SaveRec皆無效
Q46：transform('19990516','@d')應該等於'05/06/99'，結果還是'19990516'
A：請改成transform('19990516','@D')即可
Q47:請問有什麼方法能知道某一路徑有哪些檔案 ?
A:貼一Filesel,然後設定FileSel0.Directory='c:\???'
FileSel0.FileName='c:\???\*.*'
FileSel0.items就是某一路徑的所有檔案
Q48:如何得知路徑存不存在？
A:使用FILE(dir+'\NUL')即可!
Q49:請問一字串比較問題!?
m1='' && (空字串)
m2="XX"
? m2=m1 => 相等嗎? 它傳回 .t.
這是BUG嗎?
A:此是正常因為
? m2==m1 &&它傳回 .f.
? m1=m2 && .f.
? m1=m2 && .T.
Q50:建議 DTOC3()將日期型態轉換成 "YYYMMDD" 字串型態,因為民國100年快到了
A: DTOC2()即有此功能,請設定_DATE_TYPE為7即可，如下:
_DATE_TYPE=1,3,5,7傳回YYMMDD
_DATE_TYPE=2,4,6傳回YYYYMMDD
_DATE_TYPE=8傳回YYYMMDD
Q51：我用AUTONO()寫AUTONO('table',substr(dtoc2(date()),1,4),6,.t.))則回應
'型態錯誤,巨集為空值'，請問要如何修正呢???
A：VD20的AUTONO()規格中沒有TABLE,請改為
sele table
AUTONO(substr(dtoc2(date()),1,4),6,.t.))
Q52：我在一副程式如下:message2(1,'開啟中..','訊息')
newform('form'), Mssage視窗的抬頭'訊息'兩字有顯示出來,但內容'開啟中..'卻
無法同步顯示，要等到FORM開完成後才能顯示出來。
A：請將程式改寫如下：
message2(1,'開啟中..','訊息')
inkey() &&加入此行即可
newform('form')
資料表
Q53：在VD2.0資料集均為各自所有, 那不同的系統之間的資料集可以共用嗎?
A：如果你是指一個FORM上使用不同的資料集,那可以。
Q54：VD 2.0 中的指令 USE AAA IN XXX，資料集可以用變數或 &XXX 嗎?
A：B='XXX'
SETDBASE(B) &&動態設定
USE AAA
Q55: 資料表的自動編號功能在新增時不會先顯示,卻在存檔後才會跑出來.
A: 這是規格,因為在多人同時使用時,在你確定儲存資料時，系統才給AUTONO,這樣才不會有跳號的問題。
Q56:如何去複製一筆資料，例如單號870801的全部內容複製到單號870810？
A:可以把 table A 多開一次得 A1，然後用一 button 執行以下程式：
A1.SEEK(A->NO)
A.APPEND()
A.REPLACE('NO','870810') &&'870810'可用公式或AUTONO()
A.REPLACE('NAME',A1->NAME)
A.REPLACE('NAME2',A1->NAME2)
.
.
.
A.POST()
Q57：當兩台電腦同時存取同一筆資料時,假設A電腦正在修改這筆資料中,尚未 POST；"庫存 "欄位並沒有修改(假設值 = 50)，而B電腦對這筆資料直接 POST 存入庫存 (40)，這時
A電腦才 POST，請問庫存現在 是 40? 還是 50?
A：因最後POST 是A電腦,所以是50，此為樂觀式鎖定的特性，可讓兩台工作站更改同一筆資料，如果設定為悲觀式鎖定者，則同時只能有一台工作站可以進入更改同一筆的模式。
Q58：請教如何動態關閉過帳?
A:本身過帳也是元件，所以你可以從物件編輯器中看出此過帳的元件名稱，一般命名都會以起始Table加上終止Table去命名，如TransInvoztem等，如下的設定即可達到你要的需求:
Transtable.TransActionMode=3
0=累增
1=累減
2=覆蓋
3=不執行
Q59:我如何才能讓資料表的欄位真的有存入值呢？如果我在FIELD9的運算式下一個
(VAL(FIELD8.TEXT)/(FIELD8.TOTALVAL))*6000，我資料表和欄位有指定給它,但它並不會
放在資料庫裡。
A：有兩個方法
1.在存檔前寫 table.replace('xxx',(VAL(FIELD8.TEXT)/(FIELD8.TOTALVAL))*6000)
'xxx'是field9的欄位
或是
2.field9不要用運算式,然後在field8的結束程序寫
field9.text=str((VAL(FIELD8.TEXT)/(FIELD8.TOTALVAL))*6000 )
Q60：VD2.0資料表中有欄位預設值,資料字典中亦有預設值且新增物件時會帶入,兩者使用時机為何?有何差異?
A：
1.資料表中的系統預設值,可設定是新增或更改時該資料表要預設的欄位值,在存檔前會設值,所以屬於系統預設,不能編輯,因為編輯最後也會被覆蓋。
2.資料字典預設值,新增物件時會帶入,物件在執行模式被點選時會啟動.(當空白沒有內容時將會帶入此預設值)
Q61：當Table之預設值為True,EDIT之驗証條件有設,且強迫檢查為True,系統預設有設資料,在存檔時,不是先將預設值帶入再驗証,而是先驗証,並強迫USER輸入,也不將預設值帶入,規格如此嗎?好像不太對?
A：Table的系統預設是存檔前帶入,不管你有無輸入都會被覆蓋所以如果是系統預設欄位
,就不應該設驗証條件才對,也就是VD會先驗證欄位再做系統預設欄位的動作.
Q62:可否將自動編號的開啟改為動態設定,如此我就可以讓USER去選擇是否要自動編號?
A:請使用table.VDAutoNumber.Active=0 / 1即可
Q63:SQL 使用SUM之後,為何COPY至別的DBF.SUM的欄位卻為0 ?
A:客戶在使用SQL元件做Copy時，發現用Sum出來的欄位都Copy不出來，這個問題追蹤的結果，是BDE的版本問題。VD在Beta版本給你們的是BDE5.0(Delphi4.0),VD目前是使用Delphi3的開發,BDE版本應該為4.5才對,所以之前已裝的BDE，請依下列步驟解除安裝：
1) 先解除安裝BCB 3.0及Delphi 4.0。
2) 解除完BCB 3.0和Delphi 4.0後，解除安裝的程式並不會完全解除已安裝的BDE，所以要手動把BDE的檔案完全殺掉!這個步驟很重要，不然若是有殘餘的檔案未清，則接下來的安裝Delphi 3.0 BDE將會白費功夫。
3) 若是有安裝Delphi 3.0，建議一併解除安裝，再重裝一次會比較乾淨，也是同第2)點一樣，BDE的檔案要手動殺掉。
4) ***解除安裝、手動殺掉BDE後，一定要重新開機一次，否則殘留的Windows Registry會影響到下一次的安裝。
5) 手動殺掉BDE檔案時，若是當初安裝沒有特別去改路徑，則BDE在大部份的情況下會安裝在下列的兩個路徑中的其中一個：
X:\Program Files\Borland\Common Files\BDE
X:\Program Files\Common Files\Borland\BDE
6) 重開機後開始安裝Delphi 3.0，不一定要全裝，若只是為了製作VD安裝片，那只裝BDE和SQL Link就可以了，Delphi 3.0的主程式和其它的程式(如Desktop)都可以不用裝。
7) 安裝Delphi 3.0所附的InstallShield，不要使用BCB 3.0和Delphi 4.0的InstallShield程式，它們認得的BDE檔案不太一樣，混用會出狀況。
如果你們也有SQL Sum欄位Copy的問題，請依照上面的步驟解除Delphi 4.0、BCB 3.0、Delphi 3.0、之前安裝的VD 2.0，再手動殺掉BDE。重新開機後安裝新版的VD 2.0及正確的BDE。若是你們不在乎SQL Sum欄位Copy的問題，那麼就不用這麼麻煩了，使用那一個版本的BDE都無所謂，直接把VD 2.0的BDE灌在舊有的BDE上，沒有關係。
特別注意一點，即使VD 2.0的新安裝程式附了正確的BDE程式，但並不是直接把這個版本的BDE覆蓋安裝在舊BDE上就可以解決上述SQL Copy的問題，一定要清掉舊的BDE檔案後，重開機再安裝，否則是徒勞無功的。但是有一點，若是已經安裝了VD 2.0正確的BDE後，以後再用新版的BDE(BCB 3.0及Delphi 4.0)覆蓋上去也沒關係。也就是說，若是Delphi 3.0的BDE是這個系統中，第一套安裝上去的BDE，那就不會有SQL Copy的問題發生了。
Q64: 以 'PE' 找 TABLE 內欄位內容為 'PETER'之資料使用 TABLE.SEEK('PE') 應該是找不
到但卻傳回 .T. WHY? 好像是 SOFTSEEK一樣?
A: seek本來規格就是如此,只要('PE')前面相同都會找出來,而SOFTSEEK是找相近值
Q65:到底資料庫工具是否只有支援 STANDARD 的DBASE Driver ??若爾後我的資料庫為
Access 的 .MDB會不會也遭此不相容或不支援的問題?
A:資料庫工具只能維護DBASE 4以上的版本,如用到ACCESS,FOXPRO的資料庫需用C/S版
本透過ODBC去抓取
Q66：請問VD2.0之SEEK與SQL之使用時機為何？
A：
1.在C/S的資料庫最好用SQL語法查詢會較快,C/S的架構不適合用Table元件的SEEK動作,所以不能用SEEK。
2.如果使用DBF,用SEEK較容易發揮DBF的特色但複雜的查詢也可用SQL語法。
Q67：在Navigator查詢資料時，是否能顯示查詢正確之資料，其餘不相關之資料可否不必顯示出來？
A：Navigator的查詢是用seek,所以只能seek到正確之資料,你應該用Navigator 的資料搜索 (Set Filter) 或用Table.while()過濾資料才能做到。
Q68:請問Assign(table->field,xxx) 與 Assign(table.”field”,xxx) 有何不一樣?
A：Assign(table->field,xxx)是直接存入TABLE中
Assign(table.”field”,xxx)是存入BUFFER中
Q69：為何VD2.0自動編號無效？
A：請檢查一下TABLE是否把唯一鍵值設成True,請改設為False。因為唯一鍵值是無法支援VD TABLE的<自動編號>功能。
元件使用
Q70：請問於 Grid.CanUpdate 為 false 時 , OnKeyDown 可否知道最後按鍵為何 , 如
DBTOOLS 的 Lastkey()
A：可用一個公用變數記錄OnKeyDown的鍵值，基本上Windows並沒有LastKey()的功能，很難這樣做，也不妥這樣做。
Q71：我在Button0.Fun寫:
Assign(Combo0.Text,'CCC')
而 Combo0.Items[1]='AAA'
Combo0.Items[2]='BBB'
Combo0.Items[3]='CCC'
假設目前Combo0.Text是'AAA'，當按下Button0時,畫面上的Combo0.Text果真變'CCC'，
但是存檔後,仍舊是原來的'AAA'，請問如何解決這問題?
A：Combo元件是不能直接更改Text內容，如果真的要改，也要改Item Index而不是Text，另一種方式則直接更改table的"buffer", table."field"='CCC'即可
Q72:為何Edit的 keydown事件攔不到Enter鍵 ?
A:EDIT ＜ENTER＞有特別用途,請不要使用Keydown事件，改用KEYPRESS事件!
Q73:為何在EDIT0的OnChange 有一程序 LABEL0.CAPTION = EDIT0.TEXT VD 20 不會正確 SHOW出?
A:你要改成 LABEL0.CAPTION = EDIT0.EDITTEXT，這是VD2.0在Edit元件中新增的屬性
代表目前正在輸入的文字內容。
Q74:我在 Main Form 的 Init() 已加上_DATE_TYPE=7,但 Edit 欄位中的日期欄位卻出現 1999/4/6 ??
A: 請在EDIT的<定位格式>加入”@D7”即可。
Q75:請問如何透過filesel傳回不含路徑的檔名 ?
A:你可在edit的結束程序,把路徑去掉，FileSel0.Directory就是它的路徑。
Q76：VD2.0 在 KEY-IN 程式裡, 如果USER 使用 '搜尋' 這個功能，是否可將搜尋條件
顯示於螢幕上, 好讓USER 知道現在是否正在使用 '搜尋' 這個功能?
A：可貼一Edit,資料表設定為該資料表，然後在<運算式>設定為if(empty(getfilter()),'','搜尋中')。
Q77:為什麼我在定位格式欄位上打999,999，它的欄位是N型態，則會出現*******
A:因為欄位數值超過6位了，把定位格式改為@N7就好了。
Q78：COMPORT() 的功能為何?COMPORT()資料到達程序,傳送完畢程序,逾時程序為何用途?
A：COMPORT是設計用來使用串列埠的裝置(RS232)元件，
<資料到達程序>指當有新資料進入輸入緩衝區時會呼叫這個執行程序.
<傳送完畢程序>指當輸出緩衝區資料傳送完畢時會呼叫這個執行程序.
<逾時程序>指在資料輸入或輸出時若超過時限則呼叫這個執行程序.
Q79：想利用LOOKUPLIST做條件查詢,請問該如何做？
A：LOOKUPLIST只有範圍鍵值，是根據索引過濾，如果要更複雜的條件可用EditorPanel
設計,你可以貼入GIRD及FIELD,或設定FILTER等功能。
Q80：建議VD2.0 SUM元件增加一"執行條件"屬性，將可對各種條件做不同的SUM()結果，
例如:付款方式、己收未收等等。
A：如果是SUM元件,則其有[運算式]的屬性,可定義成 IF() 可達到[執行條件]的目的。
Q81：VD2.0的menuitem 元件是否能動態決定某一項顯示或不顯示？
A：可以，程式如下：
IF A='123'
MENUITEM4.VISIBLE=1
ELSE
MENUITEM4.VISIBLE=0
ENDIF
Q82：請問怎麼寫一個程式去看他們KEY的密碼對不對, 再決定是否要存檔,並如何輸入此密碼時出現*號不讓別人看見?
A：可在存檔前程序,判斷比較密碼，如果不符合,就RETURN .F.就不會存入。
如果輸入要出現*號請在edit的"<加密處理>輸入’*’號即可。
Q83：請問VD2.0的POPUPMENU該如何使用, 我在設定POPUPMENU後在前台點右鍵時
MENU並沒有出現。
A：main form有一屬性叫<開窗式選單>(POPUPMENU)需設定為POPUPMENU0才有效。
Q84：如果edit0只可輸入n個字元,要如何在輸入n個字元後,自動跳到下一個鍵盤順序？
A：可用OnKeyDown Event
if len(edit0.edittext)>=n
edit1.focused()
endif
Q85：請問Batchmove的用途？
A：1.取代複雜的COPY/APPEND指令(須幾次COPY才能解決者)
2.專門處理BATCH檔整批過帳到主檔中.
如:部門檔存入總檔,日檔/月檔過年檔等,主檔轉移至歷史檔.
3.取代沒有INDEX的TOTAL功能.
4.報表印表前的統計資料整理,由其是分類整理,按月/按區域/按部門
按SALES...,可雙向整理(二維式).
5.整批處理資料表間的過帳關係(如庫存過帳,傳票過帳)
唯一限制: 不支援Client/Server資料庫,須改用SQL語法或Store Procedure
來處理.
Q86：VD2.0 中'資料庫元件' 的 'CHECK' 元件,為何無<起始程序> 及<結束程序> ?
A：請使用事件功能的OnClick與OnExit,即可。
Q87：form的”位置”屬性中，poDesigned、poDefault...，各代表何意義與邊框型態的設定
是否會影響form的大小，執行模式與設計模式常不一樣，在編排版面非常不方便？
A：1.通常form的位置屬性是設定成poDesigned，因為Form打開時大小和位置都和你設
計時一樣。
2.poDefault:form的size是windows設定的，每打開form一次,位置就往右下移
3.poDefaultPosOnly: size是你設定,位置會右下移
4.poDefaultSizeOnly-: 位置固定,size是windows設定的
5.poScreenCenter: Form打開時,會自動在螢幕中央
Q88：在一個FORM中貼入一個日期欄位,該如何check日期欄位的合理性及不為空白？
A：if empty(stod(edit0.text)) .or. empty(edit0.text)
message('日期不對')
endif
Q89：combo可否動態建立文字內容？如何建立？
A：動態新增內容可用
n=len(Combo0.items)+1
Combo0.items[n]='xxxxx' &&'xxxxx'就是動態新增內容
Q90：SpeedButton「全凸」屬性的意義為何?
A：「全凸」這個屬性應該叫做「允許全凸」比較恰當。在族群代碼不為0時，屬於同一族
群的SpeedButton，在同一時間內只會有一個被點選下凹，而下凹的Button會一直維
持在下凹的狀態，一直到同一個族群的其它Button被按下為止。而「全凸」這個屬性
若是設成了True，則在已經下凹的Button上再點一下，也可以把這個Button的狀態
恢愎成凸起狀，也就是允許同一族群的所有SpeedButton都處於凸起狀態的意思。
Q91：SpeedButton[點選下凹]屬性的意義為何？
A：1.「點選下凹」屬性須與[群組代碼]相配合,設定[群組代碼]才能設定「點選下凹」。
2.「群組代碼」一定必須為1以上的組號,不能為0。(但DEFAULT為0)
3.「點選下凹」為控制那一個SPEEDBUTTON要凹下去,可以用MOUSE點或程式控制,也
可以用此屬性來判斷是否被點選，但同一組只能有一個被點選下凹。
Q92：請問如何動態取消edit的editor(取代編輯器)？
A：可用edit0.editor=0即可
Q93：想在程式執行時去更改LookUpList.Range值,因其為P型態,除了使用Public Var 外
,如何直接將值設給它?如: LookUpList1.Range="E02+E03"會出現型態寫入不符!!
A：可用LookUpList1.Range.source="E02+E03"
Q94：請教如何區分media是按了stop還是完全播完了?
A：可由OnNotify()事件得知
0:命令成功的呼叫完成
1:命令被其它命令替代
2:命令被使用者放棄
3:命令失敗
Q95：請教Lookuplist autocheck 設true之主要意義?功能為何?使用時機?
A：Lookuplist autocheck 的主要功能是當EDIT直接輸入資料,而不用LOOKUPLIST選取時
,他會去檢查你LOOKUPLIST中的TABLE鍵值資料是否存在,如果不存在就會有警告。
Q96：VD2.0 中的 BUTTON 有一個 <執行條件> 讓我們可以設定執行權限，但是 'MAINMEU'
的選項,好像沒有 '執行條件’的選項？
A：menu是有許多item組成的，所以如果您去設定某個menu執行條件為false，那就沒
什麼意義了，您可以去設定item.enabled來控制功能。
Q97：我利用了輸入元件內的"檔案盒"功能，來選擇檔案，選擇以後路徑會更新到所選擇的檔案那個路徑。請問如何還原成原來的路徑或者不讓他變更路徑？
A：可用Filesel0.Directory='c:\'&&原來路徑
Q98：在Grid裡面如果一直按下<UP>鍵至第一筆資料,該dbf會變成BOF()？
A：這是BDE的規格,GO TOP後BOF()為True,GO BOTTOM後EOF()為True,無法改變!
Q99：EDIT 的取代編輯器如何自動跳出??
A：把EDIT的AUTOEDIT屬性設成True即可
Q100：請問navigator 如何控制每個按鈕用與不用？
A：請用Navigator.ButtonEnabled：(C)型態預設值為 111111011011。設定TVDNavigator的功能，
0代表該功能不顯示在 TVDNavigator的選項內，
1代表將該項功能顯示在TVDNavigator選項內。
Q101：在lookuplist結束程序內若有focused()則無效，如edit0取代編輯器為lookuplist0
,lookuplist0之結束程序有edit3.focused()按完lookuplist後仍停在edit0,但有看到游標跑到edit3再跑回edit0
A：這是規格，回去EDIT0是正常的，誰呼叫他,就回去誰那!
Q102:field.totalval問題? 副程式,如下:
parameter f1,f1 ＆＆f1,f2分別為兩個field
warning(＆f1.totalval) ＆＆沒問題
warning(＆f2.totalval) ＆＆沒問題
amt=＆f1.totalval+＆f2.totalval ＆＆會出現'variable not found!!'
A:應該用 ＆(F1).totalval,不能用＆F1.totalval
Q103:請教一lookuplist(sql)之問題!全域表單設sql(為二檔inner join而成),使用時,無法像單檔那樣可按鍵直接挑選,只能用捲軸來處理,為什麼?
A:因為SQL沒有SEEK! 所以無法用按鍵直接挑選.
Q104:用EditorPanel當作取代編輯器,裡面有貼SpeedButton,有設定熱鍵,但無法使用熱鍵
A: EDITORPANEL上不支援熱鍵 ,所以無法使用。
Q105: VD2.0的Mail.RecvAllMails(N)需要在括號裡輸入數值， 請問這些數值代表什麼含意？
A: RecvAllMails(Index-N)和DeleteAllMails(Index-N)，意義如下：
1. 當傳入參數0或小於0時，表示要接收所有的Mail。
2. 當傳入參數大於0時，表示要操作在某一封Mail上。
***這兩個Method支援預設參數，當沒有輸入參數時，預設值為0。***
Q106: SpeedBtn執行程序去取edit的值都會是edit上一次的舊值
A: 如欲取得EDIT的最新值,請使用EDITTEXT即可,而不是使用TEXT。
Q107: 在edit0中設editor為editorpanel0，在editorpanel上貼一個edit和button，於button執行程序中輸入 : void(assign(editorpanel0.text,edit1.text),assign(editorpanel0.visible,0))
，理論上editorpanel0會關閉，卻沒有, 請問該如何使用
A: editorpanel為輸入元件,如果要傳回值請將button的[樣本]設為[確定]的樣式,
button 的執行程序要改寫為assign(editorpanel0.text,edit1.text),則editorpanel會自動關閉。
Q108:VD1.x 可以設定 PANEL 的 Enabled 屬性，但 VD2.0卻無法使用,不知如何使用?
A:Panel本來就有Enabled屬性，這是一個public屬性(就是不會出現在物件編輯器上)
，使用者直接就可以用了，例如：Panel0.Enabled = 1
Q109:button0的執行程序下,執行run("copy 檔案路徑"),結果都copy不過去
A:請將"copy 檔案路徑"改寫到.BAT內即可。 或直接使用VD的COPY FILE.
Q110:如果再加上一個button元件，然後將"樣本"設成[確定]就是打勾的那一項，上面
的 onkeypress立即失效，奇怪樣本設成別種就不會
A:Button上有兩個屬性，一個叫做Default(預設按鈕)，另一個叫做Cancel(這個屬性被
設定成不顯示),當Default屬性被設成True時，這個Button會自動的攔截同一個Form
上的其它元件的＜Enter＞這個按鍵，視同為在它上面按Click，所以Edit的 OnKeyPress 在這個時後攔不到＜Enter＞。同理，當Cancel這個屬性被設為True時， Button會自動攔截＜Esc＞鍵。而檔把"樣本"這個屬性設為"確定"時，會自動的把 Default這個屬性一起設成True，才會造成這個效應。若不想這樣，只是在設定"樣本" 屬性後，再設一次Default屬性成false就好了。
Q111：假設在鍵盤輸入一字元'A':如何透過RS-232介面將字元輸出？
A：需用類似OnKeyDown的Event，並利用到COMPORT元件，在Event內用comport.sendchar()傳送出去。例如：請在表單貼上COMPORT及MEMO元件，MEMO為我們欲傳送的輸入元件，請在MEMO的OnKeyDown輸入一段程式如下：
EVENTPARA SENDER,CH
COMPORT0.ACTIVE=1
COMPORT0.CLEAROUTQUEUE()
COMPORT0.SENDSTR(CH)
COMPORT0.ACTIVE=0
RETURN
Q112：請問grid可否動態設定成不致能或不可改變RECNO()?
A：Assign(grid0.enabled,0) &&不致能, RECNO不能變更
Assign(grid0.enabled,1) &&致能且恢復
Q113：如何動態設定 menuitem 的某一功能不顯示 ?
A：Menuitem.enabled=0 &&Menuitem 會呈灰白
Menuitem.visible=0 &&Menuitem 會不顯示
Q114：1.在取代編輯器中不論是editpanel,lookuplist....等,可否得知
是由那一個edit所呼叫.或是此edit之名稱也可以？
A：你可設一公用變數xxx,然後在有設取代編輯器的EDIT起始程序寫：
TEST()
external xxx
xxx=this && xxx.name 就是edit之名稱
return
SQL
Q115：在MSSQL中查尋使用where B1.B1F1="X",結果無資料；改為WHERE B1.B1X1 LIKE "X%"
則查出符合資料,為什等號無作用?
A：SQL中之等號是完全等於,LIKE是屬於等於
Q116：SQL COMMAND是否可超過 255字？
A：可以超過255字元，以前VD1.x超過255有時會有問題，VD2.x沒有此問題。
Q117:SELECT SUM(INVO.INVO_TOT1) INVO_TOT1 FROM INVO WHERE NOT (INVO_DATE < '09/01/1998') AND NOT (INVO_DATE > '09/30/1998') 以上的SQL語法是否有誤?
A：改寫如下即可
SELECT SUM(INVO.INVO_TOT) as AMT FROM INVO WHERE INVO_DATE between '09/01/1998' and '09/30/1998'
Q118：不知VD2.0是否有支援SubSelectOR JOIN？
A：JOIN在VD1.x本來就有支持，但因為BDE 2.x的原因，所以有些指令不支持，
VD2.X是採用BDE 4.x以上，所以支援Subselect。
Q119：請問SQLRelation的用法為何?
A：你必須貼入兩個SQL,SQL0如為INVO,另一個SQL1為INVOSUB,後者SQL的Where必須為invosub.trn_no=&(SQL0->trn_no),這就是一個一對多SQL的關連,此目的是為了能讓SQL的QUERY資料可以新增更改及刪除,否則你使用JOIN的資料是不能被更改的。(關連時須用MOUSE從SQL0的<active>處拖放至另一個SQL1上即可）
Q120：我有一個table內有100 筆資料
select * from table where cust_no between &(form.edit1.text) and
&(form.edit2.text)，如果view有10筆，但是sql.lastrec()=100
換了另外一種sql語法又不會，為什麼有些SQL命令 會有這樣的情形呢？
A：SQL元件有一屬性RequestLive(可否更改)如果設為False，sql.lastrec()就會是10,
這是Delphi的規格，所以使用lastrec()之前,把RequestLive設為False即可。
Q121: x='update invmain set cdate="19990331" 'sql0.send(x) 發生error creating cursor handle的錯誤訊息，但卻更改成功。
A: 請改用EXECUTE(),SEND()現在改為只使用在SELECT的語句上,ADD/UPDATE/DELETE請用EXECUTE()
Q122：在資料庫中，某一欄位鍵入的值有50三筆，40有二筆，60有四筆的話，請問，我要
如何做才能將50，40，60的筆數3，2，4的數值計算出來並且要作由大至小或者是由
小至大的排列組合。
A：可用SQL元件的COUNT函數
Select COUNT(INVO.AMOUNT) AS AMOUNT,INVO.TRN_NO From INVO INVO
Group By INVO.TRN_NO
如果要由大至小排列，再加上”Order By Amount DESC”或”Order By Amount”由小至大即可。
Q123:請教，vd1.x可用sql.send()，下insert,delete,update指令，vd20為何不能?
A:insert,delete,update指令需用sql0.Execute()
Q124:請問sql函數 substring()是否未支援?
select * from aa where substring(aa.f01,1,2) in (...)
為何會出現錯誤 ..,1,2) ?
A:有支援,請改用substring(aa.f01 from 1 for 2)
Q125:SQL語法 中使用 SUBSTRING(NAME,1,4)，在程式內使用SEND() 方式產生錯誤，請問該如何使用 ?
A: 語法如下:
SQL0.SEND("SELECT * FROM TSTOCK WHERE SUBSTRING(NAME FROM 1 FOR 4)='0101'")
Q126:SQL物件只要語法寫成類似這樣:SELECT...WHERE A=＆(SQL0-＞B)然後立即預
視結果或手動ACTIVE該SQL物件, 為何有Invalid use of keyword.Token:=的錯
誤訊息
A: 請檢查SQL物件內是否有用到保留字,請在保留字前後加單引號。
Q127：可否詳述一下有關SQL.Send()之語法, 在vd1.x版說的太簡單, 因我們要傳送的主要有vd的變數或物件？
A：SQL.Send()可採用VD的運算式,&()內你可以用VD所有的函數,當該SQL被啟動時，系
會自動尋找出&()，並先執行&()的結果再將此結果合併在原SQL語法內再送出至後端
資料庫，所以 &() 的結果也必須合乎SQL語法。另外 &() 的結果如果為字串型態時
，我們會自動再上引號 (如"或')如果為數值型態者，我們就不會加上引號.至於SQL
語法,可參考SQL書籍(書局很多)
Q128：在VD2.0的DBMODULE中定義了SQL, 其資料是取SQL SERVER, 但我在修改資料時會出現"CANNOT MODIFY A READ-ONLY DATASET", 可否請問一下, 在修改或新增SERVER端的資料時還要我下INSERT或UPDATE的指令嗎?
A：不用， SQL元件可以新增/更改/刪除,只要將他的 [可否更改]設為 True即可!
但你必須重新active一次, 另外,如SELECT有兩個TABLE以上也不能設[可否更改]為 TRUE.
C/S
Q129：VD1.x/VD2.x 除了DBF之外,可用那些資料庫 ?? 使用方式跟DBF一樣嗎??語法和指令也跟DBF一樣嗎??有應注意的事項嗎??
A：
1.VD 網路版只支援DBF, C/S版只要BDE支援,大部分的資料庫都可以使用,例如MS- SQL,ORACLE ...但是各家會有小部份不同,VD20現在測試是以MS-SQL為主。
2.如果用C/S架構,使用方式跟語法,當然會和DBF不一樣最好是用SQL語法。
3.至於c/s資料庫的控制方式,可以參考手冊第十四章。
Q130：在SQL Server上的資料庫我可以在資料庫管理工具上做管理嗎?
A:更改TABLE資料可以,但結構不能更改結構。
Q131：請問SQL Server上Table的正確用法？
A：如果要使用一個SQL Server上的Table，不管是使用TVDTable或是TVDSQL，當連上Grid及其它的資料庫元件時，如果要在上面做修改(或是新增、刪除)，請特別注意，在這個SQL Table上，請至少建立一個Unique Index，最好是建立一個Primary Key。一個沒有有設定Unique Index的SQL Server上的Table，在修改的過程中，將可能會出現不正確的結果，例如:剛新增的一筆記錄看不到了(但資料是有寫入的，此時Active設成False再設成True就又看得到了)；或是在刪除一筆記錄時，會得到一個"Multiple Record Found!"的錯誤訊息。 要這麼做的原因是，因為SQL Server上的Table沒有Record Number的觀念，如果不是自行直接使用SQL Command來操作，而是使用其它的資料庫元件時，例如Navigator或是Table的各個Method，而此時VD 2.0表面上是用Table的方式來操作，而底層卻是透過BDE轉成了一堆的SQL Command來實作。而在沒有Record Number來定位的情況下，底層的操作需要Index來輔助。不只是VD 2.0有這個問題，在其它以Grid like的界面來修改SQL Server Table Data的Tool，都是一樣的問題。 這樣的用法代價是蠻高的，如果真要發揮SQL的Power，請直接使用SQL Command才是正途。
Q132：Form有c/s的table, 而且第一次進入Form時, 就會有login 的畫面, 如何才能讓這個login的畫面消失, 用自己design的form去login呢?或是用 GetUser來自行Login到c/s呢？
A：可在Main.init的GetUser()後使用LoginDB(database-c,User-c,Pass-c)即可達到你的需求，如LoginDB(“MSSQL1”,_USER_NAME,_USER_PASS)
一.環境
Q1:我在網站上抓回的 VD2.01.....
在執行時卻會出現 "OLEAUT32.DLL"之錯誤訊息,,
且VD裝置錯誤....然後就不能執行了,,,,那裡出了問題?
(我有將NX*.DLL,VENG*.DLL....等檔案覆蓋新版的)
A:這個問題是你的windows環境問題
OLEAUT32.DLL檔的原始日期不對,你可找一台可執行的電腦,
然後把它copy出來,覆蓋後就可以執行了.
Q2:在BDE中我們在新增資料庫時,其內容中的一些選項,如 LOCAL/SERVER
,如LANGUAGE....等,可以拉出視窗來選擇我們要的項目....
然而在VD 中的資料庫管理工具中,也是直接關聯到BDE中的,所以我們可
以直接在VD中新增或刪除或編修該資料庫,可是如我上面所說的那些可
拉出的項目,郤是要我們自己輸入,無法拉出視窗來選擇,因此可否建議一
下,將此VD資料庫工具給設成和BDE一樣的功能呢?
A:BDE的API並不是所有功能都能呼叫的!
有些設定只能在BDE 的ADMIN中設定,
BDE的API查不到,並不是我們不想做.
Q3:為何使用email會出現vd20 550 <xx@xxxx> we do not support relaying?
A:應該是因為該環境為ROUNTER撥接,或是以MODEM撥接用戶,
當還沒撥接上網時就會錯誤.
Q4:請問 VD 有沒有像 VB 的專案群組物件Group,來管理多個專案?
可不可以從專案中呼叫其他專案的表單出來使用?怎麼做?
A:VD的專案都是獨立的,所以沒有,也不需要
但如果要用其他專案的FORM時,可用專案拷貝的方式達成
Q5:在輸入欄位資料時,做一個驗證條件,而警告訊息有輸入一些提示,
而我想問當警告訊息出現時,在對話框會出現"VD20警告訊息",
請問"VD20警告訊息"此標題欄之內容是否可自行輸入呢?
A:設計模式->查看->多國語言->VDsystem->找出有訊息內容有VD2.0的項目
,然後自行修改.
Q6:我在功能表中選編輯/鍵盤順序後,為何都沒反應?
A:因為你的焦點不在Form上,滑鼠先點一下Form即可
Q7:VD控制器問題?
請問我設定一個指令為SETLEVEL(0),執行之後,VD20控制器雖已隱藏起來,
但如要呼叫控制器出來用何方式?
A:在捷徑vd20.exe filename.vds -g
可直接進入設計模式
Q8:如何讓同一個 vds 程式不被重複載入,有時使用者之電腦速度很慢,
因此每次在點選程式時,都會連續點選結果造成重複進入系統,
更使得系統當機,因此要求設定能夠防止重複載入之判斷.
A:可在捷徑VD20.exe abc.vds -E 即可
Q9:Higher table level required!!是怎麼一回事???
請問在vd20中在newform時出現以上的訊息該怎麼解????
A:因為你的BDE,是在較高版本的BDE建立的,例如BDE 5.0
而目前使用的BDE 是BDE 4.0,
請至較高版本的機器內,搜尋 IDDBAS32.DLL 複製至較低版本的機器內.
Q10:VD2.0 若執行 用戶登錄功能 於民國百年時只顯示 10/12/12為何?
A:你需在main.init把_date_type=8 才能顯示民國百年
Q11:想請教幾個問題。
1.普級版須要使用keyport嗎?
2.keyport什麼時候使用？
3.是否可匯入已存在的dbase或Access97資料庫檔案？可以的話要如何作業？
A:
1.普及版不需要使用keypro！
2.普及版不需要使用keypro,那當然是專業版才需要囉!
使用後台keypro是在切換到後台設計的時候才要用到的！
3.VD 2.0皆可使用dbase 及Access97此二種資料庫檔案格式,
不過，Access97需在VD 2.0 Client/Server環境才可！
Q12:VD1.1與VD2.0程式是否通用?VD1.1版之程式在VD2.0如何轉換或是用何種方式可叫出使用?
A:目前只能重做,不能轉換,但程式語法大致相同
Q13:當有兩部電腦同時間對同一個table建資料時
，若該table有設定自動編號，一樣會出現相同
編號重複，也就是說，將資料放於網路上，
前台一起key資料，卻會造成每台資料不同步
，甚至在只看到有一筆一筆的樣子，欄位裡面
卻看不到資料的問題，這樣的話，vd所開發出
的軟體不就變成單機版才可以使用了嗎？
A:我後來測試結果正常,但BDE需設定
執行BDEADMIN.exe,然後設定<system>/<INIT>
內的LOCAL SHARE = True即可
!Q14:我用vd2.0在網路的環境裡,我用兩台電腦同時使用同一支key-in
程式(不同筆),在A電腦修改某一筆資料,然後存檔,這時侯用B電腦
去看這筆資料,卻是更改前的資料,我無論用'上筆','下筆'
查詢都是舊資料,一定要按'首筆' 或 '末筆', 資料才會更新,
A:BDE需設定
執行BDEADMIN.exe,然後設定<system>/<INIT>
內的LOCAL SHARE = True即可
Q15:vd2.0 網路版可否讀取access 之資料庫,或需c/s才可?
A:需c/s版才可
Q16:請問 VD2.0 如何製作安裝磁片???
A:請用 Install Shield , 在我們的網站上有詳細的說明
Q17:是否有單獨的 BDE 可以 down load ?
A:用Install Shield 即可做成
Q18:執行VD2.0時 , 如何直接進入設計模式 , 而不進入執行模式 ?
A:vd20.exe *.vds -g 即可
Q19:NT SERVER 認不到keypro? 我照實用手冊上做,仍然認不到keypro??煩請解答,謝謝!!
A:手冊上CONFIG.EXE和WATCHDOG.SYS存放路徑是顛倒,請在程式下載區下載VD20NT.ZIP
程式,內有詳細安裝說明,請按照說明安裝,這樣才可讀到KEYPRO
Q20:請問在多人開發同一個專案的環境下 , VD2.0 如何在網路安裝??
NOVELL .OR. NT Server???
A:最好是各自開發以後,再用專案拷貝整合
只要資料集共用即可
Q21:如果在程式內執行一個批次作業，當該批次作業完成之後，要如何自動關閉該視窗？
有沒有類似GETOBJ()的功能？
A:直接對MS-DOS模式(command.com)的內容做設定:
1.找到command.com(通常這個檔案在同一部PC會有好幾個)
2.在該程式上按mouse右鍵, 選取"內容"
3.把"結束時關閉"check box選好
4.按"確定"
Q22:
一. 使用者權限置於何檔案, 可否開放給使用者自設
如何開放？
二. 資料結構己改變時, 系統該如何更新於客戶原使
用環境上並改變其結構？
三. 可否得知目前專案集名稱為何？
A:1.置於專案.vds,USERINFO()給使用者自設
2.先用SAVESTRU()存成*.INI,在用RESTSTRU()回存
3.你如果問資料集名稱,那TABLE的屬性就有
Q23:當我將一設計好的FORM 或 REP...存入"樣版"後...
我去將該專案"清除"掉....結果也會清除掉這些樣版資料......
不知VD是否可做成像DBTOOLS 5.XX一樣,可以保留著"自定模組"的資料呢?
A:VD20所有FORM,REP資料全在專案*.vds,當然你清除掉就不見了
所以你可用一專案,專門儲存模版,然後用專案拷貝即可
Q24:我以前是用vd 1.x的網路版,
如果要昇級到vd 2.x 的c/s版時
是不是要補足所謂的昇級費用以及
將vd1.x版的後台keypro寄回訊光來昇級
成vd2.x呢?
A:沒錯
Q25:如果已昇級成 vd2.x的話,那如果我還要使用
vd1.x的話,其後台keypro可以抓得到嗎?(也就是
使用已昇級成vd2.x的keypro,即同一顆keypro)
A:可以
Q26:另外如果可以在vd1.x中抓得到昇級成vd2.x後的keypro
時,因我以前的vd1.x是網路版,昇級vd2.x是c/s版....
那麼請問在我昇級後,去執行v1.x時,是網路版還是c/s版呢?
A:c/s版
Q27:請教vd2.0專案中資料集路徑的問題
假如我有兩個專案.....TEST1 及 TEST2
TEST1的路徑在C:\TESTA\TEST1.VDS
TEST2的路徑在C:\TESTB\TEST2.VDS
另有一個資料集 TESTDATA1 路徑是設在 C:\TESTA
也有一個資料集 TESTDATA2 路徑是設在 C:\TESTB
請問....當我在TEST1專案後台,設定資料集是 TESTDATA1後
,然後結束TEST1專案...接著去執行TEST2專案,進入後台,結果
發現在TEST2專案中,其所選取的資料集竟是TESTDATA1....
所以我便改成TESTDATA2....然後一樣的結束TEST2專案,再去
進入TEST1專案的後台,卻又發現其資料集竟是TESTDATA2...
請問這是正常的嗎?
如果是將來我的客戶一旦安裝了我的兩套軟體時(不同資料集)
會有問題發生嗎?
註...根據我的測試,不管單台電腦上有多少個專案,其後台中的
資料集名稱,都是以最後一次設定的名稱......
即全部的專案中的資料集名稱都是最後一次設定的名稱....
A:專案的路徑,和資料集的路徑,是一點關係也沒有的
專案只看的到資料集名稱,不管資料集的路徑
每一個專案都可用很多資料集,相對的多個專案也可使用
一個資料集;你的問題只要將VD20.EXE,SYSTEM.VDS,VENGINE32.DLL
,NXIPADD.DLL COPY到各目錄下即可,因為改變資料集後,會將結果
存入SYSTEM.VDS中
Q28:有沒有方法可以將message()所顯示的字型放大?
A:可在專案管理員內的雜項設定頁中設定
Q29:如何才能將vd2.0 普及版的畫面刪除
A:請把KeyPro插上,執行VD20後,切入設計模式
在專案管理,會出現設定成專業版的選項
執行它即可,NT環境還需執行config.exe,書上有寫
二.表單
Q1:執行程式時,可不可以讓Main表單躲起來,要用再秀出來。
A:可用assign(main.visible,0),把Main暫時不顯示,
等要秀出來時, assign(main.visible,1)即可.
Q2:有一個TEST( FROM)然後再設計一個SQL查詢,
但SQL必須再重新設計另外一個( FROM),
是否能利用TEST( FROM)來共用不必再從新開一個from.
A:你應該使用GLOBAL Form ,然後在GLOBAL Form開SQL元件
此時每個Form都可使用此SQL元件.
Q3:以 GRID OnDBCLICK 事件去執行 NEWFORM 開起一FORM,為何無法進入
該 FORM 編輯而馬上跳回原 FORM(該FORM已被開啟,但被原 FORM:蓋住),
但以 OnKEYPRESS 去攔截 ENTER 鍵去執行就無此問題,請多多
指教 !
A:Newform()後不可再執行其他指令,否則會跳回來.
Q4:為何表單大小固定好了時將表單關掉再開起時表單會自動向下增長
蓋到下面的開始工具列
A:請把Form的屬性"位置"要設固定,"自動捲軸"設False即可
Q5:是否可以增加logo畫面
VD從1.0到現在的版本都沒有logo的畫面, 是不是考慮在專案選項的地方加入此功能....
A:可在main.init
x=newform('logo')
x.showmodal()
Q6:請問二個問題
1.資料庫管理工具內, 不能更改欄位順序, 也不能插入欄位,是規格嗎?
2.開啟NewForm('XXX')或報表開檔, 或其他開啟檔案, 可否增加一些訊息
" 開檔中, 請稍等 " OR " 執行中, 請稍等 ",再加一跑馬登進度, 這方面好像開啟任何
FORM都沒SHOW訊息,USER 常以為當機...
A:1.是規格
2.可以自己使用message2()來作訊息
Q7:RE:VD20一些問題請教？
1. 例如我在一個test.form中設定一個課室欄位(edit1)，而在確定之(botton)中設定
執行程序為newform('text1')，在test1.form中設定sql，其資料集已設定好例如
AAA，畫面欄位也已安排好，欄位中AAA.type為課室欄位，請問sql之where
運算式如何去取得test.form之課室欄位(edit1)資料來做查詢條件？
2. 另外設定一個密碼欄位(edit10)，其定位格式為9999而在輸入數字時有何方法
不讓數字顯示出來，而只顯示****。
上述2，3問題煩請賜教，謝謝！
A:2.可用where AAA.type = &(edit1.text)
3.Edit的加密處理屬性,設成'*' 即可
Q8:要如何才能讓表單於輸入某一鍵值時，可以讓原有相同資料顯示出來，並且可以做修改的功能。
例如：在姓名欄輸入張三之後螢幕可以顯示原來資料庫中張三的資料，並可做修改的動作。謝謝
A:可用Table.while() or Table.filter()過濾資料
Q9:RE:form 的大小值'常常會跑掉可以修正嗎?
A:Form "位置"的屬性需設成"固定"
Q10: 如何才可以按button後把前一視窗關閉, 開啟button所指定的視窗呢?
A:form.close() 及newform()
三.報表
Q1:1.我在報表的init事件中過濾資料,可是我是用sql的方式,是不是
不可以用sql0.filter("'...'$..."),應該要用什麼?
2.table.filter()可不可以用變數來取代,我下
ffa02.filter("ifa04.edit0.text$欄位")
它會找不到任何資料What got i do??
A:1.應該是用SQL語法 where 過濾資料,比較好
2.table.filter()可以用變數來取代,只要語法正確,
例如,S1=ifa04.edit0.text+'$欄位'
ffa02.filter(S1)
Q2:在vd1.x的報表中有傳真的功能,很方便很好用. 在2.0中好像不見了,是沒有了?還是設定方法不同?
A:VD2.0沒有傳真功能,但你可用windows 的FAX
選擇印表機時選用FAX
Q3:有關報表問題請教,
當報表設群組列印時,SUM設連接群組(每一群組統計一次)
但無效,仍全部統計!
例: 8808 S001 88.08.01 X1 10 100 (15 315)
V2 5 200 15 315 #
-------------------------------------------------
S002 88.08.05 N1 3 60 (7 147)
N2 5 80 7 147 #
-------------------------------------------------
8808小計: 23 440 22 462
本來是一對多,經SQL JOIN 後,原單頭會隨單身重複,
所以括弧處是沒印出,但SQL表內仍有值,因此印出
15+15+7+7=44, 315+315+147+147=924
照理說SUM設有連接群組應只計算該群組之一筆
15+7=22, 315+147=462
A:sum可用運算式if(empty(field.text),0,sql0->15) 15是欄位名稱
Empty(field.text)是判斷是否加總.
Q4:為何在GH設定 群組換頁=true 及paintnewpage=true
群組鍵值也有設定,但一群組印完後pagenumber並不會回到1,仍然繼續累加???
A:會計sample,傳票列印就有此技巧
可貼一Variable,列印變數設"頁次"
連接群組表頭設GH,即可
Q5:請教一個笨問題!以前當DETAIL行數設1以上時(Dbt FOR win),可設縱印或橫印
現在要在何處設定?(不是直印或橫印,而是資料排列是先上下再左右)
Thank You !!
A:現在改為DT的列印方向.
Q6:請問再設計報表時,物件編輯器中紙張大小除了下拉內定之紙張大小
外,如何去自訂大小呢?
A:將屬性「預設紙張大小」設成「使用者定義大小」後設定屬性「高度英吋」、
「寬度英吋」即可。單位為百分之一吋
Q7:為何我在屬性「預設紙張大小」裡下拉式內容找不到有「使用者定義大小」這個項目?
A:這是你的印表機所支援的紙張不支援的結果,你可以去控制台的印表機中觀看內容,是否有
支援使用者自訂大小的功能
Q8:如何動態設定報表的背景圖??
ReportForm.Picture 不是 C 型態,而是 P 型態!!
A:P=REPORT.Picture
P.LoadFromFile(FileName)
因為 REPORT的Picture規格開錯,為TBitMap的Object,
應該為FileName比較好用,因為也不能改了,所以使用
VD底層的Method來用.其中 P就是 TBitMap的Object.
Q9:請問在一報表中,如何才能在明細欄右方印出備註欄位,不是針對該筆明細,
而是針對報表表頭,,,,
A: Memo元件貼在PH,但上座標加高,使Memo的位置和Dt平行.
Q10:請問在DT的明細項該如何控制才可印出明細項之流水號數?
A:REP.DetailCount就是流水號數,用Label
運算式STR(REP.DetailCount)把它秀出即可
Q11:強烈建議加入GH的換頁重印屬性及功能?
原vd1.x有的功能在2.0沒有納入，以 GH換頁重印應該是一個很重要的屬性。
因為在製作多筆銷貨單列印時如果不透過
此屬性會導致難以設計之窘境
A:換頁重印屬性已存在,可用屬性管理員把他設成顯示
Q12:群組報表問題
1.GH page未因群組更換而歸1, paintnewpage=true
2.GF sum 未統計
A:1.你應該用Variable元件,設連接表頭,才能根據GH顯示頁次
2.GF的sum不用設連接表頭,才會顯示.
Q13:在設計橫向報表時PageDetail因欄位較多無法擺下,只好把某些欄位擺至下一列
但執行時DetailTitle只顯示上列之抬頭而下列欄位抬頭卻沒有?要如何做呢?
A:請把detail title拉高就會看到第二列的title.
Q14:建議報表提供Eject跳頁指令
A:可使用 REPORT. CURRENTTOP來判斷目前位置(點數)
再以Detail.Height來處理,如下:
Detail的When中:
IF REPORT1.CURRENTTOP＞680
Detail0.Height=300 ＆＆ 讓他跳頁
ENDIF
RETURN .T.
Q15:如設變數加總, 該變數會加倍 (報表幾頁就多幾倍) ,假設加總數量, 該數量正確為
1000,但因該報表共三頁, 加總值變 3000.
A:VAR不能用在加總!請用SUM,SUM可以用EXP.
Q16:RE:報表的問題
請問:我現在要產生一個報表,其中的起始鍵值和終鍵值都有輸入條件了,我在輸入的型態為
"字串"的欄位都沒問題,可以產生我所要的資料範圍,但在另一個報表中,我要輸入的型態為"日期"型態時,請問為什麼我的資料都沒有顯示出來,
例如:
要查編號20到30號人的資料==>可以顯示出來
要查生日88.06.01到88.06.30的資料==>沒有顯示出來
A:很抱歉,本身BDE不支援日期型態的SET WHILE
所以資料都沒有顯示出來,建議你用C 8 型態
做為日期欄位即可
Q17:RE:report之預設列表機及紙張大小要如何動態更改呢???
A:1.預設列表機 rep1.DefaultPrinter=getprint(1)
2.rep1.DefaultPaperSize=N
&& 如要得知N數值多少,可先設定好DefaultPaperSize
然後在點提示 ? rep1.DefaultPaperSize 即可
Q18:請問如何將vd20的報表設定成中一刀，vd20好像沒有紙張高度的屬性
A:設定高度英吋屬性,紙張大小選擇使用者自定
Q19:我在報表的 init 設
1. PUBLIC CNTL
2. CNTL = 0
在報表的DT 中貼一個報表的 Label , 其運
算式設為 ASSIGN(CNTL,CNTL+1)
執行時會出現 'CNTL 變數找不到 ?'
請問為什麼?
THANK YOU !!
A:你應該在執行該報表之前的FORM 中設 PUBLIC CNTL
然後在該支報表的INIT 宣告 EXTERNAL CNTL CNTL = 0
這樣就不會發生錯誤訊息！
Q20:當detail中field資料自動折列時,如何讓detail自動拉開
例: 1 ruweyrw
quewq => 自動拉開
2 sfusdf
3 sgjdsg
A:1.可用Memo元件取代,DT才可自動長大
Q21.在報表中己定義 INVO 一對多 INVOSUB 整理好 TEMPA 1,TEMA2
INVO.REOPEN('TEMP','TEMPA1','NO')
INVOSUB.REOPEN('TEMP','TEMPA2,'NO')
出現 INVO 與 INVOSUB 的關聯被刪除
A:恢復關連的函數是Table.Masterchanged()
Q22:一個form設定好尋找的條件後,如何將範圍傳給rep
A:可在report的init過濾Table
例如: set filter to xxx=form.edit0.text
Q23:欄位有43個要列印在A4紙張,欄位垂直排列,資料筆水平排列
報表格式如下:
==========================================
1 2 3 4 5 6 7 8
欄位名1 aa bb cc dd ff gg hh ii
欄位名2 aa bb cc dd ff gg hh ii
欄位名3 aa bb cc dd ff gg hh ii
| | |
欄位名43 aa bb cc dd ff gg hh ii
==========================================
請問要如何設定??
A:我認為應該要有一個列印工作檔a.dbf
dbf的格式和報表格式一樣
然後把資料整理至列印工作檔a.dbf
報表就用a.dbf設計即可
Q24:有此報表,要如何印???
想請教一下,如果有以下的報表:
INV1 US 1000
INV2 UK 2000
INV3 NT 3000
INV4 SIN 4000
INV5 US 100
INV6 NT 300
INV7 SIN 400
=========================
以上的資料在一DBF中,其中US,UK等為外弊單位,如果在報表印
完後想印一類似以下的加總:
US 1100
UK 2000
NT 3300
SIN 4400
應該怎麼做????(其中外弊單位並不是每一次都固定一樣多個)
A:在REP的INIT先用SQL算出幣別加總,然後填入Label中
是最簡單的方法
Q25::如何將 KEY-IN 程式中的 ‘搜尋’ 過的資料, 直接貼一個印表的
BUTTON , 再將篩選過的資料列印出來 ?
A:可在Rep的INIT 執行Table.Filter(Form.Table.GetFilter())
此時REP和Form的Table就會同步
這是最快的方式 Table.Filter(Form.Table.GetFilter()) 但這對於花費二倍的
時間，如果資料筆數不小(超過3000以上)，利用此法，效率大打折扣
Q26:我不想在資料表中列出整個欄位的資料,例如"姓名"欄位我只想要印出"姓"來,我要用什麼指令。
找出來我"姓"又可不可以做為群組的依據...可否請你說詳細一些...謝謝!!
A:要把姓名欄位中的資料挑出來
你可用姓名欄位當索引,如果要全部印出所有資料
以姓分群組,可在GH的群組鍵值設substr('姓名',1,2)
否則可用table.while()挑資料
Q27:報表的起始鍵值及結束鍵值 ,如果其鍵值是複合鍵, 資料似乎都不會產生, 請試試看.
A:你要考慮欄位長度不夠,須加空白
A1 C8 A2 C10 INDEX->A1+A2
起始鍵值須'ABCD '+'AAAA'
Q28:請教印表時2byte的中文字能不能轉90度,類似於DOS ET ~V控制碼的效果
A:可以選有 @開頭的字型或者利用label元件，將其設定直列即可
四.函數、命令
Q1:請問如果DLL有多個傳回值,我該如何做呢??
如果call()只能有一個傳回值,那是否可以修改成為有多個傳回值??
因為有很多功能我們可以透過Win32API來作,這樣貴公司的負擔就少很多了,
但Win32API的傳回值並非只有一個.
A:你可傳回一個結構字串,再一一分解給VD用,
例如傳回STR1(C8),用substr(STR1,1,4) substr(STR1,5,4)
分別得到兩個回傳值,
或是帶入一個參數值，然後帶回應該取的值，相信就可以
達到您的要求.
Q2:以下是我的程式碼,我寫在BUTTON的執行程序,每次程式執行到第40行時就會出現
錯誤代碼121,"參數格式錯誤","NEWOBJ"
if ! empty(ifa04.edit1.text)
wkcomp = ifa04.edit1.text
else
X=Newobj("TVDSQL","SQL")
X.DataBaseName="DB01"
X.Send("Select * INTO WKFA04 From TBFA04")
endif
newrep("RFA04")
return
A:因為你的Newobj("TVDSQL","SQL")參數不夠
Newobj("TVDSQL","SQL1","Form_name")才對
Q3:請教 SURE() 'Y','N','C'
SURE 傳回值為一個字元，'Y'代表<是>
'N'代表<不是>,
'C'代表<取消>
IF SURE('確定結帳嗎?','確認視窗',100,200)='Y'
.. && 結帳程式
ENDIF
請問 回傳值應如何取得?
又當回傳值為 'C'時 如何去執行某一段程式 ?
A: 你需用一變數
X=SURE('確定結帳嗎?','確認視窗',100,200)
if X='C'
&& 結帳程式
endif
Q4:請問陣列的起值為什麼是1而不是0呢!
別的軟體好像都是零開始吧...
如果我要用指標零怎麼辦...
ARRAY('AAA',15)
...
...
AAA[0] = XX
...
會出現錯誤
A:規格是1開始,指標零你可用 AAA[0+1] = XX即可
Q5:請問在一對多的grid中如何才能設計出明細grid的明細項目序號,有什麼技巧嗎?
A:Grid無此功能,你可加一欄位記錄明細項目序號,然後用Autono()自動編號
Q6:如何Call Win32 API (重新啟動電腦)
A: DLL_USER32=Load('User32.DLL')
CALL(DLL_USER32,'ExitWindowsEx',"5LL",2,0)
Q7:請問Try error 如果要攔截err code, 應該要如何作呢?
A:可以使用_ERR_CODE,_ERR_MSG1,_ERR_MSG2來判斷!
TRY &&測試是否會發生錯誤
..
..
ERROR &&發生錯誤時會直接進入本段程式中執行
Message(_ERR_MSG1)
ENDTRY &&宣告停止測試錯誤C
Q8:有關資料加密問題,請教一下!
我如此作:table->cpw => (c type,16 byte) 要如何用edit編修完之資料經加密存入table? 呼叫時 可反解密? 如下作法
edit2.endproc: assign(edit2.text,dlock(edit2.text))
table.postbefore: table.replace('cpw',edit2.text)
可是dunlock(table->cpw)之值和當初輸入之值不符
若未存檔,直接dunlock(edit2.text)就相同!不懂那兒出問題?
****
1. 使用一edit1來輸入->加密->存檔->顯示(已加密)
2. 再用另一edit2輸入->比較edit2.text=dunlock(table->cpw)結果都是.f.
3. 若 1 不存檔 edit2.text=dunlock(edit1.text) => .t.
為何? thank you !!
A:不用那麼複雜,只要在edit2的定位格式輸入@L即可
Q9:REFORM() 函數好像不能用,
假設 TABLE=ABC
我作, REFORM(ABC->NAME,50,.T.)無效, 請問該如何作.... thanks
A:X=REFORM(ABC->NAME,50,.T.)
X就是重排結果
Q10:dbtools 5.x 在copy next 1 to temp 後,記錄指標仍在原記錄
但 vd2.0 在 copy next 1 to temp 後,記錄指標會移動,並不會
停在原記錄.不知道是否系統規劃如此?
A:目前的規格是如此
Q11:RE:如何動態設定 menuitem 的某一功能不顯示 ?
A:Menuitem.enabled=0 &&Menuitem 會呈灰白
Menuitem.visible=0 &&Menuitem 會不顯示
Q12:1.message2():我在一副程式如下:
message2(1,'開啟中..','訊息')
newform('form')
mssage視窗的抬頭'訊息'兩字有顯示出來,但內容'開啟中..'卻無
法同步顯示要等到from開完成後才能顯示出來.
A:請將程式修改如下即可
message2(1,'開啟中..','訊息')
INKEY()
Newform('form')
Q13:如何設定使A FORM / B FORM 之變數不會相互干擾
a form 的init設定變數
Public MasterKey
MasterKey="abc"
..
..
b form的init設定變數
public Masterkey
MasterKey="def"
..
..
在MID格式下,選A FORM 執行後又選 B FORM 執行
則最後MASTERKEY="def",若切換至A FORM 的
則變數會不正確,程式執行錯誤.
1.如何設定使A FORM / B FORM 之變數不會相互干擾
2.如不設PUBIC如何使FROM
底下FUNTION可用到INIT程式所設的參數
A:1.變數設PUBLIC,當然兩個form會相互干擾,因為利用PUBLIC為公用變數
2.可使用edit元件當變數
Q14 :請問一字串比較問題
? m1= '' && (空字串)
m2="XX"
? m2=m1 => 相等嗎? 它傳回 .t.
這是BUG嗎?
A:此是正常,因為 ? m2==m1 &&'=='代表完全相等,固它傳回 .F.
? m1=m2 &&代表NULL是否等於"XX",故傳回 .F.
? m2=m1 &&代表"XX"是否等於NULL,因為任何值都可以等於NULL,故傳回 .T.
Q15:假設在鍵盤輸入一字元'A',如何透過RS-232介面將字元輸出？如何使用函數寫程式？
A:需用類似OnKeyDown的Event,在Event內用comport.sendchar()傳送
Q16:請問VD2.0之SEEK與SQL之使用時機為何？
A:1.在C/S的資料庫最好用SQL語法查詢會較快
C/S的架構不適合用Table元件,所以不能用SEEK
2.如果使用DBF,用SEEK較容易發揮DBF的特色
但複雜的查詢也可用SQL語法
Q17:寫程式, 最好寫一次, 讓很多地方都可輕易的呼叫來使用,
讓程式維護起來更方便, VD FUNCTION 之寫法, 如牽涉到
別的FORM 或別的TABLE 時, 好像都無法應用, 可否請教共用
FUNCTION 之程式技巧, 謝謝.
A:可用Active('form_nmae')來動態設定預設的form,
但form與form的各Table是獨立的,
除非Global Form的Table才可共用
Q18:autono('table',substr(dtoc2(date()),1,4),6,.t.))
則回應'型態錯誤,巨集為空值'
請教先進,要如何修正呢???
A:改為
sele table
autono(substr(dtoc2(date()),1,4),6,.t.))
Q19:請問有沒有人知道統一編號檢查碼的運算規則.
A:
PARAMETER cCom_Id
IF LEN(ALLTRIM(cCom_Id)) < 8
RETURN .F.
ENDIF
I=1
DO WHILE I<= 8
IF SUBS(cCom_Id,I,1) < '0' .OR. SUBS(cCom_Id,I,1) > '9'
RETURN .F.
ENDIF
I = I + 1
ENDDO
* 營利事業統一編號 邏輯檢查方法
* ┌────┬────────────┬──────────┐
* │項 目│ 計 算 方 法 │ 說 明 │
* ├────┼────────────┼──────────┤
* │統一編號│ 0 4 5 9 5 2 5 7 │ │
* │ │ │ │
* │邏輯乘數│ 1 2 1 2 1 2 4 1 │兩數上下對應相乘 │
* │ │ │ │
* │乘 積│ 0 8 5 1 5 4 2 7 │乘積直寫並上下相加 │
* │ │ 8 0 │ │
* │ │ │ │
* │乘積之和│ 0 8 5 9 5 4 2 7 │將相加之和再相加 │
* │ │ │ │
* │ │ 0+8+5+9+5+4+2+7=40 │ │
* │ │ │ │
* ├────┴────────────┴──────────┤
* │最後結果, 40 能被 10 整除, 故 04595257 符合邏輯。 │
* ├────┬────────────┬──────────┤
* │統一編號│ 1 0 4 5 8 5 7 5 │倒數號二位為 7 │
* │ │ │ │
* │邏輯乘數│ 1 2 1 2 1 2 4 1 │兩數上下對應相乘 │
* │ │ │ │
* │乘 積│ 1 0 4 1 8 1 2 5 │乘積直寫並上下相加 │
* │ │ 0 0 8 │ │
* │ │ │ │
* │乘積之和│ 1 0 4 1 8 1 1 5 │再相加時最後第二位數│
* │ │ 0 │取 0 或 1 均可。 │
* │ │ │ │
* │ │ 1+0+4+1+8+1+1+5=21 │ │
* │ │ 1+0+4+1+8+1+0+5=20 │ │
* │ │ │ │
* ├────┴────────────┴──────────┤
* │最後結果中, 20 能被 10 整除, 故 10458575 符合邏輯。 │
* └────────────────────────────┘
** 乘上邏輯乘數
cM01=STR(VAL(SUBSTR(cCom_Id,1,1))*1,2)
cM02=STR(VAL(SUBSTR(cCom_Id,2,1))*2,2)
cM03=STR(VAL(SUBSTR(cCom_Id,3,1))*1,2)
cM04=STR(VAL(SUBSTR(cCom_Id,4,1))*2,2)
cM05=STR(VAL(SUBSTR(cCom_Id,5,1))*1,2)
cM06=STR(VAL(SUBSTR(cCom_Id,6,1))*2,2)
cM07=STR(VAL(SUBSTR(cCom_Id,7,1))*4,2)
cM08=STR(VAL(SUBSTR(cCom_Id,8,1))*1,2)
** 計算乘積和
nM01=VAL(SUBSTR(cM01,1,1))+VAL(SUBSTR(cM01,2,1))
nM02=VAL(SUBSTR(cM02,1,1))+VAL(SUBSTR(cM02,2,1))
nM03=VAL(SUBSTR(cM03,1,1))+VAL(SUBSTR(cM03,2,1))
nM04=VAL(SUBSTR(cM04,1,1))+VAL(SUBSTR(cM04,2,1))
nM05=VAL(SUBSTR(cM05,1,1))+VAL(SUBSTR(cM05,2,1))
nM06=VAL(SUBSTR(cM06,1,1))+VAL(SUBSTR(cM06,2,1))
nM07=VAL(SUBSTR(cM07,1,1))+VAL(SUBSTR(cM07,2,1))
nM08=VAL(SUBSTR(cM08,1,1))+VAL(SUBSTR(cM08,2,1))
lRet1=IF(MOD(nM01+nM02+nM03+nM04+nM05+nM06+nM07+nM08,10)=0,.T.,.F.)
IF nM07=10 && 7*4=28 ==> 2+8=10
lRet2=IF(MOD(nM01+nM02+nM03+nM04+nM05+nM06+1+nM08,10)=0,.T.,.F.)
ELSE
lRet2=.F.
ENDIF
RETURN lRet1 .OR. lRet2
Q20:動態改變GLOBFORM LOOKUPLIST RANGE 會有錯誤訊息
FORM A 有一 GRID
GLOBFORM B 內有 LOOKUPLIST RANGE 空白
在 FORM A 內 FIELD0 取代編輯器填入 GLOBFORM B
.... FIELD0 起始程序填入
ASSIGN(GLOBSELEBASIC1.LookupListPARAC.Range,"'AA'")
執行時卻出現屬性型態錯誤
設定有錯嗎?
A:ASSIGN(GLOBSELEBASIC1.LookupListPARAC.Range.Source,'AA')
加.Source 即可
Q21:RE:如何執行信件之附加檔？
A:如果執行的附加檔案為word檔,也就是.doc檔,可以利用run()
寫法如下:
RUN("路徑\WINWORD.EXE 欲執行的.DOC")
Q22:收到的附加檔不是已被改名了嗎？不知檔名的情況下，如何去Run它呢？若我想將它存在自訂的檔名中，該如何操作呢？謝謝…
A:在收到Mail後，可能對方會有夾檔案，這個部份mail元件會把
它解開來，存在Disk上，下列的屬性可以用來得到這些夾檔的
相關資訊：
1. AttachmentNames:A (public)，這個屬性是A-Type的，因為一封
mail可以帶多個檔案，而這個屬性則放著這封mail帶過來的檔案
的名稱，每一行就是一個檔案名稱。這個屬性也是要
和MessageIndex合用。
2. AttachmentPaths:A (public)，這個屬性和AttachmentNames屬性
是一對一對應的，AttachmentNames屬性放著傳過來的檔案名稱，
而AttachmentPaths則是放著這個夾檔被放在收mail電腦上的真在
位置和檔名，因為收下來的檔案會被mail元件改成一個暫存檔
名後存到Disk上，這樣可以避免兩封mail的夾檔同名時造成的
衝突。這個屬性也是要配合MessageIndex來使用的。
3. SaveDir:C (publish)，這個屬性用來設定收下的暫存檔要放在那
一個目錄中，若是沒有設定，則自動設定成Windows的Temp路徑。
如要將檔名改為自訂的,一樣可以使用run()函數
Q23:如何寫轉檔程式??
若要將文字檔(*.txt)轉到DBF檔內,不知該如何撰寫程式??
A:
Select 0
Use customer
Append From cust.txt SDF
PS: [DBF.Customer] 之檔案結構為：
cust_code c 6
cust_name c 26
cust_tel c 12
cust_fax c 18
cust.txt 之內容為：
AA0033三榮股份有限公司 22334567
AB0044南一股份有限公司 99337654
DC0052安二股份有限公司 33229292
DD0063北志股份有限公司 99227654
DE0074台明股份有限公司 (02)555-322299999
AI0028北電股份有限公司 (02)522-234199227654
AJ0039台枎股份有限公司 (02)312-211199999999
EA0041中昌股份有限公司 (02)823-113322334567
EB0052南忠股份有限公司 (02)543-343299337654
Q24:如果是vd物件之尋找功能,設定條件後,其set filer to xxx=變數為何?
A:可用Table.GetFilter()得知
Q25:請教有關資料集路徑更改之方法?
A:1.你可做一管理路徑的專案A,在A專案使用DELALIAS(),ADDALIAS()
然後用RUN('c:\vd20\vd20.exe B.vds')
main.close() &&把目前專案關閉
Q26:VD20 是否有類似 DBTOOLS 資料結構回存功能
A:可用SaveStru()儲存成INI
再用RestStru()資料結構回存
Q27:我使用的是Visual DBTOOLS 2.0普及版,再建立了上面二種欄位型態後,根本沒有辦法輸入是不是因為是普及版的關係,還是我要搭配資料庫軟體...
A:跟普及版沒有關係,Memo欄位需使用Memo元件處理
Binary欄位需使用Table.BinRead(),Table.BinWrite()
Q28:例如:用sql找出資料80筆,列印時要在每筆資料中加個序號,(1-80)
A:可在Label的運算式用str(Rep.DetailCount)即可
Q29:VD 2.0 如何產生亂數??
A:直接使用RANDOM()函數!
Q30:我要如何將P型態的欄位如何動態設為空白？
例如：
EDIT0.EDITOR=''
-或-
EDIT0.EDITOR=
(上列兩式都不對)
A:EDIT0.EDITOR=0 即可
Q31:請問要如何製作顯示資料總筆數之物件?
A:Table.Reccount(),sql.lastrec(),table.RecordCount
以上三種方法都可得知資料筆數
Q32:
1.在edit編輯欄位資料時如何將游標自動移至編輯欄位之起頭,而不必移動向左鍵來移至編輯欄位
之起頭
2.如何將memo備註型態之資料,append至另一資料庫(此資料庫也有M型態之備註欄位)
A:1.在onclick事件用edit.selstart=0 即可
2.append blank
Repl Rem with table->Rem1
post
Q33:請問除了用len(Array)之外,還有什麼辦法可以取得陣列的
個數??因為用len時,如果個數太多(幾百甚至上千個),有時
會捉不準確!!!
A:陣列個數不能超過65535/4=16383個
只有Len()可取得陣列個數
Q34:宣告變數除了public外是否有其他宣告的指令?public是不是就是全域變數
A:還有External;public是全域變數
Q35:RE:關閉作用視窗
A:請用 Form.close()
Q36:RE:Table.IndexOn() 照手冊的說明無法使用,到底該如用??
A:Table.IndexOn('Name','Field_Name',0,0,1)即可
最後一碼固定是1
Q37:RE:我想要在程式編輯器中呼叫Windows的指令,可以嗎?要怎麼下?
例如開啟新接龍.
A:可用WRUN('xxx.exe')
Q38:RE:message有無傳回值
在使用message可不可以像VB一樣,可以自己設定要出現的按鈕,如確定、取消、忽略...等,如果可以他們的傳回值又是什麼,謝謝!
A:
格式=MESSAGE('本資料已過帳..','訊息視窗',12,20)
無傳回值
可用 SURE(msg-C ,title-C ,pos_x-N ,pos_y-N)
【傳回值】
為一個字元， 'Y' 代表<是>, 'N' 代表<不是>,'C'代表<取消>, 設計者可以此往下控制程式流程。
Q39:我想要在一筆資料更新時將日期寫入其中一個欄位中,以做為證明。請問我要在那下這個指令?指令是什麼?
A:可使用Table的系統預設功能,他會在存檔前根據你的設定給值
Q40:return是不是所有的程式都必須在最後下return這個指令
A:不是,但個人習慣會加上RETURN .T. or .F.
Q41:1.如何把數值函數轉成日期函數
2.每個月的天數都不一樣,如果我要加一個月除了利用
a=val(dtoc2(date()))+100 外還有沒有更好的方法
3.可以在VD中設定定時執行的程序嗎,例如每月五日計算薪水?如果可
以語法是什麼?
A:1.stod(str(19990101))
2.date()+lastday(date())
3.設定定時執行,只有Timer元件
但你的需求,應是在main.init設定
當執行此專案時,判斷是否計算薪水
五.資料表
Q1:1.我想要把資料輸出到臨時的table,該用什麼指令
2.需不需要先把table的結構建好
A:可用copy to temp,不需要先把table的結構建好
Q2:一個table可以下2個set filter to嗎?好像下了第二個第一個就沒有了,如果要下二個
怎麼辦?
A: 一個table不可以下2個set filter to,
你可用 .and. 處理兩個條件即可
Q3:我再新增資料存檔時,做一個函數內容如下
SELE 1
SEEK NAMESTART.EDIT0.TEXT
IF !EOF()
WARNING=('此筆資料已建檔過,請查明在輸入')
EDIT0.FOCUSED()
RETU .F.
ELSE
RETU .T.
ENDI
如果資料重複時,為何沒有出現 WARNING=('此筆資料已建檔過,請查明在輸入')
警告訊息而直接執行EDIT0.FOCUSED()?
A:你應該多USE一個相同Table來SEEK
存檔前不可對自己SEEK
Q4:我設計一個BUTTON 為重整,開3個TABLE,BUTTON內容為:
IF SURE('請確認是否要重整所有檔案?','確認視窗')='Y'
PACKS('TEST')
ENDIF
RETURN
但為何我執行全部重整,而3個TABLE全部重整失敗?
A:重整前,Table 不能開啟,需Table.active=0 重整後,再把Table.active=1
Q5:如何將兩結構相同資料表同步異動更新,
已建立且定義table A後又copy 一個與table A相同結構的資料表
請問要如何寫程式當A有任何異動時(如新增,刪除,修改),B也同
步跟著異動更新.?
A:在table A的存檔前去新增修改Table B 即可
Q6:我在執行資料重整時出現
錯誤代碼:2060
資料表PACK時發生錯誤,外來 (Foreign) 索引檔格式。
CUSTOM.MDX
請問是何原因?(資料庫為DB3之CUSTOM.DBF)
A:VD的資料索引檔是MDX,所以不相容,
你需要在原來的Dbase 環境把索引刪除,
然後在VD重建索引.
Q7:請教 EditX.AutoEdit 'Ture' or 'False' 可否由程式來加以控制?
目的是 新增時希望 EditX.AutoEdit 為 'Ture'
更新時希望 EditX.AutoEdit 為 'False'
A:在Table的新增前, EditX.AutoEdit=1
及更新前EditX.AutoEdit=0
Q8:當field設驗證條件時,並強迫檢查,輸入資料後會檢查,並焦點停在該
欄位上,可是此時資料不修正(欄位沒進入編修狀態),則無法再檢查,
並可存檔!除非在該欄位按空白箭使其入編修,否則不檢查了!!
照理說:強迫檢查應強制該欄位完成正確動作後才可離開!!
而不是只令其回到該欄位而不再入編修!
A:你應該用Table.Valid=1 才對,(自動檢核欄位=True)
Q9:設定資料表問題？
IF SURE('請確認是否要重整所有檔案?','確認視窗')='Y'
SET DATABASE TO NAMECAR SELE 1
USE
PACKS('NAMECAR')
SELE 1
USE TITLE
LABEL2.DATASET='TITLE'
ASSIGN(LABEL2.VISIBLE=1)
ENDIF
RETURN
為何會出現"屬性寫入錯誤",屬性寫入時發生型別錯誤: Label2.DATASET
,我查過該屬性型態應為(P),請問該如何設定?
A:正確的用法!如下
DataSet為P形態,'TITLE'為C形態
所以: LABEL2.DATASET='TITLE'改為label0.DataSet=TITLE 即可
Q10有關DBF的關聯速度
A:
前一陣子,有討論到DBF大時的速度不佳,
本來DBF很大時,你就必須注意很多事,
請有這經驗的人來TUNING一下.
目前已知的方法為:
1.請部份DBF置於 GLOBAL FORM
2.沒在MULTI-PAGE主頁的DBF請將開啟模式設為"CLOSE"
(新的規格)
3.動態來設定field total的關係
4.動態來設定DBF relation的關係
5.SEQ元件一進來都是"CLOSE"的狀態.
速度是規劃問題,VD本身僅是CALL BDE.
不能老是用傳統DOS來思考問題,WINDOWS上的技術
已經不是你們個人可以搞定,這此我們訊光願意為各位
提供解決方案,但請各位不要認為這是VD應該要附贈的KNOWHOW
請大家尊重專業,否則我們訊光很難再做如此的產品.
Q11:如果table的valid為true,在存檔前會檢查edit和field
的驗證條件,能不能知道檢查的順序.....
A:應該是按照貼元件時先後順序檢查
Q12:一般在資料表中新增一個DBF檔時，其索引好像只能拉一個索引檔，是否一次能選擇多個？
A:dbf在open時,所有index tag是全部open著,只讓你設一個是
目前order(dbase規定order只能有一個),你可以自由更換order
及tag,但index是全部會自動維護的,你可以不必理會,如果你要
同時用兩個tag,只好open兩個dbf(在同form上是可允許的)
Q13:資料庫管理工具:如果不小心用檔案總管或dos刪除mdx則此dbf無法
再開啟看到其結構,需用vd1.0的vddesk先刪除其索引註標才行,另外
如果舊系統的dbf有memo file(*.dbt),則在資料庫管理工具無法新增
欄位或索引,需將dbt刪除才行,如果幫客戶dos昇級成95版不就有問
題了嗎?
A:1. message2(1,'開啟中..','訊息')
inkey(1) &&加入此行即可
newform('form')
2. 因為DBF版本不同,所以最好重建結構
然後寫程式把舊資料轉到新dbf
Q14:如果我在一個FORM中,貼上一DBMODULE物件,其TABLE是CUSTOMER.DBF
然後貼上一MULTIPAGE物件(共兩頁),第一頁放入CUSTOMER的欄位.....
另外也貼上了一個SQL物件,其資料表也是CUSTOMER.DBF
然後將SQL0中的欄位,放到第二頁中......
請問我有方法可以讓這兩頁的資料"同步"嗎?
也就是當我在第一頁中移動資料或是編修資料後,去切換到第二頁時,會顯示最新的資料情形,
或是在第二頁有移動或編修的話,去切換到第一頁時,也會顯示最新的資料.....
如果不行的話,是否意味著 :
沒有人這樣做.....就是一個FORM中,TABLE和SQL不可同時存在....
A:1.如果你是說Table新增後SQL要能看見,可用SQL.REACTIVE()
及Table.refresh()&&在存檔後執行
2.如果你是要SQL和Table要同一筆,那是不可能
因為SQL元件不能SEEK,你如何跳到那一筆呢?
SQL是結構化語言,和Table是不同的
Q15:在報表(rep01)中,有A及B兩個檔案,並設一對多的關聯
開啟報表前,已先將A及B檔COPY部份的資料到TEMPA及TEMPB(暫存檔)
在rep01中使用A.REOPEN("TEST","TEMPA","IDXA")或使用
A.REOPEN("TEST","TEMPA","")
都會產生 "索引改變,必須將關聯刪除" 的訊息...
請問如此做法是否有誤? 還是另有方法可達到相同的效果?
A:通常A及B兩個檔案,並設一對多的關聯
只要A檔執行SET WHILE 篩選資料即可,不需要REOPEN()
Q16:RE:如何動態設定關聯?
A:用NewObj()動態新增TVDReltion
已方資料表: TVDRelation.SelfTable
關連資料表: TVDRelation.RelTable
關連模式: TVDRelation.RelMode
刪除模式: TVDRelation.IsDelRelRangeRecord
關連欄位: TVDRelation.FieldExp
Q17:過帳的功能中可不可以在新增資料時,和刪除資料時分別過到不同的地方,
例如我下一張訂單,會計科目中的進貨要增加,可是我刪除時,要在進貨退回來
增加...如果不行程式要如何寫...
A:你可在存檔前,及刪除前自行寫程式過帳 不能用過帳元件
六.元件使用
Q1:請問可否稍為說明一下與WORD 溝通元件的用法?
A:在Windows系統中會有很多的OLE automation的元件，這些元件都是一些
Application所註冊上去的，例如Word，透過這些元件，我們可以執行相對於該
Application的一些功能，例如，我們可以使用一個Word的OLE automation物件
來做一些操作，下列的操作將可以產生一個Word的DOC檔：
OLEObject0.OLEName = 'Word.Basic'
OLEObject0.Active = 1
OLEObject0.ExecProc('FileNew', 'Normal')
OLEObject0.ExecProc ('Insert', 'This is line 1'+chr(13))
OLEObject0.ExecProc ('Insert', 'This is line 2')
OLEObject0.ExecProc ('FileSaveAs', 'C:\SAMPLE.DOC')
Q2:請問Memo元件沒有連接Table,資料如何清空呢?
A:因為Memo的內容是陣列,所以用AFILL(Memo0.lines,'')即可
Q3:請問可不可以將LookUpList的資料傳回到兩個欄位中
A:可在LookUpList的結束程序把值給另一欄位即可.
Q4:請問 Grid 中的 OnColExit 事件中,會在我跳出任何一 Field 就執行
有沒有辨法設定,只有在我跳出 Field1 時做其他都不做呢?
謝謝你們!
A:OnColExit 事件中,可判斷Grid0.col=1 時 才執行,
Q5小弟在一form中作查詢功能,以一個edit作輸入元件,以grid作為輸出結果,
以set filter 作過濾搜尋但為何一定以將set filter 的執行程序在botton中啟動才
會有效若下在edit的change...確不行呢?而且同一個作法在vd1.0中卻沒有問題.不知
各位先進可否點解....thanks
A:在Event()內取edit的值要用edit.edittext 不能用edit.text
Q6為什麼在一grid中的field有的不可更改其資料呢...是否和該field的資料表有關呢?該如何解決....
A:1.如果資料表有兩個時,GRID 只能針對一個資料表做修改,
你可以看 GRID 的資料表屬性。
2.如果該欄位為運算式時,不能修改。
Q7:請問我在form的layer1內做了一個editorpanel,將edit1的取代編輯器設為editorpanel該如何才能
將editorpanel的值傳回,並將layer1的editorpanel結束呢.....thanks...
A:editorpanel貼一Button,樣板設"確定",
執行程序assign(editorpanel.text,'xxx')即可
Q8:是否可以將 LIST 的左右鍵取消掉,留下上下鍵的功能就好??
因為使用List時,多半是用上下鍵來移動,將左右鍵取消掉可以
增加程式上的控制運用.
A:用Event()即可解決,在List的OnKeyDown執行以下程式即可
eventpara k1,k2
if k2=37 .or. k2=39
k2=0
endif
Q9:請問如何動態設定過帳之運算式...thanks...
A:用TransINVOSUBINVO.SourceExp='運算式'
Q10:grid之MultiSelect要如何得知覆選內容???
A:grid.selects[n] &&得知覆選內容
Q11:請問StatusBar的內容如何設定?
A:*先取得TVDStatusBar的Panels(項目)的值，
*這個屬性傳回一個P類型的物件TVDStatusPanels
P = StatusBar0.Panels
*假設要取得第n個"Panel"，
*請使用TVDStatusPanels的Items屬性
*Items屬性(帶一個參數)傳回一個P類型的物件TVDStatusPanel
P0 = P.Items(0)
P0.Text = 'Test Message'
Q12:為何edit0用lookuplist,lookuplist之結束程序為edit1.focused()
但lookuplist選完後,不會focused到edit1,
A:因為EDIT的取代編輯流程沒做完,
lookuplist結束後會先edit1.focused()
然後又edit0.focused()
Q13:可否動態設定LIST的目前反白項之位置
當我在做LIST反白所在位置向上置換時, 在置換後反白位置會向上移二筆,
且成虛線表現, 我希望可以讓USER連續向上置換位罝
我用X1=LIST.ITEMINDEX
X2=X1-1
LIST.ITEMS=...
.....
LIST.ITEMINDEX=X2
結果無效
A:如果list設定為複選,則itemindex當然設定會無效
Q14:請問如何動態增加List的內容,我用list1.insert()時,系統告訴我沒有提供?
A: 不是用list1.insert()
而是x=list0.items
x.insert()
Q15:STATUSBAR寬度如何設定,因其好像為固定寬度
A:X=StatusBar0.Panels
X.Width=100 即可
Q16:為何EDIT 內資料欄位為數值 長度＞4 時,無法使用微調模式
A:對不起!
微調模式在規格上只能接受Integer!
也就是數值5位以內,請見諒!
Q17:10/19的教育訓練有單選的範例程式
但不知複選時程式該如何修改？
A:可改成OnDragDrop事件內容：
Eventpara Sender,Source
X=Sender.Items
Y=Source.Items
N=GETREPL(Source.Text,',')
DO WHILE N>=0
X.Insert(0,GETPARA(Source.Text,N,','))
N=N-1
ENDDO
N=LEN(Y)
DO WHILE N>0
IF GETREPL(Source.Text,Y.items[N])>0
Y.delete(N-1)
ENDIF
N=N-1
ENDDO
Q18:請問用EMAIL元件收信後,信件的內容存在哪??
A:現在改存在mail.messages內
Q19:[TVDEdit](編輯欄位) 資料元件 的 OnChange (event) 好像有問題
在 OnChange 寫 LABEL0.CAPTION = EDIT0.TEXT
VD 20 不會正確SHOW出
A:你要改成 LABEL0.CAPTION = EDIT0.EDITTEXT
這是VD2.0在Edit元件中新增的屬性
Q20:是否有偵測focused edit中,目前游標所在位置,是那一函數或屬性??
A:有一屬性,edit.selstart memo.selstart
Q21:有關取代編輯器中不論是editpanel,lookuplist....等,可否得知是由那一個edit所呼叫.或是此
edit之名稱也可以.
A:你可設一公用變數xxx,然後在有設取代編輯器的EDIT起始程序
TEST()
external xxx
xxx=this && xxx.name 就是edit之名稱
return
Q22:在form上貼入一 edit0 ,在edit0 事件 OnKeyPress 寫如下
key()
If GetEvent(1)=13
Message(Edit0.Text)
DelForm('form')
Endif
為何EDIT0.TEXT是空白的
A:請需使用edit.edittext新屬性,Edit如果輸入後還沒離開edit
則edit.text玲叢內容,edit.edittext才是新內容
所以你說的情形是正常的
Q23:e-mail 元件, 傳送正常否, 是否有傳回值 ??
A:會傳回值(.t. or .f.)代表傳送成功否
Q24:在Navigator查詢資料時，是否能顯示查詢正確之資料，其餘不相關之資料可否不必顯示出來。
A:Navigator的查詢是用seek,所以只能seek到正確之資料
你應該用Table.while()過濾資料才對
Q25:如何做出拖曳的功能?例如在訂單輸入時電腦上有產品list或grid, 我想利用拖曳的方式將 產品資料拉入訂單中,請問如何做?
A:產品檔的元件須有拖曳模式的屬性,才能做出拖曳的功能
例如List元件拖曳模式設成"自動",然後用Event去控制Grid沒有拖曳模式的屬性
Q26:請問grid可否動態設定成不致能或不可改變RECNO()?
A:可以,Assign(grid0.enabled,0) &&不致能
Assign(grid0.enabled,1) &&致能
Q27:如何使 LOOKLIST 選定資料結束後,自動跳離原 EDIT 欄位進入下一
EDIT.
A:因為LOOKLIST是取代編輯器,在LOOKLIST 選定資料結束後
一定會回到EDIT,所以無解,除非你自己做取代輸入的form
Q28: 我用EDIT物件編輯一個欄位，但在輸入資料時游標於空欄位點選時（例如在中
:間點一下），為何游標不會自動靠左邊第一隔，而必須用手動把游標移到最前
:面，請問有何方法可解決！謝謝
A:Windows的標準操作是如此,所以你需自己控制
方法如下:
1.可設一公用變數xxx,在EDIT的起始程序Assign(xxx,'a')
2.EDIT的OnClick事件寫
external xxx
if xxx='a'
Edit0.selstart=0
xxx=''
endif
Q29:請問有無辦法設定multipage某一page是否顯示
A:沒有設定multipage某一page是否顯示的屬性，
但你可用adel(MultiPage0.Pages,2),就是刪除第2頁
只要Form沒存檔就沒真正刪除,但須注意切入設計模式
時需是沒刪除狀況,否則存檔就沒了
Q30:我用Combo 之元件建立一個Combo1之物件，而我又建立一個EDIT9之物件，
而我想把Combo1之內容傳至EDIT9之內容，於是寫了下面程式：
我在Combo1之結束程序中加入assign(combo1.text,edit9.text)，但發覺edit9.text
之內容為空白，為何？
A:1.assign(edit9.text,combol1.text)
Q31:在一對多的的資料設計當中, FORM的上半部貼有EDIT,
下半部是GRID. 讓操作者KEY入SEEK值,
GRID的TABLE馬上移到操作者所KEY入值的RECORD,
當GRID裡的TABLE筆數非常多的時候這個功能將很好用
A:可用一Edit設定成不顯示,來記錄目前輸入的值
Grid 的OnKeyDown 用Edit.text來Seek即可
可參考,地址精靈範例
Q32:請問filesel.style 的設值方法是
assign(FileSel0.Style,'存檔')
-或是-
assign(FileSel0.Style,存檔)
Ans:FileSel.Style 是N型態
0->開啟
1->新增
2->存檔
3->另存新檔
Q33:每一個FORM 都有它自己的 NAME
但是 MUTIPAGE 上為何找不到自己
的FORM NAME 呢?
A:你是問目前作用頁的名稱嗎?
如果是請用MultiPage0.ActivePage得知
Q34:memo元件要用什麼來清成空白
A:用ADEL(memo0.lines,1,'')!
Q35:請問Gauge使用方法
A:執行一較長的程序處理時，可以用Gauge元件顯示執行進度。
進度的百分比由[MaxValue](最大值)、[MinValue](最小值)和[Progress](進度)三者取得。
例如處理多筆資料
sele t1
Gauge.Progress=0
do while !eof()
..
.
...
skip
Gauge.Progress=Gauge.Progress+1
Gauge.Progress=(Gauge.Progress - Gauge.MinValue)/(Gauge.MaxValue - Gauge.MinValue))*100
enddo
Q36:Timer物件內的執行程序和OnTimer事件是不是一樣...
A:一樣
Q37:請問 Option 之內容(選項)項目如何動態刪除?
A:可用ADEL(Option0.Items,1,1)
七.SQL
Q1:請問一下,用sql拉入的資料庫,其欄位預設值是否不能寫成
substr(cust_name,1,10) ???
我有一個建立在SQL SERVER中的資料表,二個欄位,一個是 CUST_NAME ,
一個是 CUST_NA,然後在VD 中我開立一個SQL0,而資料集及資料表都設到遠
端的SQL SERVER,然後將這兩個欄位給拉到FORM上,
並且CUST_NA的預設值是 SUBSTR(CUST_NAME,1,10)
結果在執行時,當我編輯完CUST_NAME後,移到CUST_NA時
,系統會出現一錯誤訊息,說CUST_NA錯誤.....
可是後來我用TABLE的方法,也就是開立一個DBF,而其中的資
料集和資料表也是設到SQL SERVER上,結果就可以正常了....,為何?
A:你應該用substr(edit0.text,1,10)才對
edit0是cust_name
在SQL元件欄位的Buffer是sql0."cust_name",
所以substr(sql0."cust_name",1,10)也可以
Q2:以下是VD20HELP的內容:是不是有點錯誤...,我在執行時會出現3個錯誤身。
SQL0.Active=0
SQL0.SQL[1]="Select * from item"
SQL0.SQL[2]="where item_no>'3'"
SQL0.Active=1
A:VD2.0 改成SQL0.sqlExpression[1]="Select * from item"
Q3:我在表單中加入一個叫做SQL的資料表,
並在BUTTON的執行程序寫下下面的程式,
目的是要當使用者按下時可以將FA2D資料表中的YYMT欄位全部清成零
SQL.Send("UPDATE FA2D SET YYMT = 0")
為何會出現下面的錯誤訊息
"Error creating cursor handle"?
A:應該用SQL.EXECUTE("UPDATE FA2D SET YYMT = 0")
只有select 才可用SEND()
Q4:我設計一個sql form ,而正確資料比數為500筆,請問我寫下列sql語法為何只剩下
440筆語法如下:
SELECT * FROM CUSTOM AS CUSTOM WHERE CUSTOM.MASTER
like &('%' + trim(edit19.text) + '%')
經我查詢結果有10筆MASTER欄位是空白,請問語法要如何寫方能顯示出
原筆數500筆,又可查詢否則看起來原為500比一進入sql form
只剩下400筆.
A:你應該先判斷edit19.text是否為NULL,然後動態SEND() SQL,
if empty(edit19.text)
sql0.send("SELECT * FROM CUSTOM")
else
sql0.send("SELECT * FROM CUSTOM AS CUSTOM WHERE CUSTOM.MASTER
like &('%' + trim(edit19.text) + '%')")
endif
Q5:以下是我的SQL, & 號是我希望用變數來寫回去,可是會出現錯誤,請問要怎麼改??謝謝
X = NEWOBJ("TVDSQL"," ","IFA03"," ",.F.)
X.ACTIVE=0
X.SQLEXPRESSION[1] = "UPDATE FA2D"
X.SQLEXPRESSION[2] = "SET MOMT = &WKMAMT, ACMT = &WKACMT" X.SQLEXPRESSION[3] = "WHERE ARNO = &WKPDNO"
X.ACTIVE=1
DELOBJ(X)
A:你的寫法不對,
你應該貼一SQL元件,就不用NEWOBJ()
此元件可專門給EXECUTE()使用
然後SQL.EXECUTE("UPDATE FA2D SET MOMT .....")
才不會有錯誤訊息
Q6:用SQL精靈設計查詢時,加入Order欄位排序時,Navigator之功能表新增,刪除,
等功能都無法使用,請問要如何設定?
A:SQL加入Order欄位排序時,須是C/S的資料庫才能 新增,刪除,
Q7: SELECT * FROM MONEY WHERE CHECKNO = ' '
應該是會將CHECKNO欄位為空白的挑出來吧,
可是它都挑不到資料,除非我在CHECKNO欄位中編輯過,我的條件下錯了嗎?
A: SELECT * FROM MONEY WHERE CHECKNO is NULL 才對
Q8:你好,我有一個 TABLE 中有一個日期欄位 INDATE,現在要用 SQL 來挑出本月的資料,
怎麼下 SELECT
SELECT * FROM INVO WHERE INDATE ???
謝謝
A:日期欄位最好用C8處理
你用D type 要轉換
d1=dtos(date())
s1="SELECT * FROM INVO WHERE INDATE='"+substr(d1,1,4)
+"/"+substr(d1,5,2)+"/"+substr(d1,7,2)+"'"
sql.send(s1)
Q9:欄位MEMO型態在MSSQL要定成什麼形態呢?
A:可定成TEXT 型態
Q10:我開啟一個新的表單 (FORM)，呼叫出 <資料關聯視窗>，並切換至 SQL 這一頁，利用SQL精靈新增一個SQL0元件，<資料集> 為SEEK，按下 <新增> 鈕並選擇資料表 SEEK.DBF，再以滑鼠拖入所有欄位至 <SQL 編輯器> 後，按 <確定> 存檔並關閉精靈。
啟動SQL0 <物件編輯器> 將 <開啟> 屬性設為True。將SQL0元件的 <可否更改> 屬性設為True，在FORM上拉入一個GRID元件，並將SQL0元件內的欄位拉入GRID中。
在FORM上拉入一個NAVIGATOR元件，將其 <資料表> 設為SQL0。
以上步驟與SQL教學一樣，但我在欄位修改資料卻出現"不能對一個唯讀的資料表去運作"
是否能告知!
A:SQL0元件使用DBF,<可否更改> 屬性不能設為True(因為不支援)
只有類似SQL server大型資料庫(S/C)才能設為True
Q11:我在EDIT6之編輯欄位輸入06開頭之資料，卻查不到。
（我有設定定位格式為9999-99）
WHERE Seek.NO1 LIKE &(TRIM(EDIT6.TEXT) + '%')
如沒設定定位格式，則可查詢到，請問要如何解決？
謝謝賜教！
A:因為設定定位格式為9999-99後,雖然你只輸入06
EDIT6的內容已經是'06 -',所以查不到
你可加貼一EDIT7(不顯示),然後在EDIT6的結束程序
assign(edit7.text,strtran(edit6.text,'-',''))
SQL條件
WHERE Seek.NO1 LIKE &(TRIM(EDIT7.TEXT) + '%')
Q12. 我在SQL加入ORDER之運算式來排序，發現資料可查詢到但新增，刪除，
編輯等功能卻不能用，如把ORDER之運算式拿掉即可恢復功能，為何？
A:在select時才可使用order子句
Q13:當SQL物件 SELECT 到欄位名是POSITION時,
如果SELECT的TABLE是LOCAL DBF, 就會有問題,
如果是SQL SERVER的TABLE就沒有問題,
如果用TABLE.'POSITION'也不行...請問這是BUG嗎?
A:可改用select AAA,"POSITION",CCC from Table 即可
Q14:POSITION前後加雙引號要怎麼填入sql.sqlexpression裡呢?
A:應該是sql.sqlexpression[1]='select AAA,"POSITION",CCC from Table'
Q15:在 SQL 元件中
只有一組DatabaseName(資料集)
當 Form 的 Table 有兩個以上
而且都不同DatabaseName(資料集)
請問如何處理?
A:invo=vddemo
item=vddemo2
select * from invo,":vddemo2:item" from invo.item_no=item.item_no
其中的vddemo2為資料集，你sql的資料集設為vddemo即可
Q16:我想要在SQL編輯器加入一個自訂欄位,原來是產品編號的欄位10碼,我想要將第二碼的資料挑出來,我用substr(pdno,2,1)會出現錯誤,我該怎麼辦,我也用過right及left,一樣不行,是不是它不支援這樣的語法,我又要如何做...
A:SQL語法沒有substr(),但有substring(pdno from 2 for 1)
Q17::我在下 SQL 指令
如 SELECT A.NAME , A.TELE, SUM(QTY*PRICE) AS AMT
FROM A
這個指令可正常執行
但是我如果加上 GROUP BY A.NAME
就常會出現 'When Group by exists, every simple field
in projectors must be in broup by'
A:應該是加上 GROUP BY A.NAME,A.TELE才對
八.C/S
Q1:請教一個VD和CLIENT/SERVER的問題?
使用手冊上寫...在BDE中以新增MS-SQL來增加一資料庫...
可是當我設好後,要去連後端資料庫,卻會出現錯誤訊息...
於是我用新增SQL SERVER來增加一資料庫,就可以了...
請問我在設定上有可能在那裡設錯了呢?
註: MS-SQL 和 SQL SERVER中的設定全都一樣.....
A:在工作站WIN95中,必須安裝SQL SERVER中的CLIENT的工具,
如此才可使用MSSQL的方法去連結後端的資料庫....
Q2:在上C/S課程時, 在講義上有一段如下:
用SQL 在整理報表時, 有如下指令
SQL0.REACTIVE()
SQL0.GOTOP()
SELE SQL0
COPY TO TEMP IN VDDEMO
ITEM.REOPEN('VDDEMO','TEMP,'TEMP')
請問SQL0 的資料如果不COPY 出來, 是否在多人同時作業時,
會發生共用一個檔, 還是每一台Client 的 SQL0 都是各自獨立的?
THANK YOU !!!
A:每一台Client 的 SQL0 都是各自獨立的
上面的指令是說SQL資料可copy至local後,在整理
如果你不需要整理,當然不用REOPEN()
Q3:在SQL SERVER中的TABEL,我設了一個 "觸發器",即在新增時,會以
PRINT "新增觸發測試",顯示本文字...
經我在SQL SERVER中的 SQL QUERY中去做新增指令時,本觸發器會正常動作,
也就是會在結果視窗中顯示該文字.....
可是我在VD中,以資料控制器物件來新增資料時,卻看不到由後端"觸發器"動作的結果
,也就是在VD視窗中看不到該文字,請問...這是怎麼回事呢?
A:Trigger 無法傳給VD,只有 Stored Procedure才能傳回VD
沒有留言:
張貼留言