B
bitwomen
Unregistered / Unconfirmed
GUEST, unregistred user!
[][][!][h1][/h1]想要实现通过点击按钮就可以实现将查询到的数据输出到特定的文本文件中,查询段的源程
序为:
procedure TForm14.Button1Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ADB_PART');
query1.SQL.Add('where DEGREE like :Q1');
query1.ParamByName('Q1').AsString:=edit1.Text+'%';
if query1.Prepared=false then query1.Prepare;
showmessage(query1.sql.text);
query1.Open;
end;
现在就是想把查询到的数据直接以文本的格式输出到指定的位置,数据表格式为:
ID NAME SYSTEM PRODUCER INI_WORKPLAC DEGREE
3 变速器 底盘 中国上海大众汽车有限公司 初次安装 1
130 部件 发动机 江苏南亚自动车有限公司 卸下维修 3
153 车架 车身 中国神龙汽车有限公司 初次安装 4
最好能够提供程序源码,谢谢
序为:
procedure TForm14.Button1Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ADB_PART');
query1.SQL.Add('where DEGREE like :Q1');
query1.ParamByName('Q1').AsString:=edit1.Text+'%';
if query1.Prepared=false then query1.Prepare;
showmessage(query1.sql.text);
query1.Open;
end;
现在就是想把查询到的数据直接以文本的格式输出到指定的位置,数据表格式为:
ID NAME SYSTEM PRODUCER INI_WORKPLAC DEGREE
3 变速器 底盘 中国上海大众汽车有限公司 初次安装 1
130 部件 发动机 江苏南亚自动车有限公司 卸下维修 3
153 车架 车身 中国神龙汽车有限公司 初次安装 4
最好能够提供程序源码,谢谢