界面放入Button1，ADOConnection1、ADOQuery1，如果还要显示数据可以再加DataSource1和DBGrid1。
首先设置ADOConnection1来连接ORA，先设置ADOConnection1.ConnectionString属性，也可以写到程序里，然后将ADOConnection1.LoginPrompt设为false以避免连接数据库时再输一次密码。
将ADOQuery1.Connection设为ADOConnection1，将SQL写在ADOQuery1.SQL中
将DataSource1.DataSet设为ADOQuery1
将DBGrid1.DataSource设为DataSource1，将DBGrid1.ReadOnly设为true以防止通过DBGrid1随意修改数据库
然后在Button1Click事件中写上ADOQuery1.open这句代码就能实现一个简单的查询了。
而要通过界面取的变量查询数据就要将Button1Click事件的代码改成：
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(你的SQL);//注意SQL必须是字符型的，其中包括单引号（‘’）
ADOQuery1.Open;
OraSession1.Options.Direct:=True
OraSession1.Username:='system';
OraSession1.Password:='888';
OraSession1.Server:='192.168.10.23:1521:MyDataBase';
OraSession1.Connected;
var sSql: string;
begin
sSql := Format('select rownum NO,work_order 工单,serial_number 条码,wip_process 下一站 from sajet.g_sn_status where work_order='NFA003' and wip_process='10013'
', [edt_Work_order.Text, edt_wip_process.Text]);
然后把这个语句输入到query中进行查询就可以了。
end;
http://sourceforge.net/projects/delphioci/
这里有源码，希望对你有帮助。
adoconnection 里连接下数据库
然后 用adoquery 和之连接
写代码
with adoquery do
begin
查询语句。。。
end
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024