常用连接SQL数据库通用代码

procedure sys_connect();
  begin
    with dm.DataModule1.Database1 do
    begin
      DriverName:='MSSQL';
      Params.values['Server Name']:='192.100.100.14';
      Params.values['Hosts Name']:='192.100.100.14';
      Params.Values['DataBase Name']:='CFX';
      Params.values['User Name']:='sa';
      Params.Values['PassWord']:='sa';
      LoginPrompt:=False;
      KeepConnection:=true;
      try
        Connected:=true;
      except
        ShowMessage('连接数据库失败，请与电脑部联系！~~~~');
      end;
    end;
  end;