求关于access多表查询显示问题

[liangzhj]

是这样的。access数据库名为v，里面有表a、b……。a表中有序号、员工姓名、员工号……，b表中有序号、上班时间……。现在要将a表中的序号、员工姓名、员工号和b表中的上班时间全部显示在一张表中并输出为txt格式，请问要怎么做。小弟是delphi菜鸟，希望有大侠能够尽可能说具体点，谢了。

[postren]

select a.序号, a.员工姓名, a.员工号, b.上班时间
from a, b
where a.员工号 = b.员工号

[postren]

输出txt就自己写吧

[andyzhou1101]

写txt就是循环向文本文件中加内容

[liangzhj]

要用到哪些控件？怎么输出？

[china618]

var LogFile:textfile;
sql:string;
LogInfo:string[10];
LogType:string[14];
LogTime:string[22];
LogMemo:string;
var i_loop:integer;
begin
if (not ADOQuery1.Active) or (ADOQuery1.Eof and ADOQuery1.Bof) then
begin
MessageBox(Application.Handle,'目前没有日志可以导出！','信息提示',
MB_ICONQUESTION+MB_OK);
exit;
end;
Try
AssignFile(LogFile,'c:\a.txt');
if not FileExists('c:\a.txt') then
begin
rewrite(LogFile);
LogInfo:='日志信息 ';
LogType:='日志类型 ';
LogTime:='日志时间 ';
LogMemo:='日志内容 ';
LogMemo:=LogInfo + LogType+ LogTime+LogMemo ;
Writeln(LogFile,LogMemo);
end;
Append(LogFile);
ADOQuery1.First;
While not ADOQuery1.Eof do
begin
LogInfo:=' ' + ADOQuery1.FieldByName('info').AsString;
LogType:=' ' + ADOQuery1.FieldByName('Type').AsString;
LogTime:=' ' + ADOQuery1.FieldByName('Time').AsString;
LogMemo:=' ' + ADOQuery1.FieldByName('Memo').AsString;
LogMemo:=LogInfo + LogType+ LogTime+LogMemo ;
Writeln(LogFile,LogMemo);
ADOQuery1.Next;
end;
finally
CloseFile(LogFile);
end;
end;

[china618]

试试，代码偶也是拷来的
忘了出处
对不起写代码的那位大哥了

[liangzhj]

谢谢楼上的大哥，但我还是想知道具体怎么操作，因为是是刚接触delphi，所以不晓得那些控件怎么用

[liangzhj]

没人愿意讲详细点么？