如何将上机日志导出成文本文件到外设

Question

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

Answer 1

如果是手动的话用SQL SERVER的DTS导成文本不就行了，在代码里的话，可以先将记录导到TStrings里，然后再用它的savetofile那个方法保存为文本文件就行了。

Answer 2

我说的正是用代码动态实现，savetofile 没用过，能具体说说吗？而且，保存到文本文件中怎么控制字段、数据等格式的纪录

Answer 3

你有没有用过TStrings类型,它是一个字符串队列,你遍历一遍你的记录,然后把记录的内容添加到里面,再用它的savetofile方法保存为文件.
var
save:TStrings;
i:integer;
begin
save:=Tstrings.create;
for i=0 to table.count-1 do
 begin
 save.add(你记录的各字段的内容[转化为字符串]);
 end;
save.savetofile('c:\save.txt');
可能不是savetofile,我忘记了,这里没delphi,反正是save开头的,你自己一眼就能看出来

Answer 4

谢了！好的，我试一试.
另外，在上机日志表中，记录操作员、操作时间、操作内容，其中“操作内容“一项的记录问题应该怎么实现呢，我想记录当前操作员的操作，即鼠标点击的主菜单的caption,大家给指点指点啊！在此谢谢了！！

Answer 5

你可以在申明一个全局的变量，用于纪录操作员的操作，当操作员退出时再把string的内容添加到表中.