大侠：如何备份、恢复数据库啊？？MDI窗口如何实现横向、纵向、层叠排列？？

Question

大侠：如何备份、恢复数据库啊？？MDI窗口如何实现横向、纵向、层叠排列？？

Answer 1

MDI窗口如何实现横向、纵向、层叠排列
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
用TActionList现实，不用写代码...

Answer 2

Cascade;                      //层叠TileMode := tbHorizontal;    //纵向
Tile;TileMode := tbVertical;     //横向
Tile;

Answer 3

谢谢，那全部最小化呢？？？让MDI子窗口全部最小化如何实现啊？？

Answer 4

//mnuCascade.Click
procedure TfrmComMain.mnuCascadeClick(Sender: TObject);
var
  i:integer;
begin
  for i := MDIChildCount - 1 downto 0 do
    MDIChildren[i].WindowState := wsNormal;
  for i := MDIChildCount - 1 downto 0 do
    MDIChildren[i].WindowState := wsNormal;
  Cascade;
end;//mnuHorizontally.Click
procedure TfrmComMain.mnuHorizontallyClick(Sender: TObject);
var
  i:integer;
begin
  for i := MDIChildCount - 1 downto 0 do
    MDIChildren[i].WindowState := wsNormal;
  for i := MDIChildCount - 1 downto 0 do
    MDIChildren[i].WindowState := wsNormal;
  Tile;
end;//mnuMinAll.Click
procedure TfrmComMain.mnuMinAllClick(Sender: TObject);
var
 i:integer;
begin
  for i := MDIChildCount - 1 downto 0 do
    MDIChildren[i].WindowState := wsMinimized;
  ArrangeIcons;
end;//mnuCloseAll.Click
procedure TfrmComMain.mnuCloseAllClick(Sender: TObject);
var
 i:integer;
begin
  for i := MDIChildCount - 1 downto 0 do
    MDIChildren[i].Close;
end;

Answer 5

功能：SQL数据库恢复
参数：databasename数据库名，filename数据库备份文件名
////////////////////////////////////////////////////////
function sqlrestore(databasename,filename:string):boolean;
begin
if (databasename<>'') and (filename<>'') then
begin
try
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.CommandTimeout:=120;
adoquery1.SQL.Add('use master');
adoquery1.SQL.Add('alter database '+databasename+' set offline WITH ROLLBACK IMMEDIATE');
adoquery1.SQL.Add('restore database '+databasename+' from disk='''+filename+''''+' with REPLACE ');
adoquery1.SQL.Add('alter database '+databasename+' set online with rollback immediate');
adoquery1.ExecSQL;
result:=true;
except
result:=false;
exit;
end;
end;
end;////////////////////////////////////////////////////////
功能：SQL数据库备份
参数：databasename数据库名，savepath数据库备份文件名
////////////////////////////////////////////////////////
function TForm7.sqlback(databasename,savepath:string):boolean;
begin
if (databasename<>'')and (savepath<>'') then
begin
try
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('backup database '+databasename+ ' to disk='''+savepath+'''');
adoquery1.ExecSQL;
result:=true;
except
result:=false;
exit;
end;
end;
end;

Answer 6

備份整個資料庫：RESTORE DATABASE { database_name | @database_name_var } 
[ FROM < backup_device > [ ,...n ] ] 
[ WITH
    [BLOCKSIZE = { blocksize | @blocksize_variable }]
    [ [ , ] MEDIADESCRIPTION = { 'text' | @text_variable } ]
    [ [ , ] DIFFERENTIAL ]
    [ [ , ] EXPIREDATE = { date | @date_var }
        | RETAINDAYS = { days | @days_var } ]
    [ [ , ] PASSWORD = { password | @password_variable } ]
    [ [ , ] FORMAT | NOFORMAT ]
    [ [ , ] { INIT | NOINIT } ]
    [ [ , ] DESCRIPTION = { 'text' | @text_variable } ]
    MEDIANAME = { media_name | @media_name_variable }
    [ [ , ] MEDIAPASSWORD = { mediapassword | @mediapassword_variable } ] 
] 
    [ [ , ] NAME = { backup_set_name | @backup_set_name_var } ]
    [ [ , ] { NOSKIP | SKIP } ]
    [ [ , ] { NOREWIND | REWIND } ]
    [ [ , ] { NOUNLOAD | UNLOAD } ]
    [ [ , ] RESTART ]
    [ [ , ] STATS [ = percentage ] ] 
]備份指定的檔案或檔案群組：BACKUP DATABASE { database_name | @database_name_var }
    < file_or_filegroup > [ ,...n ] 
TO < backup_device > [ ,...n ] 
[ WITH
    [ BLOCKSIZE = { blocksize | @blocksize_variable } ]
    [ [ , ] MEDIADESCRIPTION = { 'text' | @text_variable } ]
    [ [ , ] EXPIREDATE = { date | @date_var }
        | RETAINDAYS = { days | @days_var } ]
    [ [ , ] PASSWORD = { password | @password_variable } ]
    [ [ , ] FORMAT | NOFORMAT ]
    [ [ , ] { INIT | NOINIT } ]
    [ [ , ] DESCRIPTION = { 'text' | @text_variable } ]
    [ [ , ] MEDIANAME = { media_name | @media_name_variable } ]
    [ [ , ] MEDIAPASSWORD = { mediapassword | @mediapassword_variable } ] 
] 
    [ [ , ] NAME = { backup_set_name | @backup_set_name_var } ]
    [ [ , ] { NOSKIP | SKIP } ]
    [ [ , ] { NOREWIND | REWIND } ]
    [ [ , ] { NOUNLOAD | UNLOAD } ]
    [ [ , ] RESTART ]
    [ [ , ] STATS [ = percentage ] ] 
]