上机日志的导出问题？～～帮忙啊，帮忙～

Question

现在做一个Mis，delphi＋SQL server的。其中“系统”有一项是上机日志，记录操作员、操作时间、操作内容，我在数据库中用了一个表保存，可是如何将这个表导出成文本文件到外设？谢谢了～～～～～

Answer 1

1.可以利用SQL Server的DTS工具实现导入导出，但是具体我没有在程序中做过。
2.可以用比如ADOQuery控件拿到数据集后用Delphi的文件处理命令一行一行写到文本文件中。这个给个例子：
var
  txtLog : TextFile;//文本文件变量
begin
  AssignFile(txtLog,'比如：C:\MyLog.txt');//关联外部文件
  //这个方法打开一个已存在的文件并将指针移到文件最后准备添加数据
  Append(txtLog);  //假如ADOQuery1.Open后获得数据集;
  while not ADOQuery1.Eof do
  begin
    //写日志
    for i := 0 to ADOQuery1.FieldCount-1 do
    begin
      //将指定字符写入文件，并不换行
      Write(txtLog,ADOQuery1.Fields.Fields[i].AsString+'可以加上一个分割符');      
    end;
    Writeln(txtLog,'');//换行
    ADOQuery1.Next;
  end;
  CloseFile(txtLog);//关闭文件 
end;Email:[email protected]