说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

请大家看看,代码有错吗?无错位何edit2.text中开不到查找的数据!

编辑:说三道四文库 发布时间:2017-12-13 02:22
HTML文档下载 WORD文档下载 PDF文档下载
procedure TForm2.Button1Click(Sender: TObject);
var l_aab01: string;
begin
  with AdoTable1 do
    begin
    l_aab01 := Edit1.text;
    Locate('aab01',l_aab01,[loPartialKey]);
    //if not Locate('aab01',l_aab01,[loPartialKey]) then
    //edit2.Text := 'error';
    edit2.Text := fieldbyname('aab01').value;
    edit3.Text := fieldbyname('aab02').value;
    edit4.Text := fieldbyname('aab04').value;
    edit5.Text := fieldbyname('aab05').value;
    end;
end;
procedure TForm2.Button1Click(Sender: TObject);
var l_aab01: string;
begin
  with AdoTable1 do
    begin
    l_aab01 := Edit1.text;
   if not Locate('aab01',l_aab01,[]) then
   begin
    edit2.Text := fieldbyname('aab01').value;
    edit3.Text := fieldbyname('aab02').value;
    edit4.Text := fieldbyname('aab04').value;
    edit5.Text := fieldbyname('aab05').value;
   end;
    end;
end; 
试试这样如何。
来晚一步!为什么要屏蔽
    //if not Locate('aab01',l_aab01,[loPartialKey]) then
    //edit2.Text := 'error';
呢,
去掉屏蔽就行
可是在edit.text中显示的数据并不是我要查找的数据?
这是为何?我以想了两天了,呜呜呜呜呜呜呜呜呜!
可是在edit.text中显示的数据并不是我要查找的数据?
这是为何?我以想了两天了,呜呜呜呜呜呜呜呜呜!
Locate('aab01',varArrayOf([l_aab01]),[loPartialKey]);
如何?
你检查一下是不是大小写不匹配的事!
procedure TForm2.Button1Click(Sender: TObject);
var l_aab01: string;
begin
  with AdoTable1 do
    begin
    l_aab01 := Edit1.text;
  if Locate('aab01',l_aab01,[loCaseInsensitive, loPartialKey]) then
  begin
    edit2.Text := fieldbyname('aab01').value;
    edit3.Text := fieldbyname('aab02').value;
    edit4.Text := fieldbyname('aab04').value;
    edit5.Text := fieldbyname('aab05').value;
  end
  else edit2.Text := 'error';    
