当前位置:编程学习 > Foxpro >>

Visual Foxpro 题, 在线等,求高手解答

1.运行Vsual Fxpro,新建一个程序文件,该程序文件内容如下: set default to c:\tstf use 学生简历.dbf index on姓名from姓名索引 go top seek 王虎 disp if.not.found() wait"没有找到该姓名" endif set index to use 2.调试该程序,使其实现以下功能: (1)按姓名建立索引 (2)差在姓名为“王虎”的记录你 (3)显示该记录,若未找到,在屏幕上输出“未找到该姓名” 3.写下调试好的程序 1 运行Vsual Fxpro,新建一个程序文件,该程序文件内容如下: set default to c:\tstf use 学生成绩 do while .t. @2,2say”1.添加新记录” @4,2say”2.删除当前记录” @6,2say”3.退出” @8,2say”请选择?(1或2)”to selectit if selectit=”1” edit endif if selectit=”2” insert endif selectit=”3” break endif exit enddo use 2.调试该程序,使其实现以下功能: (1)在屏幕上显示一个菜单 (2)由用户输入数字 (3)若数字为1,则添加一个新记录;若数字为2,则删除当前记录;若数字为3,则退出该程序 3.写下调试好的程序 1.运行Vsual Fxpro,新建一个程序文件,该程序文件内容如下: set default to c:\tstf use 学生简历.dbf students=0 go bottom skip-1 do while not bof() if substr(姓名,1,1)=”李” students=students+1 skip endif skip enddo ?”姓李的学生数为:”,students ??”名” Use 2.修改该程序,使其实现以下功能: (1)计算姓李的人数 (2)在屏幕上输出结果 (3)将结果记录在下面: 3.写下调试好的程序 1.运行Vsual Fxpro,新建一个程序文件,该程序文件内容如下: set default to c:\tstf use 学生成绩 badscore=1 go top do while not bof() if平均分>60 badscore=badscore+1 endif exit enddo ?”不及格的学生有:”,badscore ??”名” Use 2.调试该程序,使其实现以下功能: (1)求出平均分不及格的人数 (2)在屏幕上显示结果 (3)将结果记录在下面: 3.写下调试好的程序
答案:给你个思路:
1. 在数据库或本地数据表,或者文本都可以,中将你的两个固定的经验值,输入进入;
2. 在Form中添加ADOQuery;
3. 在两个组合框中,通过For循环向 ComboBox.OnDrawDown 中分别添加 
ComboBox.Items.Add(intToStr(i)) ;
4. 当计算时,写两套For循环和Case...of代码块,将组合框中的选择值与ADOQuery查询出的经验对应;
其他:这是成员初始化列表。A(n)就是调用A类的构造函数 A(n)来初始化基类A的数据。ob(n)就是给成员ob赋初值n。 if rs.pagecount-page<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&page=" & (page+1) & ">"
    response.write "下一页</a> <a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&SmallClass="&SmallClass&"&page="&rs.pagecount&">尾页</a>" 然后循环级别,根据父ID,设置节点。很容易就生成树了。
至于删改更容易了。传入当前ID,直接删改就行了。
最多只需要一个检索的存储过程,就是根据级别循环读节点就是了。 

上一个:【急】visual foxpro 编程题!!!在线等!!!
下一个:visual foxpro 编程题!!!急!!!!在线等!!!!!

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,