择2个文件.','提示',64);
                  Exit;
                end;
            end;
          end;
          t_Data.Connection1.Close;
          t_data.Connection1.ConnectionString := 'Provider=SQLOLEDB.1;Password='+Trim(Password.Text)+';Persist Security Info=True;User ID='+Trim(Username.Text)+';Initial Catalog='+Trim(Databasename.Text)+';Data Source='+Trim(Servername.Text);
          t_data.Connection1.Open;
          //验证数据库是否合法
          with t_data.Query1 do
          begin
            Close;
            SQL.Clear;
            SQL.Add('select * from sysobjects where xtype = ''u'' and name = ''tb_storeserviceID'' ');
            open;
          end;
          if t_data.Query1.RecordCount <1 then //数据库同名,但不是本系统使用的数据库
          begin
            Application.MessageBox('该数据库已经存在,请重新设置数据库名称.','提示',64);
            DatabaseName.SelectAll;
            Databasename.SetFocus;
            Exit;
          end;
        Except
          Application.MessageBox('数据库连接失败.','提示',64);
          Exit;
        end;
        //利用Ini文件记录数据库配置信息
        Ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Login.ini');
        Ini.WriteString('配置信息',server,Trim(Servername.Text));
        Ini.WriteString('配置信息',database,Trim(Databasename.Text));
        Ini.WriteString('配置信息',user,Trim(Username.Text));
        Ini.WriteString('配置信息',pass,Trim(Password.Text));
        Application.MessageBox('数据库连接成功.','提示',64);
        Close;
      Finally
        Ini.Free;
      End;
    end;
    
    end.