可查找注册表看看有没有Sql server,没有就给他装上,有Sql server的话可以查询你的数据库是否存在 with ADOQuery1 do begin close; sql.Clear ; sql.Add('Sp_Helpdb'); Open; while not eof do begin If Pos(UpperCase(FDataBaseName),UPPERCASE(FIELDBYNAME('name').ASSTRING))>0 then//你的数据库名 begin if application.MessageBox('您已经安装了该数据库是否重新安装,如果重新安装系统将会删除以前所有的数据!','提示',MB_YESNO +MB_ICONERROR) = IDNO then exit; ........
with ADOQuery1 do
begin
close;
sql.Clear ;
sql.Add('Sp_Helpdb');
Open;
while not eof do
begin
If Pos(UpperCase(FDataBaseName),UPPERCASE(FIELDBYNAME('name').ASSTRING))>0 then//你的数据库名
begin
if application.MessageBox('您已经安装了该数据库是否重新安装,如果重新安装系统将会删除以前所有的数据!','提示',MB_YESNO +MB_ICONERROR) = IDNO then exit;
........