精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>数据库技术>>自动建立数据库别名

主题:自动建立数据库别名
发信人: teleme(PassWord)
整理人: teleme(2001-02-11 10:36:46), 站内信件

发信人: microtomato()
自动建立数据库别名。只要如下操作,程序就可以随便拷贝了。 
procedure TDB1.Zyqk_TableBeforeDelete(DataSet: TDataSet); 
begin 
     if  MessageBox(Application.Handle,'要删除当前记录吗?','确认', 
         mb_iconquestion + mb_yesno) = IDNo then Abort; 
end; 

procedure TDB1.Auto_Create_Alias;   //自动创建数据库别名 
var 
  Auto_Alias : String; 
begin 
     Auto_Alias := ExtractFilePath(Application.ExeName) + 'DB'; 
     Session.AddStandardAlias('Family',Auto_Alias,'PARADOX'); 
     Session.SaveConfigFile ; 
end; 

procedure TDB1.DataModuleCreate(Sender: TObject); 
begin 
     try 
        if not Session.IsAlias('Family') then 
           Auto_Create_Alias ; 
     except 
           MessageBox(Application.Handle,'数据库别名创建失败!','错误'
,mb_iconError); 
     end; 
     try 
        ZYQK_Table.Active := True; 
        JTCY_Table.Active := True; 
        FZQK_Table.Active := True; 
        ZYWT_Table.Active := True; 
        ZDJH_Table.Active := True; 
     except 
           try 
              Session.DeleteAlias('Family'); 
              Auto_Create_Alias; 
              ZYQK_Table.Active := True; 
              JTCY_Table.Active := True;                 
              FZQK_Table.Active := True; 
              ZYWT_Table.Active := True; 
              ZDJH_Table.Active := True; 
           except 
                 MessageBox(Application.Handle,'数据库别名创建失败!',
'错误',mb_iconError); 
           end; 
     end; 
end;
 
 [原文:北京社区]

[关闭][返回]