visual 6 0中文版語言參考手冊(cè)foxpro02

AddListIte AddObjectAddPropertyAddToSCC方法ADEL（）函數(shù)ADIR（）函數(shù)AELEMENT（）AERROR（）AFIELDS（）AFONT（）函數(shù)AfterBuild AfterCloseTable AfterDoc AfterRowColChang AGETCLASS（）AGETFILEVERSION（）函數(shù)AINS（）AINSTANCE（）ALEN（）函數(shù)Alias ALIAS（）函數(shù)Align Alignment _ALIGNMEN ALINES（）函數(shù)AllowAddNe AllowHeaderSizingAllowRowSizin 屬性AllowTabsALLTRIM（）函數(shù)ALTE TABLE-SQL命令A(yù)lwaysOnTop屬性AMEMBERS（）ANETRESOURCES（）函數(shù)AMOUSEOBJ（）ANSITOOEM（）APPEND命令A(yù)PPENDFROMAPPEN FRO ARRA APPEN GENERA APPEN MEM AddListIte ID值。語法Control.AddListItem(cItem [,nItemID][,nColumn])參數(shù)描述cItemnItemID指定一個(gè)整數(shù)，此值表示數(shù)據(jù)項(xiàng)在控件中唯一的ID。nItemID 可以指定的最大值為32,767。如果忽略參數(shù)nItemID，并且Sorted屬性設(shè)置為“真”(.T.)，則cItem 按字母順序添加到組合框或列表框的列表中；如果忽略參數(shù)nItemID，并且Sorted屬性設(shè)置為“假”(.F.)，則cItemnColum1當(dāng)RowSource屬性設(shè)置為0（無）時(shí)，可使用AddItem或AddListItem方法。 nItemID,這是一個(gè)與控件中數(shù)據(jù)項(xiàng)的唯一標(biāo)識(shí)ID相關(guān)的整數(shù)。除非指定了其他的nItemID 值，否則第一個(gè)數(shù)據(jù)項(xiàng)的nItemID 值為1。 nIndex,據(jù)項(xiàng)的nIndex值為1。應(yīng)用于組合框，列表框請(qǐng)參閱AddItem方法,Clear 方法,ListIndex屬性,ListItemID 屬性,RowSourceType屬性,RemoveItem 方法,Sorted屬性AddObject 運(yùn)行時(shí)，在容器對(duì)象中添加對(duì)象。語法object.AddObject(cName,cClass[, cOLEClass][,aInit1,aInit2 ...])參數(shù)描述cNamcClascOLEClas指定添加對(duì)象的OLE類。aInit1,aInit2指定傳給新對(duì)象的Init 事件的參數(shù)調(diào)用AddObject方法時(shí)，將觸發(fā)新添加對(duì)象的InitLoad事件在Init事件之前發(fā)生。當(dāng)用AddObject方法往容器中加入對(duì)象時(shí)，對(duì)象的Visible屬性設(shè)置為“假”F.)。因此您可以設(shè)置對(duì)象的屬性，而不看更改對(duì)象外觀時(shí)的一些中間效果。下面的示例介紹怎樣使用AddObjectAddObject方法往表單中加入一個(gè)Line控件和三個(gè)命令按鈕。Line控件和命令按鈕的Visible 屬性設(shè)置為“真”(.T.)。在默認(rèn)情況下，將對(duì)象或控件添加到表單后，它們是不可見的。frmMyForm=CREATEobject('Form &&創(chuàng)建表單frmMyForm.Closable=.F &&廢止控件菜單框frmMyForm.Addobject('shpLine','Line')&&在表單中添加Line控件frmMyForm.Addobject('cmdCmndBtn1','cmdMyCmndBtn1')&&向上命令按鈕frmMyForm.Addobject('cmdCmndBtn2','cmdMyCmndBtn2')&&向下命令按鈕frmMyForm.Addobject('cmdCmndBtn3','cmdMyCmndBtn3')&&退出命令按鈕frmMyForm.shpLine.Visible=.T &&設(shè)置Line控件可見frmMyForm.shpLine.Top=2 &&指定Line控件所在的行frmMyForm.shpLine.Left=12 &&指定Line控件所在的列frmMyForm.cmdCmndBtn1Visible=.T & frmMyForm.cmdCmndBtn2Visible=.T &&使向下命令按鈕可視frmMyForm.cmdCmndBtn3Visible=.T &&使退出命令按鈕可視frmMyForm.SHO &&顯示表單READEVENT &&開始事務(wù)處理DEFINECLASScmdMyCmndBtn1ASCOMMANDBUTTO &&創(chuàng)建命令按鈕Caption='Slant\<Up&&命令按鈕的標(biāo)題Left=50&&命令按鈕所在的列Top=100&&命令按鈕所在的行Height=25&&命令按鈕的高度PROCEDUREClickThisForm.shpLine.Visible=.F &&隱藏LineThisForm.shpLine.LineSlant='/' &&ThisForm.shpLine.Visible=.T &&顯示LineENDDEFINDEFINECLASScmdMyCmndBtn2ASCommandButto &&創(chuàng)建命令按鈕Caption='Slant\<Down&&命令按鈕的標(biāo)題Left=200&&命令按鈕所在的列Top=100&&命令按鈕所在的行Height=25&&命令按鈕的高度PROCEDUREClickThisForm.shpLine.Visible=.F. &&隱藏Line控件ThisForm.shpLine.LineSlant='\' && ThisForm.shpLine.Visible=.T. && 顯示Line控件ENDDEFINDEFINECLASScmdMyCmndBtn3ASCommandButto &&創(chuàng)建命令按鈕Caption='\<Quit'&&命令按鈕的標(biāo)題Cancel=.T&&默認(rèn)的取消(ESC命令按鈕Left=125&&命令按鈕所在的列Top=150&&命令按鈕所在的行Height=25&&命令按鈕的高度PROCEDUREClickCLEAREVENT &&結(jié)束事件處理，關(guān)閉表單ENDDEFIN應(yīng)用于_SCREEN，工具欄請(qǐng)參閱Init 事件,Loa 事件,RemoveObject方法,Visible 屬AddProperty向一個(gè)對(duì)象添加一個(gè)新屬性。語法Object.AddProperty(cPropertyName[,eNewValue])返值類型邏輯值參數(shù)描述cPropertyNameNewValu指定新屬性的設(shè)置值。如果省略eNewValue，如果該屬性已經(jīng)存在，或者新屬性設(shè)置為“假”(.F.)，則新屬性的值不變。AddProperty（）PUBLI 屬性。如果該屬性成功添加到對(duì)象中，AddProperty（）返回一個(gè)邏輯值“真”T；否則返回一個(gè)邏輯值“假”(.F.)MyForm=CREATEObject('Form'MyForm.AddProperty('MyArray(21 &&增加一個(gè)數(shù)組屬性MyForm.MyArray(2)='Two'CLEAR?oMyForm.MyArray(1 &&顯示?oMyForm.MyArray(2 &&顯示(.T.)。如果所指定的屬性名稱已經(jīng)存在，將返回一個(gè)如下值：真(.T.)新設(shè)置為新數(shù)組的大小。如果用eNewValue指定了值，數(shù)組中的所有元素都設(shè)置為該值。如果省略了eNewValue，所有的數(shù)組元素都設(shè)置為假(F)真(.T.)組屬性。如果用eNewVValue果省略了eNewValue，數(shù)組元素保持不變。真(.T.)。如果新屬性不是數(shù)組屬性并且現(xiàn)有的屬性也不是數(shù)組屬性或只讀的VisualFoxPro本地屬性。如果用eNewValue指定了值，現(xiàn)有的屬性都設(shè)置為該值。如果省略了eNewVValue，現(xiàn)有的屬性值保持不變。假(F)不變。如果現(xiàn)有的屬性是只讀的VisualFoxPro本地屬性，例如BaseClass屬性時(shí)，將出現(xiàn)“屬性<屬性Nae>是只讀的”錯(cuò)誤信息。如果屬性名稱是無效的屬性名稱包括了空格或其他非法字符），將出現(xiàn)“不正確的屬性名稱”的錯(cuò)誤信息。于ActiveDoc，復(fù)選框，列，組合框，命令按鈕，命令按鈕組，容器對(duì)象，控件對(duì)象，臨時(shí)表對(duì)標(biāo)簽，線條，列表框，OLE綁定型控件，OLE容器控件，選項(xiàng)按鈕，選項(xiàng)按鈕組，頁接對(duì)象，關(guān)系對(duì)象，屏幕，分隔符對(duì)象，形狀，微調(diào)，文本框，計(jì)時(shí)器，工具欄請(qǐng)參閱DEFIN CLASS,NewObjec 方法,SaveA 方法,SaveAsClass方AddToSC 將項(xiàng)目中的一個(gè)文件添加到源代碼管理器。語法Objcet.AddToSCC(T.)。如果該文件不能添加到源代碼管理器，或者項(xiàng)目不在源代碼管理器中，則返回“假”(.F.)。應(yīng)用于文件對(duì)象請(qǐng)參閱CheckIn方法,CheckOu 方法,GetLatestVersion方法,RemoveFromSC 方法UndoCheckOutADEL（）從一個(gè)數(shù)組中刪除一個(gè)、一行或一列元素。語法ADEL(ArrayName,nElementNumber[,2])返值類型數(shù)值型參數(shù)描述ArrayNam指定一個(gè)數(shù)組，ADEL（）nElementNumbe列，必須包含可選參數(shù)2。DIMENSION2組的起始方向移動(dòng)，并把最后一個(gè)元素、行或列設(shè)置為“假”.F.)。1。示例CLOSEDATABASEOPENDATABASE(HOME(2)+'Data\testdata')USEcustomer &&打開customer表SELECTcompanyFROMcustomerWHEREcountry='UK'INTOARRAYgaCompaniesgnCount=_TALLYgcName='SevenSeasImportsCLEADISPLAYMEMORYLIKEgaCompaniegnPos=ASCAN(gaCompanies,gcName) &&搜索公司名IFgnPos!=*Companyfound,removeitfromthearra gaCompanies,gnPosgnCount=gnCount-1ENDIDISPLAYMEMORYLIKEgaCompanie請(qǐng)參閱ACOPY(),ADIR(),AELEMENT(),AFIELDS(),AINS(),ALEN(),ASCAN()ASORT(),ASUBSCRIPT(),DIMENSIOADIR（）將文件信息存放到數(shù)組中。語法ADIR(ArrayName[, cFileSkeleton [, cAttribute]])返值類型數(shù)值型參數(shù)描述ArrayNam指定數(shù)組名。如果數(shù)組不存在，Visual FoxPro將自動(dòng)創(chuàng)建此數(shù)組。如果數(shù)組存在，但其大小不足以包含所有信息，則Visual FoxPro自動(dòng)增加數(shù)組大小，使得數(shù)組能容納所有信息。如果數(shù)組超過了所需大小，Visual FoxPro 將截掉多余部分。如果數(shù)組存在，并且ADIR（）函數(shù)由于沒找到匹配文件而返回0，則數(shù)組保持不變。如果數(shù)組不存在，并且ADIR（）函數(shù)返回零，則不創(chuàng)建數(shù)組。 數(shù)組內(nèi) 數(shù)值類 文件 字符 文件大 數(shù)值 文件日 日期4文件時(shí)間字符型5文件屬性字符型個(gè)屬性。下表說明每個(gè)字母表示的文件屬性含義：字 屬A檔案文件可讀寫H隱藏文件 只讀文件 系統(tǒng)文件 目錄cFileSkeleto指定文件梗概，以便存儲(chǔ)滿足搜索條件的文件名或擴(kuò)展名的文件信息。例如，條件可以是所有表、所有文本文件、所有文件名第一個(gè)字母為“A”的文件，等等。這些通配查詢?cè)赾FileSkeleton 中可以包含通配符*和?。其中意個(gè)數(shù)的通配符。目錄名，將把當(dāng)前目錄下的文件信息存入數(shù)組中。CAttributeCAttribute可以是D、H 和S的任意組合。如果包含D，除了返回匹配cFileSkeleton的文件名外，還將返回當(dāng)前目錄的子目錄或當(dāng)前文件夾的嵌套文件夾。如果包含H，將返回與cFileSkeleton指定相匹配的隱藏文件信息。如果包含S，將返回與cFileSkeleton指定通配文件名相匹配的系統(tǒng)文件信息。如果cFileSkeletonCAttribute 參數(shù)中包含字符V，將返回當(dāng)前驅(qū)動(dòng)器的卷名。如果 和D、 或S一起說明對(duì)于每一個(gè)文件，ADIR（）示例ADIR()CLOSEDATABASESETPATHTO(HOME(2)+‘DatagnDbcnumber=gaDatabase,‘*.DBC’&&創(chuàng)建數(shù)CLEAFORnCount=1TOgnDbcnumbe &&循環(huán)數(shù)據(jù)庫的編號(hào)?gaDatabase(nCount,1 &&顯示數(shù)據(jù)庫名稱ENDFOSETPATHTOHOME（）&&設(shè)置VisualFoxPro目錄的路徑請(qǐng)參閱 ,AELEMENT(),AFIELDS(),AINS(),ALEN()ANETRESOURCES(),ASCAN(),ASORT(),ASUBSCRIPT(),DIMENSIONDI 或DIRECTORAELEMENT（）由元素下標(biāo)返回?cái)?shù)組元素的編號(hào)。語法AELEMENT(ArrayName,nRowSubscript[,nColumnSubscript])返值類型數(shù)值型參數(shù)描述ArrayNamNRowSubscrip指定行下標(biāo)。如果數(shù)組為一維數(shù)組，AELEMENT（）函數(shù)的返回值為nRowSubscript如果僅有參數(shù)nRowSubscriptNColumnSubscripVisua FoxPronRowSubscriptColumnSubscript兩個(gè)參數(shù)。另一種方法則給出單個(gè)元素的編號(hào)。在第一種方法中提供元素的行和列下標(biāo)后，AELEMENT（）函數(shù)能返回元素的編號(hào)。VisualFoxPro函數(shù)ADEL(、ADIR()、AFIELDS(、AINS(、ALEN()、ASCAN()ASORT（）和ASUBSCRIPT（）AELEMENT（）ASUBSCRIPT（）下面的示例說明了如何創(chuàng)建一個(gè)具有二行三列的數(shù)組。DISPLAY MEMORY命令按元素編號(hào)順序顯示每個(gè)元素的內(nèi)容。DIMENSIONgaMyArray(2,3DISPLAYMEMORYLIKEgaMyArragaMyArra(1,1

Pu .F.(elementnumber1(12L.F(elemennumbe2(13L.F(elemennumbe3(21L.F(elemennumbe4(22L.F(elemennumbe5(23L.F(elemennumbe6—個(gè)元素可通過下標(biāo)或編號(hào)來引用。命令STORE INVOICE’TOgaMyArray(2,1)和STOREIVOICE’TOgaMyArray(4)都將字符串INVOICE存入同一數(shù)組元素中。在一維數(shù)組中，元素編號(hào)與行下標(biāo)相同。因此對(duì)于一維數(shù)組，沒有必要使用AELEMENT（）函數(shù)。請(qǐng)參閱ADEL(),ADIR(),AFIELDS(),AINS(),ALEN(),ASCAN(),ASORT()ASUBSCRIPT(),DIMENSION,DISPLA MEMORAERROR（）創(chuàng)建一個(gè)變量數(shù)組，數(shù)組中包含最近的VisualFoxPro、OLE或ODBC的錯(cuò)誤信息。語法AERROR(ArrayNam返值類型數(shù)值型參數(shù)描述ArrayNam指定AERROR（）AERROR（）下表描述了VisualFoxPro產(chǎn)生錯(cuò)誤時(shí)，數(shù)組中每個(gè)元素的內(nèi)容。當(dāng)發(fā)生VisualFoxPr錯(cuò)誤時(shí)，數(shù)組只有一行。元素編號(hào) 說明 數(shù)值型，這是一個(gè)錯(cuò)誤編號(hào)，與ERROR（）函數(shù)返回的值相同。 字符型，錯(cuò)誤文本信息，與MESSAGE（）函數(shù)返回的值相同。 null 本信息，與SYS(2018)的返回值相同。 null null 值，但是當(dāng)觸發(fā)失敗時(shí)（錯(cuò)誤1539），包含下列數(shù)值之一：–更新觸發(fā)失敗。– null 值。 null 值。下表描述了發(fā)生OLE錯(cuò)誤1427和1429時(shí)各元素的內(nèi)容。當(dāng)這些OLE錯(cuò)誤發(fā)生時(shí)，數(shù)組只有一行。元素編號(hào)說明1數(shù)值型，為14271429 字符型，VisualFoxPro的錯(cuò)誤信息文本。 字符型，OL 錯(cuò)誤信息文本 字符型，應(yīng)用程序名（例如，MicrosoftExcel）。 null 錯(cuò)誤的名，否

信息，則此則為null

處包含應(yīng)用程序中保存這些信息的幫助文件。 如果能從應(yīng)用程序中得到有關(guān)信息，此處存放相應(yīng)幫助主題的幫助文本中的主題標(biāo)識(shí)，否則為null 值。. 數(shù)值型，OL 2.0的異常編號(hào)下表描述了發(fā)生ODBC錯(cuò)誤1526時(shí)各元素的內(nèi)容。當(dāng)發(fā)生 ODBC錯(cuò)誤時(shí)，數(shù)組可能包含兩行或更多行，每一行為一個(gè)ODBC錯(cuò)誤。元素編 說 數(shù)值型.為1526. 字符型，錯(cuò)誤信息文本。續(xù)表 字符型，ODB 錯(cuò)誤信息文本 字符型，當(dāng)前的ODB SQL狀態(tài) 數(shù)值型，ODB 數(shù)據(jù)源的錯(cuò)誤編號(hào) 數(shù)值型，ODB 連接句柄 null 值。錯(cuò)誤信息的數(shù)組，并且顯示此信息。示例下面的示例運(yùn)用ONERROR指定了名稱為errhand的錯(cuò)誤處理例程。錯(cuò)誤是由發(fā)出拼寫錯(cuò)誤的命令(BRWS 引起的ONERRORDOerrhan &&errhand是一個(gè)錯(cuò)誤處理程序BRW &&產(chǎn)生語法錯(cuò)誤ONERRO &&恢復(fù)系統(tǒng)錯(cuò)誤處理程序PROCEDUREerrhan=aErrorArray&&反映最新錯(cuò)誤的數(shù)CLEA?'Theerrorprovidedthefollowinginformation &&顯示信息FORn=1TO &&顯示數(shù)組的所有元素?aErrorArray(n)ENDFOR請(qǐng)參閱COMRETURNERROR(),CREATE TRIGGER,ERROR(),MESSAGE(),ONERROR,SYS(2018)AFIELDS（）語法AFIELDS(ArrayName[,nWorkArea |cTableAlias])返值類型數(shù)值型參數(shù)描述ArrayNam指定的數(shù)組名，將表結(jié)構(gòu)信息存放在這個(gè)數(shù)組中。如果AFIELDS（）函數(shù)指定的數(shù)組不存在，Visual FoxPro將自動(dòng)創(chuàng)建此數(shù)組。如果數(shù)組存在，但大小不足以包含AFIELDS（）函數(shù)返回的所有信息，Visual FoxPro將自動(dòng)增加數(shù)組大小，使數(shù)組能容納所有信息。nWorkAreacTableAlias如果省略參數(shù)nWorkArea和cTableAlias，將把當(dāng)前選定工作區(qū)中的表結(jié)構(gòu)信息存入數(shù)組中。列號(hào)字段信息數(shù)據(jù)類型1字段名字符型2字段類型字符型C=字符型D=日期型L=邏輯型M= 備注型 =數(shù)值型F= 浮點(diǎn)型I= =雙精度型Y=貨幣型 =日期時(shí)間型G=通用型3字段寬數(shù)值型4小數(shù)點(diǎn)位數(shù)數(shù)值型5是否允許null值邏輯型6是否不允許代碼轉(zhuǎn)化邏輯型7字段有效性規(guī)則字符型續(xù)表8字段有效性說明字符型9字段默認(rèn)值字符型1表有效性規(guī)則字符型1表有效性說明字符型1長(zhǎng)表格名稱字符型1插入觸發(fā)器表達(dá)式字符型1更新觸發(fā)器表達(dá)式字符型1刪除觸發(fā)器表達(dá)式字符型1表格注釋字符型AFIELDS（）函數(shù)返回表的字段數(shù)。數(shù)組包含11列，行數(shù)與表中字段數(shù)相同。使用COPYSTRUCTUREEXTENDED命令可以將類似的信息復(fù)制到一個(gè)表而不是一個(gè)數(shù)組中。下面的示例創(chuàng)建了名稱為gaMyArray的數(shù)組，它包含了關(guān)于customer表格的字段信息，并且顯示了字段名稱。CLOSEDATABASEOPENDATABASE(HOME(2)+'Data\testdata'USECustome &&打開customergnFieldcount=gaMyArray&&創(chuàng)建數(shù)CLEAFORnCount=1TOgnFieldcoun?gaMyArray(nCount,1 &&顯示字段名稱ENDFO請(qǐng)參閱ADEL(),ADIR(),AELEMENT(),AINS(),ALEN(),ALTERTABLE-SQL,ASCAN(),ASORT(),ASUBSCRIPT(),COPYSTRUCTUREEXTENDED,CREATE,CREATETABLE,DIMENSIONAFONT（）將可用字體的信息放到一個(gè)數(shù)組中。語法AFONT(ArrayName[,cFontName[,nFontSize]])返值類型邏輯型參數(shù)描述ArrayNamVisual FoxPro將自動(dòng)增加數(shù)組大小。如果指定的是已有的二維數(shù)組，VisualFoxPro 將把數(shù)組轉(zhuǎn)化為一維數(shù)組。如果創(chuàng)建數(shù)組成功，則AFONT（）函數(shù)的返回值為“真”T，否則返回值為“假”(.FcFontNam如果指定字體僅支持離散的字體尺寸大?。?磅、10磅...），這些字體尺寸大小將存入數(shù)組，并且AFONT（）函數(shù)的返回值為“真”(.T.)。如果參數(shù)cFontName指定的字體為可縮放的（支持連續(xù)字體大小值），數(shù)組中將包含一個(gè)值為-1的元素，并且AFONT（）函數(shù)的返回值為“真”(.T.)如果指定了無效的字體名，將不創(chuàng)建數(shù)組并且AFONT（）函數(shù)返回“假”.F.)nFontSiz指定字體cFontName的大小。如果指定的cFontSize對(duì)字體FontName可用，則數(shù)組將包含一個(gè)值為“真”(.T.)的元素，并且AFONT（）函數(shù)返回“真”.T.)。如果指定的字體大小對(duì)指定字體無效，將不創(chuàng)建數(shù)組并且AFONT（）函數(shù)返回“假”F.)。說明AFONT（）函數(shù)將可用字體的名稱存放在數(shù)組中，此函數(shù)還可用于確定有效的字體大小或字體是否可縮放。用GETFONT（）函數(shù)可以顯示包含有效字體、字體大小和樣式信息的對(duì)話框。下面的示例運(yùn)用AFONT()體的名稱和示范。如果安裝了10種以上的字體，將只顯示前10種。CLEA=gaFontArray&&包含字體名稱的數(shù)gnNumFonts=ALEN(gaFontArray &&字體編號(hào)IFgnNumFonts>1gnNumFonts=1 &&顯示前10種字體ENDIFORnCount=1TOgnNumFont?ALLTRIM(gaFontArray(nCount &&顯示字體名稱?? Thisisanexampleof'+ALLTRIM(gaFontArray(nCount))FONTgaFontArray(nCount),8ENDFOR請(qǐng)參閱FONTMETRIC(),GETFONT(),TXTWIDTH(),SYSMETRIC(),WFONT(AfterBuild 當(dāng)重新連編一個(gè)項(xiàng)目之后，或者從一個(gè)項(xiàng)目創(chuàng)建一個(gè)應(yīng)用程序文件(.app)、動(dòng)態(tài)鏈接庫(.dll)或可執(zhí)行文件(.exe) 之后發(fā)生。PROCEDURE Object.AfterBuild[LPARAMETERS nError]參數(shù)描述nErro本參數(shù)是當(dāng)重新連編一個(gè)項(xiàng)目之后或創(chuàng)建一個(gè)app、dll或.exe文件之后，VisualFoxPro返回的錯(cuò)誤代碼。如果nError為0，當(dāng)重新連編一個(gè)項(xiàng)目時(shí)或創(chuàng)建一個(gè).app、dll或.exe文件時(shí)就不會(huì)發(fā)生錯(cuò)誤。應(yīng)用于項(xiàng)目掛接對(duì)象請(qǐng)參閱BeforeBuild事件,BuildAfterCloseTable 語法PROCEDUR DataEnvironment.AfterCloseTable對(duì)于表單或表單集，AfterCloseTable事件發(fā)生在表單集或表單的Unload事件發(fā)生之后，另外還發(fā)生在由數(shù)據(jù)環(huán)境打開的表或視圖關(guān)閉之后。對(duì)于報(bào)表，AfterCloseTable何時(shí)候調(diào)用CloseTables方法，都會(huì)發(fā)生AftercloseTables事件。AfterCloseTable事件發(fā)生后，將發(fā)生數(shù)據(jù)環(huán)境和其相關(guān)對(duì)象的Destroy事件。應(yīng)用于數(shù)據(jù)環(huán)境請(qǐng)參閱CloseTables方法,Destroy事件,Unload事件AfterDock停放工具欄后，將發(fā)生此事件。語法PROCEDURE ToolBar.AfterDock[LPARAMETERS nIndex]參數(shù)描述nInde當(dāng)用戶停放一個(gè)工具欄或調(diào)用Dock方法時(shí)，發(fā)生AfterDock事件。應(yīng)用于BeforeDoc 事件,Doc 方法,Undoc 事AfterRowColChange當(dāng)用戶移到表格的另一行或列時(shí)，新單元獲得焦點(diǎn)以及新行或列中對(duì)象的When事件發(fā)生后，發(fā)生此事件。如果新行或列中對(duì)象的When事件不返回“真”T.)，則不觸發(fā)AfterRowColChange事件。PROCEDURE Grid.AfterRowColChangeLPARAMETERS nColIndex參數(shù)描述nColIndex觸發(fā)AfterRowColChange或調(diào)用ActivateCell方法。表格ActivateCell 方法,BeforeRowColChang 事件,When事AGETCLASS（）在“打開”語法AGETCLASS(ArrayName[,cLibraryNam [,cClassName[,cTitleText[,cFileNameCaption[,cButtonCaption]]]]])返值類型邏輯型參數(shù)描述ArrayNam指定數(shù)組的名稱，在該數(shù)組中保存類庫和類的名稱。如果所指定的數(shù)組不存在，Visual FoxPro會(huì)自動(dòng)創(chuàng)建該數(shù)組。如果該數(shù)組存在，但是大小不足以容納類庫和類的名稱，則Visual FoxPro自動(dòng)增加該數(shù)組的大小。如果該數(shù)組比所需的要大，則Visual FoxPro 會(huì)截短該數(shù)組。如果該數(shù)組存在，并且由于關(guān)閉了“類庫”對(duì)話框（通過按ESC 鍵、選擇了“取消”命令或單擊了“關(guān)閉”按鈕）而使AGETCLASS（）返回了“假”(.F.)，則該數(shù)組保持不變。如果該數(shù)組不存在，并且AGETCLASS（）返回了“假”.F.)，則不創(chuàng)建該數(shù)組。下表列出了當(dāng)選擇一個(gè)類時(shí)所創(chuàng)建數(shù)組的每個(gè)元素的內(nèi)容。元素 內(nèi)容 所選類庫的名稱。 所選類庫的名稱。cLibraryNam指定當(dāng)顯示“打開”對(duì)話框時(shí)初始選中的類庫的名稱。所指定的類庫的名稱顯示在“文件名”文本框中。如果所指定的類庫不存在，或者cLibraryName是空字符串或null 值，則會(huì)產(chǎn)生一個(gè)錯(cuò)誤。cClassNam定的類不存在，則選中“類名”列表中的第一個(gè)類。如果省略cLibraryName，或cClassName是null 值，則會(huì)產(chǎn)生一個(gè)錯(cuò)誤cTitleTex開”。cFileNameCaptio名”。cButtonCaption指定O 按鈕的標(biāo)題如果您選擇了一個(gè)類，則AGETCLASS（）返回“真“.T.)，并且創(chuàng)建一個(gè)包含兩個(gè)元素的一維數(shù)組。第一個(gè)元素包含所選類庫的名稱；第二個(gè)元素包含所選類的名稱。如果退出了“類庫”對(duì)話框（通過按ESC鍵、選擇了“取消”命令或單擊了“關(guān)閉”按鈕），則返回“假”T.)。示例下面的示例創(chuàng)建了一個(gè)名為aClassLibSamples。AGETCLASS()顯示帶有Buttons類庫和選定的VCR類的對(duì)話框。如果選擇了“修改”按扭，類庫的名稱和選定的類將存儲(chǔ)在數(shù)組中。然后在“類設(shè)計(jì)器”中打開類。LOCALaClassLib2 &&創(chuàng)建一個(gè)數(shù)組，初始化為.FcCurrentDir=CURDIR（）&&保存當(dāng)前目錄CDHOME(2)+'CLASSES' &&轉(zhuǎn)換目錄aClassLibBUTTONSVCXVCRModifyClass;'ClassFile:','Modify'&&顯示對(duì)話框CD(cCurrentDir &&轉(zhuǎn)換到先前目錄IFTYPEaClassLib(2='C &&選擇了類？MODIFYCLASS(aClassLib(2))OF(aClassLib(1 &&打開并修改ENDI請(qǐng)參閱ACLASS(),AMEMBERS(),AVCXCLASSES(),CREAT CLASAGETFILEVERSION（）創(chuàng)建一個(gè)數(shù)組，其中包含有關(guān)文件的Windows版本資源的信息，例如.exe、dll和fl文件，或在VisualFoxPro中創(chuàng)建的自動(dòng)服務(wù)文件。語法AGETFILEVERSION(ArrayName,cFileNam返值類型數(shù)值型參數(shù)描述ArrayNam指定數(shù)組的名稱，在該數(shù)組中放置文件信息。所指定的數(shù)組不存在，VisualFoxPro 會(huì)自動(dòng)創(chuàng)建該數(shù)組。如果該數(shù)組存在，但是大小不足以容納文件信息，則Visua FoxPro自動(dòng)增加該數(shù)組的大小。如果該數(shù)組比所需的要大，Visua FoxPro會(huì)截短該數(shù)組。元素內(nèi)容1注釋2公司名3文件說明4文件版本5內(nèi)部名稱6合法版權(quán)7合法商標(biāo)8原有文件名9私有連編1產(chǎn)品名1產(chǎn)品版本1特殊連編OLE自注冊(cè)（"OLESelfRegister"；否則包含空字符串語言（從導(dǎo)出翻譯代碼。例如，可以用以下代碼來判斷VisualFoxPro可執(zhí)行文件的LocaleID：DIMENSIONaFiles[1AGETFILEVERSION(aFiles,”VFP6.EXE”?EVAL(“0x”+LEFT(aFiles[15],4)**Returns1033forUSversiocFileNam通常，AGETFILEVERSION（）用于獲得文件的Windows版本資源的信息，例如.exe、dll和fll文件，或在VisualFoxPro中創(chuàng)建的自動(dòng)服務(wù)文件。為了獲得Windows版本資源，必須在“EXE版本”對(duì)話框中為一個(gè)VisualFoxPro自動(dòng)服務(wù)程序至少指定一項(xiàng)。AGETFILEVERSION（）返回?cái)?shù)組的元素?cái)?shù)。如果所指定的文件沒有Windows版本資源，會(huì)返回零，并且數(shù)組（如果已經(jīng)創(chuàng)建）保持不變。AGETFILEVERSION（）最小可以截短為5個(gè)字符。請(qǐng)參閱ADIR(,DIR或DIRECTORAINS（）語法AINS(ArrayName,nElementNumber[, 2])返值類型數(shù)值型參數(shù)描述ArrayNamNElementNumbe（或列）處插入新元素。若要往一維數(shù)組中插入新元素時(shí)，請(qǐng)包含參數(shù)ArrayName和插入位置nElementNumber，新元素插到元素nElementNumber前。若要往二維數(shù)組中插入行時(shí)，請(qǐng)包含參數(shù)ArrayName和行號(hào)nElementNumber，新行正好插到參數(shù)nElementNumber指定的行前。有關(guān)用下標(biāo)引用數(shù)組元素列的詳細(xì)內(nèi)容，請(qǐng)參閱DIMENSION2nElementNumber指定的列前。往數(shù)組中插入一個(gè)元素、一行或一列，并不改變數(shù)組大小。后續(xù)的元素、行或列將依次往數(shù)組末尾移一步，并丟棄數(shù)組中最后一個(gè)元素、一行或一列的數(shù)據(jù)。新插入的元素、行或列初始化為“假”.F.)。如果元素、行或列成功地插入到數(shù)組中，則AINS（）函數(shù)返回1。示例下面的示例創(chuàng)建并用公司名稱填充一個(gè)數(shù)組，還在數(shù)組中查找指定的公司名稱。如果沒有找到，則在數(shù)組中插入遺漏的公司名稱。CLOSEDATABASEOPENDATABASE(HOME(2)+‘Datatestdata’)USEcustomer &&打開customer表SELECTcompanyFROMcustomerWHEREcountry=‘Germany’INTOARRAYgaCompaniegnCount=_TALLgcName=‘SevenSeasImportsCLEADISPLAYMEMORYLIKEgaCompanieIFASCAN(gaCompanies,gcName)= &&查找公司***Companynotfound-addit**DIMENSIONgaCompanies[gnCount+1,1=gaCompanies,gnCount-1gaCompanies[gnCount-1]=gcNameENDIDISPLAYMEMORYLIKEgaCompanie請(qǐng)參閱ACOPY(),ADEL(),ADIR(),AELEMENT(),AFIELDS(),ALEN()ASCAN(),ASORT(),ASUBSCRIPT(),DIMENSIOAINSTANCE（）語法AINSTANCE(ArrayName,cClassName返值類型數(shù)值型參數(shù)描述ArrayNamVisualFoxPro將自動(dòng)創(chuàng)建指定VisualFoxPro加數(shù)組大小，使數(shù)組能容納所有實(shí)例。如果數(shù)組大小大于所需值，VisualFoxProAINSTANCE（）函數(shù)的返回值為0AINSTANCE（）函數(shù)的返回值為0，將不創(chuàng)建指定數(shù)組。只有用CREATEOBJECT（）CClassNam指定VisualFoxProcClassName指定的VisualFoxPro基類?；惷QActiveDoCheckBoColumComboBoCommandButtoCommandGrouContaineControCursoCustoDataEnvironmenEditBoForFormSeGridHeadeHyperlinImagLabeLinListBoOLEBoundControOLEControOptionButto續(xù)表OptionGrou Pag PageFramProjectHoo Relatio SeparatoShap Spinne TextBoTime ToolBa在下面的示例中，將用CREATEOBJECT（）函數(shù)創(chuàng)建VisualFoxPro表單基類的兩個(gè)實(shí)例。然后用AINSTANCE（）函數(shù)創(chuàng)建數(shù)組 ，數(shù)組中包括每個(gè)表單實(shí)例的變量引用（ ）。最后顯示數(shù)組的內(nèi)容。CLEARALgoINSTANCE1=CREATEOBJECT(‘Form’)goINSTANCE2=CREATEOBJECT(‘FormCLEA gaMyArray‘Form’ &&返回2,兩個(gè)表單間距DISPLAYMEMORYLIKEgaMyArray &&顯示內(nèi)容請(qǐng)參閱ADDCLASS,AMEMBERS(),CREATECLASS,CREATECLASSLIBCREATEOBJECT(),DEFINECLASALEN（）返回?cái)?shù)組中元素、行或列的數(shù)目。語法ALEN(ArrayName[,nArrayAttribute])返值類型數(shù)值型參數(shù)描述ArrayNamALEN（）NArrayAttribute確定ALEN（）NArrayAttribute 可以取值為0、1或2指定返回?cái)?shù)組元素?cái)?shù)目。省略nArrayAttribute與指定nArrayAttribute 0作用相同指定返回?cái)?shù)組的行數(shù)。續(xù)表ALEN（）函數(shù)返回（沒有列）。下面的示例用AFONT(創(chuàng)建了一個(gè)包含所有可用字體的名稱的數(shù)組。ALEN（）可用于判斷數(shù)組的行數(shù)。將顯示每個(gè)字體名稱和示范。如果安裝了10種以上的字體，則只顯示前10CLEA=AFONT(gaFontArray &&包含可用字體名稱的數(shù)組gnNumFonts=gaFontArray&&字體名IFgnNumFonts>1gnNumFonts=1 &&顯示前10種字體ENDIFORnCount=1TOgnNumFont?ALLTRIM(gaFontArray(nCount &&顯示字體名稱?? Thisisanexampleof'+ALLTRIM(gaFontArray(nCount))FONTgaFontArray(nCount),8ENDFOR請(qǐng)參閱ADEL(),ADIR(),AELEMENT(),AFIELDS(),AINS