菜鸟问题两个：1、fieldbyname('xx').AsFloat:=xxxx; ……每题25分！

0000007 2003-08-10 12:02:14

1、fieldbyname('xx').AsFloat:=xxx；是什么意思呢？

2、SetLength(biaoti,K);又是什么?请高手注明其用法？

...全文

54 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

FrameSniper 2003-08-11

打赏
举报

从Delphi 5开始不建议使用FieldByName！所以对字段的操作均建议使用FieldValues方法！HOHOHOHO，没有人说这个啊，呵呵呵呵.....

yuewenbin 2003-08-11

打赏
举报

都说完了，我们怎么办？呵呵

myling 2003-08-11

打赏
举报

哈哈

进来了以后连个渣都没剩下，全被这些家伙抢光了 :）

feeling2003 2003-08-11

打赏
举报

fieldbyname的用法是针对数据库而言，具体的应该是table1.fieldbyname('xx').asfloat.
1.先将‘xxxx’转换成float类型，2.然后赋值给数据库相应的字段

huojiehai 2003-08-10

打赏
举报

SetLength(biaoti,K);//Sets the length of a string or dynamic-array variable.
//高字符串或动态数组的长度

huojiehai 2003-08-10

打赏
举报

fieldbyname('xx').AsFloat:=xxx//给字段值以浮点型赋值

wujunwei 2003-08-10

打赏
举报

同意

errorkiss 2003-08-10

打赏
举报

同意，，，，

Shiyl 2003-08-10

打赏
举报

fieldbyname('xx').AsFloat := xxx；给数据库字段‘xx’赋以浮点型的值
SetLength(biaoti,K); 把长度分配给动态的数组

songbo_pp 2003-08-10

打赏
举报

SetLength(biaoti,K);重新分配动态数组的长度

fieldbyname('xx').AsFloat := xxx；给字段xx付浮点数xxx

大地精灵 2003-08-10

打赏
举报

1:fieldbyname('xx').AsFloat:=xxx//给字段值以浮点型赋值
2:SetLength(biaoti,K);//给动态的数组分配长度

fenglaile 2003-08-10

打赏
举报

SetLength(biaoti,K);分配动态数组的长度
fieldbyname('xx').AsFloat:=xxx；给字段xx付浮点数xxx

fhuibo 2003-08-10

打赏
举报

fieldbyname('xx').AsFloat:=xxx//给数据库字段赋值

adoquery1.Close; adoquery1.SQL.Text:='select * from cs'; adoquery1.Open; a :=adoquery1.fieldbyname('a').Value;...................................//a、b参数的获取 b :=adoquery1.fieldbyname('b').Value; adoquery1.close; adoquery1.SQL.Text:='select x from yc where id =1'; adoquery1.Open; x :=adoquery1.fieldbyname('x').Value; ……………………….//要预测的产品数量x。 y:=a + b * x; ……………………//计算y的值 with adoquery1 do begin close; sql.Clear; sql.Add('update yc set y =:y1 where id=1'); …………………… //将y的值写入yc表。 parameters.ParamByName('y1').Value:=floattostr(y); execsql; close;

一套完成的租赁管理，和作业版不同，这个功能应该够用了。 procedure TFrm_Login.bbtnokClick(Sender: TObject); begin //录入检验 if cbUserId.text='' then begin messagedlg('请选择用户名！',mtInformation,[mbok],0); cbUserId.SetFocus(); exit; end; //登录验证 with ADOQ_Temp do begin close; SQL.Clear; SQL.Add('SELECT * From 用户信息表 Where 用户名='+''''+cbUserId.Text+''''); Open; //用户有效性 IF not IsEmpty then begin //登录失败 If edtPassword.Text Fieldbyname('密码').AsString then begin messagedlg('口令错误，请修改！',mterror,[mbok],0); LoginNum:=LoginNum+1; if LoginNum=3 then begin messagedlg('非法用户！你无权使用本系统',mterror,[mbok],0); application.Terminate ; end; edtPassword.Text :=''; edtPassword.SetFocus; exit; end //登录成功 else begin //保存登录的用户信息 gs_login_userid :=fieldbyname('用户名').asstring; gs_login_username :=fieldbyname('用户名').asstring; gs_login_userlevel :=fieldbyname('用户等级').asstring; gs_login_Password :=fieldbyname('密码').asstring; gt_login_time:=now(); Login:=true; self.close; end; end else begin messagedlg('指定的用户已被注销！你无权使用本系统！',mterror,[mbok],0); Login:=False; self.close; end; end; end;

Notice: 程序思想来源于 UCDOS 7.0 拼音输入法汉字发音从中文版的 Windows 98 的全拼输入法词库取支持 GBK 汉字处理多音字的发音为最常用发音如 '着' 字有 'Zhe' 'Zhao' 'Zhuo' 三种发音, 输出 'Zhe' 请正确设置 iMode 参数在 Delphi 3.0 或更高的版本中使用调用示例: ... First; while not EOF do begin Edit; FieldByName(PyFieldName).AsString := String(MakePyCode(FieldByName(ChnFieldName).AsString, 1, 6); Next; end; ...

数据库相关

2,497

社区成员

88,445

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章