数据库(100分)

１、有一个数据库，每月须自动生成一个ＤＢＡＳＥ表，表的结构完全相同，表名用“年＋月”．ＤＢＦ，如何在ＤＥＬＰＨＩ中实现？
２、如何对这些数据用１．４４Ｍ软盘备份？
谢谢！

1.
if not Table1.Exists then begin
with Table1 do begin
Active := False;
TableType := ttDBASE;
TableName := '2000'+'01';

with FieldDefs do begin
Clear;
with AddFieldDef do begin

Name := 'Field1';
DataType := ftInteger;
Required := True;
end;
with AddFieldDef do begin
Name := 'Field2';
DataType := ftString;
Size := 30;
end;
end;
CreateTable;
ACTIVE:=TRUE;
end;

end;
已测试...
2.
COPYFILE(PCHAR('200001.DBF'),PCHAR('A:/200001.DBF'),FALSE);
这是最简单的了,如果数据量大,你还要考虑压缩和分盘...
用支持份盘压缩的第三方控件...

压缩很简单，可不用第三方控件，直接运行 arj2.60 版即可，运行时把 dos 窗口缩到最小，不在屏幕上显示就可以了

接受答案了.

DEAR kent:

我照你说的方法去做了，分也给你了，怎么就是没动静呢？……一点反应都没有呵！
{我在某个MENUITEM的CLICK中COPYFILE(PCHAR('200001.DBF'),PCHAR('A:/200001.DBF'),FALSE);}

是不是200001.dbf数据库文件不再当前路径里呀,你输入完全路径看看...
比如c:/mydir/200001.dbf