end;
end; 
同意wanwangzhiwang(万王之王) 的说法
让彩色光标出现在程序中-Delphi资料 在Windows桌面的任务栏上有一个凹陷的区域,其中显示着系统时钟以及一些图标,这个长方形的区域便 如何使用Show方法来显示一个模态窗口-Delphi资料 如何旋转字体-Delphi资料 如何隐藏和显示Windows的任务条-Delphi资料 如何在DELPHI界面上运行可执行文件 设计Form时的快捷键-Delphi资料 生成非矩形窗口-Delphi资料 时隐时现的鼠标-Delphi资料 无标题窗口的移动-Delphi资料 应用程序敏感键的实现-Delphi资料 用Delphi 4.0 设 计 新 型 界 面 用Delphi 实 现 自定 义 颜 色 对 话 框 及 其 构 件 用Delphi 实现自定义颜色对话框及其构件 用Delphi4实现风Word97风格的工具栏 用Delphi 开 发windows 屏 幕 保 护 预 览 程 序 用Delphi设置墙纸 用DELPHI实现无边界窗体的移动 用Delphi实现自定义颜色对话框及其构件 用DEPHI 3.0实现动画ABOUT窗口-Delphi资料 用鼠标拖动无标题窗口-Delphi资料 在Delphi编程中创建一个启动闪现窗口 在form中想用enter来代替tab,请问如何实现?-Delphi资料 在Listboxes中加背景图-Delphi资料 在Window右下角的添加图标-Delphi资料 在程序中使用自定义的鼠标-Delphi资料 怎样建立简单的任务栏应用程序-Delphi资料 增强DelphiTStatusBar控制 制作Delphi的竖排标签 自适应表单的实现-Delphi资料 COM/DCOM的区别与联系-Delphi资料 急求一段ASP与SQLserver2000处理代码! 怎么创建win32 static library并输出函数?谢谢 !!!!求排列组合的简洁算法(80分) 我要对Spreadsheet的数据进行排序,用javascript怎么写 WIN32异常求救????!!!!!! 一个有深度的问题(对信号量操作不熟者请勿进) 知道为什么会出现iocopyout_chksum吗? 谁能给我《中文ACCESS开发指导手册》?? 从网上下的读不了 请问一个小问题 关于用Preferences存取注册表的问题 参数类型的问题 谁知道用什麽软件可以播放扩展名为1MP3的文件?(100分) 请问把一个二进制文件转换成文本文件,再把文本文件转换成二进制文件,该怎么做?求源代码?或有该代码的网址链接,多谢!不胜感激! main()函数里的两个参数argc、argv是什么意思?请赐教! 用HTTP上传文件,那位做过实际的应用的,帮忙... 大家上微软新闻组吧,感觉比这里快。 用jfreechart画出的图形,里边的汉字不太清楚,有没有解决的办法,要是图形小一点,模糊不清,难看死了,请问有没有解决办法?? 在vc.net中为什么新建的一个dialog,上面有双重的图象啊? asp&oracle问题 .net2003中vb升级向导有没有接口可以被其他程序调用? 以二进制方式打开文件,用ftell计算文件大小,为什么有时对有时不对? CHtmlEditView中如何实现表格的单元格大小调整? 城市夜归人 请问把一个二进制文件转换成文本文件,再把文本文件转换成二进制文件,该怎么做?求源代码?或有该代码的网址链接,多谢!不胜感激! 如何在一个网页中使用多种样式表显示多种效果? 直接用http调用代理怎么进行权限设置 CHtmlEditView中如何实现表格的单元格大小调整? 各位老大。。。如何用asp加密解密中文字符串,小生有礼了! 这段程序怎么不能运行?thinking in java 我的应用程序启动连接数据库时自动拨号,怎么去掉?? 谁给讲讲多线程!进着有分! 菜鸟问:jbuilder9比8都增加了什么功能?做了哪些改进? 给菜单加的快捷键怎么不管用呢 不能发mail 请问:这个存储过程哪儿不对呢?为什么执行不出来呢? 在dw中图片格式问题! CHtmlEditView中如何实现表格的单元格大小调整? 98启动的时候出现”press any key to continue"! 怎样将ASCII串转换成十六进制数? 在函數與過程裡中止其執行用什麼命令? CHtmlEditView中如何实现表格的单元格大小调整? java程序员都得会rose,懂UML吗? Red hat 7.2下编译程序出现的问题 rh9.0 怎么设置共享网络模式(NAT)? CHtmlEditView中如何实现表格的单元格大小调整? XP注册表文件名和保存位置?如何察看其他系统注册表的内容? DLL中的PROPERTYSHEET中使用CHTMLVIEW出现的问题 把编译好的程序作为windows服务注册后,启动时报错 Red hat 7.2下编译程序出现的问题 在客户端提交表单出错 win2000 server 管理员密码如何修改? 经济数学题求解(如下图单选): 问两个英文问题“第二个是吉他”是不是“NO.2 is guitar"?加不加the或a55.6摄氏度怎么说 你问他两个问题好吗用英文怎么说 1.we did not dirturb him.(until)he finished work.两句连成一句,正确答案是We did not disturb him until he had finished work.为什么不能说We had not disturb him until he finished work.2.He could not answer (neither of) (either of ) the q 以'' the earth''为题写一篇英语小短文快啊.星期五就要英语竞赛啦.能帮就帮吧.谢啦. 以"the earth"为题写一篇英语小作文快啊.星期五就要英语竞赛啦. 为什么称张学友为歌神?张学友销售量最高的专辑是哪张?销售量是多少? 最近发现自己的词汇量很少,怎样提高词汇量 英语翻译非诚勿扰 you can______the metro at the Metro station.A.sit B.by C.take希望在今天之内回答, About 4.41%of the student think someone who can make friends with orthers can become a monitor.这句话哪些地方有错,应该怎么改正? 杭州事业单位将实行聘期考核制 每2-浙江银行高管承认“余额宝”冲击银行系浙江省委常委会专题研究村级组织换届工浙江省委通报省级班子专题民主生活会情约40名尼日尔移民因汽车抛锚在撒哈拉分析称中国核潜艇高调亮相或是向日本展亲戚行凶 纽约华人母子五人被害德媒:窃听丑闻得教训 要像中俄一样变浙江温岭医院否认特警“抢尸”:伤心还杭州家政阿姨变身女土豪专骗单身男五旬女子拼凑出骗婚团队 8人相继被骗“虎妈”蔡美儿教育方式见成效 两女儿把供给侧结构性改革抓紧抓好抓实很多人说我是一个直率的周杰,他不懂我他至今孑然一身,却教会我们爱盈方中国董事长马国力离任,前NBA中玉化砗磲,可谓是真正的老古董!好色成性的少帅,晚年张学良炫耀他的床央视拒绝了六小龄童,除夕夜只能靠吃饺十种罪恶,无人生还新年抢字画,康熙御笔《天下第一福》助马上过年了,你准备好红包没?盛世藏家异世丹皇纵横天下大恶魔的祭奠大唐君羡皇极巅峰杀伐三国之强国之路梵天记星神纪元网游之纯洁盗贼怒踏天穹不死法王零公里旅游海角一号旅游鄂尔多斯博物馆旅游昆明柏联SPA温泉旅游石头城旅游温宿大峡谷旅游拜城旅游三道海子旅游印象普陀旅游隐水洞旅游大夫第旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