谢谢!
解决方案 »
- 请问各位,如何将一个窗口只显示在指定的窗口上。请帮助。
- 关于注册表的小问题
- grideh怎么设置鼠标点选时直接选中整行,并且不可以编辑单元格的内容啊~~
- 招DELPHI程序员--女性优先
- 请教对象指针的问题
- 求 TmwCalendar 等 控件组!!!!!! 200分相送!!!!!!!!
- 请高手解决问题
- DLL中函数返回值类型为PChar,VB无法调用,为什么?急
- 急!急!急!急!!!dephi内部封装报表问题
- 在Delphi三层MIS中如何从服务器端获取实际执行的SQL
- Delphi7从入门到精通 原作者:Marco Cantù 译 者:老汉山人,[email protected]
- 怎样实现日期表的自动生成啊----在线等!!
procedure TForm1.Button1Click(..);
var
i:integer;
FieldName:String;
begin
ClientDatase1.first;
while not ClientDataSet1.Eof do
begin
ClientDataSet2.Append;
for i:=0 to ClientDataSet1.FieldCount-1 do
begin
FieldName:=ClientDataSet1.Fields.Field[i].FieldName;
ClientDataSet2.FieldByName().Variant:=ClientDataSet1.FieldByName().Variant;
end;
ClientDataSet2.Post;
ClientDataSEt2.ApplyUpDate(0);
ClientDataSet2.EmptyDataSet;
ClientDataSet1.Next;
end;
end;
如果你不这样写,可以使用Windows自带的工具,具体的是,开始-程序-附件-系统工具
-备份打开就有备份功能,你应该很容易使用的,如果一次不行多试几次就可以,比较简单。