数据库连接

procedure TfmMain.btn3Click(Sender: TObject);
var
  Con: TUniConnection;
begin
  Con := TUniConnection.Create(nil);
  try
    try
      Con.ProviderName := 'SQL Server';
      Con.server := 'T3000';
      Con.Username := 'sa';
      Con.Password := '';
      Con.Database := 'jzxxsjs_test';
      Con.LoginPrompt := False;
      Con.Connect;
      Con.ExecSQL('truncate table XS_RT_DATA', []);
      with TIniFile.Create(ChangeFileExt(GetModuleName(0), '.ini')) do
      begin
        WriteInteger('Config', 'LastID', 0);
        Free;
      end;
      ShowMessage('处理完成');
      Con.Disconnect;
    except
      on E: Exception do
      begin
        ShowMessage(E.Message);
      end;
    end;
  finally
    Con.Free;
  end;
end;