发信人: 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;
[原文：北京社区]
|
|