社区
数据库相关
帖子详情
菜鸟问题两个:1、fieldbyname('xx').AsFloat:=xxxx; ……每题25分!
0000007
2003-08-10 12:02:14
1、fieldbyname('xx').AsFloat:=xxx; 是什么意思呢?
2、SetLength(biaoti,K);又是什么?请高手注明其用法?
...全文
65
13
打赏
收藏
菜鸟问题两个:1、fieldbyname('xx').AsFloat:=xxxx; ……每题25分!
1、fieldbyname('xx').AsFloat:=xxx; 是什么意思呢? 2、SetLength(biaoti,K);又是什么?请高手注明其用法?
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用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.
field
byname
('a').Value;...................................//a、b参数的获取 b :=adoquery1.
field
byname
('b').Value; adoquery1.close; adoquery1.SQL.Text:='select x from yc where id =1'; adoquery1.Open; x :=adoquery1.
field
byname
('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.Param
ByName
('y1').Value:=
float
tostr(y); execsql; close;
Delphi 点击节点某个选项显示相对应的数据信息.rar
Delphi 点击Tree节点的某个选项后,右侧会对应显示出数据信息,左侧的树节点信息从Access数据库读取出来,实际上当我们单击左侧数据的时候,右侧数据同样是从Access数据库读取,只不过关联的ID,就是左侧的数据项,实现这一功能,对应的代码为: procedure TForm1.TreeView1Click(Sender: TObject); begin with ADOQuery2 do begin Close; SQL.Clear; SQL.Add('Select * From msn where 姓名 =:a'); Parameters.Param
ByName
('a').Value:=TreeView1.Selected.Text; Prepared; open; end; if (ADOQuery2.RecordCount>0)and(Treeview1.Selected <> Nil) then with ADOQuery2 do begin Edit1.Text:=ADOQuery2.
field
byname
('ID').AsString; Edit2.Text:=ADOQuery2.
field
byname
('姓名').AsString; Combobox1.Text:=ADOQuery2.
field
byname
('性别').AsString; DatetimePicker1.Date:=ADOQuery2.
field
byname
('出生日期').Value; Edit3.Text:=ADOQuery2.
field
byname
('民族').AsString; Edit4.Text:=ADOQuery2.
field
byname
('家庭电话').AsString; Edit5.Text:=ADOQuery2.
field
byname
('手机号码').AsString; Edit6.Text:=ADOQuery2.
field
byname
('QQ号码').AsString; Edit7.Text:=ADOQuery2.
field
byname
('E_mail').AsString; Memo1.Lines.Text:=ADOQuery2.
field
byname
('备注').AsString; Combobox2.Text:=ADOQuery2.
field
byname
('类型').AsString; end; end;
Delphi中
Field
ByName
方法使用举例
Delphi中
Field
ByName
方法使用举例
房屋租赁管理系统全功能版
一套完成的租赁管理,和作业版不同,这个功能应该够用了。 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
Field
byname
('密码').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 :=
field
byname
('用户名').asstring; gs_login_username :=
field
byname
('用户名').asstring; gs_login_userlevel :=
field
byname
('用户等级').asstring; gs_login_Password :=
field
byname
('密码').asstring; gt_login_time:=now(); Login:=true; self.close; end; end else begin messagedlg('指定的用户已被注销!你无权使用本系统!',mterror,[mbok],0); Login:=False; self.close; end; end; end;
Delphi中DBChart的数据库应用
Delphi中DBChart的数据库应用
数据库相关
2,507
社区成员
88,454
社区内容
发帖
与我相关
我的任务
数据库相关
Delphi 数据库相关
复制链接
扫一扫
分享
社区描述
Delphi 数据库相关
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章