新建一个PACKAGE选ADD加入所有的PAS文件
(ww*.pas除外)
编译时DBPOOL。PAS会报错修改代码为(发布时可以按文件里的说明改回来)
//uses XXXXXX;
{Insert the name of the main server unit - for example:
SimpleServerUnit, ServerUnit, etc.}
{$R *.DFM}
procedure TFormDB.FormCreate(Sender: TObject);
begin
try
{Assign the Alias on creation}
// Database.AliasName := XXXXX;
{Insert the main unit's form name here - for example:
SimpleServerForm.Database1.AliasName,ServerForm.MainDB.AliasName, etc.}
except
on E: Exceptiondo
ShowMessage(E.Message);
end;
end;
end.