在 delphi中 如何用adotable组件实现查找显示 具体内容 跪求
展开全部
男儿膝下有黄金,为这点小事,就下跪,太没有骨气了,孩子
追问
你小白~\(≧▽≦)/~啦啦啦
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
adoconnection设置connectstring属性,连接数据库, loginprompt设为false, active设为true
adotable connection属性设为 adoconnection1, table name 设为你数据库中的表,active 设为true
datasource 的dataset 属性设为 adotable1
dbgrid 的datasource设为 datasource1
button click 事件写
procedure TForm1.Button1Click(Sender: TObject);
begin
adotable1.filtered := false;
adotable1.filter := '字段1 = ' + edit1.text;
if trim(edit1.text) <> '' then
adotable1.filtered := true;
end;
adotable connection属性设为 adoconnection1, table name 设为你数据库中的表,active 设为true
datasource 的dataset 属性设为 adotable1
dbgrid 的datasource设为 datasource1
button click 事件写
procedure TForm1.Button1Click(Sender: TObject);
begin
adotable1.filtered := false;
adotable1.filter := '字段1 = ' + edit1.text;
if trim(edit1.text) <> '' then
adotable1.filtered := true;
end;
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询