电脑报1998年第9期

Visual Foxpro使用技巧两则

　　近来，笔者在利用Visual Foxpro 5.0开发软件中，总结了几点开发经验，在此愿与广大软件爱好者探讨。
　　一、灵活运用信息对话框
　　几乎所有的操作系统与应用软件都含有大量的类似“警告”、“提示”等信息对话框。运用信息对话框，可以灵活、及时的提示或警告用户，使用户界面友好。
　　信息对话框的语法是：MESSAGEBOX(cMessageText[,nDialogBoxType[,cTitleBarText]])
　　cMessageText：指定信息框显示的文本，可用chr(13)分行。
　　nDialogBoxType：指定显示的按钮和图标。它的具体使用规范如下：

cTitleBarText：指定标题文本。
　　下面试举一例说明：
　　(1)在Form(窗体)上加控件TextBox(文本框)，设置TextBox.Maxlength=4。这样在输入4位数字后，TextBox自动LostFocus(失去焦点)。
　　(2)双击该TextBox，编辑Text1.LostFocus事件程序如下：
　　if val(this.value)>1998　＆＆函数val()使字符量转成数字量
　　=messagebox(″对不起!″＋chr(13)＋″您的代码超出范围″,1＋48,″错误信息″)
　　endif
　　这样在TextBox中输入的4位数字大于1998时，就会自动弹出对话框进行提示。
　　二、ComboBox(组合框)的选择性输出
　　控件ComboBox综合了TextBox(文本框)和ListBox(列表框)的特性，可显示一列项目。但要在ComboBox中对Table(表)中的某个Field(字段)的内容进行选择性输出却较为困难。现利用Foxpro的Query，举出一种解决办法：
　　(1)设置Combo1的Style属性为2－Dropdown List(下拉列表框)。
　　(2)设置Combo1.Rowsourcetype为4－Query(.QPR)查询文件。
　　(3)设置Combo1.Rowsource为符合要求的查询文件。
　　如：Select Sinfor.name　＆＆选择表中的字段
　　From Database!Sinfor　＆＆标明表所在的数据库
　　Where Sinfor.name IN(″王″)
　　OR(Sinfor.name IN(″李″))
　　这样便能在数据库Database中的表Sinfor的字段name中找出姓王和姓李的名字，并在ComboBox中输出。此外，查询文件可利用Foxpro的Query自动生成。