为什么AdoTable.Locate('Oper_Name',Edit1.Text,[loCaseInsensitive]) 有时候出错，有时候不出错？

thygw 2002-01-10 05:59:32

...全文

107 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

thygw 2002-01-10

打赏
举报

回复

呵呵，买单

王集鹄 2002-01-10

打赏
举报

回复

你没有理解我的意思吗？
if Length(Edit1.Text) <= ADOTable1.FieldByName('Oper_Name').DataSize then
ADOTable1.Locate('Oper_Name', Edit1.Text, [loCaseInsensitive]);

当搜索字符的宽度大于表字段的宽度就会触发异常

thygw 2002-01-10

打赏
举报

回复

ShowMessage('试试看');

还是不能编译！

王集鹄 2002-01-10

打赏
举报

回复

if Length(Edit1.Text) > ADOTable1.FieldByName('Oper_Name').DataSize then
ShowMessage('试试看');

ADOTable1.Locate('Oper_Name', Edit1.Text, [loCaseInsensitive]);

thygw 2002-01-10

打赏
举报

回复

天哪，怎么没有人回答我？

thygw 2002-01-10

打赏
举报

回复

急死我了！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

运行程序，点击程序中的“输入” 按钮后，需要输入的值会被自动填写到输入框中点击程序中的“确定”按钮

Delphi数据库adotable.doc

Delphi数据库知识adotable.docDelphi数据库知识adotable.docDelphi数据库知识adotable.docDelphi数据库知识adotable.docDelphi数据库知识adotable.docDelphi数据库知识adotable.docDelphi数据库知识adotable.docDelphi数据库知识adotable.docDelphi数据库知识adotable.docDelphi数据库知识adotable.docDelphi数据库知识adotable.docv

Delphi7的数据库控件的编程介绍,例如ADOTable等

宿舍管理系统示例：学生信息维护窗口图4.1学生信息维护窗口图 procedure TForm3.Button1Click(Sender: TObject); begin adotable1.Append//添加“添加”按钮，添加数据信息 end; procedure TForm3.Button2Click(Sender: TObject); begin adotable1.UpdateStatus//添加“修改”按钮，修改信息 end; procedure TForm3.Button3Click(Sender: TObject); begin adotable1.Delete//添加“删除”按钮，删除信息 end; procedure TForm3.Button4Click(Sender: TObject); begin adotable1.Post//添加“确认”按钮，确定信息修改或添加或删除 end;[12] 4.3创建数据库查询窗口示例：宿舍管理系统综合查询窗口个人信息综合查询 procedure TForm27.Button1Click(Sender: TObject); begin adoquery1.SQL.Clear; adoquery1.SQL.Add('select Student.Sno,Sname,Ssex,Sage,Sdept,Ssp,SD.Dfloor,SD.Droom,SD.bed from Student,SD where Student.Sno=SD.Sno and '+ComboBox1.Text+' = '''+edit1.Text+''''); adoquery1.Open;//根据输入的学生信息，查询学生的个人信息 end;

5,388

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章