*查询click事件：
fh=val(thisform.text1.value)
locate for 房号=fh
if found()
thisform.text2.value=类型
thisform.text3.value=价格
thisform.text4.value=有人住否
thisform.text5.value=住客姓名
endif
*返回click事件：
thisform.rlease
谁能帮我写下面的vf代码???
fh=val(thisform.text1.value)locate for 房号=fh if found()thisform.text2.value=类型 thisform.text3.value=价格 thisform.text4.value=有人住否 thisform.text5.value=住客姓名 endif 返回click事件：thisform.rlease
用VF编写程序代码:
回答：1、select 设备的名称,启用日期 from 设备表 where 价格 >10000 2、Use SB copy to D:\\SB2 Fields 编号,名称 3、Replace 价格 With 价格+50,部门 with 55 for 设备类型=主要设备 4、 select * from 设备表 where 设备类型="非主要设备" Delete 5、select * from 设备表 order by...
单位考核VF编程求救
以 VF 6.0 版本为例：command1:计算 if thisform.text2.value>10 thisform.text3.value=thisform.text1.value*thisform.text2.value*0.9 else thisform.text3.value=thisform.text1.value*thisform.text2.value endif --- command2:清除 thisform.text1.value=""thisform.text2.value=""thisfor...
请大家帮我写一个VF的代码,我老是写不对,谢谢啦!~
FOR il=1 TO 5 INPUT "输入第"+ALLTRIM(STR(il))+"个数字：" TO sz(il) &&也可以改成一次性输入5个数，用逗号或分号分开，代码需要改 ENDFOR ?"最大数",MAX(sz(1),sz(2),sz(3),sz(4),sz(5))?"最小数",MIN(sz(1),sz(2),sz(3),sz(4),sz(5))
急求一个VF计算器代码~~~
error_msg err;public:Error(error_msg e) { err = e; } error_msg GetError() { return err; } };class Calculator;class Token { friend class Calculator;public:int mark;\/\/mark=1操作符,mark=2浮点数 union {Token_Item ttitem;double dvalue;};const Token& operator = (const ...
求VF编程代码(急用)
do while !eof()input "输入学号:" to m &&m的输入格式必须与学号字段一致，如果学号为字符型，那么输入加引号 if vartype(m)=vartype(学号)go top locate for m=学号 else ?"数据格式输入错误，请重新输入!"loop endif if found()nadd=语文+数学+英语 ?"平均分为：",nadd\/3 ?"总分为:"...
vf登陆代码
or.empty(学号)〕改成：〔IF EMPTY(ThisForm.Combo1.Value) .OR. EMPTY(ThisForm.Text1.Value)〕试试看。还有：〔 messagebox("请输入正确的用户名和密码！")〕你是判断姓名和学号，怎麼又冒出个用户名和密码了呢？建议这样：MESSAGEBOX("姓名或学号不能为空！", 0 + 16, "Warning")...
跪求VF高手帮忙写几个代码啊!~~
1 input "输入下界" to xj input "输入上界" to sj js=0 os=0 for i=xj to sj if i\/2=int(i\/2)os=os+1 else js=js+1 endif endfor ? '奇数的个数:'+str(js)? '偶数的个数'+str(os)2 input "输入一个正整数" to zz zz=alltrim(str(zz))ws=len(zz)s=0 for i=1 ...
vf 锁屏代码
可以这样设计：1.在WINDOWS中设置恢复屏保时需要密码。2.以VFP程序启动屏幕保护程序 下面的代码启动屏保：Declare integer SendMessage in user32 integer,integer,integer,integer Declare integer FindWindow in Win32api string, string fhwnd = FindWindow(0, _screen.caption)Define wMsg 274 Defi...
vf数据库表单简单代码问题!!
添加4个文本框，设为数值型 添加1个命令按钮，其click:x=thisform.text1.value y=thisform.text2.value z=thisform.text3.value maxx=max(x,y,z)minx=min(x,y,z)if BETWEEN(x,minx,maxx)m=x endif if BETWEEN(y,minx,maxx)m=y endif if BETWEEN(z,minx,maxx)m=z endif thisform.text...
