基本表是用DELPHI的DATA DESKTOP建立的,有symtem_book.db,symtem_reader.db,borrow_record.db等几个,其中symtem_book的字段为[书号(主码),书名,书类号,作者,出版社,出版日期,入馆时间,是否在馆]。1、如何用BDE中的QUERY实现按下BUTTON1就显示symtem_book表,按下BUTTON2就根据Edit1中的内容查询symtem_book中的数据?2、如何实现在用户界面对表中的内容修改,具体要用到哪些控件啊?
本人刚学一些SQL语句,老师就要我们用DELPHI做个小型的数据库,只要能查询、修改和删除就行!!谢谢高手的帮助~~
DELPHI如何根据EDIT的内容查询?
\/\/1、如何用BDE中的QUERY实现按下BUTTON1就显示symtem_book表 begin Close;SQL.Clear;SQL.add('select * from symtem_book where 书号='''+trim(edit1.text)+''');open;end;如果是删除的话,那就把sql改为:sql.add('delete from symtem_book where 书号='''+trim(edit1.text)+''')...
delphi exit1.text查询
Query1.SQL.Add('select * from 订单明细.DB where 型号=''edit1.text'' '); 这一句就是查出型号为 edit1.text的订单明细记录,显然你的订单明细表里面没有 信号等于 edit1.text的记录,就算有也不符合你的初衷。因为你是要查出与控件edit1里面文本相符的记录,并不是查找与 ‘edit1.text’相...
delphi中如何检查edit控件中是否输入了字符‘@’,假设还输入了很多其...
离开控件时检验是在这个控件的onexit事件中,用函数pos('@',edit1.text)判断。if pos('@',edit1.text) >0 then showmessage('输入了@')如果是离开后,你就需要知道离开后触发什么事件,把这个函数写到对应的事件里。
在delphi7中怎么用richedit控件来显示我要打开的文本文件?
1. 在你的 Delphi7 项目中添加一个 richedit 控件。通过拖放功能将 richedit 控件放置在目标窗体上。2. 接下来,编写代码以在按钮的单击事件中加载文本文件。为此,可以在窗体的 `OnCreate` 事件中添加相应的代码。3. 在按钮的单击事件中,使用 `richedit1.Lines.LoadFromFile` 方法加载文本文件。只...
delphi中adoquery怎么取得查询结果中第一条的字段值?
qry1.First;\/\/取第一条数据 edit.Text := qry1.FieldByName(字段名).AsString;这样就可以啦!想获取什么值都可以用query.fieldbyname(字段名).asstring获得字符串或者query.fieldbyname(字段名).asinteger获得整数值!
delphi如何在一个edit里输入多个条件进行组合查询
首先要把string 里的数据 读出来 分割进若干个不同string里 ,然后 动态生成 sql查询语句。 因为 关键词是 随机的。所有 查询的时候 要把这些字段组合起来做成一个索引 如 信息==年龄+姓名+电话 号码 。 然后在索引里找。程序很简单,自己实现吧 ...
delphi 一个Label一个Edit 在Edit中输入搜索内容按下回车键后跳出一个...
这个在edit中输入搜索内容按下回车键路出一个窗口,这个触发操作需要写在edit框的onKeyDown事件中,至于显示搜索内容,引用数据库 给你个最简单的ADO示例 数据库 db_a(序号,关键字,内容)adoquery1.sql.text:='select * from db_a where 关键字 like '+quotedstr('%'+edit1.text+'%');ado...
delphi如何判断edit文本是否修改?
private flag : boolean; \/\/ 声明一个全局的私有变量 procedure edit1onchange;begin flag := true;end;procedrue buttononclick;begin if flag then shomessage('已经改动了');else showmessage('文本无修改');flag := False;end;
delphi 在edit的Change事件里获取edit的部分选中状态的内容
这个很容易的阿,edit有一个属性是seltext意思就是选中的内容 比如 procedure TForm1.Button1Click(Sender: TObject);begin showmessage(edit1.SelText);end;试试就知道了。走change事件是什么事件???请把问题描述清楚
delphi中怎么判断edit控件输入的内容是不是日期data类型 求解啊_百度...
procedure TForm1.Button1Click(Sender: TObject);var dt: TDatetime;begin if TryStrToDatetime(Edit1.Text,dt) then showmessage('是日期类型')else showmessage('不是日期类型');end;