谁能给我一个完整的数据备份和清除历史记录的代码？？？

我是用bde连接sql server7.0数据库，其中用的是 query,database,datasouce,dbgrid组件，现在我想数据备份，和清除历史记录，但写了一部分代码，都有错误 ，希望各位大侠们给一个正确的代码，给我看一下，一定给分的，多谢了。