VFP学习笔记3.docx

【065】用数组添加多列数据到组合框或列表框设数组gaItem，组合框或列表框控件为: oListCom,代码如下：With oListCom.Clear().ColumnCount=n(列数)=Alen(gaItem,1).RowSourceType=0For nRow=1 To Alen(gaItesm,1)For nCol=1 To Alen(gaItem,2).List(nRow,nCol)=gaItem(nRow,nCol)EndForEndForEndWith【066】EditBox文字输入的提示功能▲lstcmdAddWords添加到词库edt▼·edt得到焦点时，GotFocus()添加如下代码：ThisForm.Tag=”ThisForm.”+Alltrim(This.Name)即把该控件名称放到Form窗体的Tag属性中保存。·按钮cmdAddWords的Click代码如下:Local oControl,cWordsoControl=ThisForm.TagIf Type(oControl)==”O” And Upper(oControl..BaseClass)$”EDITBOX|TEXTBOX”cWords=Alltrim(oControl..SelText)--选择的文本IF !Empty(cWords)Select 词库表Locate For Alltrim(Words)==cWordsIf !Found()Append BlankReplace Words With cWordsEndIfThisForm.lst.Requery()--刷新lst行源EndIfEndIf·按钮cmdAddWords的Refresh()中放如下代码：Local oControl,lcSelTextoControl=ThisForm.TagIf Type(oControl)==”O” And Upper(oControl..BaseClass)$”EDITBOX|TEXTBOX”lcSelText=Alltrim(oControl..SelText)This.Enabled=Len(lcSelText)0EndIf·lst的Click事件代码如下:Local oControloControl=ThisForm.TagIf Type(oControl)==”O” And Upper(oControl..BaseClass)$”EDITBOX|TEXTBOX”oControl..SelText=Alltrim(This.ListItem(This.ListIndex))oControl..SetFocus()EndIf【067】测试和调试应用程序程序测试是指发现程序代码中的错误。程序调试是指从程序中找到每个问题，然后逐一解决。◆测试和调试应用程序是在研究程序不同级别的可靠性。·运行不会导致崩溃或产生错误信息。·在一般情况下操作正常。·在一定范围内，操作合理，或能提供适当的错误信息·对意外的用户干扰很容易恢复。◆良好的编程习惯，会减少代码中出现的错误。·留出空白空间·添加代码注释·使用一般的命名规则◆早期开发过程应有的步骤·建立测试环境硬件和软件系统路径和文件属性目录结构和文件位置·设置验证信息使用Assert命令标明程序中的假设。如：函数需要一个非0参数值，如果参数为0时，下面的代码将提醒：Asert nParam!=0 Message “接受的参数值为0”使用Set Assert 命令指定是否显示提示信息。·查看事件发生的序列：使用事件跟踪器或者命令Set EventTracking◆打开调试器可以使用下列命令DebugSet Step OnSet Echo On·设置断点示例位置文件何处将程序挂起ErrHandlerC:\MyApp\Main,prg名为ErrHandler的过程之首行Main,10C:\myApp\Main,prg名为Main程序的第10行ClickC:\myApp\Form.SCX名为Click过程、函数或事件首行cmdNext.ClickC:\myApp\Form.SCX在cmdNext控件的Click事件首行cmdNext::Click任意文件中，父类为cmdNext的任何控件的Click事件首行。·断点表达式示例表达式用于Recno()当表中的记录指针移动时挂起Program()任意程序、过程、方法或事件的第一行上刮起myForm.Text1.Value当属性值改变时挂起“Click”$Program()在与Click或DblClick相关的第一行上挂起nReturnValue=6信息框返回值在nReturnValue中，按确定是挂起·代码覆盖范围的日志文件转换为表cFileName=GetFi