求VFP大神呀
前面的估计都会操作吧。 我把后面的命令部分给你写一下。 打开表stud1.dbf Use stud1.dbf 浏览stud1.dbf的结构信息,浏览stud1.dbf的记录信息 Display structure List 修改表stud1.dbf的结构,添加字段年龄/N/2,并设置年龄字段与生日字段的记录有效性规则 Modify structure 字段名:年龄;类型:INT Replace 年龄=year(date())-year(生日) 在表stud1.dbf后追加一条记录 Append blank 显示姓“张”的同学的信息 List for left(姓名,2)=”张” 显示stud1求vfp编程大神
我会,你给我先采纳!我就可以给你回答了,我都会求计算机大神!关于VFP的程序编写代码。帮帮忙~要考试~不会~
1、 input '请输入成绩:' to cj do case case cj>85 ?"良好" case cj>=76 and cj<85 ?"中" case cj>=60 and cj<65 ?"及格" case cj<60 ?"不及格" endcase 2、 input "输入第一个整数:" to diyi input "输入第二个整数:" to dier da=max(diyi,dier) xiao=min(diyi,dier) for i=xiao to 1 step -1 if mod(da,i)=0 and mod(xiao,i)=0 ??"最大公约数为:"+allt(str(i求vfp大神啊啊啊啊啊啊!
查找按钮:
DO caseCASE thisform.optiongroup1.Buttons(1).value=1
thisform.Tag="学号"
CASE thisform.optiongroup1.Buttons(2).value=1
thisform.Tag="姓名"
CASE thisform.optiongroup1.Buttons(3).value=1
thisform.Tag="性别"
CASE thisform.optiongroup1.Buttons(4).value=1
thisform.Tag="年龄"
CASE thisform.optiongroup1.Buttons(5).value=1
thisform.Tag="系编号"
ENDcase
use 学生信息表
locate for thisform.tag=thisform.text1.value
if found()
thisform.grid1.RecordSourcetype=4
thisform.grid1.RecordSource="select 学号,姓名,性别,年龄,系编号 from 学生信息表 where thisform.tag=thisform.text1.Value into cursor tep1"
else
messagebox("很抱歉!没有找到相关信息")
endif
form1添加:
do form 表单2
form2添加按钮:
DO case
CASE thisform.optiongroup1.Buttons(1).value=1
INSERT INTO 学生信息表 (系编号) values(thisform.text1.value)
CASE thisform.optiongroup1.Buttons(2).value=1
INSERT INTO 学生系别表 (系编号) values(thisform.text1.value)
CASE thisform.optiongroup1.Buttons(3).value=1
INSERT INTO 学生信息表 (系编号) values(thisform.text1.value)
INSERT INTO 学生系别表 (系编号) values(thisform.text1.value)
ENDCASE
第二题不是太理解意思,应该是这样